ca avance

This commit is contained in:
Antoine Vignau 2023-11-21 19:49:43 +01:00
parent 0b41e880d2
commit 9e6168c1fd
7 changed files with 9925 additions and 8553 deletions

View File

@ -26,6 +26,8 @@ X0H = $e1
Y0 = $e2 ; Y-coord
HPAG = $e6
maxY = 191 ; 0 to 191 = 192
dpFROM = $fc
dpTO = $fe
@ -98,7 +100,7 @@ MONZ = $FF69
@explode mac
jsr EXPLODE
eom
@key$ mac
jsr KEY$
eom
@ -140,7 +142,7 @@ notiigs
REPLAY
jsr initALL
jsr HGR
jsr setHGR
* jsr setHGR
*-----------------------------------
* DU BASIC A L'ASSEMBLEUR (BEURK)
@ -148,22 +150,21 @@ REPLAY
:100 lda SALLE
cmp #14
beq :101
beq :105
cmp #16
beq :101
beq :105
cmp #17
beq :101
beq :105
cmp #19
bne :105
beq :105
:101 lda #0
lda #0
ldx #2
sta P,x
:105 ldx #2
lda P,x
cmp #2
bne :200
beq :200
ldx #22
lda O,x
@ -201,8 +202,7 @@ REPLAY
* 200 - description salle
*-----------------------------------
:200 jsr HGR
jsr setMIXEDOFF
:200 jsr setHGR
lda #20 ; et c'est fen<65>trŽ en plus !
sta WNDTOP
@ -262,8 +262,8 @@ REPLAY
:500 lda #1
sta T
lda #0
sta Y1
sta Y2
* sta Y1
* sta Y2
sta N
jmp :1000
@ -345,6 +345,8 @@ REPLAY
lda tblM$+1,x
sta LINNUM+1
brk $bd
lda (LINNUM),y
beq :980
cmp MO$1
@ -520,7 +522,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
lda O,x
cmp #-1
beq :1515
cmp #SALLE
cmp SALLE
bne :1516
:1515 lda #1
sta OK
@ -650,11 +652,6 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
lda BREAK
beq :1780
ldx #0
:1761 cmp tblBRKV,x
bne :1763
txa
asl
tax
lda tblBRKA,x
@ -663,10 +660,6 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
sta :1762+2
:1762 jmp $bdbd
:1763 inx
cpx #tblBRKA-tblBRKV
bcc :1761
:1780 lda E
clc
adc #3
@ -675,15 +668,14 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
*-------- The modified BREAK table
tblBRKV dfb 10,30,50,53
tblBRKA da :100,:300,:500,:530
tblBRKA da $bdbd
da :100,:300,:500,:530,:20000
*-----------------------------------
* 1800
*-----------------------------------
tbl1800 da $bdbd
da :1800,:1900
tbl1800 da :1800,:1900
da :2000,:2100,:2200,:2300,:2400,:2500,:2600,:2700,:2800,:2900
da :3000,:3100,:3200,:3300
@ -756,7 +748,7 @@ strPOINT
@print #strEVIDENT
:1920 @wait #250
lda #10
lda #1
sta BREAK
rts
@ -896,7 +888,7 @@ strNOTOWNED
:2700 @print #strDACCORD
@wait #150
lda #30
lda #2
sta BREAK
rts
@ -905,19 +897,19 @@ strDACCORD
*--------
:2800 lda #50
:2800 lda #3
sta BREAK
rts
*--------
:2900 lda #53
:2900 lda #4
sta BREAK
rts
*--------
:3000 lda #10
:3000 lda #1
sta BREAK
rts
@ -966,7 +958,7 @@ tbl4000 da :4000,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
da :4300,:4310,:4320,:4330,:4340,:4350,:4360,:4370,:4380,:4390
da :4400,:4410,:4420,:4430,:4440,:4450,:4460,:4470,:4480,:4490
da :4500,:4510,:4520,:4530,:4540,:4550,:4560,:4570,:4580,:4590
da :4600,:4610,:4620,:4630,:4640
*--------
@ -1526,6 +1518,9 @@ str4560 asc "LE PISTOLET A EXPLOSE"00
:4570 @explode
@print #str4570
@wait #250
lda #5
sta BREAK
rts
str4570 asc "LE CLAVIER NUMERIQUE A EXPLOSE"00
@ -1638,14 +1633,14 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
sta MO$1
sta MO$2
* 1. cherche l'index du premier mot
* 1. cherche le premier caract<EFBFBD>re
ldx #0 ; cherche le premier caractere
]lp lda TEXTBUFFER,x
cmp #chrRET2
beq :6021
cmp #chrSPC2
bne :6022
bne :6022 ; on a trouvŽ un caract<63>re
inx
cpx lenSTRING
bcs :6021
@ -1677,16 +1672,16 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
inx
]lp lda TEXTBUFFER,x
cmp #chrRET2
beq :6031
beq :6032
cmp #chrSPC2
beq :6032
inx
cpx lenSTRING
bcs :6031
bcs :6100
cpx #nbCAR
bcc ]lp
:6031 rts
bcs :6100
* 4. recopie le mot
:6032 inx
@ -1713,7 +1708,7 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
* V$x 6 04PREN
* 0 123456
lda #1
:6100 lda #0
sta W
:6180 lda #1
@ -1745,7 +1740,7 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
asl
tay
lda tblV,y
sta MO$2,x
sta MO$1,x
jmp :6300
:6250 inc N
@ -1762,7 +1757,7 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
dex
bpl ]lp
dec W
inc W
bpl :6180
rts
@ -2526,9 +2521,24 @@ doD
adc theY
sta theY2
jsr drawREAD
adc theY
adc theY+1
sta theY2+1 ; new Y-coord
*---------- Check height
lda theY
cmp #maxY
bcc doD1
lda #maxY
sta theY
doD1 lda theY2
cmp #maxY
bcc doD2
lda #maxY
sta theY2
doD2
*---------- It is now time to draw as we have all variables
ldy theINK ; the ink color
@ -3117,8 +3127,8 @@ H ds 1
HH ds 1
L ds 1
LX ds 1
MO$2 ds 1 ; mot 2
MO$1 ds 1 ; mot 1
MO$2 ds 1 ; mot 2
N ds 1
NL ds 1
OK ds 1
@ -3129,8 +3139,6 @@ S ds 2 ; pour S(1)
SALLE ds 1
T ds 1
W ds 1
Y1 ds 1
Y2 ds 1
Z ds 1
*--- The lazy decimal to hexadecimal conversion

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@ -1,958 +0,0 @@
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)<N THEN OK=1 ELSE OK=0
1575 RETURN
1580 IF N<>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<O THEN GOTO 1810 ELSE GOTO1870
1840 IF HH=0 THEN PRINT"Vous detenez:":WAIT 100
1850 HH=1
1860 PRINTO$(G);:PRINT" ";:WAIT150
1865 IF G<V THEN 1810
1870 IF HH=1 THEN PRINT".":RETURN
1880 PRINT"Vous ne detenez absolument rien!!!":WAIT 200:RETURN
1900 IF S(1)<5 THEN 1930
1910 PRINT"Il parait evident que vous ne pouvez portez tant de chose!!"
1920 WAIT 250:BREAK=100:RETURN
1930 IF O(N)<>-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

