mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-28 04:33:14 +00:00
making it asm friendly
This commit is contained in:
Antoine Vignau
parent
4dccfa2997
commit
d6d499960d
@ -1 +1 @@
|
|||||||
drgenius=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
drgenius=Type(06),AuxType(4000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||||
|
|||||||
@ -321,10 +321,6 @@ REPLAY
|
|||||||
jsr :6000
|
jsr :6000
|
||||||
|
|
||||||
lda MO$1
|
lda MO$1
|
||||||
cmp #"0"
|
|
||||||
bne :900
|
|
||||||
lda MO$1+1
|
|
||||||
cmp #"0"
|
|
||||||
bne :900
|
bne :900
|
||||||
|
|
||||||
@print #strJENECOMPRENDS
|
@print #strJENECOMPRENDS
|
||||||
@ -335,8 +331,7 @@ REPLAY
|
|||||||
* 900 - CONTROLE MVT
|
* 900 - CONTROLE MVT
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
|
|
||||||
:900 lda #1
|
:900 ldy #0
|
||||||
sta Z
|
|
||||||
|
|
||||||
:920 lda SALLE ; T$=MID(M$(SALLE),Z,2)
|
:920 lda SALLE ; T$=MID(M$(SALLE),Z,2)
|
||||||
asl
|
asl
|
||||||
@ -346,49 +341,18 @@ REPLAY
|
|||||||
lda tblM$+1,x
|
lda tblM$+1,x
|
||||||
sta LINNUM+1
|
sta LINNUM+1
|
||||||
|
|
||||||
ldy Z
|
|
||||||
lda (LINNUM),y
|
lda (LINNUM),y
|
||||||
sta T$+1
|
|
||||||
dey
|
|
||||||
lda (LINNUM),y
|
|
||||||
sta T$
|
|
||||||
|
|
||||||
cmp #"0"
|
|
||||||
bne :940
|
|
||||||
lda T$+1
|
|
||||||
cmp #"0"
|
|
||||||
beq :980
|
beq :980
|
||||||
|
|
||||||
:940 lda T$
|
|
||||||
cmp MO$1
|
cmp MO$1
|
||||||
bne :970
|
bne :970
|
||||||
lda T$+1
|
|
||||||
cmp MO$1+1
|
|
||||||
bne :970
|
|
||||||
|
|
||||||
:950 iny
|
:950 iny
|
||||||
iny
|
|
||||||
lda (LINNUM),y
|
lda (LINNUM),y
|
||||||
sec
|
|
||||||
sbc #"0"
|
|
||||||
tax
|
|
||||||
lda tblD2H,x
|
|
||||||
sta SALLE
|
|
||||||
|
|
||||||
iny
|
|
||||||
lda (LINNUM),y
|
|
||||||
sec
|
|
||||||
sbc #"0"
|
|
||||||
clc
|
|
||||||
adc SALLE
|
|
||||||
sta SALLE
|
sta SALLE
|
||||||
jmp :100
|
jmp :100
|
||||||
|
|
||||||
:970 lda Z
|
:970 iny
|
||||||
clc
|
bne :920
|
||||||
adc #4
|
|
||||||
sta Z
|
|
||||||
jmp :920
|
|
||||||
|
|
||||||
:980 lda #0
|
:980 lda #0
|
||||||
sta T
|
sta T
|
||||||
@ -398,13 +362,10 @@ REPLAY
|
|||||||
* 1000 - CONTROLE
|
* 1000 - CONTROLE
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
|
|
||||||
:1000 lda #0
|
:1000 lda #-1
|
||||||
sta NL
|
sta NL
|
||||||
|
|
||||||
:1100 lda NL
|
:1100 inc NL
|
||||||
clc
|
|
||||||
adc #1
|
|
||||||
sta NL
|
|
||||||
|
|
||||||
lda T
|
lda T
|
||||||
cmp #0
|
cmp #0
|
||||||
@ -445,11 +406,8 @@ REPLAY
|
|||||||
|
|
||||||
:1170 @print #strIMPOSSIBLE
|
:1170 @print #strIMPOSSIBLE
|
||||||
|
|
||||||
lda MO$1
|
lda MO$1 ; les directions
|
||||||
cmp #"0"
|
cmp #10+1
|
||||||
bne :1190
|
|
||||||
lda MO$1+1
|
|
||||||
cmp #"9"+1
|
|
||||||
bcs :1190
|
bcs :1190
|
||||||
|
|
||||||
@print #strCECHEMIN
|
@print #strCECHEMIN
|
||||||
@ -460,41 +418,16 @@ REPLAY
|
|||||||
:1200 lda NL
|
:1200 lda NL
|
||||||
asl
|
asl
|
||||||
tax
|
tax
|
||||||
lda tblA$,x
|
lda tblA,x
|
||||||
sta LINNUM
|
|
||||||
lda tblA$+1,x
|
|
||||||
sta LINNUM+1
|
|
||||||
|
|
||||||
ldy #1
|
|
||||||
lda (LINNUM),y
|
|
||||||
cmp MO$1
|
cmp MO$1
|
||||||
beq :1201
|
beq :1210
|
||||||
iny
|
|
||||||
lda (LINNUM),y
|
|
||||||
cmp MO$1+1
|
|
||||||
bne :1210
|
|
||||||
:1201 jmp :1100
|
|
||||||
|
|
||||||
:1210 iny
|
|
||||||
lda (LINNUM),y
|
|
||||||
sta Y$
|
|
||||||
iny
|
|
||||||
lda (LINNUM),y
|
|
||||||
sta Y$+1
|
|
||||||
|
|
||||||
cmp Y$
|
|
||||||
bne :1225
|
|
||||||
cmp #"0"
|
|
||||||
bne :1225
|
|
||||||
jmp :1100
|
jmp :1100
|
||||||
|
|
||||||
:1225 lda Y$
|
:1210 lda tblA+1,x
|
||||||
|
beq :1230
|
||||||
cmp MO$2
|
cmp MO$2
|
||||||
beq :1227
|
beq :1230
|
||||||
lda Y$+1
|
jmp :1100
|
||||||
cmp MO$2+1
|
|
||||||
bne :1230
|
|
||||||
:1227 jmp :1100
|
|
||||||
|
|
||||||
:1230 ldy #0
|
:1230 ldy #0
|
||||||
lda (LINNUM),y
|
lda (LINNUM),y
|
||||||
@ -677,11 +610,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
|
|||||||
* 1700 - ACTIONS
|
* 1700 - ACTIONS
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
|
|
||||||
:1700
|
:1700 inc E
|
||||||
lda E
|
|
||||||
clc
|
|
||||||
adc #1
|
|
||||||
sta E
|
|
||||||
|
|
||||||
lda #1
|
lda #1
|
||||||
sta A1
|
sta A1
|
||||||
@ -768,10 +697,8 @@ tbl1800 da $bdbd
|
|||||||
sta G
|
sta G
|
||||||
sta HH
|
sta HH
|
||||||
|
|
||||||
:1810 lda G
|
:1810 inc G
|
||||||
clc
|
lda G
|
||||||
adc #1
|
|
||||||
sta G
|
|
||||||
tax
|
tax
|
||||||
lda O,x
|
lda O,x
|
||||||
cmp #-1
|
cmp #-1
|
||||||
@ -1714,11 +1641,8 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
|
|||||||
sta X$1
|
sta X$1
|
||||||
sta X$2
|
sta X$2
|
||||||
|
|
||||||
lda #"0" ; initialise les mots
|
|
||||||
sta MO$1
|
sta MO$1
|
||||||
sta MO$1+1
|
|
||||||
sta MO$2
|
sta MO$2
|
||||||
sta MO$2+1
|
|
||||||
|
|
||||||
* 1. cherche l'index du premier mot
|
* 1. cherche l'index du premier mot
|
||||||
|
|
||||||
@ -2724,77 +2648,88 @@ tblV$ da $bdbd
|
|||||||
da V$50,V$51,V$52,V$53,V$54,V$55,V$56,V$57,V$58,V$59
|
da V$50,V$51,V$52,V$53,V$54,V$55,V$56,V$57,V$58,V$59
|
||||||
da V$60,V$61,V$62,V$63,V$64,V$65,V$66,V$67,V$68,V$69
|
da V$60,V$61,V$62,V$63,V$64,V$65,V$66,V$67,V$68,V$69
|
||||||
da V$70
|
da V$70
|
||||||
|
|
||||||
V$1 str "01N"
|
V$1 str "N"
|
||||||
V$2 str "01NORD"
|
V$2 str "NORD"
|
||||||
V$3 str "02S"
|
V$3 str "S"
|
||||||
V$4 str "02SUD"
|
V$4 str "SUD"
|
||||||
V$5 str "03E"
|
V$5 str "E"
|
||||||
V$6 str "03EST"
|
V$6 str "EST"
|
||||||
V$7 str "04O"
|
V$7 str "O"
|
||||||
V$8 str "04OUEST"
|
V$8 str "OUEST"
|
||||||
V$9 str "05MONT"
|
V$9 str "MONT"
|
||||||
V$10 str "05GRIM"
|
V$10 str "GRIM"
|
||||||
V$11 str "06DESC"
|
V$11 str "DESC"
|
||||||
V$12 str "10PREN"
|
V$12 str "PREN"
|
||||||
V$13 str "10RAMA"
|
V$13 str "RAMA"
|
||||||
V$14 str "11POSE"
|
V$14 str "POSE"
|
||||||
V$15 str "12OUVR"
|
V$15 str "OUVR"
|
||||||
V$16 str "13FERM"
|
V$16 str "FERM"
|
||||||
V$17 str "14ENTR"
|
V$17 str "ENTR"
|
||||||
V$18 str "14AVAN"
|
V$18 str "AVAN"
|
||||||
V$19 str "15ALLU"
|
V$19 str "ALLU"
|
||||||
V$20 str "16ETEI"
|
V$20 str "ETEI"
|
||||||
V$21 str "17REPA"
|
V$21 str "REPA"
|
||||||
V$22 str "17DEPA"
|
V$22 str "DEPA"
|
||||||
V$23 str "18LIS"
|
V$23 str "LIS"
|
||||||
V$24 str "19REGA"
|
V$24 str "REGA"
|
||||||
V$25 str "20RETO"
|
V$25 str "RETO"
|
||||||
V$26 str "21RENI"
|
V$26 str "RENI"
|
||||||
V$27 str "21SENS"
|
V$27 str "SENS"
|
||||||
V$28 str "22REMP"
|
V$28 str "REMP"
|
||||||
V$29 str "23VIDE"
|
V$29 str "VIDE"
|
||||||
V$30 str "24INVE"
|
V$30 str "INVE"
|
||||||
V$31 str "24LIST"
|
V$31 str "LIST"
|
||||||
V$32 str "25RIEN"
|
V$32 str "RIEN"
|
||||||
V$33 str "25ATTE"
|
V$33 str "ATTE"
|
||||||
V$34 str "26POIG"
|
V$34 str "POIG"
|
||||||
V$35 str "27COUT"
|
V$35 str "COUT"
|
||||||
V$36 str "28TOUR"
|
V$36 str "TOUR"
|
||||||
V$37 str "29LAMP"
|
V$37 str "LAMP"
|
||||||
V$38 str "30CODE"
|
V$38 str "CODE"
|
||||||
V$39 str "31ESCA"
|
V$39 str "ESCA"
|
||||||
V$40 str "32PIST"
|
V$40 str "PIST"
|
||||||
V$41 str "33PLAC"
|
V$41 str "PLAC"
|
||||||
V$42 str "34TORC"
|
V$42 str "TORC"
|
||||||
V$43 str "35TELE"
|
V$43 str "TELE"
|
||||||
V$44 str "36MONS"
|
V$44 str "MONS"
|
||||||
V$45 str "37PETR"
|
V$45 str "PETR"
|
||||||
V$46 str "38POT"
|
V$46 str "POT"
|
||||||
V$47 str "18LIT"
|
V$47 str "LIT"
|
||||||
V$48 str "39CLEF"
|
V$48 str "CLEF"
|
||||||
V$49 str "40PAPI"
|
V$49 str "PAPI"
|
||||||
V$50 str "41LIVR"
|
V$50 str "LIVR"
|
||||||
V$51 str "42BRIQ"
|
V$51 str "BRIQ"
|
||||||
V$52 str "43COMB"
|
V$52 str "COMB"
|
||||||
V$53 str "44COFF"
|
V$53 str "COFF"
|
||||||
V$54 str "45ROUG"
|
V$54 str "ROUG"
|
||||||
V$55 str "46BLEU"
|
V$55 str "BLEU"
|
||||||
V$56 str "47VERT"
|
V$56 str "VERT"
|
||||||
V$57 str "48TITR"
|
V$57 str "TITR"
|
||||||
V$58 str "49ROBI"
|
V$58 str "ROBI"
|
||||||
V$59 str "50CISE"
|
V$59 str "CISE"
|
||||||
V$60 str "51PORT"
|
V$60 str "PORT"
|
||||||
V$61 str "52ACTI"
|
V$61 str "ACTI"
|
||||||
V$62 str "53JETE"
|
V$62 str "JETE"
|
||||||
V$63 str "53LANCE"
|
V$63 str "LANCE"
|
||||||
V$64 str "54EAU"
|
V$64 str "EAU"
|
||||||
V$65 str "55ENFI"
|
V$65 str "ENFI"
|
||||||
V$66 str "55PASS"
|
V$66 str "PASS"
|
||||||
V$67 str "56APPU"
|
V$67 str "APPU"
|
||||||
V$68 str "56ENFO"
|
V$68 str "ENFO"
|
||||||
V$69 str "57ENLE"
|
V$69 str "ENLE"
|
||||||
V$70 str "58RENT"
|
V$70 str "RENT"
|
||||||
|
|
||||||
|
tblV dfb $bd
|
||||||
|
dfb 01,01,02,02,03,03,04,04
|
||||||
|
dfb 05,05,06,10,10,11,12,13
|
||||||
|
dfb 14,14,15,16,17,17,18,19
|
||||||
|
dfb 20,21,21,22,23,24,24,25
|
||||||
|
dfb 25,26,27,28,29,30,31,32
|
||||||
|
dfb 33,34,35,36,37,38,18,39
|
||||||
|
dfb 40,41,42,43,44,45,46,47
|
||||||
|
dfb 48,49,50,51,52,53,53,54
|
||||||
|
dfb 55,55,56,56,57,58
|
||||||
|
|
||||||
*---
|
*---
|
||||||
|
|
||||||
@ -2857,38 +2792,37 @@ tblM$ da $bdbd
|
|||||||
da M$10,M$11,M$12,M$13,M$14,M$15,M$16,M$17,M$18,M$19
|
da M$10,M$11,M$12,M$13,M$14,M$15,M$16,M$17,M$18,M$19
|
||||||
da M$20,M$21,M$22,M$23,M$24,M$25
|
da M$20,M$21,M$22,M$23,M$24,M$25
|
||||||
|
|
||||||
M$1 str "00"
|
M$1 dfb 00
|
||||||
M$2 str "0403030400"
|
M$2 dfb 04,03,03,04,00
|
||||||
M$3 str "030200"
|
M$3 dfb 03,02,00
|
||||||
M$4 str "04020305010600"
|
M$4 dfb 04,02,03,05,01,06,00
|
||||||
M$5 str "04040107032000"
|
M$5 dfb 04,04,01,07,03,20,00
|
||||||
M$6 str "020400"
|
M$6 dfb 02,04,00
|
||||||
M$7 str "04080109020500"
|
M$7 dfb 04,08,01,09,02,05,00
|
||||||
M$8 str "030700"
|
M$8 dfb 03,07,00
|
||||||
M$9 str "04130207031000"
|
M$9 dfb 04,13,02,07,03,10,00
|
||||||
M$10 str "0409021100"
|
M$10 dfb 04,09,02,11,00
|
||||||
M$11 str "0110031200"
|
M$11 dfb 01,10,03,12,00
|
||||||
M$12 str "041100"
|
M$12 dfb 04,11,00
|
||||||
M$13 str "030900"
|
M$13 dfb 03,09,00
|
||||||
M$14 str "0209031500"
|
M$14 dfb 02,09,03,15,00
|
||||||
M$15 str "00"
|
M$15 dfb 00
|
||||||
M$16 str "00"
|
M$16 dfb 00
|
||||||
M$17 str "00"
|
M$17 dfb 00
|
||||||
M$18 str "00"
|
M$18 dfb 00
|
||||||
M$19 str "0122032100"
|
M$19 dfb 01,22,03,21,00
|
||||||
M$20 str "040500"
|
M$20 dfb 04,05,00
|
||||||
M$21 str "0125022200"
|
M$21 dfb 01,25,02,22,00
|
||||||
M$22 str "012100"
|
M$22 dfb 01,21,00
|
||||||
M$23 str "0124042200"
|
M$23 dfb 01,24,04,22,00
|
||||||
M$24 str "022300"
|
M$24 dfb 02,23,00
|
||||||
M$25 str "022100"
|
M$25 dfb 02,21,00
|
||||||
|
|
||||||
*---
|
*--- On commence <EFBFBD> index 0
|
||||||
|
|
||||||
AA = 128
|
AA = 128
|
||||||
|
|
||||||
tblA$ da $bdbd
|
tblA$ da A$1,A$2,A$3,A$4,A$5,A$6,A$7,A$8,A$9
|
||||||
da A$1,A$2,A$3,A$4,A$5,A$6,A$7,A$8,A$9
|
|
||||||
da A$10,A$11,A$12,A$13,A$14,A$15,A$16,A$17,A$18,A$19
|
da A$10,A$11,A$12,A$13,A$14,A$15,A$16,A$17,A$18,A$19
|
||||||
da A$20,A$21,A$22,A$23,A$24,A$25,A$26,A$27,A$28,A$29
|
da A$20,A$21,A$22,A$23,A$24,A$25,A$26,A$27,A$28,A$29
|
||||||
da A$30,A$31,A$32,A$33,A$34,A$35,A$36,A$37,A$38,A$39
|
da A$30,A$31,A$32,A$33,A$34,A$35,A$36,A$37,A$38,A$39
|
||||||
@ -2902,141 +2836,269 @@ tblA$ da $bdbd
|
|||||||
da A$110,A$111,A$112,A$113,A$114,A$115,A$116,A$117,A$118,A$119
|
da A$110,A$111,A$112,A$113,A$114,A$115,A$116,A$117,A$118,A$119
|
||||||
da A$120,A$121,A$122,A$123,A$124,A$125,A$126,A$127,A$128
|
da A$120,A$121,A$122,A$123,A$124,A$125,A$126,A$127,A$128
|
||||||
|
|
||||||
A$1 str "1400A01.I02D02M."
|
A$1 str "A01.I02D02M."
|
||||||
A$2 str "0500A03D08.D03N."
|
A$2 str "A03D08.D03N."
|
||||||
A$3 str "0500A03E08E09D24.D04D05I19E02M."
|
A$3 str "A03E08E09D24.D04D05I19E02M."
|
||||||
A$4 str "0500A03E08D24.D04D06N."
|
A$4 str "A03E08D24.D04D06N."
|
||||||
A$5 str "0500A03E07.I19M."
|
A$5 str "A03E07.I19M."
|
||||||
A$6 str "0500A03E03.I19M."
|
A$6 str "A03E03.I19M."
|
||||||
A$7 str "0500A03.I19E02M."
|
A$7 str "A03.I19E02M."
|
||||||
A$8 str "0600A19D08.D03N."
|
A$8 str "A19D08.D03N."
|
||||||
A$9 str "0600A19E08E09D24.D04D05I03M."
|
A$9 str "A19E08E09D24.D04D05I03M."
|
||||||
A$10 str "0600A19E08D24.D04D06N."
|
A$10 str "A19E08D24.D04D06N."
|
||||||
A$11 str "0600A19.I03M."
|
A$11 str "A19.I03M."
|
||||||
A$12 str "0100A09E07B22.D07N."
|
A$12 str "A09E07B22.D07N."
|
||||||
A$13 str "0100A09E03B05.D07N."
|
A$13 str "A09E03B05.D07N."
|
||||||
A$14 str "0100A09.I14E02M."
|
A$14 str "A09.I14E02M."
|
||||||
A$15 str "0100A14.I16E02M."
|
A$15 str "A14.I16E02M."
|
||||||
A$16 str "0200A16E07B22.D07N."
|
A$16 str "A16E07B22.D07N."
|
||||||
A$17 str "0200A16E03B05.D07N."
|
A$17 str "A16E03B05.D07N."
|
||||||
A$18 str "0200A16.I14E02M."
|
A$18 str "A16.I14E02M."
|
||||||
A$19 str "0400A15E03B05.D07N."
|
A$19 str "A15E03B05.D07N."
|
||||||
A$20 str "0400A15E07B22.D07N."
|
A$20 str "A15E07B22.D07N."
|
||||||
A$21 str "0400A15.I14E02M."
|
A$21 str "A15.I14E02M."
|
||||||
A$22 str "0100A15E03.I17M."
|
A$22 str "A15E03.I17M."
|
||||||
A$23 str "0100A15E07.I17M."
|
A$23 str "A15E07.I17M."
|
||||||
A$24 str "0100A15.I17E02M."
|
A$24 str "A15.I17E02M."
|
||||||
A$25 str "0200A17.F01I15M."
|
A$25 str "A17.F01I15M."
|
||||||
A$26 str "0300A17.D08N."
|
A$26 str "A17.D08N."
|
||||||
A$27 str "0400A17.D09K."
|
A$27 str "A17.D09K."
|
||||||
A$28 str "0300A18.D10F03E01E02I17M."
|
A$28 str "A18.D10F03E01E02I17M."
|
||||||
A$29 str "0400A21E03.I19M."
|
A$29 str "A21E03.I19M."
|
||||||
A$30 str "0400A21E07.I19M."
|
A$30 str "A21E07.I19M."
|
||||||
A$31 str "0400A21.I19E02M."
|
A$31 str "A21.I19E02M."
|
||||||
A$32 str "0200A22E03.I19M."
|
A$32 str "A22E03.I19M."
|
||||||
A$33 str "0200A22E07.I19M."
|
A$33 str "A22E07.I19M."
|
||||||
A$34 str "0200A22.I19E02M."
|
A$34 str "A22.I19E02M."
|
||||||
A$35 str "0200A19.D11N."
|
A$35 str "A19.D11N."
|
||||||
A$36 str "0400A19.D11N."
|
A$36 str "A19.D11N."
|
||||||
A$37 str "0300A22.D12I23M."
|
A$37 str "A22.D12I23M."
|
||||||
A$38 str "2500A01.D13."
|
A$38 str "A01.D13."
|
||||||
A$39 str "2500I01.D14K."
|
A$39 str "I01.D14K."
|
||||||
A$40 str "1244A03.D15M."
|
A$40 str "A03.D15M."
|
||||||
A$41 str "1034B01.B01J."
|
A$41 str "B01.B01J."
|
||||||
A$42 str "1027B08.B08J."
|
A$42 str "B08.B08J."
|
||||||
A$43 str "1028B04.B04J."
|
A$43 str "B04.B04J."
|
||||||
A$44 str "1029B05.B05J."
|
A$44 str "B05.B05J."
|
||||||
A$45 str "1032B21.B21J."
|
A$45 str "B21.B21J."
|
||||||
A$46 str "1038B24.B24J."
|
A$46 str "B24.B24J."
|
||||||
A$47 str "1039B12.B12J."
|
A$47 str "B12.B12J."
|
||||||
A$48 str "1040B09.B09J."
|
A$48 str "B09.B09J."
|
||||||
A$49 str "1041B10.B10J."
|
A$49 str "B10.B10J."
|
||||||
A$50 str "1043B18.B18J."
|
A$50 str "B18.B18J."
|
||||||
A$51 str "1050B03.B03J."
|
A$51 str "B03.B03J."
|
||||||
A$52 str "1042B22.B22J."
|
A$52 str "B22.B22J."
|
||||||
A$53 str "1037A20B05.H11P05E05D16K."
|
A$53 str "A20B05.H11P05E05D16K."
|
||||||
A$54 str "1037A20.D17K."
|
A$54 str "A20.D17K."
|
||||||
A$55 str "1134.C01J."
|
A$55 str ".C01J."
|
||||||
A$56 str "1127.C08J."
|
A$56 str ".C08J."
|
||||||
A$57 str "1128.C04J."
|
A$57 str ".C04J."
|
||||||
A$58 str "1129.C05J."
|
A$58 str ".C05J."
|
||||||
A$59 str "1132.C21J."
|
A$59 str ".C21J."
|
||||||
A$60 str "1138.C24J."
|
A$60 str ".C24J."
|
||||||
A$61 str "1143E09.D62K."
|
A$61 str "E09.D62K."
|
||||||
A$62 str "1139.C12J."
|
A$62 str ".C12J."
|
||||||
A$63 str "1140.C09J."
|
A$63 str ".C09J."
|
||||||
A$64 str "1141.C10J."
|
A$64 str ".C10J."
|
||||||
A$65 str "1143.C18J."
|
A$65 str ".C18J."
|
||||||
A$66 str "1150.C03J."
|
A$66 str ".C03J."
|
||||||
A$67 str "1142.C22J."
|
A$67 str ".C22J."
|
||||||
A$68 str "2400.A00L."
|
A$68 str ".A00L."
|
||||||
A$69 str "1249A05.E04D20G0405J."
|
A$69 str "A05.E04D20G0405J."
|
||||||
A$70 str "1349A05.F04J."
|
A$70 str "A05.F04J."
|
||||||
A$71 str "2238A05E04.P24E08J."
|
A$71 str "A05E04.P24E08J."
|
||||||
A$72 str "2338A05E08.F08P24J."
|
A$72 str "A05E08.F08P24J."
|
||||||
A$73 str "2338E08.D21N."
|
A$73 str "E08.D21N."
|
||||||
A$74 str "1848B10.D22L."
|
A$74 str "B10.D22L."
|
||||||
A$75 str "1841B10.D23N."
|
A$75 str "B10.D23N."
|
||||||
A$76 str "1840B09.D24K."
|
A$76 str "B09.D24K."
|
||||||
A$77 str "2040B09.D25K."
|
A$77 str "B09.D25K."
|
||||||
A$78 str "1951A02.D26M."
|
A$78 str "A02.D26M."
|
||||||
A$79 str "1951.D27K."
|
A$79 str ".D27K."
|
||||||
A$80 str "2100A14.D28K."
|
A$80 str "A14.D28K."
|
||||||
A$81 str "2100.D29K."
|
A$81 str ".D29K."
|
||||||
A$82 str "1542C22.D33K."
|
A$82 str "C22.D33K."
|
||||||
A$83 str "1542E07.D30K."
|
A$83 str "E07.D30K."
|
||||||
A$84 str "1542A14.D07N."
|
A$84 str "A14.D07N."
|
||||||
A$85 str "1542A17E01.D10K."
|
A$85 str "A17E01.D10K."
|
||||||
A$86 str "1542E02.F02E07E06P22M."
|
A$86 str "E02.F02E07E06P22M."
|
||||||
A$87 str "1542.E07P22J."
|
A$87 str ".E07P22J."
|
||||||
A$88 str "1529C05.D33K."
|
A$88 str "C05.D33K."
|
||||||
A$89 str "1529E03.D30K."
|
A$89 str "E03.D30K."
|
||||||
A$90 str "1529F07.D31L."
|
A$90 str "F07.D31L."
|
||||||
A$91 str "1529F05.D32L."
|
A$91 str "F05.D32L."
|
||||||
A$92 str "1529E02.F02E03E06P06P05M."
|
A$92 str "E02.F02E03E06P06P05M."
|
||||||
A$93 str "1529.E03P06P05J."
|
A$93 str ".E03P06P05J."
|
||||||
A$94 str "1642C22.D33K."
|
A$94 str "C22.D33K."
|
||||||
A$95 str "1642F07.D30K."
|
A$95 str "F07.D30K."
|
||||||
A$96 str "1642E06E03.D36F07P22M."
|
A$96 str "E06E03.D36F07P22M."
|
||||||
A$97 str "1642E06.E02F07F06P22M."
|
A$97 str "E06.E02F07F06P22M."
|
||||||
A$98 str "1642.F07P22M."
|
A$98 str ".F07P22M."
|
||||||
A$99 str "1629C05.D33K."
|
A$99 str "C05.D33K."
|
||||||
A$100 str "1629F03.D30K."
|
A$100 str "F03.D30K."
|
||||||
A$101 str "1629E07E06.D34F03P05M."
|
A$101 str "E07E06.D34F03P05M."
|
||||||
A$102 str "1629E06.E02F06F03P05M."
|
A$102 str "E06.E02F06F03P05M."
|
||||||
A$103 str "1629.F03P05M."
|
A$103 str ".F03P05M."
|
||||||
A$104 str "1534B01.D35N."
|
A$104 str "B01.D35N."
|
||||||
A$105 str "1735I16.D45K."
|
A$105 str "I16.D45K."
|
||||||
A$106 str "1735E02.D43K."
|
A$106 str "E02.D43K."
|
||||||
A$107 str "1735F03.D44K."
|
A$107 str "F03.D44K."
|
||||||
A$108 str "1735C04.D46K."
|
A$108 str "C04.D46K."
|
||||||
A$109 str "1735.P16E10J."
|
A$109 str ".P16E10J."
|
||||||
A$110 str "5600A16F10.D47K."
|
A$110 str "A16F10.D47K."
|
||||||
A$111 str "5646A16.D48N."
|
A$111 str "A16.D48N."
|
||||||
A$112 str "5647A16.D48N."
|
A$112 str "A16.D48N."
|
||||||
A$113 str "5645A16F09.D50D06N."
|
A$113 str "A16F09.D50D06N."
|
||||||
A$114 str "5645A16.D49I18M."
|
A$114 str "A16.D49I18M."
|
||||||
A$115 str "5543D18E09.D30K."
|
A$115 str "D18E09.D30K."
|
||||||
A$116 str "5543D18.P18E09J."
|
A$116 str "D18.P18E09J."
|
||||||
A$117 str "574EXPLODEAND18F09.D30K."
|
A$117 str "XPLODEAND18F09.D30K."
|
||||||
A$118 str "5743D18.P18F09J."
|
A$118 str "D18.P18F09J."
|
||||||
A$119 str "1233A24C12.D51K."
|
A$119 str "A24C12.D51K."
|
||||||
A$120 str "1233A24C03.D52N."
|
A$120 str "A24C03.D52N."
|
||||||
A$121 str "1233A24.G0503E11D63K."
|
A$121 str "A24.G0503E11D63K."
|
||||||
A$122 str "2636E11.D54F11D55K."
|
A$122 str "E11.D54F11D55K."
|
||||||
A$123 str "5350E11.D54F11D55K."
|
A$123 str "E11.D54F11D55K."
|
||||||
A$124 str "5232B21.D56N."
|
A$124 str "B21.D56N."
|
||||||
A$125 str "5830F08.D57."
|
A$125 str "F08.D57."
|
||||||
A$126 str "5830.D58D59."
|
A$126 str ".D58D59."
|
||||||
A$127 str "1233A06.D61M."
|
A$127 str "A06.D61M."
|
||||||
A$128 str "1233A25.D64N."
|
A$128 str "A25.D64N."
|
||||||
|
|
||||||
*---
|
tblA dfb 14,00
|
||||||
|
dfb 05,00
|
||||||
|
dfb 05,00
|
||||||
|
dfb 05,00
|
||||||
|
dfb 05,00
|
||||||
|
dfb 05,00
|
||||||
|
dfb 05,00
|
||||||
|
dfb 06,00
|
||||||
|
dfb 06,00
|
||||||
|
dfb 06,00
|
||||||
|
dfb 06,00
|
||||||
|
dfb 01,00
|
||||||
|
dfb 01,00
|
||||||
|
dfb 01,00
|
||||||
|
dfb 01,00
|
||||||
|
dfb 02,00
|
||||||
|
dfb 02,00
|
||||||
|
dfb 02,00
|
||||||
|
dfb 04,00
|
||||||
|
dfb 04,00
|
||||||
|
dfb 04,00
|
||||||
|
dfb 01,00
|
||||||
|
dfb 01,00
|
||||||
|
dfb 01,00
|
||||||
|
dfb 02,00
|
||||||
|
dfb 03,00
|
||||||
|
dfb 04,00
|
||||||
|
dfb 03,00
|
||||||
|
dfb 04,00
|
||||||
|
dfb 04,00
|
||||||
|
dfb 04,00
|
||||||
|
dfb 02,00
|
||||||
|
dfb 02,00
|
||||||
|
dfb 02,00
|
||||||
|
dfb 02,00
|
||||||
|
dfb 04,00
|
||||||
|
dfb 03,00
|
||||||
|
dfb 25,00
|
||||||
|
dfb 25,00
|
||||||
|
dfb 12,44
|
||||||
|
dfb 10,34
|
||||||
|
dfb 10,27
|
||||||
|
dfb 10,28
|
||||||
|
dfb 10,29
|
||||||
|
dfb 10,32
|
||||||
|
dfb 10,38
|
||||||
|
dfb 10,39
|
||||||
|
dfb 10,40
|
||||||
|
dfb 10,41
|
||||||
|
dfb 10,43
|
||||||
|
dfb 10,50
|
||||||
|
dfb 10,42
|
||||||
|
dfb 10,37
|
||||||
|
dfb 10,37
|
||||||
|
dfb 11,34
|
||||||
|
dfb 11,27
|
||||||
|
dfb 11,28
|
||||||
|
dfb 11,29
|
||||||
|
dfb 11,32
|
||||||
|
dfb 11,38
|
||||||
|
dfb 11,43
|
||||||
|
dfb 11,39
|
||||||
|
dfb 11,40
|
||||||
|
dfb 11,41
|
||||||
|
dfb 11,43
|
||||||
|
dfb 11,50
|
||||||
|
dfb 11,42
|
||||||
|
dfb 24,00
|
||||||
|
dfb 12,49
|
||||||
|
dfb 13,49
|
||||||
|
dfb 22,38
|
||||||
|
dfb 23,38
|
||||||
|
dfb 23,38
|
||||||
|
dfb 18,48
|
||||||
|
dfb 18,41
|
||||||
|
dfb 18,40
|
||||||
|
dfb 20,40
|
||||||
|
dfb 19,51
|
||||||
|
dfb 19,51
|
||||||
|
dfb 21,00
|
||||||
|
dfb 21,00
|
||||||
|
dfb 15,42
|
||||||
|
dfb 15,42
|
||||||
|
dfb 15,42
|
||||||
|
dfb 15,42
|
||||||
|
dfb 15,42
|
||||||
|
dfb 15,42
|
||||||
|
dfb 15,29
|
||||||
|
dfb 15,29
|
||||||
|
dfb 15,29
|
||||||
|
dfb 15,29
|
||||||
|
dfb 15,29
|
||||||
|
dfb 15,29
|
||||||
|
dfb 16,42
|
||||||
|
dfb 16,42
|
||||||
|
dfb 16,42
|
||||||
|
dfb 16,42
|
||||||
|
dfb 16,42
|
||||||
|
dfb 16,29
|
||||||
|
dfb 16,29
|
||||||
|
dfb 16,29
|
||||||
|
dfb 16,29
|
||||||
|
dfb 16,29
|
||||||
|
dfb 15,34
|
||||||
|
dfb 17,35
|
||||||
|
dfb 17,35
|
||||||
|
dfb 17,35
|
||||||
|
dfb 17,35
|
||||||
|
dfb 17,35
|
||||||
|
dfb 56,00
|
||||||
|
dfb 56,46
|
||||||
|
dfb 56,47
|
||||||
|
dfb 56,45
|
||||||
|
dfb 56,45
|
||||||
|
dfb 55,43
|
||||||
|
dfb 55,43
|
||||||
|
dfb 57,4E
|
||||||
|
dfb 57,43
|
||||||
|
dfb 12,33
|
||||||
|
dfb 12,33
|
||||||
|
dfb 12,33
|
||||||
|
dfb 26,36
|
||||||
|
dfb 53,50
|
||||||
|
dfb 52,32
|
||||||
|
dfb 58,30
|
||||||
|
dfb 58,30
|
||||||
|
dfb 12,33
|
||||||
|
dfb 12,33
|
||||||
|
|
||||||
|
*--- On commence <EFBFBD> index 0
|
||||||
|
|
||||||
* C = 14
|
* C = 14
|
||||||
|
|
||||||
tblC$ da $bdbd
|
tblC$ da C$1,C$2,C$3,C$4,C$5,C$6,C$7,C$8,C$9
|
||||||
da C$1,C$2,C$3,C$4,C$5,C$6,C$7,C$8,C$9
|
|
||||||
da C$10,C$11,C$12,C$13,C$14
|
da C$10,C$11,C$12,C$13,C$14
|
||||||
|
|
||||||
C$1 str "G03E03.D00N."
|
C$1 str "G03E03.D00N."
|
||||||
@ -3070,8 +3132,8 @@ HH ds 1
|
|||||||
L ds 1
|
L ds 1
|
||||||
LI ds 1
|
LI ds 1
|
||||||
LX ds 1
|
LX ds 1
|
||||||
MO$1 ds 2 ; "00" (une chaine raccourcie)
|
MO$1 ds 1 ; mot 1
|
||||||
MO$2 ds 2 ; "00" (une chaine raccourcie)
|
MO$2 ds 1 ; mot 2
|
||||||
N ds 1
|
N ds 1
|
||||||
NL ds 1
|
NL ds 1
|
||||||
OK ds 1
|
OK ds 1
|
||||||
@ -3081,9 +3143,7 @@ PL ds 5 ; 1111/0
|
|||||||
S ds 2 ; pour S(1)
|
S ds 2 ; pour S(1)
|
||||||
SALLE ds 1
|
SALLE ds 1
|
||||||
T ds 1
|
T ds 1
|
||||||
T$ ds 2 ; "00"
|
|
||||||
W ds 1
|
W ds 1
|
||||||
Y$ ds 2 ; "00"
|
|
||||||
Y1 ds 1
|
Y1 ds 1
|
||||||
Y2 ds 1
|
Y2 ds 1
|
||||||
Z ds 1
|
Z ds 1
|
||||||
|
|||||||
@ -1,722 +0,0 @@
|
|||||||
20 REM CLEAR 300,-16385
|
|
||||||
30 PRINT "DISKLOAD CODE"
|
|
||||||
35 CALL -16384: POKE&"47FD",0
|
|
||||||
40 GOSUB 7600
|
|
||||||
45 INIT0,0: TX3,0,0: PRINT: PRINTSPC(10)"VEUILLEZ PATIENTER"
|
|
||||||
50 GOSUB 8000: REM CHARGEMENT VARIABLES
|
|
||||||
51 GOSUB 7500
|
|
||||||
55 MODEMN: INIT0,0: TX0,0,0
|
|
||||||
57 DIM P(12): P(11) = 0: P(12) = 0
|
|
||||||
60 SALLE = 1
|
|
||||||
70 FOR N = 1 TO 10
|
|
||||||
80 P(N) = 0: C(N) = 0
|
|
||||||
85 NEXT N
|
|
||||||
90 C(3) = 14: C(7) = 12: C(1) = 80: C(9) = 12
|
|
||||||
100 IF SALLE <> 14 AND SALLE <> 16 AND SALLE <> 17 AND SALLE <> 19 THENP(2) = 0
|
|
||||||
105 IFP(2) = 0 THEN 200
|
|
||||||
106 IFO(22) = SA AND P(7) = 1 THEN 200
|
|
||||||
107 IFO(05) = SA AND P(3) = 1 THEN 200
|
|
||||||
110 IFC(9) > 1 THEN C(9) = C(9)-1
|
|
||||||
130 MODEMC: MODEMN
|
|
||||||
140 HTAB 1: VTAB 18: PRINT "Il fait noir comme dans un four!"
|
|
||||||
145 PRINT "Il faudrait peut etre allumer."
|
|
||||||
150 GOTO 500
|
|
||||||
|
|
||||||
200 REM DESCRIPTION SALLE
|
|
||||||
210 MODEMN: MODEMC: REM cadre+zone+dessin
|
|
||||||
215 DEST = SALLE
|
|
||||||
220 GOSUB 6900
|
|
||||||
230 MODEMD
|
|
||||||
300 H = 0: N = 1
|
|
||||||
310 IF O(N) <> SALLE THEN 400
|
|
||||||
320 IF H = 1 THEN 350
|
|
||||||
330 MODEML: PRINT "Il y a dans la salle: ": MODEMW,10
|
|
||||||
340 H = 1
|
|
||||||
350 MODEML: PRINT " ";O$(N);
|
|
||||||
360 MODEMW,25
|
|
||||||
400 N = N + 1
|
|
||||||
410 IF N <= O THEN 310
|
|
||||||
415 MODEML: PRINT
|
|
||||||
|
|
||||||
500 REM ACCEPTATION COMMANDE
|
|
||||||
510 T = 1: Y$(1) = "": Y$(2) = "": N = 0
|
|
||||||
520 GOTO 1000
|
|
||||||
530 IF C(7) > 1 AND P(7) = 1 THEN C(7) = C(7) - 1
|
|
||||||
540 IF C(3) > 1 AND P(3) = 1 THEN C(3) = C(3) - 1
|
|
||||||
545 IF C(4) > 1 AND P(4) = 1 THEN C(4) = C(4) - 1
|
|
||||||
547 IF C(5) > 1 THEN C(5) = C(5)-1
|
|
||||||
550 X$ = "": INPUT "Que faites vous ";X$
|
|
||||||
560 MODEMN: PRINT ">";X$
|
|
||||||
570 GOSUB 6000
|
|
||||||
580 MODEML: IF MO(1) = 0 THEN PRINT "Je ne comprends pas...": MODEMW,50: GOTO 500
|
|
||||||
|
|
||||||
900 REM CONTROLE Mvt
|
|
||||||
905 MODEMI,SALLE
|
|
||||||
910 IF PEEK(-4) = 0 THEN 980
|
|
||||||
920 SALLE = PEEK(-4): GOTO 100
|
|
||||||
980 T = 0
|
|
||||||
990 A1 = 0
|
|
||||||
|
|
||||||
1000 REM CONTROLE
|
|
||||||
1010 NL = 0
|
|
||||||
1100 NL = NL + 1
|
|
||||||
1110 IF T = 0 THEN 1150
|
|
||||||
1120 E$ = C$(NL)
|
|
||||||
1130 GOTO 1400
|
|
||||||
1150 MODEMA: NL = PEEK(-33)
|
|
||||||
1151 IF PEEK(-32) = 0 THEN 1159
|
|
||||||
1152 AD = -32: E$ = ""
|
|
||||||
1153 IF PEEK(AD) = 255 THEN 1400
|
|
||||||
1154 E$ = E$ + CHR$(PEEK(AD)): AD = AD + 1
|
|
||||||
1155 GOTO 1153
|
|
||||||
1159 PY = 23: CO = 12
|
|
||||||
1160 IF A1 = 1 THEN 500
|
|
||||||
1170 MODEML: PRINT "Impossible ";
|
|
||||||
1180 IF MO(1) < 10 THEN PRINT "de prendre ce chemin";
|
|
||||||
|
|
||||||
1190 PRINT "!": MODEMW,100: GOTO 100
|
|
||||||
|
|
||||||
1400 REM CONDITIONS
|
|
||||||
1410 E = 1
|
|
||||||
1420 IF MID$(E$,E,1) = "." THEN 1700
|
|
||||||
1430 LI = ASC(MID$(E$,E,1))-65
|
|
||||||
1440 N = VAL(MID$(E$,E+1,2))
|
|
||||||
1450 ON (LI+1) GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580
|
|
||||||
1460 IF OK = 0 THEN 1100
|
|
||||||
1470 E = E + 3: GOTO 1420
|
|
||||||
1500 IF N = SALLE THEN 1590
|
|
||||||
1505 GOTO 1585
|
|
||||||
1510 IF O(N) = -1 OR O(N) = SALLE THEN 1590
|
|
||||||
1515 GOTO 1585
|
|
||||||
1520 IF O(N) <> SALLE AND O(N) <> -1 THEN 1590
|
|
||||||
1525 GOTO 1585
|
|
||||||
1530 IF O(N) = -1 THEN 1590
|
|
||||||
1535 GOTO 1585
|
|
||||||
1540 IF P(N) = 1 THEN 1590
|
|
||||||
1545 GOTO 1585
|
|
||||||
1550 IF P(N) = 0 THEN 1590
|
|
||||||
1555 GOTO 1585
|
|
||||||
1560 IF C(N) = 1 THEN 1590
|
|
||||||
1565 GOTO 1585
|
|
||||||
1570 IF INT(RND(1)*99+1) < N THEN 1590
|
|
||||||
1575 GOTO 1585
|
|
||||||
1580 IF N <> SALLE THEN 1590
|
|
||||||
1585 OK = 0: RETURN
|
|
||||||
1590 OK = 1: RETURN
|
|
||||||
|
|
||||||
1700 REM ACTIONS
|
|
||||||
1705 E = E + 1: A1 = 1
|
|
||||||
1710 IF MID$(E$,E,1) = "." THEN 1100
|
|
||||||
1720 LI = ASC(MID$(E$,E,1))-65
|
|
||||||
1730 IF MID$(E$,E+1,1) <> "." THEN N = VAL(MID$(E$,E+1,2))
|
|
||||||
1740 BREAK = 0
|
|
||||||
1750 ON (LI+1) GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300
|
|
||||||
1760 IF BREAK > 0 THEN ON BREAK GOTO 100,300,500,530,20000
|
|
||||||
1780 E = E + 3
|
|
||||||
1790 GOTO 1710
|
|
||||||
1800 G = 0: HH = 0
|
|
||||||
1810 G = G + 1
|
|
||||||
1820 IF O(G) = -1 THEN 1840
|
|
||||||
1830 IF G < O THEN 1810
|
|
||||||
1835 GOTO 1870
|
|
||||||
1840 MODEML: IF HH = 0 THEN PRINT "Vous detenez: "
|
|
||||||
1850 HH = 1
|
|
||||||
1860 MODEML: PRINT O$(G);: PRINT " ";: MODEMW,30
|
|
||||||
1865 IF G < V THEN 1810
|
|
||||||
1870 MODEML: IF HH = 1 THEN PRINT ".": RETURN
|
|
||||||
1880 MODEML: PRINT "Vous ne detenez absolument rien!!!": RETURN
|
|
||||||
1900 IF S(1) < 5 THEN 1930
|
|
||||||
1910 MODEML: PRINT "Il parait evident que vous ne pouvez"
|
|
||||||
1915 MODEML: PRINT "porter tant de chose!!!"
|
|
||||||
1920 MODEMW,200: BREAK = 1: RETURN
|
|
||||||
1930 IF O(N) <> -1 THEN 1960
|
|
||||||
1935 REM
|
|
||||||
1940 MODEML: PRINT "Vous l'avez deja,vous etes etourdis et"
|
|
||||||
1945 MODEML: PRINT "dans cette maison ce n'est pas tres"
|
|
||||||
1950 MODEML: PRINT "conseille...": GOTO 1920
|
|
||||||
1960 O(N) = -1: S(1) = S(1) + 1: RETURN
|
|
||||||
2000 IF O(N) = -1 THEN 2030
|
|
||||||
2010 MODEML: PRINT "Comment voulez vous poser ce que vous"
|
|
||||||
2015 MODEML: PRINT "n'avez pas..."
|
|
||||||
2020 GOTO 1920
|
|
||||||
2030 O(N) = SALLE: S(1) = S(1) - 1: RETURN
|
|
||||||
|
|
||||||
2100 REM
|
|
||||||
2105 DEST = N + 1: GOSUB 3900
|
|
||||||
2110 RETURN
|
|
||||||
2200 P(N) = 1: RETURN
|
|
||||||
2300 P(N) = 0: RETURN
|
|
||||||
|
|
||||||
2400 C(N) = VAL(MID$(A$(N),E+3,2)): E = E + 2: RETURN
|
|
||||||
|
|
||||||
2500 IF O(N) = -1 THE NS(1) = S(1) - 1
|
|
||||||
2510 O(N) = 0: RETURN
|
|
||||||
2600 SALLE = N: RETURN
|
|
||||||
2700 MODEML: PRINT "D'accord..."
|
|
||||||
2710 MODEMW,20: BREAK=2: RETURN
|
|
||||||
2800 BREAK = 3
|
|
||||||
2810 RETURN
|
|
||||||
2900 BREAK = 4: RETURN
|
|
||||||
3000 BREAK = 1: RETURN
|
|
||||||
3100 BREAK = 5: RETURN
|
|
||||||
3200 O(N) = SALLE: RETURN
|
|
||||||
3300 X$=O$(N): O$(N)=O$(N+1): O$(N+1)=X$: RETURN
|
|
||||||
|
|
||||||
3900 IF DEST < 11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090
|
|
||||||
3910 DEST = DEST - 10
|
|
||||||
3915 IF DEST < 11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190
|
|
||||||
3920 DEST = DEST - 10
|
|
||||||
3925 IF DEST < 11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290
|
|
||||||
3930 DEST = DEST - 10
|
|
||||||
3935 IF DEST < 11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390
|
|
||||||
3940 DEST = DEST - 10
|
|
||||||
3945 IF DEST < 11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490
|
|
||||||
3950 DEST = DEST - 10
|
|
||||||
3955 IF DEST < 11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590
|
|
||||||
3960 DEST = DEST - 10
|
|
||||||
3965 IF DEST < 11 THEN ON DEST GOTO 4600,4610,4620,4630,4640
|
|
||||||
|
|
||||||
4000 MODEMC: FOR N = 1 TO 20: MODEME: MODEMW,4: NEXT N
|
|
||||||
4001 MODEMN: PRINT "Vous avez garde la lampe allumee trop"
|
|
||||||
4002 MODEML: PRINT "longtemps, elle a explose!"
|
|
||||||
4005 MODEMW,200: RETURN
|
|
||||||
4010 MODEMC
|
|
||||||
4011 MODEMN: PRINT "Vous avez oublie de fermer le robinet"
|
|
||||||
4012 MODEML: PRINT "vous mourez sous des tonnes d'eau!"
|
|
||||||
4015 MODEMW,200: RETURN
|
|
||||||
4020 MODEMC
|
|
||||||
4022 MODEMN: PRINT "La porte vient de se refermer derriere"
|
|
||||||
4023 MODEML: PRINT "vous. Vous etes prisonnier..."
|
|
||||||
4025 MODEMW,200: RETURN
|
|
||||||
4030 MODEMC
|
|
||||||
4031 MODEMN: PRINT "Vous avez trebuche dans l'escalier,vous"
|
|
||||||
4032 MODEML: PRINT "vous empallez sur le couteau!"
|
|
||||||
4035 MODEMW,200: RETURN
|
|
||||||
4040 MODEMC
|
|
||||||
4041 MODEMN: PRINT "Vous renversez l'eau dans l'escalier,"
|
|
||||||
4042 MODEML: PRINT "ce qui provoque une decharge au niveau"
|
|
||||||
4043 MODEML: PRINT "de la prise electrique."
|
|
||||||
4045 MODEMW,200: RETURN
|
|
||||||
4050 MODEMC
|
|
||||||
4051 MODEMN: PRINT "Vous etes sauf grace a la combinaison"
|
|
||||||
4052 MODEML: PRINT "que vous avez enfilee..!"
|
|
||||||
4055 MODEMW,200: RETURN
|
|
||||||
4060 MODEML: PRINT "Vous mourez electrocute..."
|
|
||||||
4065 MODEMW,200: RETURN
|
|
||||||
4070 MODEMC: FORN=1TO20: MODEMM,2,2,2,10: MODEMP,3,7,4,80: MODEMW,1: MODEME: MODEMW,6: NEXTN
|
|
||||||
4071 MODEMN: PRINT "La piece etait pleine de gaz explosif,"
|
|
||||||
4072 MODEML: PRINT "vous auriez du eteindre..."
|
|
||||||
4073 MODEMW,200: PRINT "On ramassera vos morceaux un autre"
|
|
||||||
4074 MODEML: PRINT "jour..!"
|
|
||||||
4075 MODEMW,200: RETURN
|
|
||||||
4080 MODEMC
|
|
||||||
4081 MODEMN: PRINT "Vous mourez empalle sur des lances"
|
|
||||||
4082 MODEML: PRINT "sorties du mur...!"
|
|
||||||
4085 MODEMW,200: RETURN
|
|
||||||
4090 MODEML: PRINT "La porte ne s'ouvre pas de cette piece": MODEMW,200: RETURN
|
|
||||||
4100 MODEMC
|
|
||||||
4101 MODEML: PRINT "La lampe et le briquet refusent de"
|
|
||||||
4102 MODEML: PRINT "fonctionner dans cette piece!"
|
|
||||||
4109 MODEMW,200: RETURN
|
|
||||||
4110 MODEMC
|
|
||||||
4111 MODEML: PRINT "Vous tombez dans une trappe,vous vous"
|
|
||||||
4112 MODEML: PRINT "disloquez en arrivant au sol.."
|
|
||||||
4115 MODEMW,200: RETURN
|
|
||||||
4120 MODEML: PRINT "Vous avez raison de passer,car ce"
|
|
||||||
4122 MODEML: PRINT "monstre n'etait qu'une projection"
|
|
||||||
4124 MODEML: PRINT "en 3 dimensions sur un ecran de fumee"
|
|
||||||
4125 MODEMW,250: RETURN
|
|
||||||
4130 MODEML: PRINT "Vous avez raison,la curiosite est un"
|
|
||||||
4132 MODEML: PRINT "vilain defaut!!!"
|
|
||||||
4134 MODEMW,250
|
|
||||||
4135 RUN 20040
|
|
||||||
4140 MODEML: PRINT "Vous avez raison d'attendre,mais cela"
|
|
||||||
4141 MODEML: PRINT "ne pourra pas durer eternellement.."
|
|
||||||
4142 MODEMW,200: RETURN
|
|
||||||
4150 MODEML: PRINT "Vous avez de la chance car ce coffre"
|
|
||||||
4151 MODEML: PRINT "etait ouvert.": MODEMW,100
|
|
||||||
4152 MODEML: PRINT "Un message a l'interieur dit: "
|
|
||||||
4153 MODEML: PRINTCHR$(34)+"Ne respectez pas les couleurs du code"
|
|
||||||
4154 MODEML: PRINT "de la route...?"+CHR$(34): MODEMW,200
|
|
||||||
4156 MODEML: PRINT "Tiens le coffre se referme!": MODEMW,150: RETURN
|
|
||||||
4160 MODEML: PRINT "Maintenant,vous avez une lampe pleine"
|
|
||||||
4162 MODEML: PRINT "de petrole."
|
|
||||||
4165 MODEMW,200: RETURN
|
|
||||||
4170 MODEML: PRINT "Vous n'avez rien pour transporter le"
|
|
||||||
4171 MODEML: PRINT "petrole.": MODEMW,200: RETURN
|
|
||||||
4180 FOR N = 1 TO 10: MODEME: MODEMW,6: NEXTN
|
|
||||||
4181 MODEMC: MODEMN: PRINT "Le briquet que vous aviez laisse"
|
|
||||||
4182 MODEML: PRINT "allume vient d'exploser!"
|
|
||||||
4185 MODEML: MODEMW,200: PRINT "Ca tue l'etourderie.....": MODEMW,150: RETURN
|
|
||||||
4190 MODEMC: MODEMN: PRINT "A force de marcher en long et en large"
|
|
||||||
4191 MODEML: PRINT "dans cette maison, vous sombrez dans"
|
|
||||||
4194 MODEML: PRINT "un coma des plus mortel...
|
|
||||||
4195 MODEMW,300: RETURN
|
|
||||||
4200 PRINT "L'eau coule...": RETURN
|
|
||||||
4210 MODEMC: MODEMN: PRINT "Vous avez les pieds trempes,et cela"
|
|
||||||
4211 MODEML: PRINT "vous rend tres malade..."
|
|
||||||
4215 MODEMW,100: MODEML: PRINT "Vous mourez d'une triple pneumonie...!": MODEMW,200: RETURN
|
|
||||||
4220 MODEML: PRINT "Le titre est: "
|
|
||||||
4225 MODEML: PRINTCHR$(34)+"La mort a la 1ere page."+CHR$(34): MODEMW,200: RETURN
|
|
||||||
4230 MODEMC: FOR N=1 TO 20: MODEME: NEXTN
|
|
||||||
4233 MODEMN: PRINT "Le livre a explose lorsque vous l'avez"
|
|
||||||
4235 MODEML: PRINT "ouvert...": MODEMW,200: RETURN
|
|
||||||
4240 MODEML: PRINT "Le papier indique: "+CHR$(34)+"Cherchez la clef."+CHR$(34)
|
|
||||||
4242 MODEMW,200: RETURN
|
|
||||||
4250 MODEML: PRINT "La clef vous permettra de trouver le"
|
|
||||||
4252 MODEML: PRINT "code de la porte d'entree."
|
|
||||||
4255 MODEMW,200: RETURN
|
|
||||||
4260 MODEML: PRINT "Il y a un clavier numerique permettant"
|
|
||||||
4261 MODEML: PRINT "d'entrer un code a côte de la porte.": MODEMW,200: RETURN
|
|
||||||
4270 MODEML: PRINT "Pour faire quoi..?": MODEMW,200: RETURN
|
|
||||||
4280 MODEML: PRINT "Il y a une odeur de gaz.": MODEMW,200: RETURN
|
|
||||||
4290 MODEML: PRINT "Apparemment,il n'y a aucune odeur.": MODEMW,200: RETURN
|
|
||||||
4300 MODEML: PRINT "C'est deja fait,espece de rigolo!": MODEMW,200: RETURN
|
|
||||||
4310 MODEML: PRINT "Il faudrait peut etre du feu!": MODEMW,200: RETURN
|
|
||||||
4320 MODEML: PRINT "La lampe ne contient pas de petrole!": MODEMW,200: RETURN
|
|
||||||
4330 MODEML: PRINT "Vous ne l'avez pas!": MODEMW,200: RETURN
|
|
||||||
4340 MODEML: PRINT "Le briquet est encore allume et il"
|
|
||||||
4342 MODEML: PRINT "eclaire la piece.": MODEMW,200: RETURN
|
|
||||||
4350 FOR N = 1 TO 15: MODEME: MODEMW,4: NEXT N
|
|
||||||
4355 MODEML: PRINT "La torche etait piegee,elle vous"
|
|
||||||
4356 MODEML: PRINT "a explose dans les mains.."
|
|
||||||
4357 MODEMW,200: RETURN
|
|
||||||
4360 MODEML: PRINT "La lampe est encore allumee,et elle"
|
|
||||||
4362 MODEML: PRINT "vous eclaire.": MODEMW,200: RETURN
|
|
||||||
4370 MODEML: PRINT "Un nain vient de vous lancer un"
|
|
||||||
4371 MODEML: PRINT "poignard en plein coeur.."
|
|
||||||
4375 MODEMW,200: RETURN
|
|
||||||
4380 MODEML: PRINT "Un nain vient de se precipiter sur"
|
|
||||||
4385 MODEML: PRINT "vous, il s'empalle sur votre ciseau.": MODEMW,200: RETURN
|
|
||||||
4390 MODEML: PRINT "Un nain vient de se precipiter sur"
|
|
||||||
4395 MODEML: PRINT "vous, il s'empalle sur votre couteau.": MODEMW,200: RETURN
|
|
||||||
4400 MODEML: PRINT "Vous venez de renverser le pot.": MODEMW,150: RETURN
|
|
||||||
4410 IF PEEK(-1) = 1 THEN BREAK = 3: RETURN
|
|
||||||
4411 MODEMC: MODEMS,4,4,0: MODEMP,0,1,1,5000
|
|
||||||
4412 MODEMN: PRINT "La foudre vient de tomber sur la maison": MODEMW,200
|
|
||||||
4413 MODEML: PRINT "La maison n'existe plus!": MODEMW,100
|
|
||||||
4414 MODEML: PRINT "Vous non plus!": MODEMW,100: MODEMP,0,0,0,0: RETURN
|
|
||||||
4420 MODEMC: MODEMN: PRINT "A force de marcher dans le noir,vous"
|
|
||||||
4422 MODEML: PRINT "avez trebuche.": MODEMW,100
|
|
||||||
4425 MODEML: PRINT "Vous mourez d'une fracture du crane...": MODEMW,200: RETURN
|
|
||||||
4430 MODEML: PRINT "Vous ne pouvez pas travailler dans le"
|
|
||||||
4433 MODEML: PRINT "noir...": MODEMW,200: RETURN
|
|
||||||
4440 MODEML: PRINT "La lumiere du briquet ne suffit pas"
|
|
||||||
4442 MODEML: PRINT "pour travailler...": MODEMW,200: RETURN
|
|
||||||
4450 MODEML: PRINT "Impossible !": MODEMW,100: RETURN
|
|
||||||
4460 MODEML: PRINT "Vous n'avez aucun outil...": MODEMW,200: RETURN
|
|
||||||
4470 MODEML: PRINT "Le teleporteur est en panne,donc les"
|
|
||||||
4472 MODEML: PRINT "boutons ne fonctionnent pas."
|
|
||||||
4475 MODEMW,400: RETURN
|
|
||||||
4480 FOR N = 1 TO 25: MODEME: MODEMW,5: NEXT N
|
|
||||||
4484 MODEMC: MODEMN: PRINT "Le teleporteur vient d'exploser,"
|
|
||||||
4485 MODEML: PRINT "vous etes decompose..!": MODEMW,200: RETURN
|
|
||||||
4490 MODEMN: PRINT "Le teleporteur se met en marche"
|
|
||||||
4491 MODEML: PRINT "vous disparaissez...": MODEMW,50
|
|
||||||
4492 MODEMM,2,1,5,0: MODEMP,2,1,3,1000
|
|
||||||
4493 MODEMF
|
|
||||||
4494 MODEMP,0,0,0,0
|
|
||||||
4495 FOR N = 500 TO 30 STEP -5
|
|
||||||
4497 MODEMS,2,N,12: MODEMP,2,0,0,100
|
|
||||||
4498 NEXT N
|
|
||||||
4499 MODEMP,0,0,0,0: RETURN
|
|
||||||
4500 MODEMC: MODEML: PRINT "Vous prenez du 30000 Volts dans les"
|
|
||||||
4502 MODEML: PRINT "doigts!": MODEMW,200: RETURN
|
|
||||||
4510 MODEML: PRINT "Le placard est ferme a clef!": MODEMW,200: RETURN
|
|
||||||
4520 MODEMC: MODEMN: PRINT "L'horrible monstre sorti du placard"
|
|
||||||
4522 MODEML: PRINT "vient de vous devorer!"
|
|
||||||
4525 MODEMW,200: RETURN
|
|
||||||
4530 MODEML: PRINT "Il ne fallait pas fuir!": MODEMW,200: RETURN
|
|
||||||
4540 MODEMC: MODEML: PRINT "Vous avez raison d'utiliser le ciseau,"
|
|
||||||
4542 MODEML: PRINT "le monstre est mort!"
|
|
||||||
4545 MODEMW,200: RETURN
|
|
||||||
4550 MODEMD: MODEMN: PRINT "A l'interieur du placard,le No "PL
|
|
||||||
4552 MODEML: PRINT "est inscrit": MODEMW,200
|
|
||||||
4555 MODEML: PRINT "Le placard se referme.": MODEMW,100: RETURN
|
|
||||||
4560 MODEMC: FORN=1TO30: MODEME: MODEMW,5: NEXTN
|
|
||||||
4562 MODEMN: PRINT "le pistolet a explose!": MODEMW,200
|
|
||||||
4565 RETURN
|
|
||||||
|
|
||||||
4570 IF SALLE = 2 THEN RETURN
|
|
||||||
4571 MODEML: PRINT "Impossible!": BREAK = 3: RETURN
|
|
||||||
4575 MODEMC: FOR N = 1 TO 25: MODEME: MODEMW,7: NEXTN
|
|
||||||
4576 MODEMN: PRINT "le clavier numerique a explose!": MODEMW,200: BREAK = 5: RETURN
|
|
||||||
4580 MODEMN: PRINT "Le clavier numerique prend feu.": MODEMW,200
|
|
||||||
4581 MODEML: IF O(24) <> -1 THEN 4586
|
|
||||||
4582 MODEML: PRINT "Heureusement,vous avez un pot plein"
|
|
||||||
4584 MODEML: PRINT "d'eau. Ce qui vous permet d'eteindre"
|
|
||||||
4585 MODEML: PRINT "ce feu.": MODEMW,300: RETURN
|
|
||||||
4586 MODEML: PRINT "Malheureusement vous n'avez pas d'eau"
|
|
||||||
4587 MODEML: PRINT "pour l'eteindre.": MODEMW,200
|
|
||||||
4588 GOTO 4575
|
|
||||||
|
|
||||||
4590 MODEMN: INPUT"No DE CODE ";ZC
|
|
||||||
4595 IF ZC <> PL THEN 4575
|
|
||||||
4600 MODEMW,100: MODEML: PRINT "Le code est exact...": MODEML: PRINT "La porte s'ouvre..."
|
|
||||||
4603 MODEMW,150
|
|
||||||
4605 GOTO 11000
|
|
||||||
4610 MODEML: PRINT "A l'interieur du placard,il y a un mot"
|
|
||||||
4611 MODEML: PRINT "qui parle d'un teleporteur.": MODEMW,200
|
|
||||||
4615 MODEML: PRINT "Tiens le placard se ferme tout seul...": MODEMW,100: RETURN
|
|
||||||
4620 MODEML: PRINT "Avant de la poser par terre,il faudrait"
|
|
||||||
4621 MODEML: PRINT "peut etre l'enlever."
|
|
||||||
4625 MODEMW,200: RETURN
|
|
||||||
4630 MODEMC: MODEMN: PRINT "Devant vous, il y a un horrible"
|
|
||||||
4631 MODEML: PRINT "monstre qui est sorti du placard."
|
|
||||||
4635 MODEMW,200: RETURN
|
|
||||||
4640 MODEML: PRINT "Le placard etait piege,vous n'auriez"
|
|
||||||
4641 MODEML: PRINT "pas du l'ouvrir!"
|
|
||||||
4645 FOR N = 1 TO 30: MODEME: MODEMW,7: NEXT N
|
|
||||||
4647 MODEMW,200: RETURN
|
|
||||||
|
|
||||||
6000 REM ANALYSE DU MOT
|
|
||||||
6010 N = 0: GN = 0
|
|
||||||
6020 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6040
|
|
||||||
6030 GOTO 6020
|
|
||||||
6040 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6060
|
|
||||||
6050 GOTO 6040
|
|
||||||
6060 IF GN > 4 THEN GN = 4
|
|
||||||
6070 X$(1) = MID$(X$,N,GN)
|
|
||||||
6080 N = N + 1: XX$ = MID$(X$,N,1): IF XX$ = " " OR XX$ = "" THEN 6100
|
|
||||||
6090 GOTO 6080
|
|
||||||
6100 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6115
|
|
||||||
6110 GOTO 6100
|
|
||||||
6115 GN = 0
|
|
||||||
6120 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6140
|
|
||||||
6130 GOTO 6120
|
|
||||||
6140 IF GN > 4 THEN GN = 4
|
|
||||||
6150 X$(2) = MID$(X$,N,GN)
|
|
||||||
6160 MODEMU,X$(1): MODEMV,X$(2)
|
|
||||||
6170 MO(1) = PEEK(-3)
|
|
||||||
6180 MO(2) = PEEK(-2)
|
|
||||||
6190 RETURN
|
|
||||||
|
|
||||||
6900 REM Chargement image salle
|
|
||||||
6902 MODEMC: MODEMN
|
|
||||||
6905 IF DEST < 11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090
|
|
||||||
6910 DEST = DEST - 10
|
|
||||||
6915 IF DEST < 11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190
|
|
||||||
6920 DEST = DEST - 10
|
|
||||||
6925 ON DEST GOTO 7200,7210,7220,7230,7240
|
|
||||||
|
|
||||||
7000 PRINT "DISKLOAD IMG_01"
|
|
||||||
7005 PRINT "Vous etes devant le manoir du defunt"
|
|
||||||
7006 PRINTSPC(14)"Dr GENIUS"
|
|
||||||
7009 RETURN
|
|
||||||
7010 PRINT "DISKLOAD IMG_02"
|
|
||||||
7015 PRINT "Vous etes dans le hall d'entree."
|
|
||||||
7019 RETURN
|
|
||||||
7020 PRINT "DISKLOAD IMG_03"
|
|
||||||
7025 PRINT "Vous etes en bas de l'escalier menant"
|
|
||||||
7026 PRINT "au 2eme etage."
|
|
||||||
7029 RETURN
|
|
||||||
7030 PRINT "DISKLOAD IMG_04"
|
|
||||||
7035 PRINT "Vous etes dans la salle a manger."
|
|
||||||
7039 RETURN
|
|
||||||
7040 PRINT "DISKLOAD IMG_05"
|
|
||||||
7045 PRINT "Vous etes dans une bibliotheque sans"
|
|
||||||
7046 PRINT "livre...!"
|
|
||||||
7049 RETURN
|
|
||||||
7050 PRINT "DISKLOAD IMG_06"
|
|
||||||
7055 PRINT "Vous etes dans une buanderie."
|
|
||||||
7059 RETURN
|
|
||||||
7060 PRINT "DISKLOAD IMG_07"
|
|
||||||
7065 PRINT "Vous etes dans le salon."
|
|
||||||
7069 RETURN
|
|
||||||
7070 PRINT "DISKLOAD IMG_08"
|
|
||||||
7075 PRINT "Vous etes dans une chambre."
|
|
||||||
7079 RETURN
|
|
||||||
7080 PRINT "DISKLOAD IMG_09"
|
|
||||||
7085 PRINT "Vous etes dans un corridor."
|
|
||||||
7089 RETURN
|
|
||||||
7090 PRINT "DISKLOAD IMG_10"
|
|
||||||
7095 PRINT "Vous etes dans une salle d'attente."
|
|
||||||
7099 RETURN
|
|
||||||
7100 PRINT "DISKLOAD IMG_11"
|
|
||||||
7105 PRINT "Vous etes dans le vestibule."
|
|
||||||
7109 RETURN
|
|
||||||
7110 PRINT "DISKLOAD IMG_12"
|
|
||||||
7115 PRINT "Vous etes dans la chambre d'amis."
|
|
||||||
7119 RETURN
|
|
||||||
7120 PRINT "DISKLOAD IMG_13"
|
|
||||||
7125 PRINT "Vous etes dans une chambre."
|
|
||||||
7129 RETURN
|
|
||||||
7130 STOP
|
|
||||||
7140 PRINT "DISKLOAD IMG_14"
|
|
||||||
7145 PRINT "Vous etes dans une petite salle."
|
|
||||||
7149 RETURN
|
|
||||||
7150 PRINT "DISKLOAD IMG_15"
|
|
||||||
7155 PRINT "Vous etes dans le laboratoire du
|
|
||||||
7156 PRINT "Dr GENIUS."
|
|
||||||
7159 RETURN
|
|
||||||
7160 PRINT "DISKLOAD IMG_16"
|
|
||||||
7165 PRINT "Vous etes dans une petite piece vide."
|
|
||||||
7169 RETURN
|
|
||||||
7170 PRINT "DISKLOAD IMG_17"
|
|
||||||
7175 PRINT "Vous ne savez pas où vous etes."
|
|
||||||
7179 RETURN
|
|
||||||
7180 PRINT "DISKLOAD IMG_18"
|
|
||||||
7185 PRINT "Vous etes en haut de l'escalier."
|
|
||||||
7189 RETURN
|
|
||||||
7190 PRINT "DISKLOAD IMG_19"
|
|
||||||
7195 PRINT "Vous etes dans la salle bain."
|
|
||||||
7199 RETURN
|
|
||||||
7200 PRINT "DISKLOAD IMG_20"
|
|
||||||
7205 PRINT "Vous etes dans le living room."
|
|
||||||
7209 RETURN
|
|
||||||
7210 PRINT "DISKLOAD IMG_21"
|
|
||||||
7215 PRINT "Vous etes dans une piece enfumee...!"
|
|
||||||
7219 RETURN
|
|
||||||
7220 PRINT "DISKLOAD IMG_22"
|
|
||||||
7225 PRINT "Vous etes dans une grande piece."
|
|
||||||
7229 RETURN
|
|
||||||
7230 PRINT "DISKLOAD IMG_23"
|
|
||||||
7235 PRINT "Vous etes dans une piece de rangement."
|
|
||||||
7239 RETURN
|
|
||||||
7240 PRINT "DISKLOAD IMG_24"
|
|
||||||
7245 PRINT "Vous etes dans le dressing."
|
|
||||||
7249 RETURN
|
|
||||||
|
|
||||||
7500 TX7,0,0: VTAB 23: PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE"
|
|
||||||
7510 N = RND(1)
|
|
||||||
7511 IF KEY(0) = 0 THEN 7510
|
|
||||||
7515 RETURN
|
|
||||||
|
|
||||||
7600 REM CONFIG JEU
|
|
||||||
7602 INIT0,0: TX3,0,0
|
|
||||||
7605 POKE -34,0: POKE -1,0
|
|
||||||
7610 INPUT "Carte SON (O/N)";X$
|
|
||||||
7620 IF X$ = "O" THEN POKE -34,1: GOTO 7630
|
|
||||||
7625 IF X$ <> "N" THEN 7610
|
|
||||||
7630 INPUT "Foudre (O/N)";X$
|
|
||||||
7640 IF X$ = "O" THEN POKE -1,1: GOTO 7650
|
|
||||||
7645 IF X$ <> "N" THEN 7630
|
|
||||||
7650 RETURN
|
|
||||||
|
|
||||||
8000 REM CHARGEMENT VARIABLES
|
|
||||||
8001 RESTORE
|
|
||||||
8010 V = 70
|
|
||||||
8130 O = 25: DIMO(25)
|
|
||||||
8140 FOR N = 1 TO 25
|
|
||||||
8150 READ O(N)
|
|
||||||
8170 NEXT N
|
|
||||||
8180 DATA 06,05,05,08,08,00,00,11,11
|
|
||||||
8190 DATA 13,20,18,16,16,16,16,00,21
|
|
||||||
8200 DATA 00,22,25,12,00,25,00
|
|
||||||
|
|
||||||
8205 DIM O$(25)
|
|
||||||
8210 FOR N = 1 TO 25
|
|
||||||
8220 READ O$(N)
|
|
||||||
8240 NEXT N
|
|
||||||
8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS
|
|
||||||
8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,UN COUTEAU
|
|
||||||
8270 DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE
|
|
||||||
8280 DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU
|
|
||||||
8290 DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE
|
|
||||||
8300 DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE A L'EST
|
|
||||||
8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU
|
|
||||||
|
|
||||||
8320 M = 25: DIM M$(25)
|
|
||||||
8330 FOR N = 1TO 25
|
|
||||||
8340 READ M$(N)
|
|
||||||
8360 NEXT N
|
|
||||||
8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400
|
|
||||||
8380 DATA 04080109020500,030700,04130207031000
|
|
||||||
8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00
|
|
||||||
8400 DATA 00,00,0122032100,040500,0125022200,012100
|
|
||||||
8410 DATA 0124042200,022300,022100
|
|
||||||
|
|
||||||
8430 A = 128: DIM A$(128)
|
|
||||||
8440 FOR N = 1 TO 128
|
|
||||||
8450 READ A$(N)
|
|
||||||
8470 NEXT N
|
|
||||||
8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M.
|
|
||||||
8485 DATA 0500A03E08D24.D04D06N.
|
|
||||||
8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N.
|
|
||||||
8500 DATA 0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M.
|
|
||||||
8505 DATA 0100A09E07B22.D07N.
|
|
||||||
8510 DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M.
|
|
||||||
8515 DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N.
|
|
||||||
8520 DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N.
|
|
||||||
8522 DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M.
|
|
||||||
8525 DATA 0200A17.F01I15M.
|
|
||||||
8530 DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M.
|
|
||||||
8531 DATA 0400A21E03.I19M.
|
|
||||||
8535 DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M.
|
|
||||||
8540 DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M.
|
|
||||||
8541 DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J.
|
|
||||||
8545 DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J.
|
|
||||||
8548 DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J.
|
|
||||||
8550 DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K.
|
|
||||||
8553 DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J.
|
|
||||||
8555 DATA 1143E09.D62K.
|
|
||||||
8556 DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J.
|
|
||||||
8560 DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J.
|
|
||||||
8563 DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N.
|
|
||||||
|
|
||||||
8566 DATA 1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K.
|
|
||||||
8570 DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N.
|
|
||||||
8575 DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J.
|
|
||||||
8580 DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L.
|
|
||||||
8590 DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J.
|
|
||||||
8595 DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M.
|
|
||||||
8597 DATA 1642E06.E02F07F06P22M.
|
|
||||||
8600 DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M.
|
|
||||||
8605 DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N.
|
|
||||||
8610 DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K.
|
|
||||||
8615 DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N.
|
|
||||||
8620 DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K.
|
|
||||||
8625 DATA 5543D18.P18E09J.,5743D18F09.D30K.,5743D18.P18F09J.
|
|
||||||
8630 DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K.
|
|
||||||
8635 DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N.
|
|
||||||
8640 DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M.
|
|
||||||
8650 DATA 1233A25.D64N.
|
|
||||||
|
|
||||||
8700 PL = INT(RND(1)*9000+1000)
|
|
||||||
8800 C = 14: DIMC$(14)
|
|
||||||
8810 FOR N = 1 TO 14
|
|
||||||
8820 READ C$(N)
|
|
||||||
8840 NEXT N
|
|
||||||
8850 DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N.
|
|
||||||
8860 DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N.
|
|
||||||
8870 DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L.
|
|
||||||
8900 RETURN
|
|
||||||
|
|
||||||
9000 FOR IJ = 1 TO 100: NEXT IJ
|
|
||||||
9010 RETURN
|
|
||||||
|
|
||||||
11000 REM SUCCES
|
|
||||||
11020 PRINT "DISKLOAD IMG_01"
|
|
||||||
11030 MODEMN: MODEMC: MODEMD
|
|
||||||
11040 PRINT "Vous voila en dehors de la maison..."
|
|
||||||
11050 MODEMW,250
|
|
||||||
11055 MODEMN
|
|
||||||
11060 PRINT " Cela est exceptionnel,vous etes le"
|
|
||||||
11065 PRINT "premier a sortir vivant de cette"
|
|
||||||
11070 PRINT "maison. Mais a votre place, je me"
|
|
||||||
11075 PRINT "mettrais a courir car un nain rode"
|
|
||||||
11080 PRINT "peut-etre dans les parages..."
|
|
||||||
11085 GOSUB 11100
|
|
||||||
11090 GOTO 20040
|
|
||||||
|
|
||||||
11100 REM TEA FOR TWO
|
|
||||||
11102 REM RESTORE 11125
|
|
||||||
11105 FOR N = 1 TO 110
|
|
||||||
11110 READ A1,A2,A3
|
|
||||||
11115 MODEMM,1,A1,A2,10: MODEMP,1,0,0,100: MODEMW,A3
|
|
||||||
11120 MODEMP,0,0,0,0
|
|
||||||
11122 NEXT N
|
|
||||||
11123 RETURN
|
|
||||||
11125 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45
|
|
||||||
11130 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15
|
|
||||||
11135 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45
|
|
||||||
11140 DATA 4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8
|
|
||||||
11145 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8
|
|
||||||
11150 DATA 4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8
|
|
||||||
11155 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8
|
|
||||||
11160 DATA 4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45
|
|
||||||
11165 DATA 4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15
|
|
||||||
11170 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45
|
|
||||||
11175 DATA 4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15
|
|
||||||
11180 DATA 5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15
|
|
||||||
11185 DATA 4,6,45,4,3,15,4,5,45,4,3,15
|
|
||||||
11190 DATA 4,6,45,4,3,15,4,5,45,4,10,15,4,6,120
|
|
||||||
|
|
||||||
20000 REM TOMBE
|
|
||||||
20005 PRINT "DISKLOAD IMGTMB"
|
|
||||||
20010 MODEMC: MODEMD: MODEMN
|
|
||||||
20020 PRINT "Vous etes mort !": MODEMW,100
|
|
||||||
20030 IF PEEK(-34)=1 THEN GOSUB 21000
|
|
||||||
20040 MODEML: PRINT: MODEML: X$="": INPUT "Voulez-vous rejouer ";X$
|
|
||||||
20050 IF X$ = "O" OR X$ = "o" THEN RUN 45
|
|
||||||
20060 IF X$ = "N" OR X$ = "n" THEN 20080
|
|
||||||
20070 GOTO 20040
|
|
||||||
20080 MODEMN: PRINT " AU REVOIR"
|
|
||||||
20090 END
|
|
||||||
|
|
||||||
21000 REM SARABANDE
|
|
||||||
21005 REM RESTORE 21040
|
|
||||||
21015 FOR N = 1 TO 75
|
|
||||||
21020 READ A1,A2,A3,A4,A5
|
|
||||||
21025 READ A6,A7,A8,A9,A0
|
|
||||||
21030 MODEMM,1,A1,A2,A3: MODEMM,2,A4,A5,A6: MODEMM,3,A7,A8,A9: MODEMP,7,0,0,100: MODEMW,A0
|
|
||||||
21031 IF KEY(0) <> 0 THEN MODEMP,0,0,0,0: RETURN
|
|
||||||
21032 IF N > 70 THEN NEXT N: MODEMP,0,0,0,0: RETURN
|
|
||||||
21035 MODEMP,0,0,0,0: NEXTN
|
|
||||||
21040 DATA 3,6,8,3,3,8,2,10,8,80
|
|
||||||
21045 DATA 3,6,8,3,3,8,2,10,8,80
|
|
||||||
21050 DATA 0,1,1,0,1,1,0,1,1,40
|
|
||||||
21055 DATA 3,8,8,3,5,8,0,1,1,40
|
|
||||||
21060 DATA 3,5,8,3,2,8,2,10,8,80
|
|
||||||
21065 DATA 3,5,8,3,2,8,2,10,8,40
|
|
||||||
21070 DATA 1,11,8,0,1,1,0,1,1,40
|
|
||||||
21075 DATA 1,10,8,0,1,1,0,1,1,40
|
|
||||||
21080 DATA 1,8,8,0,1,1,0,1,1,40
|
|
||||||
21085 DATA 3,10,8,3,6,9,3,1,8,80
|
|
||||||
21090 DATA 3,10,8,3,6,9,3,1,8,80
|
|
||||||
21095 DATA 0,1,1,0,1,1,0,1,1,40
|
|
||||||
21100 DATA 3,11,8,3,8,8,0,1,1,40
|
|
||||||
21105 DATA 3,8,8,3,5,8,3,1,8,80
|
|
||||||
21110 DATA 3,8,8,3,5,8,3,1,8,40
|
|
||||||
21115 DATA 2,1,8,0,1,1,0,1,1,40
|
|
||||||
21120 DATA 1,11,8,0,1,1,0,1,1,40
|
|
||||||
21125 DATA 1,10,8,3,7,8,3,10,8,40
|
|
||||||
21130 DATA 3,11,8,3,8,8,3,3,8,80
|
|
||||||
21135 DATA 3,11,8,3,8,8,3,3,8,80
|
|
||||||
21140 DATA 1,8,8,0,1,1,0,1,1,40
|
|
||||||
21145 DATA 1,8,8,3,10,8,4,1,8,40
|
|
||||||
21150 DATA 3,10,8,3,6,8,3,3,8,80
|
|
||||||
21155 DATA 3,10,8,3,6,8,3,3,8,80
|
|
||||||
21160 DATA 0,1,1,0,1,1,0,1,1,40
|
|
||||||
21165 DATA 3,10,8,2,1,8,0,1,1,40
|
|
||||||
21170 DATA 4,3,8,3,10,8,1,11,8,80
|
|
||||||
21175 DATA 4,3,8,3,8,8,2,11,9,80
|
|
||||||
21180 DATA 0,1,1,0,1,1,0,1,1,40
|
|
||||||
21185 DATA 4,5,8,0,1,1,0,1,1,40
|
|
||||||
21190 DATA 4,2,8,3,10,8,3,5,8,80
|
|
||||||
21195 DATA 4,2,8,3,10,8,3,5,8,40
|
|
||||||
21200 DATA 2,8,8,0,1,1,0,1,1,40
|
|
||||||
21202 DATA 2,6,8,0,1,1,0,1,1,40
|
|
||||||
21203 DATA 2,5,8,0,1,1,0,1,1,40
|
|
||||||
21205 DATA 3,6,8,3,3,8,2,10,8,80
|
|
||||||
21210 DATA 3,6,8,3,3,8,2,10,8,80
|
|
||||||
21215 DATA 0,1,1,0,1,1,0,1,1,40
|
|
||||||
21220 DATA 3,8,8,3,5,8,0,1,1,40
|
|
||||||
21225 DATA 3,5,8,3,2,8,2,10,8,80
|
|
||||||
21230 DATA 3,5,8,3,2,8,2,10,8,40
|
|
||||||
21235 DATA 1,11,8,0,1,1,0,1,1,40
|
|
||||||
21240 DATA 1,10,8,0,1,1,0,1,1,40
|
|
||||||
21245 DATA 1,8,8,0,1,1,0,1,1,40
|
|
||||||
21250 DATA 3,10,8,3,6,9,3,1,8,80
|
|
||||||
21255 DATA 3,10,8,3,6,9,3,1,8,80
|
|
||||||
21260 DATA 0,1,1,0,1,1,0,1,1,40
|
|
||||||
21265 DATA 3,11,8,3,8,8,0,1,1,40
|
|
||||||
21270 DATA 3,8,8,3,5,8,3,1,8,80
|
|
||||||
21275 DATA 3,8,8,3,5,8,3,1,8,40
|
|
||||||
21280 DATA 2,1,8,0,1,1,0,1,1,40
|
|
||||||
21285 DATA 1,11,8,0,1,1,0,1,1,40
|
|
||||||
21290 DATA 1,10,8,3,7,8,3,10,8,40
|
|
||||||
21295 DATA 3,11,8,3,8,8,3,3,8,80
|
|
||||||
21300 DATA 2,8,8,0,1,1,0,1,1,40
|
|
||||||
21305 DATA 3,11,8,3,8,8,3,1,8,40
|
|
||||||
21310 DATA 2,8,8,0,1,1,0,1,1,40
|
|
||||||
21315 DATA 2,1,8,0,1,1,0,1,1,40
|
|
||||||
21320 DATA 4,1,8,2,5,8,0,1,1,40
|
|
||||||
21325 DATA 3,10,8,3,6,8,3,1,8,80
|
|
||||||
21330 DATA 3,10,8,2,3,8,0,1,1,40
|
|
||||||
21335 DATA 4,3,8,3,6,8,2,11,8,40
|
|
||||||
21340 DATA 4,2,8,0,1,1,0,1,1,40
|
|
||||||
21345 DATA 4,3,8,3,11,8,2,8,8,40
|
|
||||||
21350 DATA 4,5,8,0,1,1,0,1,1,40
|
|
||||||
21355 DATA 4,6,8,3,10,8,2,10,8,80
|
|
||||||
21360 DATA 4,5,8,3,8,8,1,10,8,40
|
|
||||||
21365 DATA 0,1,1,3,8,8,1,10,8,40
|
|
||||||
21370 DATA 4,3,8,0,1,1,0,1,1,40
|
|
||||||
21375 DATA 4,3,8,3,6,8,2,3,8,80
|
|
||||||
21380 DATA 3,3,8,3,10,8,3,6,8,40
|
|
||||||
21385 DATA 3,3,7,3,10,7,3,6,7,40
|
|
||||||
21390 DATA 3,3,6,3,10,6,3,6,6,40
|
|
||||||
21395 DATA 3,3,5,3,10,5,3,6,5,40
|
|
||||||
21400 DATA 3,3,4,3,10,4,3,6,5,40
|
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user