Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

making it asm friendly

This commit is contained in:
Antoine Vignau 2023-11-20 19:41:18 +01:00
parent 4dccfa2997
commit d6d499960d
6 changed files with 387 additions and 1049 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lemanoirdudocteurgenius/apple2/_FileInformation.txt
View File

@ -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)

712
lemanoirdudocteurgenius/apple2/drgenius.s
View File

@ -321,10 +321,6 @@ REPLAY
jsr :6000
lda MO$1
cmp #"0"
bne :900
lda MO$1+1
cmp #"0"
bne :900
@print #strJENECOMPRENDS
@ -335,8 +331,7 @@ REPLAY
* 900 - CONTROLE MVT
*-----------------------------------
:900 lda #1
sta Z
:900 ldy #0
:920 lda SALLE ; T$=MID(M$(SALLE),Z,2)
asl
@ -346,49 +341,18 @@ REPLAY
lda tblM$+1,x
sta LINNUM+1
ldy Z
lda (LINNUM),y
sta T$+1
dey
lda (LINNUM),y
sta T$
cmp #"0"
bne :940
lda T$+1
cmp #"0"
beq :980
:940 lda T$
cmp MO$1
bne :970
lda T$+1
cmp MO$1+1
bne :970
:950 iny
iny
lda (LINNUM),y
sec
sbc #"0"
tax
lda tblD2H,x
sta SALLE
iny
lda (LINNUM),y
sec
sbc #"0"
clc
adc SALLE
sta SALLE
jmp :100
:970 lda Z
clc
adc #4
sta Z
jmp :920
:970 iny
bne :920
:980 lda #0
sta T
@ -398,13 +362,10 @@ REPLAY
* 1000 - CONTROLE
*-----------------------------------
:1000 lda #0
:1000 lda #-1
sta NL
:1100 lda NL
clc
adc #1
sta NL
:1100 inc NL
lda T
cmp #0
@ -445,11 +406,8 @@ REPLAY
:1170 @print #strIMPOSSIBLE
lda MO$1
cmp #"0"
bne :1190
lda MO$1+1
cmp #"9"+1
lda MO$1 ; les directions
cmp #10+1
bcs :1190
@print #strCECHEMIN
@ -460,41 +418,16 @@ REPLAY
:1200 lda NL
asl
tax
lda tblA$,x
sta LINNUM
lda tblA$+1,x
sta LINNUM+1
ldy #1
lda (LINNUM),y
lda tblA,x
cmp MO$1
beq :1201
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
beq :1210
jmp :1100
:1225 lda Y$
:1210 lda tblA+1,x
beq :1230
cmp MO$2
beq :1227
lda Y$+1
cmp MO$2+1
bne :1230
:1227 jmp :1100
beq :1230
jmp :1100
:1230 ldy #0
lda (LINNUM),y
@ -677,11 +610,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
* 1700 - ACTIONS
*-----------------------------------
:1700
lda E
clc
adc #1
sta E
:1700 inc E
lda #1
sta A1
@ -768,10 +697,8 @@ tbl1800 da $bdbd
sta G
sta HH
:1810 lda G
clc
adc #1
sta G
:1810 inc G
lda G
tax
lda O,x
cmp #-1
@ -1714,11 +1641,8 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
sta X$1
sta X$2
lda #"0" ; initialise les mots
sta MO$1
sta MO$1+1
sta MO$2
sta MO$2+1
* 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$60,V$61,V$62,V$63,V$64,V$65,V$66,V$67,V$68,V$69
da V$70
V$1 str "01N"
V$2 str "01NORD"
V$3 str "02S"
V$4 str "02SUD"
V$5 str "03E"
V$6 str "03EST"
V$7 str "04O"
V$8 str "04OUEST"
V$9 str "05MONT"
V$10 str "05GRIM"
V$11 str "06DESC"
V$12 str "10PREN"
V$13 str "10RAMA"
V$14 str "11POSE"
V$15 str "12OUVR"
V$16 str "13FERM"
V$17 str "14ENTR"
V$18 str "14AVAN"
V$19 str "15ALLU"
V$20 str "16ETEI"
V$21 str "17REPA"
V$22 str "17DEPA"
V$23 str "18LIS"
V$24 str "19REGA"
V$25 str "20RETO"
V$26 str "21RENI"
V$27 str "21SENS"
V$28 str "22REMP"
V$29 str "23VIDE"
V$30 str "24INVE"
V$31 str "24LIST"
V$32 str "25RIEN"
V$33 str "25ATTE"
V$34 str "26POIG"
V$35 str "27COUT"
V$36 str "28TOUR"
V$37 str "29LAMP"
V$38 str "30CODE"
V$39 str "31ESCA"
V$40 str "32PIST"
V$41 str "33PLAC"
V$42 str "34TORC"
V$43 str "35TELE"
V$44 str "36MONS"
V$45 str "37PETR"
V$46 str "38POT"
V$47 str "18LIT"
V$48 str "39CLEF"
V$49 str "40PAPI"
V$50 str "41LIVR"
V$51 str "42BRIQ"
V$52 str "43COMB"
V$53 str "44COFF"
V$54 str "45ROUG"
V$55 str "46BLEU"
V$56 str "47VERT"
V$57 str "48TITR"
V$58 str "49ROBI"
V$59 str "50CISE"
V$60 str "51PORT"
V$61 str "52ACTI"
V$62 str "53JETE"
V$63 str "53LANCE"
V$64 str "54EAU"
V$65 str "55ENFI"
V$66 str "55PASS"
V$67 str "56APPU"
V$68 str "56ENFO"
V$69 str "57ENLE"
V$70 str "58RENT"
V$1 str "N"
V$2 str "NORD"
V$3 str "S"
V$4 str "SUD"
V$5 str "E"
V$6 str "EST"
V$7 str "O"
V$8 str "OUEST"
V$9 str "MONT"
V$10 str "GRIM"
V$11 str "DESC"
V$12 str "PREN"
V$13 str "RAMA"
V$14 str "POSE"
V$15 str "OUVR"
V$16 str "FERM"
V$17 str "ENTR"
V$18 str "AVAN"
V$19 str "ALLU"
V$20 str "ETEI"
V$21 str "REPA"
V$22 str "DEPA"
V$23 str "LIS"
V$24 str "REGA"
V$25 str "RETO"
V$26 str "RENI"
V$27 str "SENS"
V$28 str "REMP"
V$29 str "VIDE"
V$30 str "INVE"
V$31 str "LIST"
V$32 str "RIEN"
V$33 str "ATTE"
V$34 str "POIG"
V$35 str "COUT"
V$36 str "TOUR"
V$37 str "LAMP"
V$38 str "CODE"
V$39 str "ESCA"
V$40 str "PIST"
V$41 str "PLAC"
V$42 str "TORC"
V$43 str "TELE"
V$44 str "MONS"
V$45 str "PETR"
V$46 str "POT"
V$47 str "LIT"
V$48 str "CLEF"
V$49 str "PAPI"
V$50 str "LIVR"
V$51 str "BRIQ"
V$52 str "COMB"
V$53 str "COFF"
V$54 str "ROUG"
V$55 str "BLEU"
V$56 str "VERT"
V$57 str "TITR"
V$58 str "ROBI"
V$59 str "CISE"
V$60 str "PORT"
V$61 str "ACTI"
V$62 str "JETE"
V$63 str "LANCE"
V$64 str "EAU"
V$65 str "ENFI"
V$66 str "PASS"
V$67 str "APPU"
V$68 str "ENFO"
V$69 str "ENLE"
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$20,M$21,M$22,M$23,M$24,M$25
M$1 str "00"
M$2 str "0403030400"
M$3 str "030200"
M$4 str "04020305010600"
M$5 str "04040107032000"
M$6 str "020400"
M$7 str "04080109020500"
M$8 str "030700"
M$9 str "04130207031000"
M$10 str "0409021100"
M$11 str "0110031200"
M$12 str "041100"
M$13 str "030900"
M$14 str "0209031500"
M$15 str "00"
M$16 str "00"
M$17 str "00"
M$18 str "00"
M$19 str "0122032100"
M$20 str "040500"
M$21 str "0125022200"
M$22 str "012100"
M$23 str "0124042200"
M$24 str "022300"
M$25 str "022100"
M$1 dfb 00
M$2 dfb 04,03,03,04,00
M$3 dfb 03,02,00
M$4 dfb 04,02,03,05,01,06,00
M$5 dfb 04,04,01,07,03,20,00
M$6 dfb 02,04,00
M$7 dfb 04,08,01,09,02,05,00
M$8 dfb 03,07,00
M$9 dfb 04,13,02,07,03,10,00
M$10 dfb 04,09,02,11,00
M$11 dfb 01,10,03,12,00
M$12 dfb 04,11,00
M$13 dfb 03,09,00
M$14 dfb 02,09,03,15,00
M$15 dfb 00
M$16 dfb 00
M$17 dfb 00
M$18 dfb 00
M$19 dfb 01,22,03,21,00
M$20 dfb 04,05,00
M$21 dfb 01,25,02,22,00
M$22 dfb 01,21,00
M$23 dfb 01,24,04,22,00
M$24 dfb 02,23,00
M$25 dfb 02,21,00
*---
*--- On commence <EFBFBD> index 0
AA = 128
tblA$ da $bdbd
da A$1,A$2,A$3,A$4,A$5,A$6,A$7,A$8,A$9
tblA$ 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$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
@ -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$120,A$121,A$122,A$123,A$124,A$125,A$126,A$127,A$128
A$1 str "1400A01.I02D02M."
A$2 str "0500A03D08.D03N."
A$3 str "0500A03E08E09D24.D04D05I19E02M."
A$4 str "0500A03E08D24.D04D06N."
A$5 str "0500A03E07.I19M."
A$6 str "0500A03E03.I19M."
A$7 str "0500A03.I19E02M."
A$8 str "0600A19D08.D03N."
A$9 str "0600A19E08E09D24.D04D05I03M."
A$10 str "0600A19E08D24.D04D06N."
A$11 str "0600A19.I03M."
A$12 str "0100A09E07B22.D07N."
A$13 str "0100A09E03B05.D07N."
A$14 str "0100A09.I14E02M."
A$15 str "0100A14.I16E02M."
A$16 str "0200A16E07B22.D07N."
A$17 str "0200A16E03B05.D07N."
A$18 str "0200A16.I14E02M."
A$19 str "0400A15E03B05.D07N."
A$20 str "0400A15E07B22.D07N."
A$21 str "0400A15.I14E02M."
A$22 str "0100A15E03.I17M."
A$23 str "0100A15E07.I17M."
A$24 str "0100A15.I17E02M."
A$25 str "0200A17.F01I15M."
A$26 str "0300A17.D08N."
A$27 str "0400A17.D09K."
A$28 str "0300A18.D10F03E01E02I17M."
A$29 str "0400A21E03.I19M."
A$30 str "0400A21E07.I19M."
A$31 str "0400A21.I19E02M."
A$32 str "0200A22E03.I19M."
A$33 str "0200A22E07.I19M."
A$34 str "0200A22.I19E02M."
A$35 str "0200A19.D11N."
A$36 str "0400A19.D11N."
A$37 str "0300A22.D12I23M."
A$38 str "2500A01.D13."
A$39 str "2500I01.D14K."
A$40 str "1244A03.D15M."
A$41 str "1034B01.B01J."
A$42 str "1027B08.B08J."
A$43 str "1028B04.B04J."
A$44 str "1029B05.B05J."
A$45 str "1032B21.B21J."
A$46 str "1038B24.B24J."
A$47 str "1039B12.B12J."
A$48 str "1040B09.B09J."
A$49 str "1041B10.B10J."
A$50 str "1043B18.B18J."
A$51 str "1050B03.B03J."
A$52 str "1042B22.B22J."
A$53 str "1037A20B05.H11P05E05D16K."
A$54 str "1037A20.D17K."
A$55 str "1134.C01J."
A$56 str "1127.C08J."
A$57 str "1128.C04J."
A$58 str "1129.C05J."
A$59 str "1132.C21J."
A$60 str "1138.C24J."
A$61 str "1143E09.D62K."
A$62 str "1139.C12J."
A$63 str "1140.C09J."
A$64 str "1141.C10J."
A$65 str "1143.C18J."
A$66 str "1150.C03J."
A$67 str "1142.C22J."
A$68 str "2400.A00L."
A$69 str "1249A05.E04D20G0405J."
A$70 str "1349A05.F04J."
A$71 str "2238A05E04.P24E08J."
A$72 str "2338A05E08.F08P24J."
A$73 str "2338E08.D21N."
A$74 str "1848B10.D22L."
A$75 str "1841B10.D23N."
A$76 str "1840B09.D24K."
A$77 str "2040B09.D25K."
A$78 str "1951A02.D26M."
A$79 str "1951.D27K."
A$80 str "2100A14.D28K."
A$81 str "2100.D29K."
A$82 str "1542C22.D33K."
A$83 str "1542E07.D30K."
A$84 str "1542A14.D07N."
A$85 str "1542A17E01.D10K."
A$86 str "1542E02.F02E07E06P22M."
A$87 str "1542.E07P22J."
A$88 str "1529C05.D33K."
A$89 str "1529E03.D30K."
A$90 str "1529F07.D31L."
A$91 str "1529F05.D32L."
A$92 str "1529E02.F02E03E06P06P05M."
A$93 str "1529.E03P06P05J."
A$94 str "1642C22.D33K."
A$95 str "1642F07.D30K."
A$96 str "1642E06E03.D36F07P22M."
A$97 str "1642E06.E02F07F06P22M."
A$98 str "1642.F07P22M."
A$99 str "1629C05.D33K."
A$100 str "1629F03.D30K."
A$101 str "1629E07E06.D34F03P05M."
A$102 str "1629E06.E02F06F03P05M."
A$103 str "1629.F03P05M."
A$104 str "1534B01.D35N."
A$105 str "1735I16.D45K."
A$106 str "1735E02.D43K."
A$107 str "1735F03.D44K."
A$108 str "1735C04.D46K."
A$109 str "1735.P16E10J."
A$110 str "5600A16F10.D47K."
A$111 str "5646A16.D48N."
A$112 str "5647A16.D48N."
A$113 str "5645A16F09.D50D06N."
A$114 str "5645A16.D49I18M."
A$115 str "5543D18E09.D30K."
A$116 str "5543D18.P18E09J."
A$117 str "574EXPLODEAND18F09.D30K."
A$118 str "5743D18.P18F09J."
A$119 str "1233A24C12.D51K."
A$120 str "1233A24C03.D52N."
A$121 str "1233A24.G0503E11D63K."
A$122 str "2636E11.D54F11D55K."
A$123 str "5350E11.D54F11D55K."
A$124 str "5232B21.D56N."
A$125 str "5830F08.D57."
A$126 str "5830.D58D59."
A$127 str "1233A06.D61M."
A$128 str "1233A25.D64N."
A$1 str "A01.I02D02M."
A$2 str "A03D08.D03N."
A$3 str "A03E08E09D24.D04D05I19E02M."
A$4 str "A03E08D24.D04D06N."
A$5 str "A03E07.I19M."
A$6 str "A03E03.I19M."
A$7 str "A03.I19E02M."
A$8 str "A19D08.D03N."
A$9 str "A19E08E09D24.D04D05I03M."
A$10 str "A19E08D24.D04D06N."
A$11 str "A19.I03M."
A$12 str "A09E07B22.D07N."
A$13 str "A09E03B05.D07N."
A$14 str "A09.I14E02M."
A$15 str "A14.I16E02M."
A$16 str "A16E07B22.D07N."
A$17 str "A16E03B05.D07N."
A$18 str "A16.I14E02M."
A$19 str "A15E03B05.D07N."
A$20 str "A15E07B22.D07N."
A$21 str "A15.I14E02M."
A$22 str "A15E03.I17M."
A$23 str "A15E07.I17M."
A$24 str "A15.I17E02M."
A$25 str "A17.F01I15M."
A$26 str "A17.D08N."
A$27 str "A17.D09K."
A$28 str "A18.D10F03E01E02I17M."
A$29 str "A21E03.I19M."
A$30 str "A21E07.I19M."
A$31 str "A21.I19E02M."
A$32 str "A22E03.I19M."
A$33 str "A22E07.I19M."
A$34 str "A22.I19E02M."
A$35 str "A19.D11N."
A$36 str "A19.D11N."
A$37 str "A22.D12I23M."
A$38 str "A01.D13."
A$39 str "I01.D14K."
A$40 str "A03.D15M."
A$41 str "B01.B01J."
A$42 str "B08.B08J."
A$43 str "B04.B04J."
A$44 str "B05.B05J."
A$45 str "B21.B21J."
A$46 str "B24.B24J."
A$47 str "B12.B12J."
A$48 str "B09.B09J."
A$49 str "B10.B10J."
A$50 str "B18.B18J."
A$51 str "B03.B03J."
A$52 str "B22.B22J."
A$53 str "A20B05.H11P05E05D16K."
A$54 str "A20.D17K."
A$55 str ".C01J."
A$56 str ".C08J."
A$57 str ".C04J."
A$58 str ".C05J."
A$59 str ".C21J."
A$60 str ".C24J."
A$61 str "E09.D62K."
A$62 str ".C12J."
A$63 str ".C09J."
A$64 str ".C10J."
A$65 str ".C18J."
A$66 str ".C03J."
A$67 str ".C22J."
A$68 str ".A00L."
A$69 str "A05.E04D20G0405J."
A$70 str "A05.F04J."
A$71 str "A05E04.P24E08J."
A$72 str "A05E08.F08P24J."
A$73 str "E08.D21N."
A$74 str "B10.D22L."
A$75 str "B10.D23N."
A$76 str "B09.D24K."
A$77 str "B09.D25K."
A$78 str "A02.D26M."
A$79 str ".D27K."
A$80 str "A14.D28K."
A$81 str ".D29K."
A$82 str "C22.D33K."
A$83 str "E07.D30K."
A$84 str "A14.D07N."
A$85 str "A17E01.D10K."
A$86 str "E02.F02E07E06P22M."
A$87 str ".E07P22J."
A$88 str "C05.D33K."
A$89 str "E03.D30K."
A$90 str "F07.D31L."
A$91 str "F05.D32L."
A$92 str "E02.F02E03E06P06P05M."
A$93 str ".E03P06P05J."
A$94 str "C22.D33K."
A$95 str "F07.D30K."
A$96 str "E06E03.D36F07P22M."
A$97 str "E06.E02F07F06P22M."
A$98 str ".F07P22M."
A$99 str "C05.D33K."
A$100 str "F03.D30K."
A$101 str "E07E06.D34F03P05M."
A$102 str "E06.E02F06F03P05M."
A$103 str ".F03P05M."
A$104 str "B01.D35N."
A$105 str "I16.D45K."
A$106 str "E02.D43K."
A$107 str "F03.D44K."
A$108 str "C04.D46K."
A$109 str ".P16E10J."
A$110 str "A16F10.D47K."
A$111 str "A16.D48N."
A$112 str "A16.D48N."
A$113 str "A16F09.D50D06N."
A$114 str "A16.D49I18M."
A$115 str "D18E09.D30K."
A$116 str "D18.P18E09J."
A$117 str "XPLODEAND18F09.D30K."
A$118 str "D18.P18F09J."
A$119 str "A24C12.D51K."
A$120 str "A24C03.D52N."
A$121 str "A24.G0503E11D63K."
A$122 str "E11.D54F11D55K."
A$123 str "E11.D54F11D55K."
A$124 str "B21.D56N."
A$125 str "F08.D57."
A$126 str ".D58D59."
A$127 str "A06.D61M."
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
tblC$ da $bdbd
da C$1,C$2,C$3,C$4,C$5,C$6,C$7,C$8,C$9
tblC$ 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
C$1 str "G03E03.D00N."
@ -3070,8 +3132,8 @@ HH ds 1
L ds 1
LI ds 1
LX ds 1
MO$1 ds 2 ; "00" (une chaine raccourcie)
MO$2 ds 2 ; "00" (une chaine raccourcie)
MO$1 ds 1 ; mot 1
MO$2 ds 1 ; mot 2
N ds 1
NL ds 1
OK ds 1
@ -3081,9 +3143,7 @@ PL ds 5 ; 1111/0
S ds 2 ; pour S(1)
SALLE ds 1
T ds 1
T$ ds 2 ; "00"
W ds 1
Y$ ds 2 ; "00"
Y1 ds 1
Y2 ds 1
Z ds 1

0
lemanoirdudocteurgenius/vg2apple/jeu.bas → lemanoirdudocteurgenius/apple2/old/vg2apple/jeu.bas
View File

0
lemanoirdudocteurgenius/vg2apple/presentation.bas → lemanoirdudocteurgenius/apple2/old/vg2apple/presentation.bas
View File

0
lemanoirdudocteurgenius/oric/code_oric copie.bas
View File

722
lemanoirdudocteurgenius/vg2apple/jeu copie.bas
View File

@ -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