View File

@ -1,721 +0,0 @@
20CLEAR300,-16385
30DISKLOAD"CODE"
35CALL-16384:POKE&"47FD",0
40GOSUB7600
45INIT0,0:TX3,0,0:PRINT:PRINTSPC(10)"VEUILLEZ PATIENTER"
50GOSUB8000:REM CHARGEMENT VARIABLES
51GOSUB7500
55MODEMN:INIT0,0:TX0,0,0
57DIM P(12):P(11)=0:P(12)=0
60SALLE=1
70FORN=1TO10
80P(N)=0:C(N)=0
85NEXTN
90C(3)=14:C(7)=12:C(1)=80:C(9)=12
100IFSALLE<>14ANDSALLE<>16ANDSALLE<>17ANDSALLE<>19 THENP(2)=0
105IFP(2)=0 THEN 200
106IFO(22)=SAANDP(7)=1 THEN200
107IFO(05)=SAANDP(3)=1 THEN200
110IFC(9)>1 THEN C(9)=C(9)-1
130MODEMC:MODEMN
140CURSORX1:CURSORY18:PRINT"Il fait noir comme dans un four!"
145PRINT"Il faudrait peut être allumer."
150GOTO500
200REM DESCRIPTION SALLE
210MODEMN:MODEMC: REM cadre+zone+dessin
215DEST=SALLE
220GOSUB6900
230MODEMD
300H=0:N=1
310IFO(N)<>SALLE THEN400
320IFH=1 THEN350
330MODEML:PRINT"Il y a dans la salle:":MODEMW,10
340H=1
350MODEML:PRINT" ";O$(N);
360MODEMW,25
400N=N+1
410IFN<=O THEN310
415MODEML:PRINT
500REM ACCEPTATION COMMANDE
510T=1:Y$(1)="":Y$(2)="":N=0
520GOTO1000
530IFC(7)>1ANDP(7)=1 THENC(7)=C(7)-1
540IFC(3)>1ANDP(3)=1 THENC(3)=C(3)-1
545IFC(4)>1ANDP(4)=1 THENC(4)=C(4)-1
547IFC(5)>1 THENC(5)=C(5)-1
550X$="":INPUT"Que faites vous ";X$
560MODEMN:PRINT">";X$
570GOSUB6000
580MODEML:IFMO(1)=0 THENPRINT"Je ne comprends pas...":MODEMW,50:GOTO500
* nouvelle version*
900REM CONTROLE Mvt
905 MODEMI,SALLE
910 IF PEEK(-4)=0 THEN 980
920 SALLE=PEEK(-4):GOTO100
980T=0
990A1=0
1000REM CONTROLE
1010NL=0
1100NL=NL+1
1110IFT=0 THEN1150
1120E$=C$(NL)
1130GOTO1400
1150 MODEMA: NL=PEEK(-33)
1151 IFPEEK(-32)=0 THEN1159
1152 AD=-32:E$=""
1153 IF PEEK(AD)=255 THEN 1400
1154 E$=E$+CHR$(PEEK(AD)):AD=AD+1
1155 GOTO1153
1159PY=23:CO=12
1160IFA1=1 THEN500
1170MODEML:PRINT"Impossible ";
1180IFMO(1)<10 THEN PRINT"de prendre ce chemin";
1190PRINT"!":MODEMW,100:GOTO100
1400REM CONDITIONS
1410E=1
1420IFMID$(E$,E,1)="." THEN1700
1430LI=ASC(MID$(E$,E,1))-65
1440N=VAL(MID$(E$,E+1,2))
1450ON(LI+1)GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580
1460IFOK=0 THEN1100
1470E=E+3:GOTO1420
1500IFN=SALLE THEN1590
1505GOTO1585
1510IFO(N)=-1ORO(N)=SALLE THEN1590
1515GOTO1585
1520IFO(N)<>SALLE ANDO(N)<>-1 THEN1590
1525GOTO1585
1530IFO(N)=-1 THEN1590
1535GOTO1585
1540IFP(N)=1 THEN1590
1545GOTO1585
1550IFP(N)=0 THEN1590
1555GOTO1585
1560IFC(N)=1 THEN1590
1565GOTO1585
1570IFINT(RND(1)*99+1)<N THEN1590
1575GOTO1585
1580IFN<>SALLE THEN1590
1585OK=0:RETURN
1590OK=1:RETURN
1700REM ACTIONS
1705E=E+1:A1=1
1710IF MID$(E$,E,1)="." THEN1100
1720LI=ASC(MID$(E$,E,1))-65
1730IF MID$(E$,E+1,1)<>"." THENN=VAL(MID$(E$,E+1,2))
1740BREAK=0
1750ON(LI+1)GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300
1760IFBREAK>0 THEN ON BREAK GOTO 100,300,500,530,20000
1780E=E+3
1790GOTO1710
1800G=0:HH=0
1810G=G+1
1820IFO(G)=-1 THEN1840
1830IFG<O THEN1810
1835GOTO1870
1840MODEML:IF HH=0 THENPRINT"Vous détenez:"
1850HH=1
1860MODEML:PRINTO$(G);:PRINT" ";:MODEMW,30
1865IFG<V THEN1810
1870MODEML:IFHH=1 THENPRINT".":RETURN
1880MODEML:PRINT"Vous ne détenez absolument rien!!!":RETURN
1900IFS(1)<5 THEN 1930
1910MODEML:PRINT"Il parait évident que vous ne pouvez"
1915MODEML:PRINT"porter tant de chose!!!"
1920MODEMW,200:BREAK=1:RETURN
1930IFO(N)<>-1 THEN1960
1935REM
1940MODEML:PRINT"Vous l'avez déjà,vous êtes étourdis et"
1945MODEML:PRINT"dans cette maison ce n'est pas très"
1950MODEML:PRINT"conseillé...":GOTO1920
1960O(N)=-1:S(1)=S(1)+1:RETURN
2000IFO(N)=-1 THEN 2030
2010MODEML:PRINT"Comment voulez vous poser ce que vous"
2015MODEML:PRINT"n'avez pas..."
2020GOTO1920
2030O(N)=SALLE:S(1)=S(1)-1:RETURN
2100REM
2105DEST=N+1:GOSUB 3900
2110RETURN
2200P(N)=1:RETURN
2300P(N)=0:RETURN
**
2400C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2:RETURN
**
2500IFO(N)=-1 THENS(1)=S(1)-1
2510O(N)=0:RETURN
2600SALLE=N:RETURN
2700MODEML:PRINT"D'accord..."
2710MODEMW,20:BREAK=2:RETURN
2800BREAK=3
2810RETURN
2900BREAK=4:RETURN
3000BREAK=1:RETURN
3100BREAK=5:RETURN
3200O(N)=SALLE:RETURN
3300X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$:RETURN
3900IFDEST<11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090
3910DEST=DEST-10
3915IFDEST<11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190
3920DEST=DEST-10
3925IFDEST<11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290
3930DEST=DEST-10
3935IFDEST<11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390
3940DEST=DEST-10
3945IFDEST<11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490
3950DEST=DEST-10
3955IFDEST<11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590
3960DEST=DEST-10
3965IFDEST<11 THEN ON DEST GOTO 4600,4610,4620,4630,4640
4000MODEMC:FORN=1TO20:MODEME:MODEMW,4:NEXTN
4001MODEMN:PRINT"Vous avez gardé la lampe allumée trop"
4002MODEML:PRINT"longtemps, elle a explosé!"
4005MODEMW,200:RETURN
4010MODEMC
4011MODEMN:PRINT"Vous avez oublié de fermer le robinet"
4012MODEML:PRINT"vous mourez sous des tonnes d'eau!"
4015MODEMW,200:RETURN
4020MODEMC
4022MODEMN:PRINT"La porte vient de se refermer derrière"
4023MODEML:PRINT"vous. Vous êtes prisonnier..."
4025MODEMW,200:RETURN
4030MODEMC
4031MODEMN:PRINT"Vous avez trébuché dans l'escalier,vous"
4032MODEML:PRINT"vous empallez sur le couteau!"
4035MODEMW,200:RETURN
4040MODEMC
4041MODEMN:PRINT"Vous renversez l'eau dans l'escalier,"
4042MODEML:PRINT"ce qui provoque une décharge au niveau"
4043MODEML:PRINT"de la prise électrique."
4045MODEMW,200:RETURN
4050MODEMC
4051MODEMN:PRINT"Vous êtes sauf grace à la combinaison"
4052MODEML:PRINT"que vous avez enfilé..!"
4055MODEMW,200:RETURN
4060MODEML:PRINT"Vous mourez électrocuté..."
4065MODEMW,200:RETURN
4070MODEMC:FORN=1TO20:MODEMM,2,2,2,10:MODEMP,3,7,4,80:MODEMW,1:MODEME:MODEMW,6:NEXTN
4071MODEMN:PRINT"La pièce était pleine de gaz explosif,"
4072MODEML:PRINT"vous auriez dû éteindre..."
4073MODEMW,200:PRINT"On ramassera vos morceaux un autre"
4074MODEML:PRINT"jour..!"
4075MODEMW,200:RETURN
4080MODEMC
4081MODEMN:PRINT"Vous mourez empallé sur des lances"
4082MODEML:PRINT"sorties du mur...!"
4085MODEMW,200:RETURN
4090MODEML:PRINT"La porte ne s'ouvre pas de cette pièce":MODEMW,200:RETURN
4100MODEMC
4101MODEML:PRINT"La lampe et le briquet refusent de"
4102MODEML:PRINT"fonctionner dans cette pièce!"
4109MODEMW,200:RETURN
4110MODEMC
4111MODEML:PRINT"Vous tombez dans une trappe,vous vous"
4112MODEML:PRINT"disloquez en arrivant au sol.."
4115MODEMW,200:RETURN
4120MODEML:PRINT"Vous avez raison de passer,car ce"
4122MODEML:PRINT"monstre n'était qu'une projection"
4124MODEML:PRINT"en 3 dimensions sur un écran de fumée"
4125MODEMW,250:RETURN
4130MODEML:PRINT"Vous avez raison,la curiosité est un"
4132MODEML:PRINT"vilain défaut!!!"
4134MODEMW,250
4135RUN20040
4140MODEML:PRINT"Vous avez raison d'attendre,mais cela"
4141MODEML:PRINT"ne pourra pas durer éternellement.."
4142MODEMW,200:RETURN
4150MODEML:PRINT"Vous avez de la chance car ce coffre"
4151MODEML:PRINT"était ouvert.":MODEMW,100
4152MODEML:PRINT"Un message à l'intérieur dit:"
4153MODEML:PRINTCHR$(34)+"Ne respectez pas les couleurs du code"
4154MODEML:PRINT"de la route...?"+CHR$(34):MODEMW,200
4156MODEML:PRINT"Tiens le coffre se referme!":MODEMW,150:RETURN
4160MODEML:PRINT"Maintenant,vous avez une lampe pleine"
4162MODEML:PRINT"de pétrole."
4165MODEMW,200:RETURN
4170MODEML:PRINT"Vous n'avez rien pour transporter le"
4171MODEML:PRINT"pétrole.":MODEMW,200:RETURN
4180FORN=1TO10:MODEME:MODEMW,6:NEXTN
4181MODEMC:MODEMN:PRINT"Le briquet que vous aviez laissé"
4182MODEML:PRINT"allumé vient d'exploser!"
4185MODEML:MODEMW,200:PRINT"Ca tue l'étourderie.....":MODEMW,150:RETURN
4190MODEMC:MODEMN:PRINT"A force de marcher en long et en large"
4191MODEML:PRINT"dans cette maison, vous sombrez dans"
4194MODEML:PRINT"un coma des plus mortel...
4195MODEMW,300:RETURN
4200PRINT"L'eau coule...":RETURN
4210MODEMC:MODEMN:PRINT"Vous avez les pieds trempés,et cela"
4211MODEML:PRINT"vous rend très malade..."
4215MODEMW,100:MODEML:PRINT"Vous mourez d'une triple pneumonie...!":MODEMW,200:RETURN
4220MODEML:PRINT"Le titre est:"
4225MODEML:PRINTCHR$(34)+"La mort à la 1ère page."+CHR$(34):MODEMW,200:RETURN
4230MODEMC:FOR N=1 TO 20:MODEME:NEXTN
4233MODEMN:PRINT"Le livre a explosé lorsque vous l'avez"
4235MODEML:PRINT"ouvert...":MODEMW,200:RETURN
4240MODEML:PRINT"Le papier indique: "+CHR$(34)+"Cherchez la clef."+CHR$(34)
4242MODEMW,200:RETURN
4250MODEML:PRINT"La clef vous permettra de trouver le"
4252MODEML:PRINT"code de la porte d'entrée."
4255MODEMW,200:RETURN
4260MODEML:PRINT"Il y a un clavier numérique permettant"
4261MODEML:PRINT"d'entrer un code à côté de la porte.":MODEMW,200:RETURN
4270MODEML:PRINT"Pour faire quoi..?":MODEMW,200:RETURN
4280MODEML:PRINT"Il y a une odeur de gaz.":MODEMW,200:RETURN
4290MODEML:PRINT"Apparemment,il n'y a aucune odeur.":MODEMW,200:RETURN
4300MODEML:PRINT"C'est déja fait,espèce de rigolo!":MODEMW,200:RETURN
4310MODEML:PRINT"Il faudrait peut être du feu!":MODEMW,200:RETURN
4320MODEML:PRINT"La lampe ne contient pas de pétrole!":MODEMW,200:RETURN
4330MODEML:PRINT"Vous ne l'avez pas!":MODEMW,200:RETURN
4340MODEML:PRINT"Le briquet est encore allumé et il"
4342MODEML:PRINT"éclaire la pièce.":MODEMW,200:RETURN
4350FORN=1TO15:MODEME:MODEMW,4:NEXTN
4355MODEML:PRINT"La torche était piégée,elle vous"
4356MODEML:PRINT"a explosé dans les mains.."
4357MODEMW,200:RETURN
4360MODEML:PRINT"La lampe est encore allumée,et elle"
4362MODEML:PRINT"vous éclaire.":MODEMW,200:RETURN
4370MODEML:PRINT"Un nain vient de vous lancer un"
4371MODEML:PRINT"poignard en plein coeur.."
4375MODEMW,200:RETURN
4380MODEML:PRINT"Un nain vient de se précipiter sur"
4385MODEML:PRINT"vous, il s'empalle sur votre ciseau.":MODEMW,200:RETURN
4390MODEML:PRINT"Un nain vient de se précipiter sur"
4395MODEML:PRINT"vous, il s'empalle sur votre couteau.":MODEMW,200:RETURN
4400MODEML:PRINT"Vous venez de renverser le pot.":MODEMW,150:RETURN
4410IF PEEK(-1)=1 THEN BREAK=3:RETURN
4411MODEMC:MODEMS,4,4,0:MODEMP,0,1,1,5000
4412MODEMN:PRINT"La foudre vient de tomber sur la maison":MODEMW,200
4413MODEML:PRINT"La maison n'existe plus!":MODEMW,100
4414MODEML:PRINT"Vous non plus!":MODEMW,100:MODEMP,0,0,0,0:RETURN
4420MODEMC:MODEMN:PRINT"A force de marcher dans le noir,vous"
4422MODEML:PRINT"avez trébuché.":MODEMW,100
4425MODEML:PRINT"Vous mourez d'une fracture du crâne...":MODEMW,200:RETURN
4430MODEML:PRINT"Vous ne pouvez pas travailler dans le"
4433MODEML:PRINT"noir...":MODEMW,200:RETURN
4440MODEML:PRINT"La lumière du briquet ne suffit pas"
4442MODEML:PRINT"pour travailler...":MODEMW,200:RETURN
4450MODEML:PRINT"Impossible !":MODEMW,100:RETURN
4460MODEML:PRINT"Vous n'avez aucun outil...":MODEMW,200:RETURN
4470MODEML:PRINT"Le téléporteur est en panne,donc les"
4472MODEML:PRINT"boutons ne fonctionnent pas."
4475MODEMW,400:RETURN
4480FORN=1TO25:MODEME:MODEMW,5:NEXTN
4484MODEMC:MODEMN:PRINT"Le téléporteur vient d'exploser,"
4485MODEML:PRINT"vous êtes décomposé..!":MODEMW,200:RETURN
4490MODEMN:PRINT"Le téléporteur se met en marche"
4491MODEML:PRINT"vous disparaissez...":MODEMW,50
4492MODEMM,2,1,5,0:MODEMP,2,1,3,1000
4493MODEMF
4494MODEMP,0,0,0,0
4495FORN=500TO30STEP-5
4497MODEMS,2,N,12:MODEMP,2,0,0,100
4498NEXTN
4499MODEMP,0,0,0,0:RETURN
4500MODEMC:MODEML:PRINT"Vous prenez du 30000 Volts dans les"
4502MODEML:PRINT"doigts!":MODEMW,200:RETURN
4510MODEML:PRINT"Le placard est fermé à clef!":MODEMW,200:RETURN
4520MODEMC:MODEMN:PRINT"L'horrible monstre sorti du placard"
4522MODEML:PRINT"vient de vous dévorer!"
4525MODEMW,200:RETURN
4530MODEML:PRINT"Il ne fallait pas fuir!":MODEMW,200:RETURN
4540MODEMC:MODEML:PRINT"Vous avez raison d'utiliser le ciseau,"
4542MODEML:PRINT"le monstre est mort!"
4545MODEMW,200:RETURN
4550MODEMD:MODEMN:PRINT"A l'intérieur du placard,le No "PL
4552MODEML:PRINT"est inscrit":MODEMW,200
4555MODEML:PRINT"Le placard se referme.":MODEMW,100:RETURN
4560MODEMC:FORN=1TO30:MODEME:MODEMW,5:NEXTN
4562MODEMN:PRINT"le pistolet a explosé!":MODEMW,200
4565RETURN
4570IF SALLE=2 THEN RETURN
4571MODEML:PRINT"Impossible!":BREAK=3:RETURN
4575MODEMC:FORN=1TO25:MODEME:MODEMW,7:NEXTN
4576MODEMN:PRINT"le clavier numérique a explosé!":MODEMW,200:BREAK=5:RETURN
4580MODEMN:PRINT"Le clavier numérique prend feu.":MODEMW,200
4581MODEML:IF O(24)<>-1 THEN 4586
4582MODEML:PRINT"Heureusement,vous avez un pot plein"
4584MODEML:PRINT"d'eau. Ce qui vous permet d'éteindre"
4585MODEML:PRINT"ce feu.":MODEMW,300:RETURN
4586MODEML:PRINT"Malheureusement vous n'avez pas d'eau"
4587MODEML:PRINT"pour l'éteindre.":MODEMW,200
4588GOTO4575
4590MODEMN:INPUT"No DE CODE ";ZC
4595IFZC<>PL THEN4575
4600MODEMW,100:MODEML:PRINT"Le code est exact...":MODEML:PRINT"La porte s'ouvre..."
4603MODEMW,150
4605GOTO11000
4610MODEML:PRINT"A l'intérieur du placard,il y a un mot"
4611MODEML:PRINT"qui parle d'un téléporteur.":MODEMW,200
4615MODEML:PRINT"Tiens le placard se ferme tout seul...":MODEMW,100:RETURN
4620MODEML:PRINT"Avant de la poser par terre,il faudrait"
4621MODEML:PRINT"peut être l'enlever."
4625MODEMW,200:RETURN
4630MODEMC:MODEMN:PRINT"Devant vous, il y a un horrible"
4631MODEML:PRINT"monstre qui est sorti du placard."
4635MODEMW,200:RETURN
4640MODEML:PRINT"Le placard était piégé,vous n'auriez"
4641MODEML:PRINT"pas dû l'ouvrir!"
4645FORN=1TO30:MODEME:MODEMW,7:NEXTN
4647MODEMW,200:RETURN
6000REM ANALYSE DU MOT
6010N=0:GN=0
6020N=N+1:IFMID$(X$,N,1)<>" " THEN6040
6030GOTO6020
6040GN=GN+1:XX$=MID$(X$,N+GN,1):IFXX$=" "ORXX$=""ORGN=20 THEN 6060
6050GOTO6040
6060IFGN>4 THENGN=4
6070X$(1)=MID$(X$,N,GN)
6080N=N+1:XX$=MID$(X$,N,1):IFXX$=" "ORXX$="" THEN6100
6090GOTO6080
6100N=N+1:IFMID$(X$,N,1)<>" " THEN6115
6110GOTO6100
6115GN=0
6120GN=GN+1:XX$=MID$(X$,N+GN,1):IFXX$=" "ORXX$=""ORGN=20 THEN 6140
6130GOTO6120
6140IFGN>4 THEN GN=4
6150X$(2)=MID$(X$,N,GN)
6160MODEMU,X$(1):MODEMV,X$(2)
6170MO(1)=PEEK(-3)
6180MO(2)=PEEK(-2)
6190RETURN
6900REM Chargement image salle
6902MODEMC:MODEMN
6905IF DEST<11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090
6910DEST=DEST-10
6915IF DEST<11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190
6920DEST=DEST-10
6925ON DEST GOTO 7200,7210,7220,7230,7240
7000DISKLOAD"IMG_01"
7005PRINT"Vous êtes devant le manoir du défunt"
7006PRINTSPC(14)"Dr GENIUS"
7009RETURN
7010DISKLOAD"IMG_02"
7015PRINT"Vous êtes dans le hall d'entrée."
7019RETURN
7020DISKLOAD"IMG_03"
7025PRINT"Vous êtes en bas de l'escalier menant"
7026PRINT"au 2ème étage."
7029RETURN
7030DISKLOAD"IMG_04"
7035PRINT"Vous êtes dans la salle à manger."
7039RETURN
7040DISKLOAD"IMG_05"
7045PRINT"Vous êtes dans une bibliothèque sans"
7046PRINT"livre...!"
7049RETURN
7050DISKLOAD"IMG_06"
7055PRINT"Vous êtes dans une buanderie."
7059RETURN
7060DISKLOAD"IMG_07"
7065PRINT"Vous êtes dans le salon."
7069RETURN
7070DISKLOAD"IMG_08"
7075PRINT"Vous êtes dans une chambre."
7079RETURN
7080DISKLOAD"IMG_09"
7085PRINT"Vous êtes dans un corridor."
7089RETURN
7090DISKLOAD"IMG_10"
7095PRINT"Vous êtes dans une salle d'attente."
7099RETURN
7100DISKLOAD"IMG_11"
7105PRINT"Vous êtes dans le vestibule."
7109RETURN
7110DISKLOAD"IMG_12"
7115PRINT"Vous êtes dans la chambre d'amis."
7119RETURN
7120DISKLOAD"IMG_13"
7125PRINT"Vous êtes dans une chambre."
7129RETURN
7130STOP
7140DISKLOAD"IMG_14"
7145PRINT"Vous êtes dans une petite salle."
7149RETURN
7150DISKLOAD"IMG_15"
7155PRINT"Vous êtes dans le laboratoire du
7156PRINT"Dr GENIUS."
7159RETURN
7160DISKLOAD"IMG_16"
7165PRINT"Vous êtes dans une petite pièce vide."
7169RETURN
7170DISKLOAD"IMG_17"
7175PRINT"Vous ne savez pas où vous êtes."
7179RETURN
7180DISKLOAD"IMG_18"
7185PRINT"Vous êtes en haut de l'escalier."
7189RETURN
7190DISKLOAD"IMG_19"
7195PRINT"Vous êtes dans la salle bain."
7199RETURN
7200DISKLOAD"IMG_20"
7205PRINT"Vous êtes dans le living room."
7209RETURN
7210DISKLOAD"IMG_21"
7215PRINT"Vous êtes dans une pièce enfumée...!"
7219RETURN
7220DISKLOAD"IMG_22"
7225PRINT"Vous êtes dans une grande pièce."
7229RETURN
7230DISKLOAD"IMG_23"
7235PRINT"Vous êtes dans une pièce de rangement."
7239RETURN
7240DISKLOAD"IMG_24"
7245PRINT"Vous êtes dans le dressing."
7249RETURN
7500TX7,0,0:CURSORY23:PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE"
7510N=RND(1)
7511IFKEY(0)=0 THEN7510
7515RETURN
7600REM CONFIG JEU
7602INIT0,0:TX3,0,0
7605POKE-34,0:POKE-1,0
7610INPUT "Carte SON (O/N)";X$
7620IF X$="O" THENPOKE-34,1:GOTO7630
7625IF X$<>"N"THEN7610
7630INPUT "Foudre (O/N)";X$
7640IF X$="O" THENPOKE-1,1:GOTO7650
7645IF X$<>"N"THEN7630
7650RETURN
8000REM CHARGEMENT VARIABLES
8001RESTORE
8010V=70
8130O=25:DIMO(25)
8140FORN=1TO25
8150READO(N)
8170NEXTN
8180DATA 06,05,05,08,08,00,00,11,11
8190DATA 13,20,18,16,16,16,16,00,21
8200DATA 00,22,25,12,00,25,00
8205DIMO$(25)
8210FORN=1TO25
8220READO$(N)
8240NEXTN
8250DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS
8260DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,UN COUTEAU
8270DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE
8280DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU
8290DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE
8300DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE A L'EST
8310DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU
8320M=25:DIMM$(25)
8330FORN=1TO25
8340READM$(N)
8360NEXTN
8370DATA 00,0403030400,030200,04020305010600,04040107032000,020400
8380DATA 04080109020500,030700,04130207031000
8390DATA 0409021100,0110031200,041100,030900,0209031500,00,00
8400DATA 00,00,0122032100,040500,0125022200,012100
8410DATA 0124042200,022300,022100
8430A=128:DIMA$(128)
8440FORN=1TO128
8450READA$(N)
8470NEXTN
8480DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M.
8485DATA 0500A03E08D24.D04D06N.
8490DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N.
8500DATA 0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M.
8505DATA 0100A09E07B22.D07N.
8510DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M.
8515DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N.
8520DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N.
8522DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M.
8525DATA 0200A17.F01I15M.
8530DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M.
8531DATA 0400A21E03.I19M.
8535DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M.
8540DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M.
8541DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J.
8545DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J.
8548DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J.
8550DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K.
8553DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J.
8555DATA 1143E09.D62K.
8556DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J.
8560DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J.
8563DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N.
8566DATA 1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K.
8570DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N.
8575DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J.
8580DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L.
8590DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J.
8595DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M.
8597DATA 1642E06.E02F07F06P22M.
8600DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M.
8605DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N.
8610DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K.
8615DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N.
8620DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K.
8625DATA 5543D18.P18E09J.,5743D18F09.D30K.,5743D18.P18F09J.
8630DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K.
8635DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N.
8640DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M.
8650DATA 1233A25.D64N.
8700PL=INT(RND(1)*9000+1000)
8800C=14:DIMC$(14)
8810FORN=1TO14
8820READC$(N)
8840NEXTN
8850DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N.
8860DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N.
8870DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L.
8900RETURN
9000FORIJ=1TO100:NEXTIJ
9010RETURN
11000REM SUCCES
11020DISKLOAD"IMG_01"
11030MODEMN:MODEMC:MODEMD
11040PRINT"Vous voila en dehors de la maison..."
11050MODEMW,250
11055MODEMN
11060PRINT" Cela est exceptionnel,vous êtes le"
11065PRINT"premier à sortir vivant de cette"
11070PRINT"maison. Mais à votre place, je me"
11075PRINT"mettrais à courrir car un nain rode"
11080PRINT"peut être dans les parages..."
11085 GOSUB 11100
11090GOTO 20040
11100REM TEA FOR TWO
11102RESTORE11125
11105FORN=1TO110
11110READ A1,A2,A3
11115MODEMM,1,A1,A2,10:MODEMP,1,0,0,100:MODEMW,A3
11120MODEMP,0,0,0,0
11122NEXTN
11123RETURN
11125DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45
11130DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15
11135DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45
11140DATA4,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
11145DATA4,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
11150DATA4,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
11155DATA4,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
11160DATA4,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
11165DATA4,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
11170DATA4,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
11175DATA4,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
11180DATA5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15
11185DATA4,6,45,4,3,15,4,5,45,4,3,15
11190DATA4,6,45,4,3,15,4,5,45,4,10,15,4,6,120
20000REM TOMBE
20005DISKLOAD"IMGTMB"
20010MODEMC:MODEMD:MODEMN
20020PRINT"Vous êtes mort !":MODEMW,100
20030IF PEEK(-34)=1 THENGOSUB21000
20040MODEML:PRINT:MODEML:X$="":INPUT"Voulez-vous rejouer ";X$
20050IFX$="O"ORX$="o" THENRUN45
20060IFX$="N"ORX$="n" THEN20080
20070GOTO20040
20080MODEMN:PRINT" AU REVOIR"
20090END
21000REM SARABANDE
21005RESTORE21040
21015FORN=1TO75
21020READA1,A2,A3,A4,A5
21025READA6,A7,A8,A9,A0
21030MODEMM,1,A1,A2,A3:MODEMM,2,A4,A5,A6:MODEMM,3,A7,A8,A9:MODEMP,7,0,0,100:MODEMW,A0
21031IFKEY(0)<>0 THEN MODEMP,0,0,0,0:RETURN
21032IFN>70 THENNEXTN:MODEMP,0,0,0,0:RETURN
21035MODEMP,0,0,0,0:NEXTN
21040DATA 3,6,8,3,3,8,2,10,8,80
21045DATA 3,6,8,3,3,8,2,10,8,80
21050DATA 0,1,1,0,1,1,0,1,1,40
21055DATA 3,8,8,3,5,8,0,1,1,40
21060DATA 3,5,8,3,2,8,2,10,8,80
21065DATA 3,5,8,3,2,8,2,10,8,40
21070DATA 1,11,8,0,1,1,0,1,1,40
21075DATA 1,10,8,0,1,1,0,1,1,40
21080DATA 1,8,8,0,1,1,0,1,1,40
21085DATA 3,10,8,3,6,9,3,1,8,80
21090DATA 3,10,8,3,6,9,3,1,8,80
21095DATA 0,1,1,0,1,1,0,1,1,40
21100DATA 3,11,8,3,8,8,0,1,1,40
21105DATA 3,8,8,3,5,8,3,1,8,80
21110DATA 3,8,8,3,5,8,3,1,8,40
21115DATA 2,1,8,0,1,1,0,1,1,40
21120DATA 1,11,8,0,1,1,0,1,1,40
21125DATA 1,10,8,3,7,8,3,10,8,40
21130DATA 3,11,8,3,8,8,3,3,8,80
21135DATA 3,11,8,3,8,8,3,3,8,80
21140DATA 1,8,8,0,1,1,0,1,1,40
21145DATA 1,8,8,3,10,8,4,1,8,40
21150DATA 3,10,8,3,6,8,3,3,8,80
21155DATA 3,10,8,3,6,8,3,3,8,80
21160DATA 0,1,1,0,1,1,0,1,1,40
21165DATA 3,10,8,2,1,8,0,1,1,40
21170DATA 4,3,8,3,10,8,1,11,8,80
21175DATA 4,3,8,3,8,8,2,11,9,80
21180DATA 0,1,1,0,1,1,0,1,1,40
21185DATA 4,5,8,0,1,1,0,1,1,40
21190DATA 4,2,8,3,10,8,3,5,8,80
21195DATA 4,2,8,3,10,8,3,5,8,40
21200DATA 2,8,8,0,1,1,0,1,1,40
21202DATA 2,6,8,0,1,1,0,1,1,40
21203DATA 2,5,8,0,1,1,0,1,1,40
21205DATA 3,6,8,3,3,8,2,10,8,80
21210DATA 3,6,8,3,3,8,2,10,8,80
21215DATA 0,1,1,0,1,1,0,1,1,40
21220DATA 3,8,8,3,5,8,0,1,1,40
21225DATA 3,5,8,3,2,8,2,10,8,80
21230DATA 3,5,8,3,2,8,2,10,8,40
21235DATA 1,11,8,0,1,1,0,1,1,40
21240DATA 1,10,8,0,1,1,0,1,1,40
21245DATA 1,8,8,0,1,1,0,1,1,40
21250DATA 3,10,8,3,6,9,3,1,8,80
21255DATA 3,10,8,3,6,9,3,1,8,80
21260DATA 0,1,1,0,1,1,0,1,1,40
21265DATA 3,11,8,3,8,8,0,1,1,40
21270DATA 3,8,8,3,5,8,3,1,8,80
21275DATA 3,8,8,3,5,8,3,1,8,40
21280DATA 2,1,8,0,1,1,0,1,1,40
21285DATA 1,11,8,0,1,1,0,1,1,40
21290DATA 1,10,8,3,7,8,3,10,8,40
21295DATA 3,11,8,3,8,8,3,3,8,80
21300DATA 2,8,8,0,1,1,0,1,1,40
21305DATA 3,11,8,3,8,8,3,1,8,40
21310DATA 2,8,8,0,1,1,0,1,1,40
21315DATA 2,1,8,0,1,1,0,1,1,40
21320DATA 4,1,8,2,5,8,0,1,1,40
21325DATA 3,10,8,3,6,8,3,1,8,80
21330DATA 3,10,8,2,3,8,0,1,1,40
21335DATA 4,3,8,3,6,8,2,11,8,40
21340DATA 4,2,8,0,1,1,0,1,1,40
21345DATA 4,3,8,3,11,8,2,8,8,40
21350DATA 4,5,8,0,1,1,0,1,1,40
21355DATA 4,6,8,3,10,8,2,10,8,80
21360DATA 4,5,8,3,8,8,1,10,8,40
21365DATA 0,1,1,3,8,8,1,10,8,40
21370DATA 4,3,8,0,1,1,0,1,1,40
21375DATA 4,3,8,3,6,8,2,3,8,80
21380DATA 3,3,8,3,10,8,3,6,8,40
21385DATA 3,3,7,3,10,7,3,6,7,40
21390DATA 3,3,6,3,10,6,3,6,6,40
21395DATA 3,3,5,3,10,5,3,6,5,40
21400DATA 3,3,4,3,10,4,3,6,5,40

