0 CLS:PRINT:PRINTCHR$(4)CHR$(27)"N LORICIELS EST FIER DE PRESENTER :";CHR$(17) 1 WAIT250:PRINTCHR$(4);CHR$(17):ZAP:GOSUB9000 2 REM COPYRIGHT LORICIELS 83 L.BENES 3 REM LE MANOIR DU DOCTEUR GENIUS 4 REM 5 FOR N=46841 TO 46846:POKEN,63:NEXT 6 POKEN,30:POKEN-7,30:POKE#26A,10 7 HIMEM#9200 8 TEXT :PAPER0:INK0:CLS 9 REM ... COPYRIGHT LORICIELS TOUT DROIT DE REPRODUCTION INTERDIT ..... 10 PLOT2,0,"_ ___ _ _ ___ _ _ ___ _ ___" 15 PLOT2,1,"_ _ __ __ _ _ __ _ _ _ _ _ _" 16 PLOT2,2,"_ __ _ _ _ ___ ____ _ _ _ ___" 17 PLOT2,3,"_ _ _ _ _ _ _ __ _ _ _ __" 18 PLOT2,4,"___ ___ _ _ _ _ _ _ ___ _ _ _" 19 PLOT5,7,"__ _ _ __":PLOT5,8,"_ _ _ _ _ _ _":PLOT5,9,"_ _ _ _" 20 PLOT17,9,"_ _ __":PLOT5,10,"_ _ _ _ _ _ _ _":PLOT5,11,"___ ___" 22 PLOT17,11,"___ _":PLOT2,15,"____ ____ __ _ _ _ _ ____" 23 PLOT2,16,"_ _ _ __ _ _ _ _ _":PLOT2,17,"_ _ ___ _ _ _" 24 PLOT27,17,"_ _":PLOT2,18,"_ ___ _ _ _ _ _ _ ____" 25 PLOT2,19,"_ __ _ _ ___ _ _ _ _":PLOT2,20,"_ _ _ _ __" 26 PLOT21,20,"_ _ _ _":PLOT2,21,"____ ____ _ __ _ ____ ____ _ _" 27 FOR N=0 TO 4:PLOT1,N,5:NEXT 28 FOR N=7 TO 11:PLOT1,N,1:NEXT 29 FOR N=15 TO 21:PLOT 1,N,12:NEXT 30 INK3:WAIT90:INK4:WAIT90:INK3:WAIT90:INK4:WAIT99:INK3:GOSUB31000:GOSUB51000 31 PLOT5,25,"Appuyez sur une touche" 32 REPEAT:ZX=RND(1):UNTIL KEY$<>"":GOTO 40000 33 CLS:PRINT:PRINT"Vous voici arrive dans le manoir du Dr Genius..." 34 WAIT350:PRINT:PRINT"Pour converser avec l'ordinateur,il faut rentrer les ordres" 35 WAIT300:PRINT:PRINT"en 1 ou 2 mots tels que:":PRINT:WAIT200:PRINT" NORD" 36 WAIT200:PRINT:PRINT" PRENDS PILLULE" 37 WAIT200:PRINT:PRINT"ou pour commencer:";:WAIT150:PRINT"ENTRE" 38 WAIT300:PRINT:PRINT:PRINT"Si vous voulez faire durer la phrase decrivant"; 39 PRINT" la salle taper une touche":WAIT400 40 PRINT:PRINT:PRINT:PRINT:PRINT" pressez une touche":GETX$ 41 CLS:PRINT:PRINT" Un dernier conseil:";:WAIT200:PRINT"Il peut parfois":PRINT 42 PRINT"y avoir une porte derriere vous.":WAIT400 45 CLS:HIRES:PRINT:PRINT" VEUILLEZ PATIENTER" 50 GOSUB 8000 'CHARGEMENT VARIABLES 55 HIRES:DIM P(12):P(11)=0:P(12)=0 60 SALLE=1 70 FOR N=1 TO 10 80 P(N)=0:C(N)=0 85 NEXT 90 C(3)=14:C(7)=12:C(1)=80:C(9)=12 100 IFSALLE<>14ANDSALLE<>16ANDSALLE<>17ANDSALLE<>19 THEN P(2)=0 105 IF P(2)=0 THEN 200 106 IF O(22)=SA AND P(7)=1 THEN 200 107 IF O(05)=SA AND P(3)=1 THEN 200 110 IF C(9)>1 THEN C(9)=C(9)-1 130 HIRES 140 PRINT"Il fait noir comme dans un four,il faudrait peut etre allumer" 145 IF KEY$<>"" THEN WAIT500 ELSE WAIT300 150 GOTO 500 200 REM DESCRIPTION SALLE 210 PRINT 220 GOSUB(7000+SALLE*10)-10 300 H=0:N=1 310 IF O(N)<>SALLE THEN 400 320 IF H=1 THEN GOTO 350 330 PRINT"Il y a dans la salle:":WAIT 100 340 H=1 350 PRINT" ";O$(N); 360 WAIT 150 400 N=N+1 410 IF N<=O THEN 310 420 PRINT"" 500 REM ACCEPTATION COMMANDE 510 T=1:Y$(1) ="":Y$(2)="":N=0 520 GOTO 1000 530 IF C(7)>1 AND P(7)=1 THEN C(7)=C(7)-1 540 IF C(3)>1 AND P(3)=1 THEN C(3)=C(3)-1 545 IF C(4)>1 AND P(4)=1 THEN C(4)=C(4)-1 547 IF C(5)>1 THEN C(5)=C(5)-1 550 INPUT"Que faites vous";X$ 560 CLS:PRINTX$ 570 GOSUB 6000 580 IF MO$(1)="00" THEN PRINT"Je ne comprends pas...":WAIT 200:GOTO100 900 REM CONTROLE Mvt 910 Z=1 920 T$=MID$(M$(SALLE),Z,2) 930 IF T$="00" THEN 980 940 IF T$<>MO$(1) THEN 970 950 SALLE=VAL(MID$(M$(SALLE),Z+2,2)) 960 GOTO 100 970 Z=Z+4:GOTO920 980 T=0 990 A1=0 1000 REM CONTROLE 1010 NL=0 1100 NL=NL+1 1110 IF T=0 THEN GOTO 1150 1120 E$=C$(NL) 1130 GOTO 1400 1150 IF NL<=A THEN 1200 1159 PY=23:CO=12 1160 IF A1=1 THEN GOTO 500 1170 PRINT"Impossible "; 1180 IF VAL(MO$(1))<10 THEN PRINT"de prendre ce chemin"; 1190 PRINT"!":GOTO 100 1200 IF MID$(A$(NL),1,2)<>MO$(1) THEN 1100 1210 Y$=MID$(A$(NL),3,2) 1220 IF Y$<>"00" AND Y$<>MO$(2) THEN 1100 1230 E$=MID$(A$(NL),5) 1400 REM CONDITIONS 1410 E=1 1420 IF MID$(E$,E,1)="." THEN 1700 1430 LI=ASC(MID$(E$,E,1))-65 1440 N=VAL(MID$(E$,E+1,2)) 1450 GOSUB 1500+LI*10 1460 IF OK=0 THEN 1100 1470 E=E+3:GOTO1420 1500 IF N=SALLE THEN OK=1 ELSE OK=0 1505 RETURN 1510 IF O(N)=-1 OR O(N)=SALLE THEN OK=1 ELSE OK=0 1515 RETURN 1520 IF O(N)<>SALLE AND O(N)<>-1 THEN OK=1 ELSE OK=0 1525 RETURN 1530 IF O(N)=-1 THEN OK=1 ELSE OK=0 1535 RETURN 1540 IF P(N)=1 THEN OK=1 ELSE OK=0 1545 RETURN 1550 IF P(N)=0 THEN OK=1 ELSE OK=0 1555 RETURN 1560 IF C(N)=1 THEN OK=1 ELSE OK=0 1565 RETURN 1570 IF INT(RND(1)*99+1)SALLE THEN OK=1 ELSE OK=0 1585 RETURN 1700 REM ACTIONS 1705 E=E+1:A1=1 1710 IF MID$(E$,E,1)="." THEN 1100 1720 LI=ASC(MID$(E$,E,1))-65 1730 IF MID$(E$,E+1,1)<>"." THEN N=VAL(MID$(E$,E+1,2)) 1740 BREAK=0 1750 GOSUB 1800+LI*100 1760 IF BREAK<>0 THEN GOTO BREAK 1780 E=E+3 1790 GOTO 1710 1800 G=0:HH=0 1810 G=G+1 1820 IF O(G)=-1 THEN GOTO 1840 1830 IF G-1 THEN 1960 1935 REM CE PROGRAMMEEST LA PROPRIETE DE L.WEILL LORICIELS 1940 PRINT"Vous l'avez deja,vous etes etourdit etdans cette maison ce n'est pas" 1945 WAIT400 1950 PRINT"tres conseille...":GOTO1920 1960 O(N)=-1:S(1)=S(1)+1:RETURN 2000 IF O(N)=-1 THEN 2030 2010 PRINT"Comment voulez vous poser ce que vous n'avez pas" 2020 GOTO 1920 2030 O(N)=SALLE:S(1)=S(1)-1:RETURN 2100 CLS:GOSUB 4000+N*10 2110 RETURN 2200 P(N)=1:RETURN 2300 P(N)=0:RETURN 2400 C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2:RETURN 2500 IF O(N)=-1 THEN S(1)=S(1)-1 2510 O(N)=0 :RETURN 2600 SALLE=N:RETURN 2700 PRINT"D'accord..." 2710 WAIT150:BREAK=300:RETURN 2800 BREAK=500 2810 RETURN 2900 BREAK=530:RETURN 3000 BREAK=100:RETURN 3100 POP:GOTO20000 3200 O(N)=SALLE:RETURN 3300 X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$:RETURN 4000 HIRES:FORN=1TO20:EXPLODE:WAIT4:NEXT 4001 PRINT"Vous avez gardez la lampe trop longtemps allumee,elle a explose" 4005 WAIT400:RETURN 4010 HIRES 4011 PRINT"Vous avez oubliez de fermer le robinetvous mourez sous des tonnes d'eau" 4015 WAIT500:RETURN 4020 HIRES 4022 PRINT"Lapporte vient de se refermer derrierevous,vous voila prisonnier..." 4025 WAIT500:RETURN 4030 HIRES 4031 PRINT"Vous avez trebuche dans l'escalier,vous vous empallez sur le couteau!" 4035 WAIT500:RETURN 4040 HIRES 4041 PRINT"Vous renversez l'eau dans l'escalier, ce qui provoque une decharge"; 4042 PRINT" de la":WAIT300:PRINT"prise electrique" 4045 WAIT300:RETURN 4050 HIRES 4051 PRINT"Vous etes sauf grace a la combinaison que vous avez enfile..!" 4055 WAIT500:RETURN 4060 PRINT"Vous mourrez electrocute..." 4065 WAIT300:RETURN 4070 HIRES:FOR N=1 TO 20:MUSIC2,2,2,10:PLAY3,7,4,80:WAIT1:EXPLODE:WAIT6:NEXT 4071 PRINT"La piece etait pleine de gaz explosif,vous auriez du eteindre..." 4072 WAIT500:CLS:PRINT"On ramassera vos morceaux un autre jour..!" 4075 WAIT300:RETURN 4080 HIRES 4081 PRINT"Vous mourez empalle sur des lances sorties du mur...!" 4085 WAIT400:RETURN 4090 REM 4091 PRINT"La porte ne s'ouvre pas de cette piece":WAIT300:RETURN 4100 HIRES 4101 PRINT"La lampe et le briquet refusent de marcher dans cette piece" 4105 WAIT400:RETURN 4110 HIRES 4111 PRINT"Vous tombez dans une trappe,vous vous disloquez en arrivant au sol.." 4115 WAIT500:RETURN 4120 REM 4121 PRINT"Vous avez raison de passer,car ce monstre n'etait qu'une projection" 4124 WAIT400:PRINT"en 3 dimentions sur un ecran de fumee" 4125 WAIT250:RETURN 4130 REM 4131 PRINT"Vous avez raison,la curiosite est un vilain defaut!!!" 4132 WAIT400 4133 POP:TEXT:PRINT:PRINT:PRINTSPC(12)"AU REVOIR" 4135 WAIT200:GOTO20100 4140 PRINT"Vous avez raison d'attendre,mais cela ne pourra pas durer"; 4141 PRINT" eternellement.." 4142 WAIT450:RETURN 4150 :HIRES:PRINT"Vous avez de la chance car ce coffre etait ouvert.":WAIT400 4152 PRINT"Un message a l'interieur dit:":WAIT250:PRINT"Ne respectez pas les "; 4154 PRINT"couleurs du":PRINT"code de la route...?":WAIT500 4156 PRINT"Tiens le coffre se referme":WAIT200:RETURN 4160 PRINT"Maintenant,vous avez une lampe pleine de petrole" 4165 WAIT400:RETURN 4170 PRINT"Vous n'avez rien pour transporter le petrole":WAIT400:RETURN 4180 HIRES:PRINT"Le briquet que vous aviez laisse allume vient d'exploser" 4181 FOR N=1 TO 10:EXPLODE:WAIT6:NEXT 4185 WAIT300:PRINT"Ca tue l'etourderie.....":WAIT200:RETURN 4190 HIRES:PRINT"A force de marcher en long et en large dans cette maison," 4195 WAIT300:PRINT"vous sombrez dans un coma des plus mortel...":WAIT300:RETURN 4200 PRINT"L'eau coule...":RETURN 4210 HIRES:PRINT"Vous avez les pieds trempes,et cela vous rend tres malade..." 4215 WAIT400:PRINT"Vous mourez d'une triple pneumonie...!":WAIT300:RETURN 4220 PRINT"Le titre est:":WAIT200:PRINT"La mort a la premiere page.":WAIT300:RETURN 4230 HIRES:FOR N=1 TO 20:EXPLODE:NEXT 4233 PRINT"Le livre a explose lorsque vous l'avezouvert...":WAIT400:RETURN 4240 PRINT"Le papier indique: Cherchez la clef.":WAIT300:RETURN 4250 PRINT"La clef vous permettera de trouver le code de la porte d'entree." 4255 WAIT400:RETURN 4260 HIRES:PRINT"Il y a , a cote de la porte,un claviernumerique permettant "; 4265 PRINT"d'entrer un code":WAIT400:RETURN 4270 PRINT"Pour faire quoi..?":WAIT200:RETURN 4280 PRINT"Il y a une odeur de gaz.":WAIT300:RETURN 4290 PRINT"Apparement,il n'y a occune odeur mais...":WAIT300:RETURN 4300 PRINT"C'est deja fait,espece de rigolo":WAIT300:RETURN 4310 PRINT"Il faudrait peut etre du feu":WAIT300:RETURN 4320 PRINT"La lampe ne contient pas de petrole":WAIT300:RETURN 4330 PRINT"Vous ne l'avez pas":WAIT200:RETURN 4340 PRINT"Le briquet est encore allume et il eclaire la piece."WAIT300:RETURN 4350 FOR N=1 TO 15:EXPLODE:WAIT4:NEXT 4355 PRINT"La torche etait piegee,elle vous explose dans les mains.." 4357 WAIT400:RETURN 4360 PRINT"La lampe est encore allumee,et elle vous eclaire":WAIT300:RETURN 4370 HIRES:PRINT"Un nain vient de vous lancer un poignard en plein coeur.." 4375 WAIT300:RETURN 4380 PRINT"Un nain vient de se precipiter sur vous,il s'empalle sur votre"; 4385 PRINT" ciseau":WAIT400:RETURN 4390 PRINT"Un nain vient de se precipiter sur vous,il s'empalle sur votre"; 4395 PRINT" couteau":WAIT400:RETURN 4400 HIRES:PRINT"Vous venez de renverser le pot":WAIT150:RETURN 4410 HIRES:PRINT"La foudre vient de tomber sur la maison":WAIT200 4412 PRINT"La maison n'existe plus,vous non plus":WAIT200:RETURN 4420 HIRES:PRINT"A force de marcher dans le noir,vous avez trebuche":WAIT200 4425 PRINT"Vous mourez d'une fracture du crane...":WAIT200:RETURN 4430 PRINT"Vous ne pouvez pas travailler dans le noir...":WAIT300:RETURN 4440 PRINT"La lumiere du briquet ne suffit pas pour travaillez...":WAIT400:RETURN 4450 PRINT"Impossible !":WAIT100:RETURN 4460 PRINT"Vous n'avez aucun outil..":WAIT250:RETURN 4470 PRINT"Le teleporteur est en panne,donc les boutons ne fonctionnent pas." 4475 WAIT400:RETURN 4480 FOR N=1 TO 25:EXPLODE:WAIT5:NEXT 4484 PRINT"Le teleporteur vient d'exploser,vous etes decompose..!":WAIT400:RETURN 4490 PRINT"Le teleporteur se met en marche,vous disparaissez" 4491 MUSIC2,1,5,0:PLAY2,1,3,1000 4492 FOR N=1 TO 12 4493 PAPER4:WAIT8:PAPER1:WAIT8:PAPER3:WAIT8:PAPER4:WAIT8:PAPER1:WAIT8 4494 NEXT:PAPER0:PLAY0,0,0,0 4495 FOR N=500 TO 30 STEP-5 4497 SOUND2,N,12:PLAY2,0,0,100:NEXT 4498 PLAY0,0,0,0 :HIRES:RETURN 4500 HIRES:PRINT"Vous prenez du 30000 Volts dans les doigts,":WAIT300:RETURN 4510 PRINT"Le placard est ferme a clef":WAIT150:RETURN 4520 HIRES:PRINT"L'horrible monstre sorti du placard vient de vous devorer" 4525 WAIT400:RETURN 4530 PRINT"Il ne fallait pas fuir":WAIT200:RETURN 4540 HIRES:PRINT"Vous avez raison d'utiliser le ciseau,le monstre est mort" 4545 WAIT400:RETURN 4550 PRINT"A l'interieur du placard,le No "PL" est inscrit":WAIT300 4555 PRINT"Le placard se referme.":WAIT150:RETURN 4560 HIRES:FOR N=1 TO 30:EXPLODE:WAIT5:NEXT:PRINT"le pistolet a explose":WAIT200 4565 RETURN 4570 HIRES:FOR N=1 TO 25:EXPLODE:WAIT7:NEXT: 4575 PRINT"le clavier numerique a explose":WAIT250:RETURN 4580 HIRES:PRINT"Le clavier numerique prends feu, heureusement,vous aviez "; 4582 WAIT300:PRINT"un pot plein":WAIT100 4585 PRINT"d'eau qui vous a permis d'eteindre ce feu" 4586 WAIT400:RETURN 4590 HIRES:INPUT"No DE CODE";ZC 4595 IF ZC<>PL THEN GOTO 4570 4600 WAIT200:PRINT"Le code est exact...":POP:PRINT"La porte s'ouvre..." 4603 WAIT400 4605 GOSUB10000:PRINT"Vous voila en dehors de la maison..." 4608 GOSUB 32000:GOTO20100 4610 HIRES:PRINT"A l'interieur du placard,il y a un motqui parle d'un teleporteur" 4615 WAIT400:PRINT"Tiens le placard se ferme tout seul...":WAIT150:RETURN 4620 PRINT"Avant de la poser par terre,il faudrait peut etre l'enlever." 4625 WAIT350:RETURN 4630 HIRES:PRINT"Il y a un horrible monstre devant vousqui est sortie du placart." 4635 WAIT400:RETURN 4640 HIRES:PRINT"Le placard etait piege,vous n'auriez pas du l'ouvrir" 4645 FOR N=1 TO 30:EXPLODE:WAIT7:NEXT 4647 WAIT150:RETURN 6000 REM ANALYSE DU MOT 6010 N=0:GN=0 6020 REPEAT:N=N+1 6030 UNTIL MID$(X$,N,1)<>" " 6040 REPEAT:GN=GN+1 6050 UNTIL MID$(X$,N+GN,1)=" "OR MID$(X$,N+GN,1)="" OR GN=20 6060 IF GN>4 THEN GN=4 6070 X$(1)=MID$(X$,N,GN) 6080 REPEAT:N=N+1 6090 UNTIL MID$(X$,N,1)=" "OR MID$(X$,N,1)="" 6100 REPEAT:N=N+1 6110 UNTIL MID$(X$,N,1)<>" " 6115 GN=0 6120 REPEAT:GN=GN+1 6130 UNTIL MID$(X$,N+GN,1)=" "OR MID$(X$,N+GN,1)="" OR GN=20 6140 IF GN>4 THEN GN=4 6150 X$(2)=MID$(X$,N,GN) 6160 FOR W=1 TO 2:N=0:MO$(W)="00" 6170 N=N+1 6180 IF N>V THEN W=3:GOTO 6300 6190 IF MID$(V$(N),3,4)=X$(W) THEN GOTO 6250 6200 GOTO 6170 6250 MO$(W)=MID$(V$(N),1,2) 6300 NEXT W 6310 RETURN 7000 GOSUB10000 7005 PRINT"Vous etes devant le manoir du defunt":PRINT:WAIT250 7006 PRINTSPC(12)"Dr GENIUS" 7007 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7008 RETURN 7010 GOSUB10100 7015 PRINT"Vous etes dans le hall d'entree." 7016 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7017 RETURN 7020 GOSUB10200 7024 PRINT"Vous etes en bas de l'escalier menant au 2eme etage" 7025 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7026 RETURN 7030 F1=0:GOSUB10300 7034 PRINT"Vous etes dans la salle a manger." 7035 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7036 RETURN 7040 F1=1:GOSUB10300 7043 PRINT"Vous etes dans une biblioteque sans livre...!" 7045 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7046 RETURN 7050 GOSUB 10500 7053 PRINT"Vous etes dans une buanderie" 7055 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7056 RETURN 7060 GOSUB 10600 7th 7063 PRINT"Vous etes dans le salon" 7065 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7066 RETURN 7070 LX=0:GOSUB 10700 8th 7073 PRINT"Vous etes dans une chambre." 7075 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7076 RETURN 7080 GOSUB10800 9th 7083 PRINT"Vous etes dans un corridor" 7085 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7086 RETURN 7090 LX=0:GOSUB10900 10th 7093 PRINT"Vous etes dans une salle d'attente." 7095 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7096 RETURN 7100 LX=0:GOSUB11000 11th 7103 PRINT"Vous etes dans le vestibules" 7105 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7106 RETURN 7110 LX=2:GOSUB10700 12th 7113 PRINT"Vous etes dans la chambre d'amis." 7115 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7116 RETURN 7120 LX=1:GOSUB 10700 13th 7123 PRINT"Vous etes dans une chambre." 7125 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7126 RETURN 7140 LX=2:GOSUB12200 14th 7143 PRINT"Vous etes dans une petite salle" 7145 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7146 RETURN 7150 GOSUB11500 15th 7153 PRINT"Vous etes dans le laboratoire du Dr GENIUS" 7155 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7156 RETURN 7160 LX=1:GOSUB10900 16th 7163 PRINT"Vous etes dans une petite piece vide." 7165 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7166 RETURN 7170 GOSUB 11700 17th 7173 PRINT"Vous etes...":WAIT300:PRINT"Justement,vous ne savez pas ou vous etes" 7175 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7176 RETURN 7180 GOSUB 11800 18th 7183 PRINT"Vous etes en haut de l'escalier" 7185 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7186 RETURN 7190 LX=2:GOSUB10900 19th 7193 PRINT"Vous etes dans la salle bain" 7195 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7196 RETURN 7200 LX=1:GOSUB12200 20th 7203 PRINT"Vous etes dans le living room" 7205 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7206 RETURN 7210 LX=1:GOSUB11000 21th 7213 PRINT"Vous etes dans une piece enfumee...!" 7215 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7216 RETURN 7220 LX=0:GOSUB12200 22th 7223 PRINT"Vous etes dans une grande piece" 7225 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7226 RETURN 7230 GOSUB 12300 23th 7233 PRINT"Vous etes dans une piece de rangement" 7235 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7236 RETURN 7240 GOSUB12400 24th 7243 PRINT"Vous etes dans le dressing" 7245 IF KEY$<>"" THEN WAIT400 ELSE WAIT100 7246 RETURN 8000 REM CHARGEMENT VARIABLES 8001 RESTORE 8010 V=70:DIM V$(V) 8020 FOR N=1 TO V 8030 READ KO$ 8040 V$(N)=KO$ 8050 NEXT 8060 DATA 01N,01NORD,02S,02SUD,03E,03EST,04O,04OUEST,05MONT,05GRIM,06DESC 8070 DATA 10PREN,10RAMA,11POSE,12OUVR,13FERM,14ENTR,14AVAN,15ALLU,16ETEI 8080 DATA 17REPA,17DEPA,18LIS,19REGA,20RETO,21RENI,21SENS,22REMP,23VIDE 8090 DATA 24INVE,24LIST,25RIEN,25ATTE,26POIG,27COUT,28TOUR,29LAMP,30CODE 8100 DATA 31ESCA,32PIST,33PLAC,34TORC,35TELE,36MONS,37PETR,38POT,18LIT 8110 DATA 39CLEF,40PAPI,41LIVR,42BRIQ,43COMB,44COFF,45ROUG,46BLEU,47VERT 8120 DATA 48TITR,49ROBI,50CISE,51PORT 8124 DATA 52ACTI,53JETE,53LANCE,54EAU,55ENFI,55PASS,56APPU,56ENFO,57ENLE 8126 DATA 58RENT 8130 O=25:DIM O(O):DIM O$(O) 8140 FOR N=1 TO O 8150 READ KO 8160 O(N)=KO 8170 NEXT 8180 DATA 06,05,05,08,08,00,00,11,11 8190 DATA 13,20,18,16,16,16,16,00,21 8200 DATA 00,22,25,12,00,25,00 8210 FOR N=1 TO O 8220 READ KO$ 8230 O$(N)=KO$ 8240 NEXT 8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS 8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUME,UN COUTEAU 8270 DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE 8280 DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU 8290 DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE 8300 DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE ALL'EST 8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU 8320 M=25:DIM M$(M) 8330 FOR N=1 TO M 8340 READ KO$ 8350 M$(N)=KO$ 8360 NEXT 8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400 8380 DATA 04080109020500,030700,04130207031000 8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00 8400 DATA00,00,0122032100,040500,0125022200,012100 8410 DATA 0124042200,022300,022100 8430 A=128:DIM A$(A) 8440 FOR N=1 TO A 8450 READ KO$ 8460 A$(N)=KO$ 8470 NEXT 8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M. 8485 DATA 0500A03E08D24.D04D06N. 8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N. 8500 DATA0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M. 8505 DATA 0100A09E07B22.D07N. 8510 DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M. 8515 DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N. 8520 DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N. 8522 DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M. 8525 DATA 0200A17.F01I15M. 8530 DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M. 8531 DATA 0400A21E03.I19M. 8535 DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M. 8540 DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M. 8541 DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J. 8545 DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J. 8548 DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J. 8550 DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K. 8553 DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J. 8555 DATA 1143E09.D62K. 8556 DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J. 8560 DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J. 8563 DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N. 8566 DATA1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K. 8570 DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N. 8575 DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J. 8580 DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L. 8590 DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J. 8595 DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M. 8597 DATA 1642E06.E02F07F06P22M. 8600 DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M. 8605 DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N. 8610 DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K. 8615 DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N. 8620 DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K. 8625 DATA 5543D18.P18E09J.,574EXPLODEAND18F09.D30K.,5743D18.P18F09J. 8630 DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K. 8635 DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N. 8640 DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M. 8650 DATA 1233A25.D64N. 8700 PL=INT(RND(1)*9000+1000) 8800 C=14:DIMC$(C) 8810 FOR N=1 TO C 8820 READ KO$ 8830 C$(N)=KO$ 8840 NEXT N 8850 DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N. 8860 DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N. 8870 DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L. 8900 RETURN 9000 TEXT 9005 N=48000:POKEN,96:POKEN+2,76:POKEN+3,79:POKEN+4,82:POKEN+5,73:POKEN+6,67 9010 POKEN+7,73:POKEN+8,69:POKEN+9,76:POKEN+10,83:POKEN+11,32 9015 POKEN+12,32:POKEN+13,56:POKEN+14,51:RETURN 10000 HIRES:INK0:CURSET100,190,1 10005 DRAW0,-60,1:DRAW97,0,1:DRAW7,10,1:DRAW-97,0,1:DRAW-7,-10,1:DRAW15,-20,1 10010 DRAW-30,-50,1:DRAW-15,20,1:DRAW30,50,1:CURSET100,190,1:DRAW-30,-50,1 10015 DRAW0,-60,1:CURSET100,190,1:DRAW22,0,1:DRAW0,-30,1:DRAW15,0,1:DRAW0,30,1 10020 DRAW60,0,1:DRAW0,-50,1:CURMOV0,-10,1:DRAW0,-30,1:DRAW-67,-40,1 10025 DRAW-23,30,1:DRAW-30,-50,1:DRAW23,-30,1: DRAW30,50,1:CURSET197,100,1 10030 DRAW-45,-60,1:DRAW-52,-30,1:CURSET85,60,1:DRAW0,-6,1:CURSET115,110,1 10035 DRAW0,-30,1:CURMOV7,0,1:DRAW7,-10,1:DRAW7,10,1:DRAW0,20,1:DRAW-15,0,1 10040 DRAW0,-20,1:CURMOV7,-10,1:DRAW0,30,1:CURSET182,100,1:DRAW-30,0,1 10045 DRAW0,20,1:DRAW30,0,1:DRAW0,-20,1:CURMOV-7,0,1:DRAW0,20,1:CURMOV-16,0,1 10050 DRAW0,-20,1:CURSET122,190,1:DRAW13,7,1:DRAW0,-30,1:DRAW-13,-7,1 10055 CURSET133,182,1:CURSET182,150,1:DRAW-30,0,1:DRAW0,20,1:DRAW30,0,1 10060 DRAW0,-20,1:CURMOV-7,0,1:DRAW0,20,1:CURMOV-16,0,1:DRAW0,-20,1 10065 CURSET78,130,1:DRAW15,25,1:DRAW0,-20,1:DRAW-15,-25,1:DRAW0,20,1 10070 CURMOV3,5,1:DRAW0,-20,1:CURMOV9,15,1:DRAW0,20,1:INK3:RETURN 10100 HIRES:INK0:CURSET15,190,1:DRAW0,-160,1:DRAW75,-20,1:DRAW0,40,1 10110 DRAW0,-40,1:DRAW60,0,1:DRAW0,20,1:DRAW10,10,1:DRAW-40,0,1:DRAW40,0,1 10120 DRAW0,3,1:DRAW-40,0,1:DRAW0,-3,1:DRAW0,-10,1:DRAW30,0,1:DRAW0,-20,1 10130 DRAW82,20,1:DRAW0,160,1:DRAW-73,-126,1:DRAW73,126,3:DRAW-30,-50,3 10140 DRAW0,-80,1:DRAW-22,-16,1:DRAW0,58,1:CURMOV19,-9,1:CIRCLE1,1 10145 CURSET15,190,1:DRAW37,-68,1:DRAW0,-70,1:DRAW18,-13,1:DRAW0,50,1 10150 DRAW-18,33,3:DRAW38,-71,1:DRAW31,0,1:DRAW0,-8,3:DRAW0,23,1:DRAW3,0,1 10155 DRAW0,-23,1:DRAW0,8,1:DRAW21,0,1:DRAW0,-8,1:DRAW0,8,1:DRAW1,2,1 10157 DRAW0,-10,1:DRAW0,10,1 10160 DRAW2,0,1:DRAW0,-10,1:DRAW0,8,1:DRAW2,0,1:DRAW0,-8,1:DRAW0,8,1 10165 DRAW3,5,1:DRAW0,-12,1:DRAW0,20,1:DRAW2,3,1:DRAW0,-23,1:DRAW0,23,1 10170 DRAW3,0,1:DRAW0,-23,1:CURSET67,68,1:CIRCLE1,1:INK3:RETURN 10200 HIRES:INK0:CURSET15,190,1:DRAW0,-120,1:DRAW105,-50,1:DRAW60,0,1 10205 DRAW45,50,1:DRAW0,110,1:DRAW-45,-100,1:CURMOV0,-60,1:DRAW0,60,1 10210 DRAW-60,0,1:CURMOV0,-60,1:DRAW0,60,1:DRAW-52,54,1:CURSET15,190,1 10215 DRAW24,-26,1:DRAW0,-104,1:DRAW0,60,1:DRAW27,14,1:DRAW0,-10,1 10220 DRAW53,-50,1:DRAW-6,-2,1:DRAW-54,47,1:CURMOV7,3,1:DRAW-7,-3,1 10225 DRAW0,-10,1:DRAW53,-44,1:DRAW0,8,1:DRAW0,-8,1:DRAW-5,-2,1:DRAW-56,40,1 10230 DRAW9,4,1:DRAW-9,-4,1:DRAW0,-10,1:DRAW55,-36,1:DRAW0,7,1:DRAW0,-7,1 10235 DRAW-5,-2,1:DRAW-56,33,1:DRAW7,3,1:DRAW-7,-3,1:DRAW0,-10,1 10240 DRAW-5,-2,1:DRAW5,2,1:DRAW57,-30,1:DRAW0,8,1:DRAW0,-8,1:DRAW-5,-2,1 10245 DRAW-57,25,1:DRAW57,-25,1:DRAW0,-7,1:DRAW-57,24,1:DRAW57,-24,1 10250 DRAW-5,-2,1:DRAW-16,5,1:DRAW16,-5,1:DRAW0,-4,1 10255 CURSET211,146,1:DRAW0,-64,1:DRAW-15,-20,1:DRAW0,52,1:CURSET207,108,1 10260 CIRCLE1,1:CURSET156,80,1:DRAW24,0,0:DRAW6,12,0:DRAW-6,-12,0:DRAW0,-40,0 10265 DRAW-26,0,1:DRAW0,40,1:DRAW5,12,1:DRAW27,0,1:DRAW0,-42,1:DRAW-6,-10,1 10270 DRAW6,10,1:DRAW-27,0,1:DRAW-4,-10,1:DRAW4,10,1:DRAW0,42,1 10275 CURSET169,70,0:CIRCLE4,1:CURSET169,66,1:DRAW0,-3,1:CURSET169,74,1 10280 DRAW0,2,1:CURSET165,70,1:DRAW-2,0,1:CURSET173,70,1:DRAW2,0,1 10285 CURSET165,58,1:CIRCLE1,1:CURSET170,58,1:CIRCLE1,1:CURSET175,58,1 10290 CIRCLE1,1:INK3:RETURN 10300 HIRES:INK0:CURSET15,190,1:DRAW67,-110,1:DRAW68,0,1:DRAW82,110,1 10305 DRAW0,-140,1:DRAW-82,-40,1:DRAW0,70,0:DRAW0,-70,1:DRAW-68,0,1 10310 DRAW0,70,0:DRAW0,-70,1:DRAW-67,40,1:DRAW0,140,1:CURSET90,80,1 10315 DRAW0,-50,1:DRAW24,0,1:DRAW0,50,1:DRAW-24,0,0:DRAW18,10,1:DRAW0,-50,1 10320 DRAW-18,-10,1:CURSET105,64,1 10325 CURSET210,160,1:DRAW0,-90,1:DRAW-23,-14,1:DRAW0,74,1:CURSET205,110,1 10330 CURSET45,140,1:DRAW0,-74,1:DRAW18,-14,1:DRAW0,60,1:CURSET60,86,1 10335 IF F1=0 THEN INK3:RETURN 10400 INK0:CURSET124,80,1:DRAW26,0,0:DRAW0,-70,0:DRAW0,70,0 10401 CURSET149,80,0:DRAW12,14,0 10402 CURSET150,80,0:DRAW10,14,0 10405 CURSET168,18,1:DRAW0,86,1:DRAW-38,0,1:DRAW0,-86,1:DRAW38,0,1 10410 DRAW-38,0,1:DRAW-6,-8,1:DRAW0,70,1:DRAW6,24,1 10415 CURSET168,94,1:DRAW-38,0,1:CURSET168,94,1:DRAW-8,-10,1:CURSET168,84,1 10420 DRAW-38,0,1:CURSET168,84,1:DRAW-8,-10,1:CURSET168,74,1:DRAW-38,0,1 10430 CURSET168,74,1:DRAW-9,-10,1:CURSET168,64,1:DRAW-38,0,1:CURSET168,64,1 10435 DRAW-9,-10,1:CURSET168,54,1:DRAW-38,0,1:CURSET168,54,1:DRAW-18,-18,1 10440 DRAW-18,0,1:DRAW18,0,1:DRAW0,-16,1 10445 INK3:RETURN 10500 HIRES:INK0:CURSET13,180,1:DRAW0,-132,1:DRAW63,-28,1:DRAW83,0,1 10505 DRAW67,30,1:DRAW0,130,1:DRAW-11,-14,1:DRAW-4,-4,0:DRAW-17,-25,1 10510 DRAW-24,-36,0:DRAW-12,-20,1:DRAW0,-61,1:DRAW0,61,1:DRAW-83,0,1 10515 DRAW0,-60,1:DRAW0,60,1:DRAW-63,100,1:CURSET22,90,1:DRAW19,0,1 10520 DRAW0,-30,3:DRAW-19,0,1:DRAW0,30,1:DRAW0,-30,1:DRAW33,-20,1 10525 DRAW13,0,1:DRAW0,20,1:DRAW-28,30,1:DRAW0,-30,1:DRAW27,-20,1 10530 DRAW-11,9,1:DRAW0,23,1:CURSET52,64,1:CURSET60,58,1:CURSET157,100,1 10535 DRAW30,0,1:DRAW29,34,1:DRAW-40,0,1:DRAW0,2,1:DRAW40,0,1:DRAW0,-2,1 10540 DRAW0,2,3:DRAW-2,0,3:DRAW0,34,1:DRAW-3,0,1:DRAW0,-34,1:DRAW-30,0,1 10545 DRAW0,34,1:DRAW-3,0,1:DRAW0,-34,1:DRAW-2,0,3:DRAW-20,-34,1:DRAW0,-2,1 10550 DRAW20,34,1:CURSET159,104,1:DRAW0,24,1:DRAW3,0,1:DRAW0,-18,1 10555 INK3:RETURN 10600 HIRES:INK0:CURSET15,190,1:DRAW0,-130,1:DRAW75,-50,1 10605 DRAW52,0,1:DRAW90,50,1:DRAW0,130,1:DRAW-22,-32,1:DRAW0,-52,1 10610 DRAW-3,-5,1:DRAW-42,-43,1:DRAW-6,0,1:DRAW-2,4,1:DRAW0,10,1:DRAW-12,0,1 10613 DRAW5,0,1:DRAW-7,-10,1:DRAW0,-50,1:DRAW0,50,1 10615 DRAW-22,0,1:DRAW0,-30,1:DRAW-15,0,1:DRAW13,3,1:DRAW0,30,1 10620 DRAW-13,-3,1:DRAW0,-30,1:DRAW0,30,1:DRAW-15,0,1:DRAW0,-50,1:DRAW0,50,1 10625 DRAW-23,40,1:DRAW-22,0,1:DRAW22,0,1:DRAW0,-52,1:DRAW-22,22,1:DRAW0,70,1 10630 DRAW-30,50,1:CURSET116,49,1:CURSET210,158,1:DRAW-45,0,1:DRAW0,-18,1 10633 DRAW0,18,1 10635 DRAW-26,-60,0:DRAW0,-10,1:DRAW6,-16,1:DRAW12,0,3:DRAW4,4,1:DRAW-12,0,1 10640 DRAW-4,-4,1:DRAW4,4,1:DRAW-6,14,1:DRAW10,-2,1:DRAW9,0,1:DRAW0,-11,1 10645 DRAW0,11,1:DRAW19,25,1:CURSET165,140,1:DRAW10,-20,1:DRAW21,0,1 10650 DRAW-5,-7,1:DRAW-21,0,1::DRAW5,7,1:DRAW-5,-7,1:DRAW-7,14,1 10655 DRAW-20,-37,1:CURSET165,140,1:DRAW-26,-50,1:CURSET165,158,1 10660 DRAW-26,-59,1:DRAW0,-1,1:CURSET196,120,1:DRAW0,-14,1:DRAW2,-5,1 10665 DRAW9,0,1:DRAW-9,0,1:DRAW-39,-43,1 10670 INK3:RETURN 10700 HIRES:INK0:CURSET15,190,1:DRAW57,-106,1:DRAW-57,106,1:DRAW0,-150,1 10705 DRAW67,-30,1:DRAW0,32,1:DRAW0,-32,1:DRAW75,0,1:DRAW0,50,1:DRAW0,-50,1 10710 DRAW75,30,1:DRAW0,150,1:DRAW-75,-130,1:CURSET202,138,1:DRAW0,-78,1 10715 DRAW-22,-18,1:DRAW0,56,1:CURSET157,60,1:DRAW-9,0,1:DRAW2,3,3 10720 DRAW-78,0,1:DRAW0,8,1:DRAW78,0,2:DRAW0,-8,1:DRAW0,20,1 10725 DRAW-78,0,1:DRAW0,-38,1:DRAW10,-12,1:CURSET82,42,1:DRAW-10,13,1 10730 DRAW6,1,1:DRAW9,-13,1:DRAW-4,-1,1:DRAW4,1,1:DRAW0,6,1:DRAW-9,13,1 10735 DRAW0,1,1:DRAW0,-7,1:DRAW0,6,1:DRAW9,-13,1:DRAW55,0,1:DRAW8,15,1 10738 IF LX=2 THEN GOTO 10745 10740 CURSET197,93,1:CIRCLE1,1 10745 IF LX=0 THEN INK3:RETURN 10750 IF LX=1 THEN GOTO 10780 10755 CURSET202,137,0:DRAW0,-77,0:DRAW-22,-18,0:DRAW0,55,0 10760 CURSET30,162,1:DRAW26,-49,0:DRAW0,1,0:DRAW-26,49,0 10765 CURSET30,162,1:DRAW0,-80,1:DRAW22,-22,1:DRAW0,9,1:DRAW0,-9,1 10770 DRAW-22,22,1:DRAW27,-15,1:DRAW0,77,1:DRAW-25,18,1:CURSET51,111,1 10775 CIRCLE1,1:INK3:RETURN 10780 CURSET30,50,1:DRAW0,40,1:DRAW22,-24,1:DRAW0,-29,1:DRAW-22,14,1 10785 DRAW12,-8,3:DRAW0,33,1 10790 INK3:RETURN 10800 HIRES:INK0:CURSET15,190,1:DRAW0,-140,1:DRAW82,-40,1:DRAW53,0,1 10805 DRAW75,40,1:DRAW0,140,1:DRAW-30,-50,1:DRAW0,-80,1:DRAW-26,-22,1 10810 DRAW0,60,1:DRAW26,0,1:DRAW-26,0,1:DRAW-19,-30,1:DRAW0,-58,1 10812 DRAW0,58,1:DRAW-22,0,1 10815 DRAW0,-40,1:DRAW-15,0,1:DRAW13,4,1:DRAW0,40,1:DRAW-13,-4,1:DRAW0,-40,1 10820 DRAW0,40,1:DRAW-15,0,1:DRAW0,-58,1:DRAW0,58,1:DRAW-30,42,1:DRAW-22,0,1 10825 DRAW22,0,1:DRAW0,-68,1:DRAW-22,16,1:DRAW0,86,1:DRAW-30,43,1 10830 CURSET123,52,1:INK3:RETURN 10900 HIRES:INK0:CURSET232,190,1:DRAW0,-150,1:DRAW-82,-30,1:DRAW0,50,1 10905 DRAW0,-50,1:DRAW-60,0,1:DRAW0,50,1:DRAW0,-50,1:DRAW-75,30,1:DRAW0,150,1 10910 IFLX=0 THEN DRAW75,-130,1:DRAW-23,40,3:GOTO10920 10915 DRAW30,-52,1:DRAW-30,52,1:DRAW75,-130,3:DRAW-23,40,1:DRAW-22,0,1 10918 DRAW22,0,1 10920 DRAW0,-58,1:DRAW-22,16,1:DRAW0,80,1 10925 CURSET90,60,1:DRAW60,0,1:DRAW82,130,1 10930 IF LX=0 THEN CURSET63,78,1:CIRCLE1,1:INK3:RETURN 10935 IF LX=1 THEN INK3:RETURN 10940 CURSET210,100,1:DRAW-15,0,1:DRAW-3,-10,1:DRAW18,0,1:DRAW0,10,1 10945 DRAW0,-10,1:DRAW-27,-25,1:DRAW0,5,1:DRAW20,20,1:DRAW-20,-20,1 10950 DRAW-8,0,1:DRAW8,0,1:DRAW0,-5,1:DRAW-12,0,1:DRAW21,25,1:DRAW-21,-25,1 10955 DRAW-1,0,1:DRAW2,8,1:DRAW21,26,1 10960 INK3:RETURN 11000 HIRES:INK0:CURSET15,190,1:DRAW0,-150,1:DRAW82,-30,1:DRAW0,40,1 11005 DRAW0,-40,1:DRAW60,0,1:DRAW0,40,1:DRAW0,-40,1:DRAW75,30,1:DRAW0,150,1 11010 DRAW-22,-42,1:DRAW0,-75,1:DRAW-23,-21,1:DRAW0,52,1:DRAW23,0,1 11015 DRAW-23,0,1:DRAW-30,-54,1:DRAW-60,0,1:DRAW-82,140,0:DRAW82,-140,1 11020 DRAW15,0,1:DRAW0,-24,1:DRAW12,0,1:DRAW0,24,1:CURMOV-3,-12,1 11025 IF LX=0 THEN INK3:RETURN 11030 CURSET 187,104,1:DRAW22,0,0:CURMOV-22,0,1:DRAW23,44,1:CURMOV-5,-45,1 11035 CIRCLE1,1:CURSET30,50,1:DRAW0,40,1:DRAW37,-34,1:DRAW0,-25,1:DRAW-37,20,1 11040 DRAW21,-10,3:DRAW0,31,1:INK3:RETURN 11500 HIRES:INK0:CURSET15,180,1:DRAW0,-140,1:DRAW67,-30,1:DRAW75,0,1 11505 DRAW67,30,1:DRAW0,150,1:DRAW-42,-70,1:DRAW0,-70,1:DRAW-24,-20,1 11510 DRAW0,-20,1:DRAW0,20,1:DRAW-45,0,1:DRAW-15,20,1:DRAW85,0,1:DRAW-33,0,1 11515 DRAW0,70,1:DRAW33,0,1:DRAW-34,0,1:DRAW-14,-40,1:DRAW0,-30,1:DRAW0,30,1 11520 DRAW-22,0,1:DRAW0,-30,1:DRAW0,30,1:DRAW-15,40,1:DRAW0,-70,1:DRAW0,30,1 11525 DRAW-15,0,1:DRAW0,-70,1:DRAW0,70,1:DRAW-67,100,1 11530 CURSET167,60,1:CIRCLE1,1:CURMOV0,10,1:CIRCLE1,1:CURMOV0,10,1:CIRCLE1,1 11540 CURMOV0,20,1:DRAW6,2,1:DRAW-6,-2,1:CIRCLE8,1 11545 POKE43346,1:POKE43348,3:POKE43386,1:POKE43388,3 11550 POKE43746,4:POKE43748,3:POKE43786,4:POKE43788,3 11555 POKE44146,2:POKE44148,3:POKE44186,2:POKE44188,3 11560 INK3:RETURN 11700 HIRES:INK0:CURSET15,190,1:DRAW0,-140,1:DRAW60,-40,1:DRAW75,00,1 11705 DRAW82,40,1:DRAW0,140,1:DRAW-45,-72,3:DRAW0,-54,1:DRAW-15,-14,1 11710 DRAW0,44,1:CURSET232,190,1:DRAW-82,-130,1:DRAW0,-50,1:DRAW0,50,1 11715 DRAW-75,0,1:DRAW0,-50,1:DRAW0,50,1:DRAW-4,10,1:DRAW9,0,1:DRAW-23,0,1 11720 DRAW-34,50,1:DRAW39,0,1:DRAW18,-50,1:DRAW0,4,1:DRAW-18,52,1 11725 DRAW0,-6,1:DRAW0,6,1:DRAW-39,0,1:DRAW0,-6,1 11730 CURSET15,190,1:DRAW15,-33,1:DRAW0,-30,1 11735 DRAW4,0,3:DRAW0,37,1:DRAW-4,0,1:DRAW0,-7,1:DRAW0,7,1:DRAW4,0,1 11740 :DRAW3,-8,1:DRAW0,-29,1:DRAW15,0,3:DRAW0,37,1:DRAW4,0,1:DRAW0,-37,1 11745 DRAW0,37,1:DRAW3,-8,1:DRAW0,-29,1:DRAW-14,0,3:DRAW-7,16,1 11750 CURSET74,93,1:DRAW0,12,1:DRAW3,0,1:DRAW0,-19,1:DRAW0,19,1 11755 DRAW2,-7,1:DRAW0,-18,1 11760 CURSET184,86,1:INK3:RETURN 11800 HIRES:INK0:CURSET15,199,1:DRAW0,-160,1:DRAW75,-30,1:DRAW52,0,1 11805 DRAW90,30,1:DRAW0,160,1:CURSET15,199,1:DRAW75,-140,1:DRAW0,-50,1 11810 DRAW0,50,1:DRAW15,0,1:DRAW0,-30,1:DRAW12,4,1:DRAW0,30,1:DRAW-12,-4,1 11815 DRAW0,-30,1:DRAW15,0,1:DRAW0,30,1:DRAW22,0,1:DRAW0,-50,1:DRAW0,50,1 11820 DRAW36,55,1:DRAW21,0,1:DRAW-21,0,1:DRAW0,-60,1:DRAW21,15,1:DRAW0,74,1 11825 DRAW6,8,1:DRAW-106,0,1:DRAW-15,46,1:DRAW15,-46,1:DRAW0,10,1:DRAW106,0,1 11830 DRAW0,-10,1:DRAW0,10,1:DRAW4,5,1:DRAW-112,0,1:DRAW2,-5,1:DRAW-2,5,1 11835 DRAW0,10,1:DRAW112,0,1:DRAW0,-10,1:DRAW0,10,1:DRAW4,6,1:DRAW-119,0,1 11840 DRAW3,-6,1:DRAW-3,6,1:DRAW0,10,1:DRAW119,0,1:DRAW0,-10,1:DRAW0,10,1 11845 DRAW4,6,1:DRAW-126,0,1:DRAW3,-6,1:CURSET115,49,1 11850 INK3:RETURN 12200 HIRES:INK0:CURSET15,190,1:DRAW0,-150,1:DRAW75,-30,1:DRAW0,50,1 12205 DRAW0,-50,1:DRAW60,0,1:DRAW0,50,1:DRAW0,-50,1:DRAW82,30,1:DRAW0,150,1 12210 DRAW-82,-130,1:DRAW-45,0,1:DRAW0,-30,1:DRAW15,0,1:DRAW0,30,1:DRAW-30,0,1 12215 DRAW-30,53,1:IF LX=2 THEN DRAW-23,0,1:DRAW23,0,1 12220 DRAW0,-60,1:DRAW-23,17,1:DRAW0,80,1 12225 IF LX<>2 THEN DRAW23,-37,1:DRAW-23,37,1 12230 DRAW-22,40,1:IF LX<>2 THEN CURSET57,88,1:CIRCLE1,1 12235 IF LX<>0 THEN CURSET 117,45,1:CIRCLE1,1:INK3:RETURN 12240 CURSET105,60,1:DRAW15,0,0:CURMOV-15,0,1:DRAW0,-30,1:DRAW12,3,1 12245 DRAW0,30,1:DRAW-12,-4,1:CURSET115,48,1:INK3:RETURN 12299 GOTO14000 12300 HIRES:INK0:CURSET15,190,1:DRAW0,-150,1:DRAW67,-30,1:DRAW67,0,1 12310 DRAW82,30,1:DRAW0,150,1:DRAW-65,-104,1:DRAW0,-54,1:DRAW-16,-10,1 12315 DRAW0,-10,1:DRAW0,10,1:DRAW-37,0,1:DRAW-3,10,1:DRAW0,54,1:DRAW56,0,1 12320 DRAW0,-54,1:DRAW-28,0,1:DRAW0,54,1:DRAW0,-54,1:DRAW-28,0,1:DRAW0,30,1 12325 DRAW-27,0,1:DRAW0,-50,1:DRAW0,50,1:DRAW-67,130,1 12330 CURSET133,60,1:CIRCLE1,1:CURMOV11,0,1:CIRCLE1,1 12340 INK3:RETURN 12400 HIRES:INK0:CURSET30,164,1:DRAW-15,26,1:DRAW0,-143,1:DRAW15,-7,1 12405 DRAW0,124,1:DRAW15,0,1:DRAW0,-124,1:DRAW-15,0,1:DRAW15,0,1:DRAW45,-30,1 12410 DRAW 0,13,1:DRAW0,-13,1:DRAW60,0,1:DRAW0,50,1:DRAW0,-50,1:DRAW82,30,1 12415 DRAW0,150,1:DRAW-82,-130,1:DRAW-50,0,1:DRAW-32,104,1:DRAW-22,0,1 12420 DRAW22,0,1:DRAW0,-92,1:DRAW-22,0,1:DRAW44,-48,1:DRAW10,0,1:DRAW-32,48,1 12425 DRAW32,-48,1:DRAW0,35,1:DRAW-14,46,3:DRAW0,-61,1 12430 CURSET81,88,1:CIRCLE1,1:CURMOV11,-21,1:CIRCLE1,1:INK3:RETURN 12499 GOTO14000 13000 HIRES:INK0:CURSET75,62,1:DRAW-5,0,1:DRAW-55,108,1:DRAW37,-10,1 13005 DRAW30,-90,1:DRAW-19,5,1:DRAW19,-5,1:DRAW20,5,1:DRAW-12,94,1 13007 DRAW-38,-10,1:DRAW38,10,1:DRAW0,20,1:DRAW-75,0,1:DRAW0,-20,1 13010 DRAW0,20,1:DRAW75,0,1:DRAW15,-112,1:DRAW0,-15,1 13012 DRAW-3,14,1:DRAW3,-14,1:DRAW-13,0,1 13015 DRAW0,-12,1:DRAW0,12,1:DRAW-4,10,1:DRAW0,-22,1:DRAW12,0,1 13020 DRAW4,-7,1:DRAW0,-15,1:DRAW-4,6,1:DRAW0,16,1:DRAW0,-16,1:DRAW-12,0,1 13025 DRAW4,-6,1:DRAW12,0,1:DRAW-12,0,1:DRAW0,-16,1:DRAW-4,6,1:DRAW0,16,1 13030 DRAW0,-16,1:DRAW-12,0,1:DRAW4,-6,1:DRAW12,0,1:DRAW-12,0,1:DRAW-4,6,1 13035 DRAW0,16,1:DRAW-12,0,1:DRAW4,-6,1:DRAW7,0,1:DRAW-7,0,1:DRAW-4,6,1 13040 DRAW0,16,1:DRAW12,0,1:DRAW0,22,1 13045 INK3:RETURN 20000 GOSUB13000 'TOMBE 20010 GOSUB30000 'SARABANDE 20100 TEXT:PRINT:PRINT:PRINT:PRINT:PRINT"Voulez-vous rejouer ?":GET X$ 20105 IF X$="O" THEN RUN 45 20110 IF X$="N" THEN GOTO 20200 20120 GOTO20100 20200 CLS:PRINT:PRINT:PRINT:PRINT" AU REVOIR" 20210 END 30000 REM SARABANDE 30005 RESTORE 30010 FOR N=1 TO 41:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT 30015 FOR N=1 TO 75 30020 READ A1,A2,A3,A4,A5 30025 READ A6,A7,A8,A9,A0 30030 MUSIC1,A1,A2,A3:MUSIC2,A4,A5,A6:MUSIC3,A7,A8,A9:PLAY7,0,0,100:WAITA0 30032 IF N>70 THEN NEXT:PLAY0,0,0,0:RETURN 30035 PLAY0,0,0,0:NEXT 30040 DATA 3,6,8,3,3,8,2,10,8,80 30045 DATA 3,6,8,3,3,8,2,10,8,80 30050 DATA 0,1,1,0,1,1,0,1,1,40 30055 DATA 3,8,8,3,5,8,0,1,1,40 30060 DATA 3,5,8,3,2,8,2,10,8,80 30065 DATA 3,5,8,3,2,8,2,10,8,40 30070 DATA 1,11,8,0,1,1,0,1,1,40 30075 DATA 1,10,8,0,1,1,0,1,1,40 30080 DATA 1,8,8,0,1,1,0,1,1,40 30085 DATA 3,10,8,3,6,9,3,1,8,80 30090 DATA 3,10,8,3,6,9,3,1,8,80 30095 DATA 0,1,1,0,1,1,0,1,1,40 30100 DATA 3,11,8,3,8,8,0,1,1,40 30105 DATA 3,8,8,3,5,8,3,1,8,80 30110 DATA 3,8,8,3,5,8,3,1,8,40 30115 DATA 2,1,8,0,1,1,0,1,1,40 30120 DATA 1,11,8,0,1,1,0,1,1,40 30125 DATA 1,10,8,3,7,8,3,10,8,40 30130 DATA 3,11,8,3,8,8,3,3,8,80 30135 DATA 3,11,8,3,8,8,3,3,8,80 30140 DATA 1,8,8,0,1,1,0,1,1,40 30145 DATA 1,8,8,3,10,8,4,1,8,40 30150 DATA 3,10,8,3,6,8,3,3,8,80 30155 DATA 3,10,8,3,6,8,3,3,8,80 30160 DATA 0,1,1,0,1,1,0,1,1,40 30165 DATA 3,10,8,2,1,8,0,1,1,40 30170 DATA 4,3,8,3,10,8,1,11,8,80 30175 DATA 4,3,8,3,8,8,2,11,9,80 30180 DATA 0,1,1,0,1,1,0,1,1,40 30185 DATA 4,5,8,0,1,1,0,1,1,40 30190 DATA 4,2,8,3,10,8,3,5,8,80 30195 DATA 4,2,8,3,10,8,3,5,8,40 30200 DATA 2,8,8,0,1,1,0,1,1,40 30202 DATA 2,6,8,0,1,1,0,1,1,40 30203 DATA 2,5,8,0,1,1,0,1,1,40 30205 DATA 3,6,8,3,3,8,2,10,8,80 30210 DATA 3,6,8,3,3,8,2,10,8,80 30215 DATA 0,1,1,0,1,1,0,1,1,40 30220 DATA 3,8,8,3,5,8,0,1,1,40 30225 DATA 3,5,8,3,2,8,2,10,8,80 30230 DATA 3,5,8,3,2,8,2,10,8,40 30235 DATA 1,11,8,0,1,1,0,1,1,40 30240 DATA 1,10,8,0,1,1,0,1,1,40 30245 DATA 1,8,8,0,1,1,0,1,1,40 30250 DATA 3,10,8,3,6,9,3,1,8,80 30255 DATA 3,10,8,3,6,9,3,1,8,80 30260 DATA 0,1,1,0,1,1,0,1,1,40 30265 DATA 3,11,8,3,8,8,0,1,1,40 30270 DATA 3,8,8,3,5,8,3,1,8,80 30275 DATA 3,8,8,3,5,8,3,1,8,40 30280 DATA 2,1,8,0,1,1,0,1,1,40 30285 DATA 1,11,8,0,1,1,0,1,1,40 30290 DATA 1,10,8,3,7,8,3,10,8,40 30295 DATA 3,11,8,3,8,8,3,3,8,80 30300 DATA 2,8,8,0,1,1,0,1,1,40 30305 DATA 3,11,8,3,8,8,3,1,8,40 30310 DATA 2,8,8,0,1,1,0,1,1,40 30315 DATA 2,1,8,0,1,1,0,1,1,40 30320 DATA 4,1,8,2,5,8,0,1,1,40 30325 DATA 3,10,8,3,6,8,3,1,8,80 30330 DATA 3,10,8,2,3,8,0,1,1,40 30335 DATA 4,3,8,3,6,8,2,11,8,40 30340 DATA 4,2,8,0,1,1,0,1,1,40 30345 DATA 4,3,8,3,11,8,2,8,8,40 30350 DATA 4,5,8,0,1,1,0,1,1,40 30355 DATA 4,6,8,3,10,8,2,10,8,80 30360 DATA 4,5,8,3,8,8,1,10,8,40 30365 DATA 0,1,1,3,8,8,1,10,8,40 30370 DATA 4,3,8,0,1,1,0,1,1,40 30375 DATA 4,3,8,3,6,8,2,3,8,80 30380 DATA 3,3,8,3,10,8,3,6,8,40 30385 DATA 3,3,7,3,10,7,3,6,7,40 30390 DATA 3,3,6,3,10,6,3,6,6,40 30395 DATA 3,3,5,3,10,5,3,6,5,40 30400 DATA 3,3,4,3,10,4,3,6,5,40 31000 REM BADINERIE 31005 RESTORE 31010 FOR N=1 TO 148:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT 31012 READ Y$ 31015 FOR N=1 TO 97 31020 READ A1,A2,A3 31022 MUSIC1,A1,A2,10:PLAY1,0,0,100:WAIT A3 31025 PLAY 0,0,0,0:NEXT 31030 DATA4,12,20,5,3,10,4,12,10,4,7,20 31035 DATA4,12,10,4,7,10,4,3,20,4,7,10 31040 DATA4,3,10,3,12,40,3,7,10,3,12,10 31045 DATA4,3,10,3,12,10,4,2,10,3,12,10 31050 DATA4,2,10,3,12,10,3,11,10,4,2,10 31055 DATA4,5,10,4,2,10,4,3,20,3,12,20 31060 DATA4,12,20,5,3,10,4,12,10,4,7,20 31065 DATA4,12,10,4,7,10,4,3,20,4,7,10 31070 DATA4,3,10,3,12,40,4,3,20,4,3,20 31075 DATA4,3,20,4,3,20,4,12,20,4,3,20 31080 DATA4,3,7,4,5,7,4,3,7 31085 DATA4,2,20,4,7,20,4,7,20,4,7,20 31090 DATA4,7,20,5,3,20,4,7,20,4,7,7 31100 DATA4,8,7,4,7,7,4,6,20,4,2,10 31105 DATA4,7,10,4,10,10,4,7,10,4,9,10 31115 DATA4,7,10,4,6,10,4,9,10,4,12,10 31120 DATA4,9,10,4,10,10,4,9,10,4,10,10 31125 DATA4,9,10,4,7,10,4,10,10,4,7,10 31130 DATA4,6,10,4,7,10,4,12,10,4,7,10 31145 DATA4,6,10,4,7,10,5,2,10,4,7,10 31150 DATA4,6,10,4,7,10,5,3,10,4,7,10 31155 DATA4,6,10,4,7,10,5,3,10,5,2,10 31160 DATA4,12,10,5,2,10,4,10,10,4,9,10 31165 DATA4,7,10,4,10,10,4,9,7,4,10,7,4,9,7,4,7,20 31170 RETURN 32000 REM TEA FOR TWO 32001 RESTORE 32002 FOR N=1 TO 166:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT 32005 FOR N=1 TO 110 32010 READ A1,A2,A3 32015 MUSIC1,A1,A2,10:PLAY1,0,0,100:WAIT A3 32020 PLAY0,0,0,0 32022 NEXT 32025 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 32030 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 32035 DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 32040 DATA4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8 32045 DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8 32050 DATA4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8 32055 DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8 32060 DATA4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45 32065 DATA4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15 32070 DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 32075 DATA4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15 32080 DATA5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15 32085 DATA4,6,45,4,3,15,4,5,45,4,3,15 32090 DATA4,6,45,4,3,15,4,5,45,4,10,15,4,6,120 33000 RESTORE:TEXT:PRINTCHR$(17) 33002 GOSUB50000 33005 FOR N=1 TO 331:READ Y$,Y$,Y$,Y$,Y$:NEXT:READ Y$,Y$,Y$ 33010 FOR N=46360 TO 46423 33020 READ GH:POKE N,GH 33030 NEXT 33040 DATA 1,2,4,4,4,2,3,1,48,32,24,16,32,16,32,32 33050 DATA 2,6,9,8,8,8,4,6,16,16,8,40,26,12,10,16 33060 DATA 7,8,8,16,16,8,28,0,48,8,8,4,4,2,3,0 33070 DATA 3,4,4,6,2,2,3,0,48,24,8,4,4,4,6,0 33100 FOR N=48802 TO 48836 STEP 2 33110 POKEN,35:POKEN+1,36:POKEN+40,37:POKEN+41,38:POKEN+80,39:POKEN+81,40 33120 WAIT48836-N 33130 POKEN,32:POKEN+40,32:POKEN+80,32 33140 POKEN+1,35:POKEN+2,36:POKEN+41,37:POKEN+42,38:POKEN+81,41:POKEN+82,42 33150 WAIT48836-N 33160 POKEN+1,32:POKEN+41,32:POKEN+81,32 33170 NEXT 33180 POKEN,32:POKEN+40,32:POKEN+80,32 33190 CALL#F89B 33200 RETURN 40000 CLS:PRINT:PRINT:PRINT:PRINT 40010 PRINT" La liste des instructions (O/N) ?" 40015 GET V$ 40020 IF V$="O" THEN 33 40030 IF V$="N" THEN 45 40040 GOTO 40015 50000 PRINT:PRINT" Cela est exceptionnel,vous etes le premier a etre sorti vivant"; 50010 PRINT" de cette":PRINT:PRINT"maison , mais je serais vous , je me ":PRINT"mettrais a "; 50020 PRINT"courrir car un nain rode":PRINT:PRINT"peut etre dans les parages" 50030 RETURN 51000 CLS:PAPER3:INK0:PRINT:PRINT:PRINT"ATTENTION ................. 51005 PRINT:PRINT"L'utilisation de ce programme est 51010 PRINT:PRINT"deconseillee aux personnes sensibles 51020 PRINT:PRINT"aux enfants en bas age,ainsi qu'a 51030 PRINT:PRINT"toute personne susceptible d'avoir 51040 PRINT: PRINT"des malaises cardiaques. 51050 PRINT: PRINT"Nous ne pourrions etre tenu responsa-" 51060 PRINT:PRINT"bles,des troubles physiques ou mentaux 51070 PRINT:PRINT"provoques par votre echec dans 51080 PRINT:PRINT"le Manoir du Dr GENIUS ............. 51099 WAIT 400 51100 RETURN