Merge branch 'main' of https://github.com/antoinevignau/source

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)
+8430 AB=128:DIM A$(AB)
-8440 FOR N=1 TO A
+8440 FOR N=1 TO AB
 8450 READ KO$
 8460 A$(N)=KO$
 8470 NEXT

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
+2710 & W 150:BR=300: RETURN
-2800 BREAK=500 
+2800 BR=500 
 2810 RETURN
-2900 BREAK=530: RETURN
+2900 BR=530: RETURN
-3000 BREAK=100: 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
+10000 & H: & I 0: & S 100,190,1 
-10100 RETURN
+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
-10200 RETURN
+10010 & D -30,-50,1: & D -15,20,1: & D 30,50,1: & S 100,190,1: & D -30,-50,1
-10300 RETURN
+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
-10400 RETURN 
+10020 & D 60,0,1: & D 0,-50,1: & M 0,-10,1: & D 0,-30,1: & D -67,-40,1
-10500 RETURN
+10025 & D -23,30,1: & D -30,-50,1: & D 23,-30,1: & D 30,50,1: & S 197,100,1 
-10600 RETURN
+10030 & D -45,-60,1: & D -52,-30,1: & S 85,60,1: & D 0,-6,1: & S 115,110,1
-10700 RETURN
+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
-10800 RETURN
+10040 & D 0,-20,1: & M 7,-10,1: & D 0,30,1: & S 182,100,1: & D -30,0,1
-10900 RETURN
+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
-11000 RETURN
+10050 & D 0,-20,1: & S 122,190,1: & D 13,7,1: & D 0,-30,1: & D -13,-7,1
-11500 RETURN
+10055 & S 133,182,1: & S 182,150,1: & D -30,0,1: & D 0,20,1: & D 30,0,1
-11700 RETURN
+10060 & D 0,-20,1: & M -7,0,1: & D 0,20,1: & M -16,0,1: & D 0,-20,1
-11800 RETURN
+10065 & S 78,130,1: & D 15,25,1: & D 0,-20,1: & D -15,-25,1: & D 0,20,1
-12200 RETURN
+10070 & M 3,5,1: & D 0,-20,1: & M 9,15,1: & D 0,20,1: & I 3: RETURN
-12300 RETURN
+10100 & H: & I 0: & S 15,190,1: & D 0,-160,1: & D 75,-20,1: & D 0,40,1
-12400 RETURN
+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
+14000 IF PEEK(-16384)<128 THEN 14020
-13010 & W 300
+14010 & W 300
-13020 & W 100: POKE -16368,0: RETURN
+14020 & W 100: POKE -16368,0: RETURN
-
-13100 IF PEEK(49179)<128 THEN 13120
-13110 POKE 49234,0: RETURN
-13120 POKE 49235,0: RETURN