View File

@ -1,141 +0,0 @@
3 REM LE MANOIR DU DOCTEUR GENIUS
2 REM COPYRIGHT LORICIELS 83 L.BENES
4 REM VERSION VG5000 FRED_72 2021
5 REM
10 CLEAR 300,-16385
20 DISK LOAD"CODE":CALL-16384
25 POKE&"47FD",0
30 INIT 0,0:CURSORY5:CURSORX 4: TX 7,1,0: PRINT " LORICIELS et FRED_72 SONT FIERS"
31 CURSORY6:CURSORX4:PRINT " LORICIELS et FRED_72 SONT FIERS"
35 CURSORY7:CURSORX10:PRINT "DE VOUS PRESENTER :"
36 CURSORY8:CURSORX10:PRINT "DE VOUS PRESENTER :"
40 TX2,0,0:CURSORY22:PRINT "Programme original de L.Benes (1983)"
45 CURSORY23:PRINT "Adaptation VG5000 par Fred_72 (2021)"
50 FORI=1TO6000:NEXTI
55 SETEG 92,"3E7F7F7F7F7F7F7F3E00"
60 SETEG 32,"00000000000000000000"
65 INIT0,0:EG 3,0,0:PRINT
100 CURSORX2:PRINT"\ \\\ \ \ \\\ \ \ \\\ \ \\\"
105 CURSORX2:PRINT"\ \ \\ \\ \ \ \\ \ \ \ \ \ \"
110 CURSORX2:PRINT"\ \\\ \ \ \ \\\ \\\\ \ \ \ \\\"
115 CURSORX2:PRINT"\ \ \ \ \ \ \ \\ \ \ \ \\"
120 CURSORX2:PRINT"\\\ \\\ \ \ \ \ \ \ \\\ \ \ \"
130 CURSORX5:CURSORY7:PRINT"\\ \ \ \\":CURSORX5:PRINT"\ \ \ \ \ \ \":CURSORX5:PRINT"\ \ \ \"
135 CURSORX17:CURSORY9:PRINT"\ \ \\":CURSORX5:PRINT"\ \ \ \ \ \ \ \":CURSORX5:PRINT"\\\ \\\"
140 CURSORX17:CURSORY11:PRINT"\\\ \":CURSORX2:CURSORY15:PRINT"\\\\ \\\\ \\ \ \ \ \ \\\\"
145 CURSORX2:CURSORY16:PRINT"\ \ \ \\ \ \ \ \ \":CURSORX2:PRINT"\ \ \\\ \ \ \"
150 CURSORX27:CURSORY17:PRINT"\ \":CURSORX2:PRINT"\ \\\ \ \ \ \ \ \ \\\\"
155 CURSORX2:CURSORY19:PRINT"\ \\ \ \ \\\ \ \ \ \":CURSORX2:PRINT"\ \ \ \ \\"
160 CURSORX21:CURSORY20:PRINT"\ \ \ \":CURSORX2:PRINT"\\\\ \\\\ \ \\ \ \\\\ \\\\ \ \"
170 GOSUB3000
180 GOSUB1000
200 GOSUB 800
230 INIT 0,0: TX2,0,0:PRINT:PRINT:INPUT"La liste des instructions (O/N) ";V$
240 IF V$="O"ORV$="o" THEN 500
245 IF V$="N"ORV$="n" THEN 300
255 GOTO 230
300 INIT0,0:TX3,0,0:CURSORY23:PRINTSPC(8)"Chargement en cours..."
304 REM ACTIVER FOUDRE (1 pour déscativer)
305 POKE-1,0: MODEMW,50
310 DISKRUN"JEU"
500 INIT 0,0:TX3,0,0
510PRINT:PRINT"Vous voici arrivé dans le manoir du"
511PRINT"Dr Genius..."
515PRINT:PRINT"Pour converser avec l'ordinateur,il"
516PRINT"faut rentrer les ordres en 1 ou 2"
520PRINT:PRINT"mots tels que:":PRINT:PRINT" NORD"
525PRINT:PRINT" PRENDS PILLULE"
530PRINT:PRINT"ou pour commencer: ENTRE"
540 MODEMW,400
545 GOSUB 800
550 INIT0,0:TX7,0,0:PRINTSPC(8)"Liste du vocabulaire"
555 TX3,0,0:PRINT:PRINT
560 PRINT " ACTIONNE ENTRE PAPIER"
565 PRINT " ALLUME ESCALIER PASSE"
570 PRINT " APPUIE EST (E) PETROLE"
575 PRINT " ATTENDS ETEINS PISTOLET"
580 PRINT " AVANCE FERME PLACARD"
585 PRINT " BLEU GRIMPE POIGNARDE"
590 PRINT " BRIQUET INVENTAIRE PORTE"
595 PRINT " CISEAU JETTE POSE"
600 PRINT " CLEF LAMPE POT"
605 PRINT " CODE LANCE PRENDS"
610 PRINT " COFFRE LIS RAMASSE"
615 PRINT " COMBINAISON LISTE REGARDE"
620 PRINT " COUTEAU LIT REMPLIS"
625 PRINT " DEPANNE LIVRE RENIFLE"
630 PRINT " DESCENDS MONSTRE RENTRE"
635 PRINT " EAU MONTE REPARE"
640 PRINT " ENFILE NORD (N) RETOURNE"
645 PRINT " ENFONCE OUEST (O) RIEN"
650 PRINT " ENLEVE OUVRE ROBINET"
660 GOSUB 800
670 INIT0,0:TX7,0,0:PRINTSPC(8)"Liste du vocabulaire"
675 TX3,0,0:PRINT:PRINT
680 PRINT " ROUGE TELEPORTEUR TOURNE"
685 PRINT " SENS TITRE VERT"
690 PRINT " SUD (S) TORCHE VIDE"
700 GOSUB 800
710 INIT0,0:TX3,0,0:PRINT:PRINT" Un dernier conseil:"
715 MODEMW,150
720 PRINT"Il peut parfois y avoir une porte
725 PRINT"derrière vous."
730 MODEMW,200
735 PRINT:PRINT:PRINT:PRINT"Bonne chance..."
740 MODEMW,200
750 GOTO300
800 CURSORX8:CURSORY25:PRINT "Appuyez sur une touche";
810 A=KEY(0):X=RND(1)
820 IF A=0 THEN810
830 RETURN
1000 INIT 3,3:TX0,0,0:PRINT:PRINT:PRINT"ATTENTION ................."
1005 PRINT:PRINT"L'utilisation de ce programme est"
1010 PRINT:PRINT"déconseillée aux personnes sensibles"
1020 PRINT:PRINT"aux enfants en bas âge,ainsi qu'à"
1030 PRINT:PRINT"toute personne susceptible d'avoir"
1040 PRINT:PRINT"des malaises cardiaques."
1050 PRINT:PRINT"Nous ne pourrions être tenu responsa-"
1060 PRINT:PRINT"bles,des troubles physiques ou mentaux"
1070 PRINT:PRINT"provoqués par votre échec dans"
1080 PRINT:PRINT"le Manoir du Dr GENIUS ............. "
1099 MODEMW,400
1100 RETURN
3000 REM BADINERIE
3005 RESTORE 3030
3010 FOR N=1 TO 97
3015 READ A1,A2,A3
3020 MODEMM,1,A1,A2,10
3021 MODEMP,1,0,0,100
3023 MODEMW,A3
3025 MODEMP,0,0,0,0:NEXTN
3030 DATA4,12,20,5,3,10,4,12,10,4,7,20
3035 DATA4,12,10,4,7,10,4,3,20,4,7,10
3040 DATA4,3,10,3,12,40,3,7,10,3,12,10
3045 DATA4,3,10,3,12,10,4,2,10,3,12,10
3050 DATA4,2,10,3,12,10,3,11,10,4,2,10
3055 DATA4,5,10,4,2,10,4,3,20,3,12,20
3060 DATA4,12,20,5,3,10,4,12,10,4,7,20
3065 DATA4,12,10,4,7,10,4,3,20,4,7,10
3070 DATA4,3,10,3,12,40,4,3,20,4,3,20
3075 DATA4,3,20,4,3,20,4,12,20,4,3,20
3080 DATA4,3,7,4,5,7,4,3,7
3085 DATA4,2,20,4,7,20,4,7,20,4,7,20
3090 DATA4,7,20,5,3,20,4,7,20,4,7,7
3100 DATA4,8,7,4,7,7,4,6,20,4,2,10
3105 DATA4,7,10,4,10,10,4,7,10,4,9,10
3115 DATA4,7,10,4,6,10,4,9,10,4,12,10
3120 DATA4,9,10,4,10,10,4,9,10,4,10,10
3125 DATA4,9,10,4,7,10,4,10,10,4,7,10
3130 DATA4,6,10,4,7,10,4,12,10,4,7,10
3145 DATA4,6,10,4,7,10,5,2,10,4,7,10
3150 DATA4,6,10,4,7,10,5,3,10,4,7,10
3155 DATA4,6,10,4,7,10,5,3,10,5,2,10
3160 DATA4,12,10,5,2,10,4,10,10,4,9,10
3165 DATA4,7,10,4,10,10,4,9,7,4,10,7,4,9,7,4,7,20
3170 RETURN