antoine-source/lemanoirdudocteurgenius/jeu.bas

2 REM LE MANOIR DU DOCTEUR GENIUS 
3 REM COPYRIGHT LORICIELS 83 L.BENES
4 REM VERSION VG5000 FRED_72 2021
5 REM VERSION APPLE II BRUTAL DELUXE 2023
6 REM
10 REM POKE -34 BECOMES 254
11 REM POKE -1 BECOMES 255
12 D$=CHR$(4)
20 REM CLEAR 300,-16385
30 PRINT "DISKLOAD CODE"
35 REM CALL -16384: POKE&"47FD",0
40 GOSUB 7600
45 HOME : & INIT0,0: & TX3,0,0: PRINT: PRINTSPC(10)"VEUILLEZ PATIENTER"
50 GOSUB 8000: REM CHARGEMENT VARIABLES
51 GOSUB 7500
55 & N: & INIT0,0: & TX0,0,0
57 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 N
90 C(3) = 14: C(7) = 12: C(1) = 80: C(9) = 12
100 IF SALLE <> 14 AND SALLE <> 16 AND SALLE <> 17 AND SALLE <> 19 THENP(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 & C: & N
140 HTAB 1: VTAB 18: PRINT "Il fait noir comme dans un four!"
145 PRINT "Il faudrait peut etre allumer."
150 GOTO 500

200 REM DESCRIPTION SALLE
210 & N: & C:  REM cadre+zone+dessin
215 DEST = SALLE
220 GOSUB 6900
230 & D
300 H = 0: N = 1
310 IF O(N) <> SALLE THEN 400
320 IF H = 1 THEN 350
330 & L: PRINT "Il y a dans la salle: ": & W,10
340 H = 1
350 & L: PRINT " ";O$(N);
360 & W,25
400 N = N + 1
410 IF N <= O THEN 310 
415 & L: 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 X$ = "": INPUT "Que faites vous ";X$
560 & N: PRINT ">";X$   
570 GOSUB 6000
580 & L: IF MO(1) = 0 THEN PRINT "Je ne comprends pas...": & W,50: GOTO 500

900 REM CONTROLE Mvt
905 & I,SALLE
910 IF PEEK(-4) = 0 THEN 980
920 SALLE = PEEK(-4): GOTO 100
980 T = 0
990 A1 = 0

1000 REM CONTROLE 
1010 NL = 0
1100 NL = NL + 1
1110 IF T = 0 THEN 1150
1120 E$ = C$(NL)
1130 GOTO 1400
1150 & A:  NL = PEEK(-33)
1151 IF PEEK(-32) = 0 THEN 1159
1152 AD = -32: E$ = ""
1153 IF PEEK(AD) = 255 THEN 1400
1154 E$ = E$ + CHR$(PEEK(AD)): AD = AD + 1
1155 GOTO 1153
1159 PY = 23: CO = 12
1160 IF A1 = 1 THEN 500 
1170 & L: PRINT "Impossible ";
1180 IF MO(1) < 10 THEN PRINT "de prendre ce chemin";

1190 PRINT "!": & W,100: GOTO 100

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 ON (LI+1) GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580
1460 IF OK = 0 THEN 1100
1470 E = E + 3: GOTO 1420
1500 IF N = SALLE THEN 1590
1505 GOTO 1585
1510 IF O(N) = -1 OR O(N) = SALLE THEN 1590
1515 GOTO 1585
1520 IF O(N) <> SALLE AND O(N) <> -1 THEN 1590
1525 GOTO 1585
1530 IF O(N) = -1 THEN 1590
1535 GOTO 1585
1540 IF P(N) = 1 THEN 1590
1545 GOTO 1585
1550 IF P(N) = 0 THEN 1590
1555 GOTO 1585
1560 IF C(N) = 1 THEN 1590
1565 GOTO 1585
1570 IF INT(RND(1)*99+1) < N THEN 1590
1575 GOTO 1585
1580 IF N <> SALLE THEN 1590
1585 OK = 0: RETURN
1590 OK = 1: 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 ON (LI+1) GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300
1760 IF BREAK > 0 THEN ON BREAK GOTO 100,300,500,530,20000
1780 E = E + 3
1790 GOTO 1710
1800 G = 0: HH = 0
1810 G = G + 1
1820 IF O(G) = -1 THEN 1840
1830 IF G < O THEN 1810
1835 GOTO 1870
1840 & L: IF HH = 0 THEN PRINT "Vous detenez: "
1850 HH = 1
1860 & L: PRINT O$(G);: PRINT " ";: & W,30
1865 IF G < V THEN 1810
1870 & L: IF HH = 1 THEN PRINT ".": RETURN
1880 & L: PRINT "Vous ne detenez absolument rien!!!": RETURN
1900 IF S(1) < 5 THEN 1930
1910 & L: PRINT "Il parait evident que vous ne pouvez"
1915 & L: PRINT "porter tant de chose!!!"
1920 & W,200: BREAK = 1: RETURN
1930 IF O(N) <> -1 THEN 1960 
1935 REM
1940 & L: PRINT "Vous l'avez deja,vous etes etourdis et"
1945 & L: PRINT "dans cette maison ce n'est pas tres"
1950 & L: PRINT "conseille...": GOTO 1920
1960 O(N) = -1: S(1) = S(1) + 1: RETURN
2000 IF O(N) = -1 THEN 2030
2010 & L: PRINT "Comment voulez vous poser ce que vous"
2015 & L: PRINT "n'avez pas..."
2020 GOTO 1920
2030 O(N) = SALLE: S(1) = S(1) - 1: RETURN

2100 REM
2105 DEST = N + 1: GOSUB 3900
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 & L: PRINT "D'accord..."
2710 & W,20: BREAK=2: RETURN
2800 BREAK = 3 
2810 RETURN
2900 BREAK = 4: RETURN
3000 BREAK = 1: RETURN
3100 BREAK = 5: RETURN
3200 O(N) = SALLE: RETURN
3300 X$=O$(N): O$(N)=O$(N+1): O$(N+1)=X$: RETURN

3900 IF DEST < 11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090
3910 DEST = DEST - 10
3915 IF DEST < 11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190
3920 DEST = DEST - 10
3925 IF DEST < 11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290
3930 DEST = DEST - 10
3935 IF DEST < 11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390
3940 DEST = DEST - 10
3945 IF DEST < 11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490
3950 DEST = DEST - 10
3955 IF DEST < 11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590
3960 DEST = DEST - 10
3965 IF DEST < 11 THEN ON DEST GOTO 4600,4610,4620,4630,4640

4000 & C: FOR N = 1 TO 20: & E: & W,4: NEXT N
4001 & N: PRINT "Vous avez garde la lampe allumee trop"
4002 & L: PRINT "longtemps, elle a explose!"
4005 & W,200: RETURN
4010 & C
4011 & N: PRINT "Vous avez oublie de fermer le robinet"
4012 & L: PRINT "vous mourez sous des tonnes d'eau!"
4015 & W,200: RETURN
4020 & C
4022 & N: PRINT "La porte vient de se refermer derriere"
4023 & L: PRINT "vous. Vous etes prisonnier..."
4025 & W,200: RETURN
4030 & C
4031 & N: PRINT "Vous avez trebuche dans l'escalier,vous"
4032 & L: PRINT "vous empallez sur le couteau!"
4035 & W,200: RETURN
4040 & C
4041 & N: PRINT "Vous renversez l'eau dans l'escalier,"
4042 & L: PRINT "ce qui provoque une decharge au niveau"
4043 & L: PRINT "de la prise electrique." 
4045 & W,200: RETURN
4050 & C 
4051 & N: PRINT "Vous etes sauf grace a la combinaison"
4052 & L: PRINT "que vous avez enfilee..!"
4055 & W,200: RETURN
4060 & L: PRINT "Vous mourez electrocute..."
4065 & W,200: RETURN
4070 & C: FORN=1TO20: & M,2,2,2,10: & P,3,7,4,80: & W,1: & E: & W,6: NEXTN
4071 & N: PRINT "La piece etait pleine de gaz explosif,"
4072 & L: PRINT "vous auriez du eteindre..."
4073 & W,200: PRINT "On ramassera vos morceaux un autre"
4074 & L: PRINT "jour..!"
4075 & W,200: RETURN
4080 & C 
4081 & N: PRINT "Vous mourez empalle sur des lances"
4082 & L: PRINT "sorties du mur...!" 
4085 & W,200: RETURN
4090 & L: PRINT "La porte ne s'ouvre pas de cette piece": & W,200: RETURN
4100 & C
4101 & L: PRINT "La lampe et le briquet refusent de"
4102 & L: PRINT "fonctionner dans cette piece!"
4109 & W,200: RETURN
4110 & C
4111 & L: PRINT "Vous tombez dans une trappe,vous vous"
4112 & L: PRINT "disloquez en arrivant au sol.."
4115 & W,200: RETURN
4120 & L: PRINT "Vous avez raison de passer,car ce"
4122 & L: PRINT "monstre n'etait qu'une projection"
4124 & L: PRINT "en 3 dimensions sur un ecran de fumee"
4125 & W,250: RETURN
4130 & L: PRINT "Vous avez raison,la curiosite est un"
4132 & L: PRINT "vilain defaut!!!"
4134 & W,250
4135 RUN 20040
4140 & L: PRINT "Vous avez raison d'attendre,mais cela"
4141 & L: PRINT "ne pourra pas durer eternellement.."
4142 & W,200: RETURN
4150 & L: PRINT "Vous avez de la chance car ce coffre"
4151 & L: PRINT "etait ouvert.": & W,100
4152 & L: PRINT "Un message a l'interieur dit: "
4153 & L: PRINTCHR$(34)+"Ne respectez pas les couleurs du code"
4154 & L: PRINT "de la route...?"+CHR$(34): & W,200 
4156 & L: PRINT "Tiens le coffre se referme!": & W,150: RETURN
4160 & L: PRINT "Maintenant,vous avez une lampe pleine"
4162 & L: PRINT "de petrole."
4165 & W,200: RETURN
4170 & L: PRINT "Vous n'avez rien pour transporter le"
4171 & L: PRINT "petrole.": & W,200: RETURN
4180 FOR N = 1 TO 10: & E: & W,6: NEXTN
4181 & C: & N: PRINT "Le briquet que vous aviez laisse"
4182 & L: PRINT "allume vient d'exploser!"
4185 & L: & W,200: PRINT "Ca tue l'etourderie.....": & W,150: RETURN
4190 & C: & N: PRINT "A force de marcher en long et en large"
4191 & L: PRINT "dans cette maison, vous sombrez dans"
4194 & L: PRINT "un coma des plus mortel...
4195 & W,300: RETURN
4200 PRINT "L'eau coule...": RETURN
4210 & C: & N: PRINT "Vous avez les pieds trempes,et cela"
4211 & L: PRINT "vous rend tres malade..."
4215 & W,100: & L: PRINT "Vous mourez d'une triple pneumonie...!": & W,200: RETURN
4220 & L: PRINT "Le titre est: "
4225 & L: PRINTCHR$(34)+"La mort a la 1ere page."+CHR$(34): & W,200: RETURN
4230 & C: FOR N=1 TO 20: & E: NEXTN
4233 & N: PRINT "Le livre a explose lorsque vous l'avez"
4235 & L: PRINT "ouvert...": & W,200: RETURN
4240 & L: PRINT "Le papier indique:  "+CHR$(34)+"Cherchez la clef."+CHR$(34)
4242 & W,200: RETURN
4250 & L: PRINT "La clef vous permettra de trouver le"
4252 & L: PRINT "code de la porte d'entree."
4255 & W,200: RETURN
4260 & L: PRINT "Il y a un clavier numerique permettant"
4261 & L: PRINT "d'entrer un code a côte de la porte.": & W,200: RETURN
4270 & L: PRINT "Pour faire quoi..?": & W,200: RETURN
4280 & L: PRINT "Il y a une odeur de gaz.": & W,200: RETURN
4290 & L: PRINT "Apparemment,il n'y a aucune odeur.": & W,200: RETURN
4300 & L: PRINT "C'est deja fait,espece de rigolo!": & W,200: RETURN
4310 & L: PRINT "Il faudrait peut etre du feu!": & W,200: RETURN
4320 & L: PRINT "La lampe ne contient pas de petrole!": & W,200: RETURN
4330 & L: PRINT "Vous ne l'avez pas!": & W,200: RETURN
4340 & L: PRINT "Le briquet est encore allume et il"
4342 & L: PRINT "eclaire la piece.": & W,200: RETURN
4350 FOR N = 1 TO 15: & E: & W,4: NEXT N
4355 & L: PRINT "La torche etait piegee,elle vous"
4356 & L: PRINT "a explose dans les mains.."
4357 & W,200: RETURN
4360 & L: PRINT "La lampe est encore allumee,et elle"
4362 & L: PRINT "vous eclaire.": & W,200: RETURN
4370 & L: PRINT "Un nain vient de vous lancer un"
4371 & L: PRINT "poignard en plein coeur.."
4375 & W,200: RETURN
4380 & L: PRINT "Un nain vient de se precipiter sur"
4385 & L: PRINT "vous, il s'empalle sur votre ciseau.": & W,200: RETURN
4390 & L: PRINT "Un nain vient de se precipiter sur"
4395 & L: PRINT "vous, il s'empalle sur votre couteau.": & W,200: RETURN
4400 & L: PRINT "Vous venez de renverser le pot.": & W,150: RETURN
4410 IF PEEK(255) = 1 THEN BREAK = 3: RETURN
4411 & C: & S,4,4,0: & P,0,1,1,5000
4412 & N: PRINT "La foudre vient de tomber sur la maison": & W,200
4413 & L: PRINT "La maison n'existe plus!": & W,100
4414 & L: PRINT "Vous non plus!": & W,100: & P,0,0,0,0: RETURN
4420 & C: & N: PRINT "A force de marcher dans le noir,vous"
4422 & L: PRINT "avez trebuche.": & W,100
4425 & L: PRINT "Vous mourez d'une fracture du crane...": & W,200: RETURN
4430 & L: PRINT "Vous ne pouvez pas travailler dans le"
4433 & L: PRINT "noir...": & W,200: RETURN
4440 & L: PRINT "La lumiere du briquet ne suffit pas"
4442 & L: PRINT "pour travailler...": & W,200: RETURN
4450 & L: PRINT "Impossible !": & W,100: RETURN
4460 & L: PRINT "Vous n'avez aucun outil...": & W,200: RETURN
4470 & L: PRINT "Le teleporteur est en panne,donc les"
4472 & L: PRINT "boutons ne fonctionnent pas."
4475 & W,400: RETURN
4480 FOR N = 1 TO 25: & E: & W,5: NEXT N
4484 & C: & N: PRINT "Le teleporteur vient d'exploser,"
4485 & L: PRINT "vous etes decompose..!": & W,200: RETURN
4490 & N: PRINT "Le teleporteur se met en marche"
4491 & L: PRINT "vous disparaissez...": & W,50
4492 & M,2,1,5,0: & P,2,1,3,1000
4493 & F
4494 & P,0,0,0,0
4495 FOR N = 500 TO 30 STEP -5
4497 & S,2,N,12: & P,2,0,0,100
4498 NEXT N
4499 & P,0,0,0,0: RETURN
4500 & C: & L: PRINT "Vous prenez du 30000 Volts dans les"
4502 & L: PRINT "doigts!": & W,200: RETURN
4510 & L: PRINT "Le placard est ferme a clef!": & W,200: RETURN
4520 & C: & N: PRINT "L'horrible monstre sorti du placard"
4522 & L: PRINT "vient de vous devorer!"
4525 & W,200: RETURN
4530 & L: PRINT "Il ne fallait pas fuir!": & W,200: RETURN
4540 & C: & L: PRINT "Vous avez raison d'utiliser le ciseau,"
4542 & L: PRINT "le monstre est mort!"
4545 & W,200: RETURN
4550 & D: & N: PRINT "A l'interieur du placard,le No "PL
4552 & L: PRINT "est inscrit": & W,200
4555 & L: PRINT "Le placard se referme.": & W,100: RETURN
4560 & C: FORN=1TO30: & E: & W,5: NEXTN
4562 & N: PRINT "le pistolet a explose!": & W,200
4565 RETURN

4570 IF SALLE = 2 THEN RETURN
4571 & L: PRINT "Impossible!": BREAK = 3: RETURN
4575 & C: FOR N = 1 TO 25: & E: & W,7: NEXTN
4576 & N: PRINT "le clavier numerique a explose!": & W,200: BREAK = 5: RETURN
4580 & N: PRINT "Le clavier numerique prend feu.": & W,200
4581 & L: IF O(24) <> -1 THEN 4586
4582 & L: PRINT "Heureusement,vous avez un pot plein"
4584 & L: PRINT "d'eau. Ce qui vous permet d'eteindre"
4585 & L: PRINT "ce feu.": & W,300: RETURN
4586 & L: PRINT "Malheureusement vous n'avez pas d'eau"
4587 & L: PRINT "pour l'eteindre.": & W,200
4588 GOTO 4575

4590 & N: INPUT"No DE CODE ";ZC
4595 IF ZC <> PL THEN 4575
4600 & W,100: & L: PRINT "Le code est exact...": & L: PRINT "La porte s'ouvre..."
4603 & W,150
4605 GOTO 11000
4610 & L: PRINT "A l'interieur du placard,il y a un mot"
4611 & L: PRINT "qui parle d'un teleporteur.": & W,200
4615 & L: PRINT "Tiens le placard se ferme tout seul...": & W,100: RETURN
4620 & L: PRINT "Avant de la poser par terre,il faudrait"
4621 & L: PRINT "peut etre l'enlever."
4625 & W,200: RETURN
4630 & C: & N: PRINT "Devant vous, il y a un horrible"
4631 & L: PRINT "monstre qui est sorti du placard."
4635 & W,200: RETURN
4640 & L: PRINT "Le placard etait piege,vous n'auriez"
4641 & L: PRINT "pas du l'ouvrir!"
4645 FOR N = 1 TO 30: & E: & W,7: NEXT N
4647 & W,200: RETURN

6000 REM ANALYSE DU MOT
6010 N = 0: GN = 0
6020 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6040
6030 GOTO 6020
6040 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6060
6050 GOTO 6040
6060 IF GN > 4 THEN GN = 4
6070 X$(1) = MID$(X$,N,GN)
6080 N = N + 1: XX$ = MID$(X$,N,1): IF XX$ = " " OR XX$ = "" THEN 6100
6090 GOTO 6080
6100 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6115
6110 GOTO 6100
6115 GN = 0
6120 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6140
6130 GOTO 6120
6140 IF GN > 4 THEN GN = 4 
6150 X$(2) = MID$(X$,N,GN)
6160 & U,X$(1): & V,X$(2)
6170 MO(1) = PEEK(-3)
6180 MO(2) = PEEK(-2)
6190 RETURN

6900 REM Chargement image salle
6902 & C: & N
6905 IF DEST < 11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090
6910 DEST = DEST - 10
6915 IF DEST < 11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190
6920 DEST = DEST - 10
6925 ON DEST GOTO 7200,7210,7220,7230,7240

7000 PRINT "DISKLOAD IMG_01"
7005 PRINT "Vous etes devant le manoir du defunt"
7006 PRINTSPC(14)"Dr  GENIUS"
7009 RETURN
7010 PRINT "DISKLOAD IMG_02"
7015 PRINT "Vous etes dans le hall d'entree."
7019 RETURN
7020 PRINT "DISKLOAD IMG_03"
7025 PRINT "Vous etes en bas de l'escalier menant"
7026 PRINT "au 2eme etage."
7029 RETURN
7030 PRINT "DISKLOAD IMG_04"
7035 PRINT "Vous etes dans la salle a manger."        
7039 RETURN
7040 PRINT "DISKLOAD IMG_05"
7045 PRINT "Vous etes dans une bibliotheque sans"
7046 PRINT "livre...!"         
7049 RETURN
7050 PRINT "DISKLOAD IMG_06"
7055 PRINT "Vous etes dans une buanderie."
7059 RETURN
7060 PRINT "DISKLOAD IMG_07"
7065 PRINT "Vous etes dans le salon."
7069 RETURN
7070 PRINT "DISKLOAD IMG_08"
7075 PRINT "Vous etes dans une chambre."
7079 RETURN 
7080 PRINT "DISKLOAD IMG_09"
7085 PRINT "Vous etes dans un corridor."
7089 RETURN
7090 PRINT "DISKLOAD IMG_10"
7095 PRINT "Vous etes dans une salle d'attente."
7099 RETURN
7100 PRINT "DISKLOAD IMG_11"
7105 PRINT "Vous etes dans le vestibule."
7109 RETURN 
7110 PRINT "DISKLOAD IMG_12"
7115 PRINT "Vous etes dans la chambre d'amis."
7119 RETURN
7120  PRINT "DISKLOAD IMG_13"
7125 PRINT "Vous etes dans une chambre."
7129 RETURN
7130 STOP
7140 PRINT "DISKLOAD IMG_14"
7145 PRINT "Vous etes dans une petite salle."
7149 RETURN
7150 PRINT "DISKLOAD IMG_15"
7155 PRINT "Vous etes dans le laboratoire du
7156 PRINT "Dr GENIUS." 
7159 RETURN 
7160 PRINT "DISKLOAD IMG_16"
7165 PRINT "Vous etes dans une petite piece vide."
7169 RETURN 
7170 PRINT "DISKLOAD IMG_17"
7175 PRINT "Vous ne savez pas où vous etes."
7179 RETURN  
7180 PRINT "DISKLOAD IMG_18"
7185 PRINT "Vous etes en haut de l'escalier."           
7189 RETURN
7190 PRINT "DISKLOAD IMG_19"
7195 PRINT "Vous etes dans la salle bain." 
7199 RETURN
7200 PRINT "DISKLOAD IMG_20"
7205 PRINT "Vous etes dans le living room."
7209 RETURN
7210 PRINT "DISKLOAD IMG_21"
7215 PRINT "Vous etes dans une piece enfumee...!"
7219 RETURN
7220 PRINT "DISKLOAD IMG_22"
7225 PRINT "Vous etes dans une grande piece."
7229 RETURN 
7230 PRINT "DISKLOAD IMG_23"
7235 PRINT "Vous etes dans une piece de rangement."
7239 RETURN
7240 PRINT "DISKLOAD IMG_24"
7245 PRINT "Vous etes dans le dressing."
7249 RETURN

7500 & TX7,0,0: VTAB 23: PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE"
7510 N = RND(1)
7511 IF PEEK(-16384)<128 THEN 7510
7512 POKE -16368,0
7515 RETURN

7600 REM CONFIG JEU
7602 & INIT0,0: & TX3,0,0
7605 POKE 254,0: POKE 255,0
7610 INPUT "Carte SON (O/N)";X$
7620 IF X$ = "O" THEN POKE 254,1: GOTO 7630
7625 IF X$ <> "N" THEN 7610
7630 INPUT "Foudre (O/N)";X$
7640 IF X$ = "O" THEN POKE 255,1: GOTO 7650
7645 IF X$ <> "N" THEN 7630
7650 RETURN

8000 REM CHARGEMENT VARIABLES
8001 RESTORE
8010 V = 70
8130 O = 25: DIMO(25)
8140 FOR N = 1 TO 25
8150 READ O(N)
8170 NEXT N
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

8205 DIM O$(25)
8210 FOR N = 1 TO 25
8220 READ O$(N)
8240 NEXT N
8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS
8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,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 A L'EST
8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU

8320 M = 25: DIM M$(25)
8330 FOR N = 1TO 25
8340 READ M$(N)
8360 NEXT N
8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400
8380 DATA 04080109020500,030700,04130207031000 
8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00
8400 DATA 00,00,0122032100,040500,0125022200,012100 
8410 DATA 0124042200,022300,022100

8430 A = 128: DIM A$(128)
8440 FOR N = 1 TO 128
8450 READ A$(N)
8470 NEXT N
8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M.
8485 DATA 0500A03E08D24.D04D06N.
8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N.
8500 DATA 0600A19E08E09D24.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 DATA 1840B09.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.,5743D18F09.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$(14) 
8810 FOR N = 1 TO 14
8820 READ C$(N)
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 FOR IJ = 1 TO 100: NEXT IJ
9010 RETURN

11000 REM SUCCES
11020 PRINT "DISKLOAD IMG_01"
11030 & N: & C: & D
11040 PRINT "Vous voila en dehors de la maison..."
11050 & W,250
11055 & N
11060 PRINT " Cela est exceptionnel,vous etes le"
11065 PRINT "premier a sortir vivant de cette"
11070 PRINT "maison. Mais a votre place, je me"
11075 PRINT "mettrais a courir car un nain rode"
11080 PRINT "peut-etre dans les parages..."
11085 GOSUB 11100
11090 GOTO 20040

11100 REM TEA FOR TWO
11102 REM RESTORE 11125
11105 FOR N = 1 TO 110
11110 READ A1,A2,A3
11115 & M,1,A1,A2,10: & P,1,0,0,100: & W,A3
11120 & P,0,0,0,0
11122 NEXT N
11123 RETURN
11125 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 
11130 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15
11135 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45
11140 DATA 4,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
11145 DATA 4,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
11150 DATA 4,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
11155 DATA 4,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
11160 DATA 4,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
11165 DATA 4,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
11170 DATA 4,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
11175 DATA 4,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
11180 DATA 5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15
11185 DATA 4,6,45,4,3,15,4,5,45,4,3,15
11190 DATA 4,6,45,4,3,15,4,5,45,4,10,15,4,6,120

20000 REM TOMBE
20005 PRINT "DISKLOAD IMGTMB"
20010 & C: & D: & N
20020 PRINT "Vous etes mort !": & W,100
20030 IF PEEK(254)=1 THEN GOSUB 21000
20040 & L: PRINT: & L: X$="": INPUT "Voulez-vous rejouer ";X$
20050 IF X$ = "O" OR X$ = "o" THEN RUN 45
20060 IF X$ = "N" OR X$ = "n" THEN 20080
20070 GOTO 20040
20080 & N: PRINT "     AU REVOIR"
20090 END

21000 REM SARABANDE
21005 REM RESTORE 21040
21015 FOR N = 1 TO 75
21020 READ A1,A2,A3,A4,A5
21025 READ A6,A7,A8,A9,A0
21030 & M,1,A1,A2,A3: & M,2,A4,A5,A6: & M,3,A7,A8,A9: & P,7,0,0,100: & W,A0
21031 IF PEEK(-16384) > 128 THEN & P,0,0,0,0: RETURN
21032 IF N > 70 THEN NEXT N: & P,0,0,0,0: RETURN
21035 & P,0,0,0,0: NEXTN
21040 DATA 3,6,8,3,3,8,2,10,8,80
21045 DATA 3,6,8,3,3,8,2,10,8,80
21050 DATA 0,1,1,0,1,1,0,1,1,40
21055 DATA 3,8,8,3,5,8,0,1,1,40
21060 DATA 3,5,8,3,2,8,2,10,8,80
21065 DATA 3,5,8,3,2,8,2,10,8,40
21070 DATA 1,11,8,0,1,1,0,1,1,40
21075 DATA 1,10,8,0,1,1,0,1,1,40
21080 DATA 1,8,8,0,1,1,0,1,1,40
21085 DATA 3,10,8,3,6,9,3,1,8,80
21090 DATA 3,10,8,3,6,9,3,1,8,80
21095 DATA 0,1,1,0,1,1,0,1,1,40     
21100 DATA 3,11,8,3,8,8,0,1,1,40
21105 DATA 3,8,8,3,5,8,3,1,8,80
21110 DATA 3,8,8,3,5,8,3,1,8,40 
21115 DATA 2,1,8,0,1,1,0,1,1,40
21120 DATA 1,11,8,0,1,1,0,1,1,40 
21125 DATA 1,10,8,3,7,8,3,10,8,40
21130 DATA 3,11,8,3,8,8,3,3,8,80
21135 DATA 3,11,8,3,8,8,3,3,8,80
21140 DATA 1,8,8,0,1,1,0,1,1,40
21145 DATA 1,8,8,3,10,8,4,1,8,40
21150 DATA 3,10,8,3,6,8,3,3,8,80
21155 DATA 3,10,8,3,6,8,3,3,8,80
21160 DATA 0,1,1,0,1,1,0,1,1,40
21165 DATA 3,10,8,2,1,8,0,1,1,40
21170 DATA 4,3,8,3,10,8,1,11,8,80
21175 DATA 4,3,8,3,8,8,2,11,9,80
21180 DATA 0,1,1,0,1,1,0,1,1,40
21185 DATA 4,5,8,0,1,1,0,1,1,40
21190 DATA 4,2,8,3,10,8,3,5,8,80
21195 DATA 4,2,8,3,10,8,3,5,8,40
21200 DATA 2,8,8,0,1,1,0,1,1,40
21202 DATA 2,6,8,0,1,1,0,1,1,40
21203 DATA 2,5,8,0,1,1,0,1,1,40
21205 DATA 3,6,8,3,3,8,2,10,8,80
21210 DATA 3,6,8,3,3,8,2,10,8,80
21215 DATA 0,1,1,0,1,1,0,1,1,40 
21220 DATA 3,8,8,3,5,8,0,1,1,40 
21225 DATA 3,5,8,3,2,8,2,10,8,80
21230 DATA 3,5,8,3,2,8,2,10,8,40
21235 DATA 1,11,8,0,1,1,0,1,1,40
21240 DATA 1,10,8,0,1,1,0,1,1,40
21245 DATA 1,8,8,0,1,1,0,1,1,40
21250 DATA 3,10,8,3,6,9,3,1,8,80
21255 DATA 3,10,8,3,6,9,3,1,8,80
21260 DATA 0,1,1,0,1,1,0,1,1,40
21265 DATA 3,11,8,3,8,8,0,1,1,40
21270 DATA 3,8,8,3,5,8,3,1,8,80
21275 DATA 3,8,8,3,5,8,3,1,8,40
21280 DATA 2,1,8,0,1,1,0,1,1,40
21285 DATA 1,11,8,0,1,1,0,1,1,40
21290 DATA 1,10,8,3,7,8,3,10,8,40
21295 DATA 3,11,8,3,8,8,3,3,8,80
21300 DATA 2,8,8,0,1,1,0,1,1,40
21305 DATA 3,11,8,3,8,8,3,1,8,40
21310 DATA 2,8,8,0,1,1,0,1,1,40
21315 DATA 2,1,8,0,1,1,0,1,1,40
21320 DATA 4,1,8,2,5,8,0,1,1,40
21325 DATA 3,10,8,3,6,8,3,1,8,80
21330 DATA 3,10,8,2,3,8,0,1,1,40
21335 DATA 4,3,8,3,6,8,2,11,8,40
21340 DATA 4,2,8,0,1,1,0,1,1,40
21345 DATA 4,3,8,3,11,8,2,8,8,40
21350 DATA 4,5,8,0,1,1,0,1,1,40
21355 DATA 4,6,8,3,10,8,2,10,8,80
21360 DATA 4,5,8,3,8,8,1,10,8,40
21365 DATA 0,1,1,3,8,8,1,10,8,40
21370 DATA 4,3,8,0,1,1,0,1,1,40
21375 DATA 4,3,8,3,6,8,2,3,8,80
21380 DATA 3,3,8,3,10,8,3,6,8,40
21385 DATA 3,3,7,3,10,7,3,6,7,40
21390 DATA 3,3,6,3,10,6,3,6,6,40
21395 DATA 3,3,5,3,10,5,3,6,5,40
21400 DATA 3,3,4,3,10,4,3,6,5,40