mirror of
https://github.com/antoinevignau/source.git
synced 2024-09-27 08:54:49 +00:00
ca avance
This commit is contained in:
parent
0b41e880d2
commit
9e6168c1fd
Binary file not shown.
@ -26,6 +26,8 @@ X0H = $e1
|
|||||||
Y0 = $e2 ; Y-coord
|
Y0 = $e2 ; Y-coord
|
||||||
HPAG = $e6
|
HPAG = $e6
|
||||||
|
|
||||||
|
maxY = 191 ; 0 to 191 = 192
|
||||||
|
|
||||||
dpFROM = $fc
|
dpFROM = $fc
|
||||||
dpTO = $fe
|
dpTO = $fe
|
||||||
|
|
||||||
@ -98,7 +100,7 @@ MONZ = $FF69
|
|||||||
@explode mac
|
@explode mac
|
||||||
jsr EXPLODE
|
jsr EXPLODE
|
||||||
eom
|
eom
|
||||||
|
|
||||||
@key$ mac
|
@key$ mac
|
||||||
jsr KEY$
|
jsr KEY$
|
||||||
eom
|
eom
|
||||||
@ -140,7 +142,7 @@ notiigs
|
|||||||
REPLAY
|
REPLAY
|
||||||
jsr initALL
|
jsr initALL
|
||||||
jsr HGR
|
jsr HGR
|
||||||
jsr setHGR
|
* jsr setHGR
|
||||||
|
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
* DU BASIC A L'ASSEMBLEUR (BEURK)
|
* DU BASIC A L'ASSEMBLEUR (BEURK)
|
||||||
@ -148,22 +150,21 @@ REPLAY
|
|||||||
|
|
||||||
:100 lda SALLE
|
:100 lda SALLE
|
||||||
cmp #14
|
cmp #14
|
||||||
beq :101
|
beq :105
|
||||||
cmp #16
|
cmp #16
|
||||||
beq :101
|
beq :105
|
||||||
cmp #17
|
cmp #17
|
||||||
beq :101
|
beq :105
|
||||||
cmp #19
|
cmp #19
|
||||||
bne :105
|
beq :105
|
||||||
|
|
||||||
:101 lda #0
|
lda #0
|
||||||
ldx #2
|
ldx #2
|
||||||
sta P,x
|
sta P,x
|
||||||
|
|
||||||
:105 ldx #2
|
:105 ldx #2
|
||||||
lda P,x
|
lda P,x
|
||||||
cmp #2
|
beq :200
|
||||||
bne :200
|
|
||||||
|
|
||||||
ldx #22
|
ldx #22
|
||||||
lda O,x
|
lda O,x
|
||||||
@ -201,8 +202,7 @@ REPLAY
|
|||||||
* 200 - description salle
|
* 200 - description salle
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
|
|
||||||
:200 jsr HGR
|
:200 jsr setHGR
|
||||||
jsr setMIXEDOFF
|
|
||||||
|
|
||||||
lda #20 ; et c'est fen<65>trŽ en plus !
|
lda #20 ; et c'est fen<65>trŽ en plus !
|
||||||
sta WNDTOP
|
sta WNDTOP
|
||||||
@ -262,8 +262,8 @@ REPLAY
|
|||||||
:500 lda #1
|
:500 lda #1
|
||||||
sta T
|
sta T
|
||||||
lda #0
|
lda #0
|
||||||
sta Y1
|
* sta Y1
|
||||||
sta Y2
|
* sta Y2
|
||||||
sta N
|
sta N
|
||||||
jmp :1000
|
jmp :1000
|
||||||
|
|
||||||
@ -345,6 +345,8 @@ REPLAY
|
|||||||
lda tblM$+1,x
|
lda tblM$+1,x
|
||||||
sta LINNUM+1
|
sta LINNUM+1
|
||||||
|
|
||||||
|
brk $bd
|
||||||
|
|
||||||
lda (LINNUM),y
|
lda (LINNUM),y
|
||||||
beq :980
|
beq :980
|
||||||
cmp MO$1
|
cmp MO$1
|
||||||
@ -520,7 +522,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
|
|||||||
lda O,x
|
lda O,x
|
||||||
cmp #-1
|
cmp #-1
|
||||||
beq :1515
|
beq :1515
|
||||||
cmp #SALLE
|
cmp SALLE
|
||||||
bne :1516
|
bne :1516
|
||||||
:1515 lda #1
|
:1515 lda #1
|
||||||
sta OK
|
sta OK
|
||||||
@ -650,11 +652,6 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
|
|||||||
|
|
||||||
lda BREAK
|
lda BREAK
|
||||||
beq :1780
|
beq :1780
|
||||||
|
|
||||||
ldx #0
|
|
||||||
:1761 cmp tblBRKV,x
|
|
||||||
bne :1763
|
|
||||||
txa
|
|
||||||
asl
|
asl
|
||||||
tax
|
tax
|
||||||
lda tblBRKA,x
|
lda tblBRKA,x
|
||||||
@ -663,10 +660,6 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
|
|||||||
sta :1762+2
|
sta :1762+2
|
||||||
:1762 jmp $bdbd
|
:1762 jmp $bdbd
|
||||||
|
|
||||||
:1763 inx
|
|
||||||
cpx #tblBRKA-tblBRKV
|
|
||||||
bcc :1761
|
|
||||||
|
|
||||||
:1780 lda E
|
:1780 lda E
|
||||||
clc
|
clc
|
||||||
adc #3
|
adc #3
|
||||||
@ -675,15 +668,14 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
|
|||||||
|
|
||||||
*-------- The modified BREAK table
|
*-------- The modified BREAK table
|
||||||
|
|
||||||
tblBRKV dfb 10,30,50,53
|
tblBRKA da $bdbd
|
||||||
tblBRKA da :100,:300,:500,:530
|
da :100,:300,:500,:530,:20000
|
||||||
|
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
* 1800
|
* 1800
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
|
|
||||||
tbl1800 da $bdbd
|
tbl1800 da :1800,:1900
|
||||||
da :1800,:1900
|
|
||||||
da :2000,:2100,:2200,:2300,:2400,:2500,:2600,:2700,:2800,:2900
|
da :2000,:2100,:2200,:2300,:2400,:2500,:2600,:2700,:2800,:2900
|
||||||
da :3000,:3100,:3200,:3300
|
da :3000,:3100,:3200,:3300
|
||||||
|
|
||||||
@ -756,7 +748,7 @@ strPOINT
|
|||||||
@print #strEVIDENT
|
@print #strEVIDENT
|
||||||
|
|
||||||
:1920 @wait #250
|
:1920 @wait #250
|
||||||
lda #10
|
lda #1
|
||||||
sta BREAK
|
sta BREAK
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -896,7 +888,7 @@ strNOTOWNED
|
|||||||
|
|
||||||
:2700 @print #strDACCORD
|
:2700 @print #strDACCORD
|
||||||
@wait #150
|
@wait #150
|
||||||
lda #30
|
lda #2
|
||||||
sta BREAK
|
sta BREAK
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -905,19 +897,19 @@ strDACCORD
|
|||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:2800 lda #50
|
:2800 lda #3
|
||||||
sta BREAK
|
sta BREAK
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:2900 lda #53
|
:2900 lda #4
|
||||||
sta BREAK
|
sta BREAK
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
:3000 lda #10
|
:3000 lda #1
|
||||||
sta BREAK
|
sta BREAK
|
||||||
rts
|
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 :4300,:4310,:4320,:4330,:4340,:4350,:4360,:4370,:4380,:4390
|
||||||
da :4400,:4410,:4420,:4430,:4440,:4450,:4460,:4470,:4480,:4490
|
da :4400,:4410,:4420,:4430,:4440,:4450,:4460,:4470,:4480,:4490
|
||||||
da :4500,:4510,:4520,:4530,:4540,:4550,:4560,:4570,:4580,:4590
|
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
|
:4570 @explode
|
||||||
@print #str4570
|
@print #str4570
|
||||||
@wait #250
|
@wait #250
|
||||||
|
|
||||||
|
lda #5
|
||||||
|
sta BREAK
|
||||||
rts
|
rts
|
||||||
|
|
||||||
str4570 asc "LE CLAVIER NUMERIQUE A EXPLOSE"00
|
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$1
|
||||||
sta MO$2
|
sta MO$2
|
||||||
|
|
||||||
* 1. cherche l'index du premier mot
|
* 1. cherche le premier caract<EFBFBD>re
|
||||||
|
|
||||||
ldx #0 ; cherche le premier caractere
|
ldx #0 ; cherche le premier caractere
|
||||||
]lp lda TEXTBUFFER,x
|
]lp lda TEXTBUFFER,x
|
||||||
cmp #chrRET2
|
cmp #chrRET2
|
||||||
beq :6021
|
beq :6021
|
||||||
cmp #chrSPC2
|
cmp #chrSPC2
|
||||||
bne :6022
|
bne :6022 ; on a trouvŽ un caract<63>re
|
||||||
inx
|
inx
|
||||||
cpx lenSTRING
|
cpx lenSTRING
|
||||||
bcs :6021
|
bcs :6021
|
||||||
@ -1677,16 +1672,16 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
|
|||||||
inx
|
inx
|
||||||
]lp lda TEXTBUFFER,x
|
]lp lda TEXTBUFFER,x
|
||||||
cmp #chrRET2
|
cmp #chrRET2
|
||||||
beq :6031
|
beq :6032
|
||||||
cmp #chrSPC2
|
cmp #chrSPC2
|
||||||
beq :6032
|
beq :6032
|
||||||
inx
|
inx
|
||||||
cpx lenSTRING
|
cpx lenSTRING
|
||||||
bcs :6031
|
bcs :6100
|
||||||
cpx #nbCAR
|
cpx #nbCAR
|
||||||
bcc ]lp
|
bcc ]lp
|
||||||
:6031 rts
|
bcs :6100
|
||||||
|
|
||||||
* 4. recopie le mot
|
* 4. recopie le mot
|
||||||
|
|
||||||
:6032 inx
|
:6032 inx
|
||||||
@ -1713,7 +1708,7 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
|
|||||||
* V$x 6 04PREN
|
* V$x 6 04PREN
|
||||||
* 0 123456
|
* 0 123456
|
||||||
|
|
||||||
lda #1
|
:6100 lda #0
|
||||||
sta W
|
sta W
|
||||||
|
|
||||||
:6180 lda #1
|
:6180 lda #1
|
||||||
@ -1745,7 +1740,7 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
|
|||||||
asl
|
asl
|
||||||
tay
|
tay
|
||||||
lda tblV,y
|
lda tblV,y
|
||||||
sta MO$2,x
|
sta MO$1,x
|
||||||
jmp :6300
|
jmp :6300
|
||||||
|
|
||||||
:6250 inc N
|
:6250 inc N
|
||||||
@ -1762,7 +1757,7 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
|
|||||||
dex
|
dex
|
||||||
bpl ]lp
|
bpl ]lp
|
||||||
|
|
||||||
dec W
|
inc W
|
||||||
bpl :6180
|
bpl :6180
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -2526,9 +2521,24 @@ doD
|
|||||||
adc theY
|
adc theY
|
||||||
sta theY2
|
sta theY2
|
||||||
jsr drawREAD
|
jsr drawREAD
|
||||||
adc theY
|
adc theY+1
|
||||||
sta theY2+1 ; new Y-coord
|
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
|
*---------- It is now time to draw as we have all variables
|
||||||
|
|
||||||
ldy theINK ; the ink color
|
ldy theINK ; the ink color
|
||||||
@ -3117,8 +3127,8 @@ H ds 1
|
|||||||
HH ds 1
|
HH ds 1
|
||||||
L ds 1
|
L ds 1
|
||||||
LX ds 1
|
LX ds 1
|
||||||
MO$2 ds 1 ; mot 2
|
|
||||||
MO$1 ds 1 ; mot 1
|
MO$1 ds 1 ; mot 1
|
||||||
|
MO$2 ds 1 ; mot 2
|
||||||
N ds 1
|
N ds 1
|
||||||
NL ds 1
|
NL ds 1
|
||||||
OK ds 1
|
OK ds 1
|
||||||
@ -3129,8 +3139,6 @@ S ds 2 ; pour S(1)
|
|||||||
SALLE ds 1
|
SALLE ds 1
|
||||||
T ds 1
|
T ds 1
|
||||||
W ds 1
|
W ds 1
|
||||||
Y1 ds 1
|
|
||||||
Y2 ds 1
|
|
||||||
Z ds 1
|
Z ds 1
|
||||||
|
|
||||||
*--- The lazy decimal to hexadecimal conversion
|
*--- The lazy decimal to hexadecimal conversion
|
||||||
|
File diff suppressed because it is too large
Load Diff
3173
lemanoirdudocteurgenius/apple2/old/drgenius copie.s
Normal file
3173
lemanoirdudocteurgenius/apple2/old/drgenius copie.s
Normal file
File diff suppressed because it is too large
Load Diff
@ -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
|
|
@ -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
|
|
||||||
|
|
||||||
|
|
@ -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
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user