CLS : SCREEN 12 INPUT "Nom : ", NO$: CLS : A = 25: B = 125: QG = 1 10 DO LINE (1, 1)-(50, 50), 4, B LOCATE 2, 3: PRINT "QG" IF B = 25 AND A > 1 AND A < 50 THEN GOTO 10000 IF MB >= 1 THEN LINE (50, 1)-(100, 50), 1, B: LOCATE 2, 10: PRINT "MB" IF MB >= 1 AND B = 25 AND A > 50 AND A < 100 THEN GOTO 20000 LINE (1, 100)-(50, 150), 4, B LOCATE 8, 3: PRINT "JEU": F = 0: V = 0 IF B = 125 AND A > 1 AND A < 50 THEN GOTO 30000 IF S >= 1 THEN LINE (100, 1)-(150, 50), 1, B IF S >= 1 THEN LOCATE 2, 16: PRINT "S" IF S >= 1 AND B = 25 AND A > 100 AND A < 150 THEN GOTO 40000 IF FO >= 1 THEN LINE (150, 1)-(200, 50), 2, B IF FO >= 1 THEN LOCATE 2, 22: PRINT "FO" IF FO >= 1 AND B = 25 AND A > 150 AND A < 200 THEN GOTO 50000 IF H >= 1 THEN LINE (200, 1)-(250, 50), 4, B IF H >= 1 THEN LOCATE 2, 29: PRINT "H" IF H >= 1 AND B = 25 AND A > 200 AND A < 250 THEN GOTO 60000 IF CG >= 1 THEN LINE (250, 1)-(300, 50), 2, B IF CG >= 1 THEN LOCATE 2, 34: PRINT "CG" IF CG >= 1 AND B = 25 AND A > 250 AND A < 300 THEN GOTO 70000 IF BB >= 1 THEN LINE (300, 1)-(350, 50), 2, B IF BB >= 1 THEN LOCATE 2, 41: PRINT "B" IF BB >= 1 AND B = 25 AND A > 300 AND A < 350 THEN GOTO 80000 IF NL >= 1 THEN LINE (350, 1)-(400, 50), 2, B IF NL >= 1 THEN LOCATE 2, 47: PRINT "NL" IF NL >= 1 AND B = 25 AND A > 350 AND A < 400 THEN GOTO 90000 IF DF >= 1 THEN LINE (400, 1)-(450, 50), 1, B IF DF >= 1 THEN LOCATE 2, 53: PRINT "DF" IF DF >= 1 AND B = 25 AND A > 400 AND A < 450 THEN GOTO 100000 IF N1 >= 1 THEN LINE (450, 1)-(500, 50), 1, B IF N1 >= 1 THEN LOCATE 2, 60: PRINT "N1" IF N1 >= 1 AND B = 25 AND A > 450 AND A < 500 THEN GOTO 110000 IF L >= 1 THEN LINE (500, 1)-(550, 50), 2, B IF L >= 1 THEN LOCATE 2, 66: PRINT "L" IF L >= 1 AND B = 25 AND A > 500 AND A < 550 THEN GOTO 120000 IF JO >= 1 THEN LINE (50, 100)-(100, 150), 2, B IF JO >= 1 THEN LOCATE 8, 10: PRINT "JO" IF JO >= 1 AND B = 125 AND A > 50 AND A < 100 THEN GOTO 130000 IF BR >= 1 THEN LINE (100, 100)-(150, 150), 2, B IF BR >= 1 THEN LOCATE 8, 16: PRINT "BR" IF BR >= 1 AND B = 125 AND A > 100 AND A < 150 THEN GOTO 140000 IF LY >= 1 THEN LINE (150, 100)-(200, 150), 1, B IF LY >= 1 THEN LOCATE 8, 22: PRINT "LY" IF LY >= 1 AND B = 125 AND A > 150 AND A < 200 THEN GOTO 150000 LINE (A, B)-(A + 10, B + 10), 4, BF IF M <> 1 THEN IF U = 8 THEN PLAY "F": U = 0 IF U = 7 THEN PLAY "E": U = 8 IF U = 6 THEN PLAY "E": U = 7 IF U = 5 THEN PLAY "A": U = 6 IF U = 4 THEN PLAY "D": U = 5 IF U = 3 THEN PLAY "D": U = 4 IF U = 2 THEN PLAY "G": U = 3 IF U = 1 THEN PLAY "T 255 C": U = 2 IF U = 0 THEN U = 1 END IF A$ = INKEY$ SELECT CASE A$ CASE "4": LINE (A, B)-(A + 10, B + 10), 0, BF: A = A - 10 CASE "8": LINE (A, B)-(A + 10, B + 10), 0, BF: B = B - 10 CASE "6": LINE (A, B)-(A + 10, B + 10), 0, BF: A = A + 10 CASE "2": LINE (A, B)-(A + 10, B + 10), 0, BF: B = B + 10 CASE "m": IF M = 0 THEN M = 1 ELSE M = 1 CASE "S": END END SELECT LOOP 10000 '----------------------------------------------------------------------- 10001 ' QG 10002 '------------------------------------------------------------------------- 10003 IF QG <> 1 THEN GOTO 11000 10004 CLS 10005 PRINT "Stanley : Bonjour, petit. Je vois que vous ˆtes nouveau ici. Je suis" 10006 PRINT " votre patron. Vous me devez ordre et ob‚issance ! Je vous" 10007 PRINT " confie votre premiŠre mission : enquˆtez sur le meutre commis" 10008 PRINT " avant-hier … cette adresse : MB (Maison Brisset). Bonne chance." 10009 A$ = INPUT$(1): MB = 1: B = 55: CLS 10010 GOTO 10 11000 20000 '----------------------------------------------------------------------- 20001 ' MB 20002 '----------------------------------------------------------------------- 20003 IF MB <> 1 THEN GOTO 21000 20004 CLS 20005 PRINT "1- H‚lŠne Brisset (MŠre)" 20006 PRINT "2- Guillaume Brisset (Fils)" 20007 PRINT "3- Benjamin Brisset (Fils)" 20008 PRINT "4- Annuler" 20009 A$ = INPUT$(1) 20010 IF A$ = "1" THEN GOTO 20100 20011 IF A$ = "2" THEN GOTO 20200 20012 IF A$ = "3" THEN GOTO 20300 20013 IF A$ = "4" THEN B = 55: CLS : GOTO 10 20014 GOTO 20009 20100 '----------------------------------------------------------------------- 20101 CLS 20102 PRINT "H‚lŠne : Bonjour monsieur l'inspecteur. C'est affreux... Je... Je..." 20103 PRINT NO$; " : Ne vous affolez pas madame. Racontez moi calmement ce que vous" 20104 PRINT " avez vu." 20105 PRINT "H‚lŠne : Je rentrais de mon travail et j'ai d‚couvert le cadavre " 20106 PRINT " d‚chiquett‚ en morceaux dans ma cuisine." 20107 PRINT NO$; " : Vous n'avez aucune id‚e de l'identit‚ du cadavre ou de celle" 20108 PRINT " du meurtrier ?" 20109 PRINT "H‚lŠne : Non. Le meurtrier fait sans do–te parti des relations de" 20110 PRINT " Benjamin..." 20111 A$ = INPUT$(1) 20112 B = 55: CLS : GOTO 10 20200 '----------------------------------------------------------------------- 20201 CLS 20202 PRINT "Guillaume : Salut 'specteur. C'est incroyable..." 20203 PRINT NO$; " : Racontez-moi donc." 20204 PRINT "Guillaume : Moi, j'peux pas trop vous dire. Faudrais voir avec mon" 20205 PRINT " frŠre. J'suis sur que c'est un des gars qu'il connait." 20206 PRINT NO$; " : Qu'est ce qui vous fait dire ‡a ?" 20207 PRINT "Guillaume : J'sais pas. Ses potes sont un peu bizzares." 20208 PRINT NO$; " : Merci bien. Aurevoir." 20209 PRINT "Guillaume : Tschss ! " 20210 A$ = INPUT$(1) 20220 B = 55: CLS : GOTO 10 20300 '----------------------------------------------------------------------- 20301 CLS 20302 PRINT "Benjamin : Houl…, salut." 20303 PRINT NO$; " : Bonjour, je viens pour..." 20304 PRINT "Benjamin : O.K. Ben en fait, j'suis s–r que c'est un gars de la S." 20305 PRINT NO$; " : La S ?" 20306 PRINT "Benjamin : Ouaich, la Secte." 20307 PRINT NO$; " : Quelle secte ?" 20308 PRINT "Benjamin : La Secte de l'Ordre du Temple Scolaire." 20309 PRINT NO$; " : What ?" 20310 PRINT "Benjamin : Tenez, voici les coordonn‚es : S." 20311 PRINT NO$; " : Thank you, goodbye !" 20312 PRINT "Benjamin : Ouaich." 20313 A$ = INPUT$(1): B = 55: CLS : S = 1: GOTO 10 21000 29999 B = 55: CLS : GOTO 10 30000 '----------------------------------------------------------------------- 30001 ' REGLE DU JEU 30002 '----------------------------------------------------------------------- 30003 CLS 30004 PRINT "1- Commandes au clavier : " 30005 PRINT 30006 PRINT "1-2-3-4-6-7-8-9 : Directions : Ecran principal" 30007 PRINT "Entr‚e : Ecran suivant : Ecrans secondaires" 30008 PRINT "1-2-3-4-5-6-7-8-9 : Choix : Ecrans secondaires": PRINT "m : Couper musique : Ecran principal": PRINT "S : Quitter le jeu : Ecran pricipal" 30009 PRINT 30010 PRINT "2- Ecran principal : " 30011 PRINT 30012 PRINT "Couleur rouge : Lieux sp‚ciaux" 30013 PRINT "Couleur verte : Une personne" 30014 PRINT "Couleur bleue : Plusieurs personnes" 30015 PRINT 30016 PRINT "3- Donn‚es vous concernant : " 30017 PRINT 30018 PRINT "Nom : "; NO$ 30019 IF FORCE = 0 THEN FORCE = INT(RND(1) * 100) + 1 30020 PRINT "Force :"; FORCE; "%" 30021 IF VITESSE = 0 THEN VITESSE = INT(RND(2) * 100) + 1 30022 PRINT "Vitesse :"; VITESSE; "%" 30023 IF AR$ = "" THEN AR$ = "Aucune" 30024 PRINT "Arme : "; AR$ 30025 PRINT "Puissance :"; AR 30026 IF PR$ = "" THEN PR$ = "Aucune" 30027 PRINT "Protection : "; PR$; " ("; P; ")" 30028 A$ = INPUT$(1) 30029 A = 75: B = 55: CLS : GOTO 10 40000 '----------------------------------------------------------------------- 40001 ' Secte de l'Ordre du Temple Scolaire 40002 '----------------------------------------------------------------------- 40003 IF PER < 1 THEN PER = 1: CLS ELSE CLS 40004 PRINT "1- Salle 09" 40005 PRINT "2- Bureau des surveillants" 40006 PRINT "3- Salle 313" 40007 PRINT "4- Salle 106" 40008 PRINT "5- Salle 204" 40009 PRINT "6- Secr‚tariat" 40010 PRINT "7- C.D.I." 40011 PRINT "8- Bureau du principal" 40012 PRINT "9- Salle 008" 40013 A$ = INPUT$(1) 40014 IF A$ = "1" THEN GOTO 41000 40015 IF A$ = "2" THEN GOTO 42000 40016 IF A$ = "3" THEN GOTO 43000 40017 IF A$ = "4" THEN GOTO 44000 40018 IF A$ = "5" THEN GOTO 45000 40019 IF A$ = "6" THEN GOTO 46000 40020 IF A$ = "7" THEN GOTO 47000 40021 IF A$ = "8" THEN GOTO 48000 40022 IF A$ = "9" THEN GOTO 49000 40023 GOTO 40013 41000 '----------------------------------------------------------------------- 41001 CLS 41002 PRINT "Salle 09 : Salle du vice scolaire" 41003 PRINT 41004 IF S <> 1 THEN GOTO 41100 41005 PRINT "Des enfant d'une douxaine d'ann‚e pour la plupart sont enchaŒn‚s … des" 41006 PRINT "sortes de table et sont assis sur des chaises. Un homme avec une queue" 41007 PRINT "de cheval les fouettes pour qu'ils ‚crivent des tirades d'une sorte de" 41008 PRINT "petite bible jaune. Vous interrogez donc l'homme sur ces co–tumes." 41009 PRINT 41010 PRINT NO$; " : Bonjour monsieur, je m'appelle "; NO$; ". Je viens voir ce qu'il" 41011 PRINT " se passe ici." 41012 PRINT "Rudy : Salut, z'm'apelle Rudy et donc s'qu'il s'passe ici, c'est que" 41013 PRINT " c'te bande de feignasses veulent pas bosser comme y f“." 41014 PRINT NO$; " : Ah ouai. Et l…, que recopient-ils ?" 41015 PRINT "Rudy : Les versets du livre sacr‚ (Grƒal bien s–r)." 41016 PRINT NO$; " : O.K. Merci." 41017 PRINT "Rudy : De rien..." 41018 A$ = INPUT$(1) 41019 B = 55: CLS : GOTO 10 41100 42000 '----------------------------------------------------------------------- 42001 IF S <> 1 THEN GOTO 42100 42002 CLS 42003 PRINT "Bureau des surveillant : Echiquier des pions" 42004 PRINT 42005 PRINT "Des ˆtres ‚tranges moiti‚s pions, moiti‚s humains sont assis autour d'une" 42006 PRINT "table et boivent une boisson noire pour le moins ‚trange..." 42007 PRINT 42008 PRINT NO$; " : Bonjour messieurs dames..." 42009 PRINT "Marie : Qu'est-ce que vous voullez ?" 42010 PRINT NO$; " : Je voudrais avoir des renseignements sur vos... Activit‚s..." 42011 PRINT "Nada : Moi, je mange et je bois..." 42012 PRINT NO$; " : Et l…, par exemple, que buvez-vous ?" 42013 PRINT "Axelle : Du Kaffait. C'est du sang de nos pensionnaires." 42014 PRINT NO$; " : Ah... Hi... Super... Bon, ben, aurevoir..." 42015 PRINT "J-C : Ouai, salut, mais fait pas de b‚tises. Va pas embetter Mmme" 42016 PRINT " Fourot. Elle est trŠs fatigu‚e." 42017 PRINT NO$; " : Qui ?" 42018 PRINT "J-C : Mme Fourot. Tiens, si tu veux j'ai son adresse : FO." 42019 PRINT NO$; " : Merci, aurevoir." 42020 A$ = INPUT$(1) 42021 B = 55: FO = 1: CLS : GOTO 10 42100 43000 '----------------------------------------------------------------------- 43001 IF PER <> 1 THEN GOTO 43100 43002 CLS 43003 PRINT "Salle 313 : Salle des tortures" 43004 PRINT 43005 PRINT "La salle ‚tait vide et des grafitis couvraient le mur. Seul un enfant" 43006 PRINT "‚tait dans cette piŠce. Il jouait avec une balle de tennis contre le mur." 43007 PRINT 43008 PRINT NO$; " : Bonjour petit. Que fais-tu tout seul ici ?" 43009 PRINT "Perrier : J'm'amuse avec la balle. Et puis les autres, ils sont partis." 43010 PRINT NO$; " : Qui est partit ? O— ?" 43011 PRINT "Perrier : La madame, elle est partie … l'hopital parce-qu'elle a un b‚b‚." 43012 PRINT " L'hopital, c'est le H. Les autres, ils ont fait la fˆte et ils" 43013 PRINT " sont partis." 43014 PRINT NO$; " : Merci Perrier. Aurevoir." 43015 PRINT "Perrier : Aurevoir." 43016 A$ = INPUT$(1) 43017 H = 1: B = 55: CLS : GOTO 10 43100 IF PER <> 2 THEN GOTO 43200 43101 CLS 43102 PRINT "Salle 313 : Salle des tortures" 43103 PRINT 43104 PRINT "Perrier : Oh, bonjour monsieur. C'est encore vous ?" 43105 PRINT NO$; " : Oui. Je voudrais savoir si vous connaissez L'affaire du puzzle." 43106 PRINT "Perrier : Oui. J'en ai mˆme fait une r‚daction en allemand parce-qu'il" 43107 PRINT " fallait ‚crire un texte de moins de 100 mots." 43108 PRINT NO$; " : La femme dont vous m'avez parler tout … l'heure connait donc" 43109 PRINT " : Le texte ?" 43110 PRINT "Perrier : Oui. Au fait. Je sais maintenant o— elle est : au LyssŠ. C'est" 43111 PRINT " : une autre secte de l'ordre du temple scolaire, mais en plus" 43112 PRINT " : grand, et mieux organis‚, mais avec plus d'Eur." 43113 PRINT NO$; " : Les Eurs ? Qu'est-ce que c'est." 43114 PRINT "Perrier : Ce sont les pires ennemis des Tudes." 43115 PRINT NO$; " : Merci petit. A la prochaine !" 43116 PRINT "Perrier : Ouai..." 43117 A$ = INPUT$(1): B = 55: LY = 1: CLS : GOTO 10 43200 44000 '----------------------------------------------------------------------- 44001 IF S <> 1 THEN GOTO 44100 44002 IF DB = 1 THEN GOTO 44020 ELSE CLS 44003 PRINT "Salle 106 : Ancienne salle des Tudes" 44004 PRINT 44005 PRINT "C'est une grande salle avec un grand bonhomme chauve au milieu de" 44006 PRINT "la piŠce avec un pistolet … la main. Il vous tire dessus ! " 44007 IF VITESSE > 30 THEN PRINT "Heureusement, vous avez ‚t‚ assez rapide pour ‚viter le tir.": GOTO 44009 44008 IF VITESSE < 30 THEN PRINT "Malheureusement, vous ˆtes mort...": A$ = INPUT$(1): END 44009 PRINT 44010 PRINT "Debiesse : Bravo petit. Vous ˆtes rapide. Mais je vois que vous n'ˆtes pas arm‚." 44011 PRINT " Tenez, prenez mon arme. Vous en aurez besoin." 44012 PRINT NO$; " : Merci. Au... Aurevoir... Ca alors, il a disparu..." 44013 A$ = INPUT$(1) 44014 AR$ = "Pistolet": VITESSE = VITESSE - 5: AR = 5: B = 55: DB = 1: CLS : GOTO 10 44020 CLS 44021 PRINT "Salle 106 : Ancienne salle des Tudes" 44022 PRINT 44023 PRINT "C'est une grande salle vide. Le grand bonhomme chauve a disparu." 44024 A$ = INPUT$(1) 44025 B = 55: CLS : GOTO 10 44100 45000 ' ---------------------------------------------------------------------- 45001 IF S <> 1 THEN GOTO 45100 45002 IF C = 1 THEN GOTO 45020 ELSE CLS 45003 PRINT "Salle 204 : Salle de l'ennuis" 45004 PRINT 45005 PRINT "Casagrande : Sortez une feuille : dict‚e !" 45006 PRINT NO$; " : Mais ‡a va pas la tˆte ?" 45007 PRINT "Casagrande : Et bien en guarde !" 45008 PRINT : FA = 15: VI = 15: ARM = 7 45009 PRINT "Vous vous battez donc contre Casagrande : " 45010 ATT = INT(RND(1) * (VITESSE + AR)) + 1 45011 ATA = (INT(RND(1) * (VI + ARM)) + 1) - P 45012 FORCE = FORCE - ATA: FA = FA - ATT 45013 IF FA <= 0 THEN PRINT "Elle est morte !": GOTO 45016 45014 IF FB <= 0 THEN PRINT "Vous ˆtes mort...": A$ = INPUT$(1): END 45015 GOTO 45010 45016 PRINT "Elle avait un papier dans sa main avec son adresse : CG." 45017 A$ = INPUT$(1) 45018 FORCE = FORCE + 10: AR = AR + 1: VITESSE = VITESSE + 1 45019 C = 1: B = 55: CG = 1: CLS : GOTO 10 45020 CLS 45021 PRINT "Salle 204 : Salle de l'ennuis." 45022 PRINT 45023 PRINT "Un immence cadavre gŒt sur le sol." 45024 A$ = INPUT$(1) 45025 B = 55: CLS : GOTO 10 45100 46000 '----------------------------------------------------------------------- 46001 IF S <> 1 THEN GOTO 46100 46002 CLS 46003 PRINT "Secr‚tariat : Salle du silence" 46004 PRINT 46005 PRINT "Des femmes ‚crivent des textes dans une langue qui vous est inconnue" 46006 PRINT "sur des ordinateurs. Vous tentez donc de communiquer avec elles, mais" 46007 PRINT "elles sont commes hypnotis‚es et ne quittent pas l'‚cran des yeux." 46008 A$ = INPUT$(1): B = 55: CLS : GOTO 10 46100 47000 '----------------------------------------------------------------------- 47001 IF S <> 1 THEN GOTO 47100 47002 CLS 47003 PRINT "C.D.I. : Confr‚rie Des Ill‚tr‚s" 47004 PRINT 47005 PRINT "Des moines vˆtus comme il se doit de leur longue cape noire br–lent" 47006 PRINT "des livres dans une grande barrique situ‚e au centre de grandes " 47007 PRINT "‚tagŠres remplies de ces livres." 47008 PRINT 47009 PRINT NO$; " : Bonjour..." 47010 PRINT "Moine : Je vois... Vous voulez savoir qui nous sommes... Bien, nous " 47011 PRINT " sommes les Doc-U Mental-Hist. Nous br–lons ces livres car ils " 47012 PRINT " ils ne concernent pas le Big-Boss." 47013 PRINT NO$; " : Le Big-Boss ? Qui est-ce ? " 47014 PRINT "Moine : Nous ne connaissons de lui que son adresse : B." 47015 PRINT NO$; " : Merci, aurevoir." 47016 PRINT "Moine : Peut-ˆtre..." 47017 A$ = INPUT$(1): B = 55: BB = 1: CLS : GOTO 10 47100 48000 '----------------------------------------------------------------------- 48001 IF S <> 1 THEN GOTO 48100 48002 CLS : IF JJ <> 2 THEN JJ = 1 48003 PRINT "Bureau du pricipal : Salle mensuelle" 48004 PRINT 48005 PRINT "La salle est vide. Seul gŒt sur le sol le cadavre d'un homme … barbe" 48006 PRINT "blanche, mais ce n'est pas le pŠre No‰l, car lui, il vient en d‚cembre." 48007 IF JJ = 1 THEN PRINT "Il porte un gillet pare-balle que vous vous empressez de prendre." 48008 IF JJ = 1 THEN PR$ = "Gillet pare-balle": P = 5: VITESSE = VITESSE - 1 48009 JJ = 2: A$ = INPUT$(1) 48010 B = 55: CLS : GOTO 10 48100 49000 '----------------------------------------------------------------------- 49001 IF S <> 1 THEN GOTO 49100 49002 IF MA = 1 THEN GOTO 49020 ELSE CLS 49003 PRINT "Salle 008 : Salle du latin de Garenne" 49004 PRINT 49005 PRINT "Une femme pompe le cerveau des enfants qui sont ‚gallement dans la piŠce." 49006 PRINT "En fait, son cerveau fusionne avec celui des autres..." 49007 PRINT 49008 PRINT NO$; " : Mais arrˆtez ! Qui ˆtes vous pour faire quelque chose d'aussi" 49009 PRINT " horrible ? Un monstre ?" 49010 PRINT "Magat : Non. Je suis le Magat en fusion." 49011 PRINT NO$; " : Quoi..." 49012 PRINT "Magat : D'ailleurs, je vais vous aspirer votre cerveau … vous aussi." 49013 PRINT 49014 PRINT "Elle se jette alors sur vous..." 49015 IF AR$ <> "Aucune" THEN PRINT "Heureusement, vous ˆtes arm‚ et vous lui tirez donc dessus." 49016 IF AR$ = "Aucune" THEN PRINT "Malheureusement, elle vous aspire votre cerveau." 49017 IF AR$ = "Aucune" THEN PRINT "Vous ˆtes mort...": END 49018 A$ = INPUT$(1) 49019 MA = 1: B = 55: FORCE = FORCE + 10: AR = AR + 1: VITESSE = VITESSE + 10: CLS : GOTO 10 49020 CLS 49021 PRINT "Salle 008 : Salle du latin de Garenne" 49022 PRINT 49023 PRINT "La salle est vide. Seul gŒt un corps sur le sol." 49024 A$ = INPUT$(1) 49025 B = 55: CLS : GOTO 10 49100 50000 '----------------------------------------------------------------------- 50001 ' F 50002 '----------------------------------------------------------------------- 50003 IF FO <> 1 THEN GOTO 50100 50004 CLS 50005 PRINT "Une vieille dame est assise dans un fauteuil et lance de flŠchettes" 50006 PRINT "sur une pancarte avec marqu‚ dessus <4ø10>. " 50007 PRINT 50008 PRINT NO$; " : Bonjour madame... Que significe cette inscription sur le" 50009 PRINT " panneau ?" 50010 PRINT "Fourot : QuatriŠme dix. C'est une division de la Secte. Il y a un" 50011 PRINT " *æœ&‡“— d'‚lŠve qui … os‚ m'insulter !!!" 50012 PRINT NO$; " : Pouvez-vous m'indiquer le nom d'un des ‚lŠves de cette division ?" 50013 PRINT "Fourot : Oui, je me rappelle d'un nom : Nicolas Loison. Tenez, voici son" 50014 PRINT " adresse : NL." 50015 PRINT NO$; " : Merci bien, aurevoir." 50016 A$ = INPUT$(1) 50017 B = 55: NL = 1: CLS : GOTO 10 50100 60000 '----------------------------------------------------------------------- 60001 ' H 60002 '----------------------------------------------------------------------- 60003 IF H <> 1 THEN GOTO 60100 60004 CLS 60005 PRINT NO$; " : Bonjour madame, je voudrais voir madame Charvollin s'il vous plaŒt." 60006 PRINT "Marion : Excusez-moi, mais elle est partie depuis deux mois..." 60007 PRINT NO$; " : Bien... Avez-vous son adresse ?" 60008 PRINT "Marion : Non, je suis d‚soll‚e..." 60009 PRINT NO$; " : Bien, dans ces cas l…, aurevoir..." 60010 PRINT "Marion : Aurevoir monsieur." 60011 A$ = INPUT$(1) 60012 B = 55: CLS : GOTO 10 60100 70000 '----------------------------------------------------------------------- 70001 ' CG 70002 '----------------------------------------------------------------------- 70003 IF CG <> 1 THEN GOTO 70100 70004 CLS 70005 PRINT "Sa maison est plut“t grande et chaque piŠce est munie d'un frigo." 70006 PRINT "Rien ne ressemble ici … un indice au sujet de cette enquˆte..." 70007 A$ = INPUT$(1) 70008 B = 55: CLS : GOTO 10 70100 80000 '----------------------------------------------------------------------- 80001 ' B 80002 '----------------------------------------------------------------------- 80003 IF BB <> 1 THEN GOTO 80100 80004 CLS 80005 PRINT "Qui l'eu cru ? Le Big-Boss habite, bien dissimul‚, dans un appartement" 80006 PRINT "remplis d'appareil ‚l‚ctriques de trŠs haute technologie." 80007 PRINT "Heureusement qu'il est abscent car sinon, ce serait votre fˆte..." 80008 PRINT "Il y a une Pl‚st‚che–n (appareil terrible permettant de pirater des" 80009 PRINT "logitiels de l'arm‚e aussi facilement que de faire une addition)." 80010 PRINT "Il y a ‚gallement une Nine-Ten-D'eau 64 (sorte de t‚l‚commande pour" 80011 PRINT "sous-marin nucl‚aire russe) et aussi un ordinateur surpuissant qui" 80012 PRINT "lui permet certainement de modifier des sites internets … son grŠs..." 80013 PRINT "Vous trouvez aussi le gros-lot : son carnet d'adresse..." 80014 PRINT "Voici quelques adresses : - Dufinati : DF" 80015 PRINT " - Nass 1 : N1" 80016 PRINT " - Lepage : L" 80017 A$ = INPUT$(1) 80018 DF = 1: N1 = 1: L = 1: B = 55: CLS : GOTO 10 80100 90000 '----------------------------------------------------------------------- 90001 ' NL 90002 '----------------------------------------------------------------------- 90003 IF NL <> 1 THEN GOTO 90100 90004 CLS 90005 PRINT NO$; " : Bonjour monsieur Loison. Je voudrais avoir quelques renseignements" 90006 PRINT " sur la S." 90007 PRINT "Loison : Ouai, j'en fait encore partis... Normalement, je devrais plus y" 90008 PRINT " ˆtre, mais j'ai eu droit … une ann‚e suppl‚mentaire en 4ø10." 90009 PRINT NO$; " : Justement, mme Fourot m'a parl‚ de cette division. C'est quoi ?" 90010 PRINT "Loison : Moi, les division, je sais pas trop les faires, mais j'peux vous" 90011 PRINT " donner l'adresse d'un gars de l'ex 4ø10." 90012 PRINT NO$; " : Ouai, ce serait sympa." 90013 PRINT "Loison : Tiens, ben mˆme deux : Jouve : JO et Breton : BR." 90014 PRINT NO$; " : Merci. Aurevoir." 90015 PRINT "Loison : Aurevoir, et bonne chance." 90016 A$ = INPUT$(1): B = 55: JO = 1: BR = 1: CLS : GOTO 10 90100 100000 '---------------------------------------------------------------------- 100001 ' DF 100002 '---------------------------------------------------------------------- 100003 CLS 100004 PRINT "1- Dufinati" 100005 PRINT "2- Milou" 100006 A$ = INPUT$(1) 100007 IF A$ = "1" THEN GOTO 100100 100008 IF A$ = "2" THEN GOTO 101000 100100 '---------------------------------------------------------------------- 100101 IF DF <> 1 THEN GOTO 100200 100102 CLS 100103 PRINT NO$; " : Bonjour monsieur Dufinati. J'aimerais vous poser quelques" 100104 PRINT " questions sur le Big Boss." 100105 PRINT "Dufinati : Oui. Je connais son frŠre. Il fait parti de la secte de l'ordre" 100106 PRINT " du temple scolaire, mais pas la mˆme que moi. Celle du Lyss‚." 100107 PRINT NO$; " : Ca alors ! Et o— puis-je le trouver ?" 100108 PRINT "Dufinati : Je n'en sais rien. Peut-ˆtre au Lyss‚..." 100109 PRINT NO$; " : Merci. Aurevoir." 100110 PRINT "Dufinati : Aurevoir." 100111 A$ = INPUT$(1): B = 55: CLS : GOTO 10 100200 101000 '---------------------------------------------------------------------- 101001 IF DF <> 1 THEN GOTO 101100 101002 CLS 101003 PRINT NO$; " : Bonjour. Connaissez-vous celui que l'on appelle le Big-Boss ?" 101004 PRINT "Milou : Non. Il faud demander … mon frŠre..." 101005 PRINT NO$; " : Ah bon. Ben merci quand mˆme. Aurevoir..." 101006 PRINT "Milou : Salut." 101007 A$ = INPUT$(1): B = 55: CLS : GOTO 10 101100 110000 '---------------------------------------------------------------------- 110001 ' N1 110002 '---------------------------------------------------------------------- 110003 IF N1 <> 1 THEN GOTO 110100 110004 CLS 110005 PRINT NO$; " : Bonjour monsieur. Je voudrais avoir quelques renseignements " 110006 PRINT " sur la personne qui se fait appeller le Big Boss." 110007 PRINT "Nass 1 : O.K. Vous n'avez qu'… interroger mon magnum." 110008 PRINT : PRINT "Pan... Pan..." 110009 FORCE = FORCE + ((VITESSE / 15) + P) - 30 110010 IF FORCE <= 0 THEN PRINT "Vous ˆtes mort...": A$ = INPUT$(1): END 110011 FORCE = FORCE + 10: VITESSE = VITESSE + 10: AR = AR + 1: P = P + 1 110012 PRINT "Il n'a mˆme pas eu le temps de d‚gainer que vous l'avez refroidit..." 110013 A$ = INPUT$(1): B = 55: CLS : GOTO 10 110100 120000 '---------------------------------------------------------------------- 120001 ' L 120002 '---------------------------------------------------------------------- 120003 IF L <> 1 THEN GOTO 120100 120004 CLS 120005 PRINT NO$; " : Bonjour. Connaissez vous la personne que l'on surnome le Big-Boss ?" 120006 PRINT "Lepage : Oui, bien entendu. Il s'appelle Anthony Racine. Je n'ai" 120007 PRINT " aucun renseignement sur lui. J'ai juste ‚t‚ mˆll‚ avec lui" 120008 PRINT " … une affaire de traffic de balles et raquettes de Ping-Pong," 120009 PRINT " j'ai d‚ja purg‚ ma peine." 120010 PRINT NO$; " : Bon, et bien je ne vous opportunerais plus. Aurevoir." 120011 PRINT "Lepage : Salut." 120012 A$ = INPUT$(1): B = 55: CLS : GOTO 10 120100 IF L <> 2 THEN GOTO 120200 120101 CLS 120102 PRINT NO$; " : Bonjour. Vous souvenez-vous de l'affaire du puzzle ?" 120103 PRINT "Lepage : Oui, pourquoi ? Il est fini ?" 120104 PRINT NO$; " : Non, il commence; mais cette fois, en vrai." 120105 PRINT "Lepage : S‚rieux ? Incroyable... J'suis s–r que le tueur c'est" 120106 PRINT " Breton. Par contre, j'ai pas son adresse..." 120107 PRINT NO$; " : Merci. Salut" 120108 PRINT "Lepage : Salut..." 120109 IF BR = 1 THEN BR = 2 120110 A$ = INPUT$(1): B = 55: CLS : GOTO 10 120200 130000 '---------------------------------------------------------------------- 130001 ' JO 130002 '---------------------------------------------------------------------- 130003 IF JO <> 1 THEN GOTO 130100 130004 CLS 130005 PRINT NO$; " : Bonjour. Connaissez-vous la S ?" 130006 PRINT "Jouve : Oui, bien s–r. Mais pourquoi cette question ?" 130007 PRINT NO$; " : Car quelqu'un … ‚t‚ d‚coup‚s en morceaux puis r‚partis dans" 130008 PRINT " Une maison." 130009 PRINT "Jouve : Ca alors ! J'ai ‚cris un livre (juste le d‚but) ou un type" 130010 PRINT " se fait tu‚ de la mˆme fa‡on ! " 130011 PRINT NO$; " : Incroyable ! Mais … qui avez-vous fait lire ce livre ?" 130012 PRINT "Jouve : Seulement … Julien Lepage. Tenez. Voici son adresse : L." 130013 PRINT NO$; ": Merci, aurevoir. " 130014 A$ = INPUT$(1): L = 2: B = 55: CLS : GOTO 10 130100 140000 '---------------------------------------------------------------------- 140001 ' BR 140002 '---------------------------------------------------------------------- 140003 IF BR <> 1 THEN GOTO 140100 140004 CLS 140005 PRINT NO$; " : Bonjour monsieur Breton. Je voudrais avoir quelques " 140006 PRINT " renseignements sur L'affaire du puzzle. Le d‚but de roman" 140007 PRINT " de Nicolas Jouve." 140008 PRINT "Breton : Oui, je le connais trŠs bien. J'en ai parl‚ … beaucoups d'amis" 140009 PRINT " comme par exemple Perrier." 140010 PRINT NO$; " : Perrier ? Ce nom me dit quelque chose. En tout cas, merci de votre " 140011 PRINT " collaboration. Aurevoir..." 140012 PRINT "Breton : Salut." 140013 A$ = INPUT$(1): PER = 2: B = 55: CLS : GOTO 10 140100 150000 '---------------------------------------------------------------------- 150001 ' LY 150002 '----------------------------------------------------------------------