diff --git a/lemanoirdudocteurgenius/apple2/initialisation.bas b/lemanoirdudocteurgenius/apple2/initialisation.bas index 40e82e4..56d92a2 100644 --- a/lemanoirdudocteurgenius/apple2/initialisation.bas +++ b/lemanoirdudocteurgenius/apple2/initialisation.bas @@ -43,8 +43,8 @@ 8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00 8400 DATA00,00,0122032100,040500,0125022200,012100 8410 DATA 0124042200,022300,022100 -8430 A=128:DIM A$(A) -8440 FOR N=1 TO A +8430 AB=128:DIM A$(AB) +8440 FOR N=1 TO AB 8450 READ KO$ 8460 A$(N)=KO$ 8470 NEXT diff --git a/lemanoirdudocteurgenius/apple2/jeu simple.bas b/lemanoirdudocteurgenius/apple2/jeu simple.bas index 778b0c7..ac80bde 100644 --- a/lemanoirdudocteurgenius/apple2/jeu simple.bas +++ b/lemanoirdudocteurgenius/apple2/jeu simple.bas @@ -6,7 +6,7 @@ 110 IF C(9)>1 THEN C(9)=C(9)-1 130 & H 140 PRINT "Il fait noir comme dans un four,": PRINT "il faudrait peut etre allumer" -145 GOSUB 13000: GOTO 500 +145 GOSUB 14000: GOTO 500 200 REM DESCRIPTION SAL 210 PRINT @@ -14,7 +14,7 @@ 300 H=0:N=1 310 IF O(N)<>SAL THEN 400 320 IF H=1 THEN GOTO 350 -330 PRINT "Il y a dans la salle:": & W 100 +330 PRINT "Il y a dans la salle : ": & W 100 340 H=1 350 PRINT " ";O$(N); 360 & W 150 @@ -30,7 +30,6 @@ 545 IF C(4)>1 AND P(4)=1 THEN C(4)=C(4)-1 547 IF C(5)>1 THEN C(5)=C(5)-1 550 INPUT "Que faites vous : ";X$ -555 IF X$="" THEN GOSUB 13100: GOTO 550 560 HOME:PRINT X$ 570 GOSUB 6000 580 IF MO$(1)="00" THEN PRINT "Je ne comprends pas...": & W 200:GOTO100 @@ -51,7 +50,7 @@ 1110 IF T=0 THEN GOTO 1150 1120 E$=C$(NL) 1130 GOTO 1400 -1150 IF NL<=A THEN 1200 +1150 IF NL<=AB THEN 1200 1159 PY=23:CO=12 1160 IF A1=1 THEN GOTO 500 1170 PRINT "Impossible "; @@ -92,9 +91,9 @@ 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 +1740 BR=0 1750 & G 1800+LI*100 -1760 IF BREAK<>0 THEN & T BREAK +1760 IF BR<>0 THEN & T BR 1780 E=E+3 1790 GOTO 1710 1800 G=0:HH=0 @@ -110,7 +109,7 @@ 1880 PRINT "Vous ne detenez absolument rien!!!": & W 200: RETURN 1900 IF S(1)<5 THEN 1930 1910 PRINT "Il parait evident que vous ne pouvez portez tant de chose!!" -1920 & W 250:BREAK=100: RETURN +1920 & W 250:BR=100: RETURN 1930 IF O(N)<>-1 THEN 1960 1935 REM CE PROGRAMMEEST LA PROPRIETE DE L.WEILL LORICIELS 1940 PRINT "Vous l'avez deja,vous etes etourdit etdans cette maison ce n'est pas" @@ -130,11 +129,11 @@ 2510 O(N)=0 : RETURN 2600 SAL=N: RETURN 2700 PRINT "D'accord..." -2710 & W 150:BREAK=300: RETURN -2800 BREAK=500 +2710 & W 150:BR=300: RETURN +2800 BR=500 2810 RETURN -2900 BREAK=530: RETURN -3000 BREAK=100: RETURN +2900 BR=530: RETURN +3000 BR=100: RETURN 3100 PRINT CHR$(4)"RUN PERDU" 3200 O(N)=SAL: RETURN 3300 X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$: RETURN @@ -311,99 +310,297 @@ 7000 GOSUB 10000 7005 PRINT "Vous etes devant le manoir du defunt":& W 250 7006 PRINT SPC(12)"Dr GENIUS" -7007 GOSUB 13000: RETURN +7007 GOSUB 14000: RETURN 7010 GOSUB 10100 7015 PRINT "Vous etes dans le hall d'entree." -7016 GOSUB 13000: RETURN +7016 GOSUB 14000: RETURN 7020 GOSUB 10200 7024 PRINT "Vous etes en bas de l'escalier menant au 2eme etage" -7025 GOSUB 13000: RETURN +7025 GOSUB 14000: RETURN 7030 F1=0: GOSUB 10300 7034 PRINT "Vous etes dans la salle a manger." -7035 GOSUB 13000: RETURN +7035 GOSUB 14000: RETURN 7040 F1=1: GOSUB 10300 7043 PRINT "Vous etes dans une biblioteque sans livre...!" -7045 GOSUB 13000: RETURN +7045 GOSUB 14000: RETURN 7050 GOSUB 10500 7053 PRINT "Vous etes dans une buanderie" -7055 GOSUB 13000: RETURN +7055 GOSUB 14000: RETURN 7060 GOSUB 10600 7063 PRINT "Vous etes dans le salon" -7065 GOSUB 13000: RETURN +7065 GOSUB 14000: RETURN 7070 LX=0: GOSUB 10700 7073 PRINT "Vous etes dans une chambre." -7075 GOSUB 13000: RETURN +7075 GOSUB 14000: RETURN 7080 GOSUB 10800 7083 PRINT "Vous etes dans un corridor" -7085 GOSUB 13000: RETURN +7085 GOSUB 14000: RETURN 7090 LX=0: GOSUB 10900 7093 PRINT "Vous etes dans une salle d'attente." -7095 GOSUB 13000: RETURN +7095 GOSUB 14000: RETURN 7100 LX=0: GOSUB 11000 7103 PRINT "Vous etes dans le vestibules" -7105 GOSUB 13000: RETURN +7105 GOSUB 14000: RETURN 7110 LX=2: GOSUB 10700 7113 PRINT "Vous etes dans la chambre d'amis." -7115 GOSUB 13000: RETURN +7115 GOSUB 14000: RETURN 7120 LX=1: GOSUB 10700 7123 PRINT "Vous etes dans une chambre." -7125 GOSUB 13000: RETURN +7125 GOSUB 14000: RETURN 7140 LX=2: GOSUB 12200 7143 PRINT "Vous etes dans une petite salle" -7145 GOSUB 13000: RETURN +7145 GOSUB 14000: RETURN 7150 GOSUB 11500 7153 PRINT "Vous etes dans le laboratoire du Dr GENIUS" -7155 GOSUB 13000: RETURN +7155 GOSUB 14000: RETURN 7160 LX=1: GOSUB 10900 7163 PRINT "Vous etes dans une petite piece vide." -7165 GOSUB 13000: RETURN +7165 GOSUB 14000: RETURN 7170 GOSUB 11700 7173 PRINT "Vous etes...": & W 300:PRINT "Justement,vous ne savez pas ou vous etes" -7175 GOSUB 13000: RETURN +7175 GOSUB 14000: RETURN 7180 GOSUB 11800 7183 PRINT "Vous etes en haut de l'escalier" -7185 GOSUB 13000: RETURN +7185 GOSUB 14000: RETURN 7190 LX=2: GOSUB 10900 7193 PRINT "Vous etes dans la salle bain" -7195 GOSUB 13000: RETURN +7195 GOSUB 14000: RETURN 7200 LX=1: GOSUB 12200 7203 PRINT "Vous etes dans le living room" -7205 GOSUB 13000: RETURN +7205 GOSUB 14000: RETURN 7210 LX=1: GOSUB 11000 7213 PRINT "Vous etes dans une piece enfumee...!" -7215 GOSUB 13000: RETURN +7215 GOSUB 14000: RETURN 7220 LX=0: GOSUB 12200 7223 PRINT "Vous etes dans une grande piece" -7225 GOSUB 13000: RETURN +7225 GOSUB 14000: RETURN 7230 GOSUB 12300 7233 PRINT "Vous etes dans une piece de rangement" -7235 GOSUB 13000: RETURN +7235 GOSUB 14000: RETURN 7240 GOSUB 12400 7243 PRINT "Vous etes dans le dressing" -7245 GOSUB 13000: RETURN +7245 GOSUB 14000: RETURN -10000 RETURN -10100 RETURN -10200 RETURN -10300 RETURN -10400 RETURN -10500 RETURN -10600 RETURN -10700 RETURN -10800 RETURN -10900 RETURN -11000 RETURN -11500 RETURN -11700 RETURN -11800 RETURN -12200 RETURN -12300 RETURN -12400 RETURN +10000 & H: & I 0: & S 100,190,1 +10005 & D 0,-60,1: & D 97,0,1: & D 7,10,1: & D -97,0,1: & D -7,-10,1: & D 15,-20,1 +10010 & D -30,-50,1: & D -15,20,1: & D 30,50,1: & S 100,190,1: & D -30,-50,1 +10015 & D 0,-60,1: & S 100,190,1: & D 22,0,1: & D 0,-30,1: & D 15,0,1: & D 0,30,1 +10020 & D 60,0,1: & D 0,-50,1: & M 0,-10,1: & D 0,-30,1: & D -67,-40,1 +10025 & D -23,30,1: & D -30,-50,1: & D 23,-30,1: & D 30,50,1: & S 197,100,1 +10030 & D -45,-60,1: & D -52,-30,1: & S 85,60,1: & D 0,-6,1: & S 115,110,1 +10035 & D 0,-30,1: & M 7,0,1: & D 7,-10,1: & D 7,10,1: & D 0,20,1: & D -15,0,1 +10040 & D 0,-20,1: & M 7,-10,1: & D 0,30,1: & S 182,100,1: & D -30,0,1 +10045 & D 0,20,1: & D 30,0,1: & D 0,-20,1: & M -7,0,1: & D 0,20,1: & M -16,0,1 +10050 & D 0,-20,1: & S 122,190,1: & D 13,7,1: & D 0,-30,1: & D -13,-7,1 +10055 & S 133,182,1: & S 182,150,1: & D -30,0,1: & D 0,20,1: & D 30,0,1 +10060 & D 0,-20,1: & M -7,0,1: & D 0,20,1: & M -16,0,1: & D 0,-20,1 +10065 & S 78,130,1: & D 15,25,1: & D 0,-20,1: & D -15,-25,1: & D 0,20,1 +10070 & M 3,5,1: & D 0,-20,1: & M 9,15,1: & D 0,20,1: & I 3: RETURN +10100 & H: & I 0: & S 15,190,1: & D 0,-160,1: & D 75,-20,1: & D 0,40,1 +10110 & D 0,-40,1: & D 60,0,1: & D 0,20,1: & D 10,10,1: & D -40,0,1: & D 40,0,1 +10120 & D 0,3,1: & D -40,0,1: & D 0,-3,1: & D 0,-10,1: & D 30,0,1: & D 0,-20,1 +10130 & D 82,20,1: & D 0,160,1: & D -73,-126,1: & D 73,126,3: & D -30,-50,3 +10140 & D 0,-80,1: & D -22,-16,1: & D 0,58,1: & M 19,-9,1: & C 1,1 +10145 & S 15,190,1: & D 37,-68,1: & D 0,-70,1: & D 18,-13,1: & D 0,50,1 +10150 & D -18,33,3: & D 38,-71,1: & D 31,0,1: & D 0,-8,3: & D 0,23,1: & D 3,0,1 +10155 & D 0,-23,1: & D 0,8,1: & D 21,0,1: & D 0,-8,1: & D 0,8,1: & D 1,2,1 +10157 & D 0,-10,1: & D 0,10,1 +10160 & D 2,0,1: & D 0,-10,1: & D 0,8,1: & D 2,0,1: & D 0,-8,1: & D 0,8,1 +10165 & D 3,5,1: & D 0,-12,1: & D 0,20,1: & D 2,3,1: & D 0,-23,1: & D 0,23,1 +10170 & D 3,0,1: & D 0,-23,1: & S 67,68,1: & C 1,1: & I 3: RETURN +10200 & H: & I 0: & S 15,190,1: & D 0,-120,1: & D 105,-50,1: & D 60,0,1 +10205 & D 45,50,1: & D 0,110,1: & D -45,-100,1: & M 0,-60,1: & D 0,60,1 +10210 & D -60,0,1: & M 0,-60,1: & D 0,60,1: & D -52,54,1: & S 15,190,1 +10215 & D 24,-26,1: & D 0,-104,1: & D 0,60,1: & D 27,14,1: & D 0,-10,1 +10220 & D 53,-50,1: & D -6,-2,1: & D -54,47,1: & M 7,3,1: & D -7,-3,1 +10225 & D 0,-10,1: & D 53,-44,1: & D 0,8,1: & D 0,-8,1: & D -5,-2,1: & D -56,40,1 +10230 & D 9,4,1: & D -9,-4,1: & D 0,-10,1: & D 55,-36,1: & D 0,7,1: & D 0,-7,1 +10235 & D -5,-2,1: & D -56,33,1: & D 7,3,1: & D -7,-3,1: & D 0,-10,1 +10240 & D -5,-2,1: & D 5,2,1: & D 57,-30,1: & D 0,8,1: & D 0,-8,1: & D -5,-2,1 +10245 & D -57,25,1: & D 57,-25,1: & D 0,-7,1: & D -57,24,1: & D 57,-24,1 +10250 & D -5,-2,1: & D -16,5,1: & D 16,-5,1: & D 0,-4,1 +10255 & S 211,146,1: & D 0,-64,1: & D -15,-20,1: & D 0,52,1: & S 207,108,1 +10260 & C 1,1: & S 156,80,1: & D 24,0,0: & D 6,12,0: & D -6,-12,0: & D 0,-40,0 +10265 & D -26,0,1: & D 0,40,1: & D 5,12,1: & D 27,0,1: & D 0,-42,1: & D -6,-10,1 +10270 & D 6,10,1: & D -27,0,1: & D -4,-10,1: & D 4,10,1: & D 0,42,1 +10275 & S 169,70,0: & C 4,1: & S 169,66,1: & D 0,-3,1: & S 169,74,1 +10280 & D 0,2,1: & S 165,70,1: & D -2,0,1: & S 173,70,1: & D 2,0,1 +10285 & S 165,58,1: & C 1,1: & S 170,58,1: & C 1,1: & S 175,58,1 +10290 & C 1,1: & I 3: RETURN +10300 & H: & I 0: & S 15,190,1: & D 67,-110,1: & D 68,0,1: & D 82,110,1 +10305 & D 0,-140,1: & D -82,-40,1: & D 0,70,0: & D 0,-70,1: & D -68,0,1 +10310 & D 0,70,0: & D 0,-70,1: & D -67,40,1: & D 0,140,1: & S 90,80,1 +10315 & D 0,-50,1: & D 24,0,1: & D 0,50,1: & D -24,0,0: & D 18,10,1: & D 0,-50,1 +10320 & D -18,-10,1: & S 105,64,1 +10325 & S 210,160,1: & D 0,-90,1: & D -23,-14,1: & D 0,74,1: & S 205,110,1 +10330 & S 45,140,1: & D 0,-74,1: & D 18,-14,1: & D 0,60,1: & S 60,86,1 +10335 IF F1=0 THEN & I 3: RETURN +10400 & I 0: & S 124,80,1: & D 26,0,0: & D 0,-70,0: & D 0,70,0 +10401 & S 149,80,0: & D 12,14,0 +10402 & S 150,80,0: & D 10,14,0 +10405 & S 168,18,1: & D 0,86,1: & D -38,0,1: & D 0,-86,1: & D 38,0,1 +10410 & D -38,0,1: & D -6,-8,1: & D 0,70,1: & D 6,24,1 +10415 & S 168,94,1: & D -38,0,1: & S 168,94,1: & D -8,-10,1: & S 168,84,1 +10420 & D -38,0,1: & S 168,84,1: & D -8,-10,1: & S 168,74,1: & D -38,0,1 +10430 & S 168,74,1: & D -9,-10,1: & S 168,64,1: & D -38,0,1: & S 168,64,1 +10435 & D -9,-10,1: & S 168,54,1: & D -38,0,1: & S 168,54,1: & D -18,-18,1 +10440 & D -18,0,1: & D 18,0,1: & D 0,-16,1 +10445 & I 3: RETURN +10500 & H: & I 0: & S 13,180,1: & D 0,-132,1: & D 63,-28,1: & D 83,0,1 +10505 & D 67,30,1: & D 0,130,1: & D -11,-14,1: & D -4,-4,0: & D -17,-25,1 +10510 & D -24,-36,0: & D -12,-20,1: & D 0,-61,1: & D 0,61,1: & D -83,0,1 +10515 & D 0,-60,1: & D 0,60,1: & D -63,100,1: & S 22,90,1: & D 19,0,1 +10520 & D 0,-30,3: & D -19,0,1: & D 0,30,1: & D 0,-30,1: & D 33,-20,1 +10525 & D 13,0,1: & D 0,20,1: & D -28,30,1: & D 0,-30,1: & D 27,-20,1 +10530 & D -11,9,1: & D 0,23,1: & S 52,64,1: & S 60,58,1: & S 157,100,1 +10535 & D 30,0,1: & D 29,34,1: & D -40,0,1: & D 0,2,1: & D 40,0,1: & D 0,-2,1 +10540 & D 0,2,3: & D -2,0,3: & D 0,34,1: & D -3,0,1: & D 0,-34,1: & D -30,0,1 +10545 & D 0,34,1: & D -3,0,1: & D 0,-34,1: & D -2,0,3: & D -20,-34,1: & D 0,-2,1 +10550 & D 20,34,1: & S 159,104,1: & D 0,24,1: & D 3,0,1: & D 0,-18,1 +10555 & I 3: RETURN +10600 & H: & I 0: & S 15,190,1: & D 0,-130,1: & D 75,-50,1 +10605 & D 52,0,1: & D 90,50,1: & D 0,130,1: & D -22,-32,1: & D 0,-52,1 +10610 & D -3,-5,1: & D -42,-43,1: & D -6,0,1: & D -2,4,1: & D 0,10,1: & D -12,0,1 +10613 & D 5,0,1: & D -7,-10,1: & D 0,-50,1: & D 0,50,1 +10615 & D -22,0,1: & D 0,-30,1: & D -15,0,1: & D 13,3,1: & D 0,30,1 +10620 & D -13,-3,1: & D 0,-30,1: & D 0,30,1: & D -15,0,1: & D 0,-50,1: & D 0,50,1 +10625 & D -23,40,1: & D -22,0,1: & D 22,0,1: & D 0,-52,1: & D -22,22,1: & D 0,70,1 +10630 & D -30,50,1: & S 116,49,1: & S 210,158,1: & D -45,0,1: & D 0,-18,1 +10633 & D 0,18,1 +10635 & D -26,-60,0: & D 0,-10,1: & D 6,-16,1: & D 12,0,3: & D 4,4,1: & D -12,0,1 +10640 & D -4,-4,1: & D 4,4,1: & D -6,14,1: & D 10,-2,1: & D 9,0,1: & D 0,-11,1 +10645 & D 0,11,1: & D 19,25,1: & S 165,140,1: & D 10,-20,1: & D 21,0,1 +10650 & D -5,-7,1: & D -21,0,1:: & D 5,7,1: & D -5,-7,1: & D -7,14,1 +10655 & D -20,-37,1: & S 165,140,1: & D -26,-50,1: & S 165,158,1 +10660 & D -26,-59,1: & D 0,-1,1: & S 196,120,1: & D 0,-14,1: & D 2,-5,1 +10665 & D 9,0,1: & D -9,0,1: & D -39,-43,1 +10670 & I 3: RETURN +10700 & H: & I 0: & S 15,190,1: & D 57,-106,1: & D -57,106,1: & D 0,-150,1 +10705 & D 67,-30,1: & D 0,32,1: & D 0,-32,1: & D 75,0,1: & D 0,50,1: & D 0,-50,1 +10710 & D 75,30,1: & D 0,150,1: & D -75,-130,1: & S 202,138,1: & D 0,-78,1 +10715 & D -22,-18,1: & D 0,56,1: & S 157,60,1: & D -9,0,1: & D 2,3,3 +10720 & D -78,0,1: & D 0,8,1: & D 78,0,2: & D 0,-8,1: & D 0,20,1 +10725 & D -78,0,1: & D 0,-38,1: & D 10,-12,1: & S 82,42,1: & D -10,13,1 +10730 & D 6,1,1: & D 9,-13,1: & D -4,-1,1: & D 4,1,1: & D 0,6,1: & D -9,13,1 +10735 & D 0,1,1: & D 0,-7,1: & D 0,6,1: & D 9,-13,1: & D 55,0,1: & D 8,15,1 +10738 IF LX=2 THEN GOTO 10745 +10740 & S 197,93,1: & C 1,1 +10745 IF LX=0 THEN & I 3: RETURN +10750 IF LX=1 THEN GOTO 10780 +10755 & S 202,137,0: & D 0,-77,0: & D -22,-18,0: & D 0,55,0 +10760 & S 30,162,1: & D 26,-49,0: & D 0,1,0: & D -26,49,0 +10765 & S 30,162,1: & D 0,-80,1: & D 22,-22,1: & D 0,9,1: & D 0,-9,1 +10770 & D -22,22,1: & D 27,-15,1: & D 0,77,1: & D -25,18,1: & S 51,111,1 +10775 & C 1,1: & I 3: RETURN +10780 & S 30,50,1: & D 0,40,1: & D 22,-24,1: & D 0,-29,1: & D -22,14,1 +10785 & D 12,-8,3: & D 0,33,1 +10790 & I 3: RETURN +10800 & H: & I 0: & S 15,190,1: & D 0,-140,1: & D 82,-40,1: & D 53,0,1 +10805 & D 75,40,1: & D 0,140,1: & D -30,-50,1: & D 0,-80,1: & D -26,-22,1 +10810 & D 0,60,1: & D 26,0,1: & D -26,0,1: & D -19,-30,1: & D 0,-58,1 +10812 & D 0,58,1: & D -22,0,1 +10815 & D 0,-40,1: & D -15,0,1: & D 13,4,1: & D 0,40,1: & D -13,-4,1: & D 0,-40,1 +10820 & D 0,40,1: & D -15,0,1: & D 0,-58,1: & D 0,58,1: & D -30,42,1: & D -22,0,1 +10825 & D 22,0,1: & D 0,-68,1: & D -22,16,1: & D 0,86,1: & D -30,43,1 +10830 & S 123,52,1: & I 3: RETURN +10900 & H: & I 0: & S 232,190,1: & D 0,-150,1: & D -82,-30,1: & D 0,50,1 +10905 & D 0,-50,1: & D -60,0,1: & D 0,50,1: & D 0,-50,1: & D -75,30,1: & D 0,150,1 +10910 IF LX=0 THEN & D 75,-130,1: & D -23,40,3:GOTO10920 +10915 & D 30,-52,1: & D -30,52,1: & D 75,-130,3: & D -23,40,1: & D -22,0,1 +10918 & D 22,0,1 +10920 & D 0,-58,1: & D -22,16,1: & D 0,80,1 +10925 & S 90,60,1: & D 60,0,1: & D 82,130,1 +10930 IF LX=0 THEN & S 63,78,1: & C 1,1: & I 3: RETURN +10935 IF LX=1 THEN & I 3: RETURN +10940 & S 210,100,1: & D -15,0,1: & D -3,-10,1: & D 18,0,1: & D 0,10,1 +10945 & D 0,-10,1: & D -27,-25,1: & D 0,5,1: & D 20,20,1: & D -20,-20,1 +10950 & D -8,0,1: & D 8,0,1: & D 0,-5,1: & D -12,0,1: & D 21,25,1: & D -21,-25,1 +10955 & D -1,0,1: & D 2,8,1: & D 21,26,1 +10960 & I 3: RETURN +11000 & H: & I 0: & S 15,190,1: & D 0,-150,1: & D 82,-30,1: & D 0,40,1 +11005 & D 0,-40,1: & D 60,0,1: & D 0,40,1: & D 0,-40,1: & D 75,30,1: & D 0,150,1 +11010 & D -22,-42,1: & D 0,-75,1: & D -23,-21,1: & D 0,52,1: & D 23,0,1 +11015 & D -23,0,1: & D -30,-54,1: & D -60,0,1: & D -82,140,0: & D 82,-140,1 +11020 & D 15,0,1: & D 0,-24,1: & D 12,0,1: & D 0,24,1: & M -3,-12,1 +11025 IF LX=0 THEN & I 3: RETURN +11030 & S 187,104,1: & D 22,0,0: & M -22,0,1: & D 23,44,1: & M -5,-45,1 +11035 & C 1,1: & S 30,50,1: & D 0,40,1: & D 37,-34,1: & D 0,-25,1: & D -37,20,1 +11040 & D 21,-10,3: & D 0,31,1: & I 3: RETURN +11500 & H: & I 0: & S 15,180,1: & D 0,-140,1: & D 67,-30,1: & D 75,0,1 +11505 & D 67,30,1: & D 0,150,1: & D -42,-70,1: & D 0,-70,1: & D -24,-20,1 +11510 & D 0,-20,1: & D 0,20,1: & D -45,0,1: & D -15,20,1: & D 85,0,1: & D -33,0,1 +11515 & D 0,70,1: & D 33,0,1: & D -34,0,1: & D -14,-40,1: & D 0,-30,1: & D 0,30,1 +11520 & D -22,0,1: & D 0,-30,1: & D 0,30,1: & D -15,40,1: & D 0,-70,1: & D 0,30,1 +11525 & D -15,0,1: & D 0,-70,1: & D 0,70,1: & D -67,100,1 +11530 & S 167,60,1: & C 1,1: & M 0,10,1: & C 1,1: & M 0,10,1: & C 1,1 +11540 & M 0,20,1: & D 6,2,1: & D -6,-2,1: & C 8,1 +11545 REM POKE 43346,1:POKE 43348,3:POKE 43386,1:POKE 43388,3 +11550 REM POKE 43746,4:POKE 43748,3:POKE 43786,4:POKE 43788,3 +11555 REM POKE 44146,2:POKE 44148,3:POKE 44186,2:POKE 44188,3 +11560 & I 3: RETURN +11700 & H: & I 0: & S 15,190,1: & D 0,-140,1: & D 60,-40,1: & D 75,00,1 +11705 & D 82,40,1: & D 0,140,1: & D -45,-72,3: & D 0,-54,1: & D -15,-14,1 +11710 & D 0,44,1: & S 232,190,1: & D -82,-130,1: & D 0,-50,1: & D 0,50,1 +11715 & D -75,0,1: & D 0,-50,1: & D 0,50,1: & D -4,10,1: & D 9,0,1: & D -23,0,1 +11720 & D -34,50,1: & D 39,0,1: & D 18,-50,1: & D 0,4,1: & D -18,52,1 +11725 & D 0,-6,1: & D 0,6,1: & D -39,0,1: & D 0,-6,1 +11730 & S 15,190,1: & D 15,-33,1: & D 0,-30,1 +11735 & D 4,0,3: & D 0,37,1: & D -4,0,1: & D 0,-7,1: & D 0,7,1: & D 4,0,1 +11740 : & D 3,-8,1: & D 0,-29,1: & D 15,0,3: & D 0,37,1: & D 4,0,1: & D 0,-37,1 +11745 & D 0,37,1: & D 3,-8,1: & D 0,-29,1: & D -14,0,3: & D -7,16,1 +11750 & S 74,93,1: & D 0,12,1: & D 3,0,1: & D 0,-19,1: & D 0,19,1 +11755 & D 2,-7,1: & D 0,-18,1 +11760 & S 184,86,1: & I 3: RETURN +11800 & H: & I 0: & S 15,191,1: & D 0,-160,1: & D 75,-30,1: & D 52,0,1 +11805 & D 90,30,1: & D 0,160,1: & S 15,191,1: & D 75,-140,1: & D 0,-50,1 +11810 & D 0,50,1: & D 15,0,1: & D 0,-30,1: & D 12,4,1: & D 0,30,1: & D -12,-4,1 +11815 & D 0,-30,1: & D 15,0,1: & D 0,30,1: & D 22,0,1: & D 0,-50,1: & D 0,50,1 +11820 & D 36,55,1: & D 21,0,1: & D -21,0,1: & D 0,-60,1: & D 21,15,1: & D 0,74,1 +11825 & D 6,8,1: & D -106,0,1: & D -15,46,1: & D 15,-46,1: & D 0,10,1: & D 106,0,1 +11830 & D 0,-10,1: & D 0,10,1: & D 4,5,1: & D -112,0,1: & D 2,-5,1: & D -2,5,1 +11835 & D 0,10,1: & D 112,0,1: & D 0,-10,1: & D 0,10,1: & D 4,6,1: & D -119,0,1 +11840 & D 3,-6,1: & D -3,6,1: & D 0,10,1: & D 119,0,1: & D 0,-10,1: & D 0,10,1 +11845 & D 4,6,1: & D -126,0,1: & D 3,-6,1: & S 115,49,1 +11850 & I 3: RETURN +12200 & H: & I 0: & S 15,190,1: & D 0,-150,1: & D 75,-30,1: & D 0,50,1 +12205 & D 0,-50,1: & D 60,0,1: & D 0,50,1: & D 0,-50,1: & D 82,30,1: & D 0,150,1 +12210 & D -82,-130,1: & D -45,0,1: & D 0,-30,1: & D 15,0,1: & D 0,30,1: & D -30,0,1 +12215 & D -30,53,1:IF LX=2 THEN & D -23,0,1: & D 23,0,1 +12220 & D 0,-60,1: & D -23,17,1: & D 0,80,1 +12225 IF LX<>2 THEN & D 23,-37,1: & D -23,37,1 +12230 & D -22,40,1:IF LX<>2 THEN & S 57,88,1: & C 1,1 +12235 IF LX<>0 THEN & S 117,45,1: & C 1,1: & I 3: RETURN +12240 & S 105,60,1: & D 15,0,0: & M -15,0,1: & D 0,-30,1: & D 12,3,1 +12245 & D 0,30,1: & D -12,-4,1: & S 115,48,1: & I 3: RETURN +12299 GOTO14000 +12300 & H: & I 0: & S 15,190,1: & D 0,-150,1: & D 67,-30,1: & D 67,0,1 +12310 & D 82,30,1: & D 0,150,1: & D -65,-104,1: & D 0,-54,1: & D -16,-10,1 +12315 & D 0,-10,1: & D 0,10,1: & D -37,0,1: & D -3,10,1: & D 0,54,1: & D 56,0,1 +12320 & D 0,-54,1: & D -28,0,1: & D 0,54,1: & D 0,-54,1: & D -28,0,1: & D 0,30,1 +12325 & D -27,0,1: & D 0,-50,1: & D 0,50,1: & D -67,130,1 +12330 & S 133,60,1: & C 1,1: & M 11,0,1: & C 1,1 +12340 & I 3: RETURN +12400 & H: & I 0: & S 30,164,1: & D -15,26,1: & D 0,-143,1: & D 15,-7,1 +12405 & D 0,124,1: & D 15,0,1: & D 0,-124,1: & D -15,0,1: & D 15,0,1: & D 45,-30,1 +12410 & D 0,13,1: & D 0,-13,1: & D 60,0,1: & D 0,50,1: & D 0,-50,1: & D 82,30,1 +12415 & D 0,150,1: & D -82,-130,1: & D -50,0,1: & D -32,104,1: & D -22,0,1 +12420 & D 22,0,1: & D 0,-92,1: & D -22,0,1: & D 44,-48,1: & D 10,0,1: & D -32,48,1 +12425 & D 32,-48,1: & D 0,35,1: & D -14,46,3: & D 0,-61,1 +12430 & S 81,88,1: & C 1,1: & M 11,-21,1: & C 1,1: & I 3: RETURN +12499 REM GOTO 14000 +13000 & H: & I 0: & S 75,62,1: & D -5,0,1: & D -55,108,1: & D 37,-10,1 +13005 & D 30,-90,1: & D -19,5,1: & D 19,-5,1: & D 20,5,1: & D -12,94,1 +13007 & D -38,-10,1: & D 38,10,1: & D 0,20,1: & D -75,0,1: & D 0,-20,1 +13010 & D 0,20,1: & D 75,0,1: & D 15,-112,1: & D 0,-15,1 +13012 & D -3,14,1: & D 3,-14,1: & D -13,0,1 +13015 & D 0,-12,1: & D 0,12,1: & D -4,10,1: & D 0,-22,1: & D 12,0,1 +13020 & D 4,-7,1: & D 0,-15,1: & D -4,6,1: & D 0,16,1: & D 0,-16,1: & D -12,0,1 +13025 & D 4,-6,1: & D 12,0,1: & D -12,0,1: & D 0,-16,1: & D -4,6,1: & D 0,16,1 +13030 & D 0,-16,1: & D -12,0,1: & D 4,-6,1: & D 12,0,1: & D -12,0,1: & D -4,6,1 +13035 & D 0,16,1: & D -12,0,1: & D 4,-6,1: & D 7,0,1: & D -7,0,1: & D -4,6,1 +13040 & D 0,16,1: & D 12,0,1: & D 0,22,1 +13045 & I 3: RETURN -13000 IF PEEK(-16384)<128 THEN 13020 -13010 & W 300 -13020 & W 100: POKE -16368,0: RETURN - -13100 IF PEEK(49179)<128 THEN 13120 -13110 POKE 49234,0: RETURN -13120 POKE 49235,0: RETURN +14000 IF PEEK(-16384)<128 THEN 14020 +14010 & W 300 +14020 & W 100: POKE -16368,0: RETURN diff --git a/lemanoirdudocteurgenius/daviddos lemanoirdudrgenius.dsk b/lemanoirdudocteurgenius/daviddos lemanoirdudrgenius.dsk new file mode 100644 index 0000000..5bc6d02 Binary files /dev/null and b/lemanoirdudocteurgenius/daviddos lemanoirdudrgenius.dsk differ