5 CLEAR 280,&HD370
10 CLS:SCREEN1,2:COLOR15,1,1:WIDTH32:DEFINTA-Z:KEYOFF
25 DEFUSR1=&H0090:DEFUSR2=&HD370
30 POKE &HF3B1,26:POKE &HF3DB,0:
40 BLOAD"program.bin"
50 C=USR2(0)
60 DIMA1(9),SN(12),MP$(72),A$(16)
65 DIM IX(4,3),IY(4,3),ZX(4,3),ZY(4,3),EX(4,3),EY(4,3),FX(4,3),FY(4,3),MX(4,3),MN(4,3),MO$(4,3),MD$(4,3),RE$(4,3),WX(12),EG(11)
69 FOR I=0 TO11:WX(I)=0:NEXT
70 D1=0:D2=0:H9=0:H3=2:H4=0:H5=0:H6=2:H7=0:H8=0:GX=0:GY=0:HX=0:HY=0:IG=0:AX=160:AY=211:AT=0:TK=0:P=3:N1=0:N2=0:X=15:Y=20:Y8=0:H=0:SC=0:H2=0:HH=4:XX=1:YY=1:EE=2:SX=0:SY=0:Y8=Y*8
71 F1=0:F2=0:NN=0:NM=0:EG(0)=12:EG(1)=12:EG(2)=8:EG(3)=4:EG(4)=2:EG(5)=0:EG(6)=-2:EG(7)=-4:EG(8)=-8:EG(9)=-12:EG(10)=-12
72 PUT SPRITE 1,(20,199),0,0:PUT SPRITE 2,(40,199),0,0:PUT SPRITE 0,(0,199),0,0
73 RESTORE20000
74 FOR M=0 TO2:FOR N=0 TO3
75 READ S$
76 IX(N,M)=VAL(MID$(S$,1,2)):IY(N,M)=VAL(MID$(S$,3,2)):ZX(N,M)=VAL(MID$(S$,5,2)):ZY(N,M)=VAL(MID$(S$,7,2)):EX(N,M)=VAL(MID$(S$,9,2)):EY(N,M)=VAL(MID$(S$,11,2)):FX(N,M)=VAL(MID$(S$,13,2)):FY(N,M)=VAL(MID$(S$,15,2))
77 MX(N,M)=VAL(MID$(S$,17,2)):MN(N,M)=VAL(MID$(S$,19,2)):MO$(N,M)=MID$(S$,21,6):MD$(N,M)=MID$(S$,27,6):RE$(N,M)=MID$(S$,33,4)
78 S$="":NEXT:NEXT
80 B$="T160L12V8O6 C16R16 C16R16 C8 R16C16 C16R16 C16R16"
90 GX=EX(0,0):GY=EY(0,0):HX=FX(0,0):HY=FY(0,0)
100 CLS:LOCATE 7,8:PRINT"BACK TO THE GANTAN":LOCATE 8,10:PRINT"YEAR OF THE RAT"
110 GOSUB 1310
120 A1(0)=ASC("q"):A1(1)=ASC("z"):A1(2)=ASC("{"):A1(3)=ASC("|")
130 FOR I=0 TO 11:SN(I)=&H30:NEXT
140
160 GOSUB1985
890
900 RESTORE 21000
910 GOSUB 5000
920 ON INTERVAL=80 GOSUB 5000
930 INTERVAL ON
940 ON STRIG GOSUB1485,1485
950 STRIG(0) ON:STRIG(1) ON
960 ON SPRITE GOSUB3000
970 SPRITE ON
980 GOSUB15000
990
1000 S=STICK(0) OR STICK(1):XX=0
1010 IF S=3 OR S=2 THEN XX=1:H=H9 ELSE IF S=7 OR S=8 THEN XX=-1:H=H9+2
1011 H9=(H9+1)MOD2:H2=H9:H1=H9:X=X+XX
1012 IF H3=1 THEN H2=0
1013 IF H6=1 THEN H1=0
1030 IF Y<=1 THEN Y=21:GOTO1510 ELSE IF Y>=22 THEN Y=2:GOTO1550
1040 IF X=30 THEN X=1:GOTO1530 ELSE IF X=0 THEN X=29:GOTO1570
1050 GOTO 1900
1250
1255 IF X=IX(SX,SY) THEN IF Y=IY(SX,SY) THEN FOR I=0 TO 1:LOCATE IX(SX,SY),IY(SX,SY)+I:PRINT MID$(MP$(SY*24+IY(SX,SY)+I),SX*32+IX(SX,SY),2):NEXT:IG=1:IX(SX,SY)=99:SN(N1)=0:WX(N1)=2:GOSUB1984:GOTO1470
1256 IF X=ZX(SX,SY) THEN IF Y=ZY(SX,SY) THEN FOR I=0 TO 1:LOCATE ZX(SX,SY),ZY(SX,SY)+I:PRINT MID$(MP$(SY*24+ZY(SX,SY)+I),SX*32+ZX(SX,SY),2):NEXT:IG=1:ZX(SX,SY)=99:SN(N2)=0:WX(N2)=2:GOSUB1984:GOTO1470
1257 IF SX=0 THEN IF SY=2 THEN IF X=3 THEN IF Y=20 THEN 3600
1266 IF GX<=X3 THEN EE=4:HH=H5 ELSE IF GX>=X4 THEN EE=-4:HH=H4
1268 IF HX<=X5 THEN EF=4:HF=H8 ELSE IF HX>=X6 THEN EF=-4:HF=H7
1270 IF D1=1 THEN 1272
1271 ON F1+1 GOTO 1272,1491,1493,1497
1272 IF D2=1 THEN 1274
1273 ON F2+1 GOTO 1274,1492,1495,1498
1274 IF AC>1 THEN AB=9:AX=X*8:AY=Y8-1 ELSE AB=0:AX=48:AY=240
1282 IF AC>0 THEN AC=AC-1:IF H=0 OR H=1 THEN PUT SPRITE 3,(AX+16,AY),AB,19 ELSE PUT SPRITE 3,(AX-16,AY),AB,18
1283 PUT SPRITE 0,(X*8,Y8-1),14,H:PUT SPRITE 1,(GX,GY),10,H2+HH:PUT SPRITE 2,(HX,HY),10,H1+HF
1290 GOTO 1000
1310 LOCATE 9,13:PRINT"PUSH SPACE KEY"
1320 IF STRIG(0)=0 OR STRIG(1) THEN GOTO 1320
1330 PLAY"T200S8M9000L16O6GAB2":CLS
1340 RETURN
1400
1401 D1=0:D2=0:F1=0:F2=0:NN=0:NM=0:Y8=Y*8:GX=EX(SX,SY)*8:GY=EY(SX,SY)*8-1:HX=FX(SX,SY)*8:HY=FY(SX,SY)*8-1:X3=GX:X4=MX(SX,SY)*8:X5=HX:X6=MN(SX,SY)*8
1402 H3=VAL(MID$(MO$(SX,SY),1,2)):H4=VAL(MID$(MO$(SX,SY),3,2)):H5=VAL(MID$(MO$(SX,SY),5,2))
1403 H6=VAL(MID$(MD$(SX,SY),1,2)):H7=VAL(MID$(MD$(SX,SY),3,2)):H8=VAL(MID$(MD$(SX,SY),5,2))
1405 PUT SPRITE 0,(X*8,Y8-1),14,H:PUT SPRITE 1,(GX,GY),0,H5:PUT SPRITE 2,(HX,HY),0,H8:HH=H5:HF=H8:H2=0:H1=0
1408 IF H4=14 THEN F1=1
1409 IF H7=14 THEN F2=1
1410 IF H4=12 THEN F1=2
1411 IF H7=12 THEN F2=2
1412 IF H4=4 THEN F1=3
1413 IF H7=6 THEN F2=3
1427 IF SY<0 OR SY>2 THEN SY=0
1428 IF SX<0 OR SX>3 THEN SX=0
1429 K=0:FOR I=SY*24 TO SY*24+21
1430 LOCATE 0,K+2:PRINT MID$(MP$(I+2),SX*32+1,32):K=K+1:NEXT
1440 ON SY+1 GOTO 1444,1446,1449
1441 GOTO 1468
1442
1444 ON SX+1 GOTO 2005,2015,2025,2035
1445
1446 ON SX+1 GOTO 2045,2055,2065,2075
1448
1449 ON SX+1 GOTO 2085,2095,2105,2115
1450
1460
1462 IF IG=1 THEN IG=0:GOTO1467
1466 PUT SPRITE 0,(X*8,Y8-1),14,H:PUT SPRITE 1,(GX,GY),0,H5:PUT SPRITE 2,(HX,HY),0,H8
1467 SPRITE ON
1469 GOTO1250
1470
1480 INTERVAL OFF:B=USR1(0):PLAY"","","T200S8M9000L16O6D8R16O5BO6DDD"
1481 FOR I=0 TO 100:NEXT
1482 INTERVAL ON
1483 GOTO1411
1485
1486 AC=3
1487 RETURN
1490
1491 GX=GX+EE:GOTO1273
1492 HX=HX+EF:GOTO1274
1493 GX=GX+EE:GY=GY-EG(NN):NN=NN+1:IF NN>10 THEN NN=0
1494 GOTO1273
1495 HX=HX+EF:HY=HY-EG(NM):NM=NM+1:IF NM>10 THEN NM=0
1496 GOTO 1274
1497 GX=GX+EE/2:GOTO1273
1498 HX=HX+EF/2:GOTO1274
1500
1501 SPRITE OFF
1510 IF SY>0 THEN SY=SY-1 ELSE SY=2
1520 GOTO1400
1530 IF SX<3 THEN SX=SX+1 ELSE SX=0
1540 GOTO1400
1550 IF SY<2 THEN SY=SY+1 ELSE SY=0
1560 GOTO1400
1570 IF SX>0 THEN SX=SX-1 ELSE SX=3
1580 GOTO1400
1590
1600 VP=VPEEK(AE):V2=VPEEK(AE+32)
1605 IF VP=A1(0) THEN X=X2:XX=0
1610 IF V2=A1(0) THEN X=X2:XX=0
1620
1630 IF VP>=A1(1) THEN IF VP<=A1(3) THEN X=X2:XX=0
1640 IF V2>=A1(1) THEN IF V2<=A1(3) THEN X=X2:XX=0
1650 GOTO 1974
1660 VP=VPEEK(AD):V2=VPEEK(AD+32)
1665 IF VP=A1(0) THEN X=X2:XX=0
1670 IF V2=A1(0) THEN X=X2:XX=0
1680
1690 IF VP>=A1(1) THEN IF VP<=A1(3) THEN X=X2:XX=0
1700 IF V2>=A1(1) THEN IF V2<=A1(3) THEN X=X2:XX=0
1710 GOTO 1974
1750
1760 IF VPEEK(AD)=A1(0) OR VPEEK(AE)=A1(0) THEN Y8=(Y2+1)*8:JC=0:JY=0:GOTO1250
1780 IF VPEEK(AD+32)=A1(0) OR VPEEK(AE+32)=A1(0) THEN Y8=(Y2+2)*8:JC=0:JY=0:GOTO1250
1790 IF VPEEK(AD-32)=A1(0) OR VPEEK(AE-32)=A1(0) THEN Y8=Y2*8:JC=0:JY=0
1800 GOTO1870
1810 IF VPEEK(AD+64)=A1(0) OR VPEEK(AE+64)=A1(0) THEN Y8=Y2*8:JF=0:GOTO1250
1830 IF JY>=8 THEN IF VPEEK(AD+96)=A1(0) OR VPEEK(AE+96)=A1(0) THEN Y8=(Y2+1)*8:JF=0:GOTO1250
1850 IF JY=16 THEN IF VPEEK(AD+128)=A1(0) OR VPEEK(AE+128)=A1(0) THEN Y8=(Y2+2)*8:JF=0:GOTO1250
1870 IF JF=0 THEN JF=1:JC=0:JY=0
1880 GOTO 1250
1900
1902 IF JF=1 THEN 1910
1903 IF S>=3 THEN IF S<=7 THEN 1970
1904 IF S=0 THEN 1970
1906 JF=1:JY=-16:JC=3
1910 IF JC=0 THEN 1940
1915 IF S>=3 AND S<=7 THEN JC=0:GOTO1940
1920 IF S=0 THEN JC=0:GOTO 1940
1930 JC=JC-1:IF JY>8 THEN JY=8
1940 IF JC=0 AND JY<16 THEN JY=JY+4
1950 Y8=Y8+JY
1960 IF S=3 OR S=2 THEN H=1 ELSE IF S=7 OR S=8 THEN H=3
1970 X2=(X-XX):Y=Y8\8:Y2=Y8\8:IF JF=0 THEN JY=0
1972 AD = &H1800+X+Y*32:AE=&H1800+X+1+Y*32
1973 IF XX>0 THEN 1600 ELSE IF XX<0 THEN 1660
1974 AD = &H1800+X+Y*32:AE=&H1800+X+1+Y*32
1975 IF JY<0 THEN 1760 ELSE1810
1984
1985 FOR I=0 TO 11
1986 AA=&H80+I*4:BB=&H80+I*4+2:CC=&H80+I*4+1:DD=&H80+I*4+3
1987 LOCATE I*2,0:PRINT CHR$(AA+SN(I)):LOCATE I*2+1,0:PRINT CHR$(BB+SN(I))
1988 LOCATE I*2,1:PRINT CHR$(CC+SN(I)):LOCATE I*2+1,1:PRINT CHR$(DD+SN(I))
1989 NEXT
1990 LOCATE 26,0:IF P=3 THEN PRINT"sss"
1997 RETURN
2000
2005
2009 IF IX(0,0)=99 THEN GOTO2011
2010 LOCATE IX(0,0),IY(0,0):PRINT CHR$(&H80);CHR$(&H82):LOCATE IX(0,0),IY(0,0)+1:PRINT CHR$(&H81);CHR$(&H83):N1=0
2011 LOCATE 25+WX(0),20:PRINT CHR$(&H80+SN(0));CHR$(&H82+SN(0)):LOCATE 25+WX(0),21:PRINT CHR$(&H81+SN(0));CHR$(&H83+SN(0))
2013 GOTO1460
2015
2020 GOTO1460
2025
2029 IF IX(2,0)=99 THEN GOTO1460
2030 LOCATE IX(2,0),IY(2,0):PRINT CHR$(&H84);CHR$(&H86):LOCATE IX(2,0),IY(2,0)+1:PRINT CHR$(&H85);CHR$(&H87):N1=1
2032 GOTO1460
2035
2036 IF IX(3,0)=99 THEN GOTO2038
2037 LOCATE IX(3,0),IY(3,0):PRINT CHR$(&HA8);CHR$(&HAA):LOCATE IX(3,0),IY(3,0)+1:PRINT CHR$(&HA9);CHR$(&HAB):N1=10
2038 IF ZX(3,0)=99 THEN GOTO2040
2039 LOCATE ZX(3,0),ZY(3,0) :PRINT CHR$(&HAC);CHR$(&HAE):LOCATE ZX(3,0),ZY(3,0)+1 :PRINT CHR$(&HAD);CHR$(&HAF):N2=11
2040 LOCATE 22+WX(10),20:PRINT CHR$(&HA8+SN(10));CHR$(&HAA+SN(10)):LOCATE 22+WX(10),21:PRINT CHR$(&HA9+SN(10));CHR$(&HAB+SN(10))
2042 GOTO1460
2045
2049 IF IX(0,1)=99 THEN GOTO2051
2050 LOCATE IX(0,1),IY(0,1):PRINT CHR$(&HA4);CHR$(&HA6):LOCATE IX(0,1),IY(0,1)+1:PRINT CHR$(&HA5);CHR$(&HA7):N1=9
2051 LOCATE 29-WX(1),20:PRINT CHR$(&H84+SN(1));CHR$(&H86+SN(1)):LOCATE 29-WX(1),21:PRINT CHR$(&H85+SN(1));CHR$(&H87+SN(1))
2053 GOTO1460
2055
2060 GOTO1460
2065
2069 IF IX(2,1)=99 THEN GOTO2071
2070 LOCATE IX(2,1),IY(2,1):PRINT CHR$(&H8C);CHR$(&H8E):LOCATE IX(2,1),IY(2,1)+1:PRINT CHR$(&H8D);CHR$(&H8F):N1=3
2071 LOCATE 17+WX(2),11:PRINT CHR$(&H88+SN(2));CHR$(&H8A+SN(2)):LOCATE 17+WX(2),12:PRINT CHR$(&H89+SN(2));CHR$(&H8B+SN(2))
2072 LOCATE 17+WX(3),20:PRINT CHR$(&H8C+SN(3));CHR$(&H8E+SN(3)):LOCATE 17+WX(3),21:PRINT CHR$(&H8D+SN(3));CHR$(&H8F+SN(3))
2074 GOTO1460
2075
2079 IF IX(3,1)=99 THEN GOTO1460
2080 LOCATE IX(3,1),IY(3,1):PRINT CHR$(&HA0);CHR$(&HA2):LOCATE IX(3,1),IY(3,1)+1:PRINT CHR$(&HA1);CHR$(&HA3):N1=8
2082 GOTO1460
2085
2089 IF IX(0,2)=99 THEN GOTO2091
2090 LOCATE IX(0,2),IY(0,2):PRINT CHR$(&H88);CHR$(&H8A):LOCATE IX(0,2),IY(0,2)+1:PRINT CHR$(&H89);CHR$(&H8B):N1=2
2091 LOCATE 8-WX(11),20 :PRINT CHR$(&HAC+SN(11));CHR$(&HAE+SN(11)):LOCATE 8-WX(11),21 :PRINT CHR$(&HAD+SN(11));CHR$(&HAF+SN(11))
2092 LOCATE 3,20:PRINT CHR$(&HE0);CHR$(&HE2):LOCATE 3,21:PRINT CHR$(&HE1);CHR$(&HE3)
2093 GOTO1460
2095
2096 IF IX(1,2)=99 THEN GOTO2098
2097 LOCATE IX(1,2),IY(1,2):PRINT CHR$(&H98);CHR$(&H9A):LOCATE IX(1,2),IY(1,2)+1:PRINT CHR$(&H99);CHR$(&H9B):N1=6
2098 IF ZX(1,2)=99 THEN GOTO2100
2099 LOCATE ZX(1,2),ZY(1,2):PRINT CHR$(&H9C);CHR$(&H9E):LOCATE ZX(1,2),ZY(1,2)+1:PRINT CHR$(&H9D);CHR$(&H9F):N2=7
2100 LOCATE 14-WX(5), 8:PRINT CHR$(&H94+SN(5));CHR$(&H96+SN(5)):LOCATE 14-WX(5),9:PRINT CHR$(&H95+SN(5));CHR$(&H97+SN(5))
2101 LOCATE 14-WX(6),17:PRINT CHR$(&H98+SN(6));CHR$(&H9A+SN(6)):LOCATE 14-WX(6),18:PRINT CHR$(&H99+SN(6));CHR$(&H9B+SN(6))
2102 LOCATE 22-WX(4),17:PRINT CHR$(&H90+SN(4));CHR$(&H92+SN(4)):LOCATE 22-WX(4),18:PRINT CHR$(&H91+SN(4));CHR$(&H93+SN(4))
2104 GOTO1460
2105
2109 IF IX(2,2)=99 THEN GOTO1460
2110 LOCATE IX(2,2),IY(2,2):PRINT CHR$(&H90);CHR$(&H92):LOCATE IX(2,2),IY(2,2)+1:PRINT CHR$(&H91);CHR$(&H93):N1=4
2112 GOTO1460
2115
2119 IF IX(3,2)=99 THEN GOTO2121
2120 LOCATE IX(3,2),IY(3,2):PRINT CHR$(&H94);CHR$(&H96):LOCATE IX(3,2),IY(3,2)+1:PRINT CHR$(&H95);CHR$(&H97):N1=5
2121 LOCATE 6+WX(7),20:PRINT CHR$(&H9C+SN(7));CHR$(&H9E+SN(7)):LOCATE 6+WX(7),21:PRINT CHR$(&H9D+SN(7));CHR$(&H9F+SN(7))
2122 LOCATE 11+WX(8),20:PRINT CHR$(&HA0+SN(8));CHR$(&HA2+SN(8)):LOCATE 11+WX(8),21:PRINT CHR$(&HA1+SN(8));CHR$(&HA3+SN(8))
2123 LOCATE 16+WX(9),20:PRINT CHR$(&HA4+SN(9));CHR$(&HA6+SN(9)):LOCATE 16+WX(9),21:PRINT CHR$(&HA5+SN(9));CHR$(&HA7+SN(9))
2130 GOTO 1460
3000
3010 SPRITE OFF:TN=0:TI=14:TH=H:TX=X*8:TY=Y8-1:INTERVAL OFF:B=USR1(0):PLAY"","","T200S8M9000L16O6CCCGGGGG"
3011 IF H=0 OR H=1 THEN CX=AX+16 ELSE CX=AX-16
3012 IF ABS(CX-GX)<=16 AND ABS(AY-GY)<=16 THEN D1=1:F1=0:TN=1:TI=15:TH=H2+HH:TX=GX:TY=GY:GOTO3022
3013 IF ABS(CX-HX)<=16 AND ABS(AY-HY)<=16 THEN D2=1:F2=0:TN=2:TI=15:TH=H1+HF:TX=HX:TY=HY:GOTO3022
3014 IF ABS(TX-GX)<=16 AND ABS(TY-GY)<=16 THEN 3017
3015 IF ABS(TX-HX)<=16 AND ABS(TY-HY)<=16 THEN 3017
3016 GOTO3586
3017 P=P-1
3018 IF P=2 THEN P1$="ss "
3019 IF P=1 THEN P1$="s "
3020 IF P=0 THEN P1$=" "
3021 LOCATE 26,0:PRINT P1$
3022 KY=-8:KC=8
3023 KC=KC-1
3024 IF KC<=0 AND KY<8 THEN KY=KY+2
3025 TY=TY+KY
3026 IF TY>=196 THEN 3480 ELSE IF TY<=8 THEN KY=0
3027 IF TN<>0 THEN PUT SPRITE 4,(TX,TY-16),8,20
3028 IF TN<>0 THEN IF F1=3 OR F2=3 THEN PUT SPRITE 1,(TX,TY),TI,4:PUT SPRITE 2,(TX,TY+16),TI,6:GOTO3023
3029 PUT SPRITE TN,(TX,TY),TI,TH
3030 GOTO 3023
3480 IF TN<>0 THEN IF F1=3 OR F2=3 THEN LX=64:LY=211:GX=16:GY=211:HX=32:HY=211:F1=0:F2=0:GOTO3495
3490 LX=64:LY=211:IF TN=1 THEN F1=0:GX=16:GY=211 ELSE IF TN=2 THEN F2=0:HX=32:HY=211
3495 PUT SPRITE 1,(GX,GY),0,H2+H5:PUT SPRITE 2,(HX,HY),0,H2+H8:PUT SPRITE 4,(LX,LY),0,21
3497 IF TN<>0 THEN 3585
3500 JF=0
3520 IF P<=0 THEN LOCATE 11,11:PRINT"GAME OVER"ELSE 3580
3530 IFSTRIG(0)=-1THEN3550
3540 IFSTRIG(1)=0THEN3530 ELSE GOTO3550
3550 PUT SPRITE 0,(0,211),14,H:PUT SPRITE 1,(16,211),10,H2/2+HH:PUT SPRITE 2,(32,211),10,H2/2+HH+2
3560 STRIG(0) OFF:STRIG(1) OFF:RETURN69
3580 BX=VAL(MID$(RE$(SX,SY),1,2)):BY=VAL(MID$(RE$(SX,SY),3,2))
3582 PUT SPRITE 0,(BX*8,BY*8-1),14,H:X=BX:Y=BY:Y8=BY*8
3585 INTERVAL ON
3586 SPRITE ON
3590 RETURN
3600
3610 CLS:INTERVAL OFF:B=USR1(0):PLAY"","","T200S8M9000L16O6D8R16O5BO6DDD"
3615 LOCATE7,10:PRINT"CONGRATULATIONS":PUT SPRITE 0,(0,211),0,H:PUT SPRITE 1,(16,211),0,H2+H5:PUT SPRITE 2,(32,211),0,H2+H8
3620 IF STRIG(0)=-1 THEN3640
3630 IF STRIG(1)=0 THEN3620 ELSE GOTO3640
3640 PLAY"T200S8M9000L16O6GAB2":STRIG(0) OFF:STRIG(1) OFF:SPRITE OFF:GOTO69
5000
5010 IF PEEK(&HFB40)<>0 THEN RETURN
5020 READ U$
5030 IF U$="##" THEN RESTORE 21000:READ U$
5040 PLAY"T160S8M9000L12V10O5"+U$,B$
5050 RETURN
15000
15001 M1$ = "uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu"
15002 M2$ = "uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuqquuuuuuqquuuuuu"
15003 M3$ = "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqtttttqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"
15004 M4$ = "qqttttttttttttttttttttttqttqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqttttqqqqqqqqqqqqqqqqqqqqq"
15005 M5$ = "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqtttqqqqqqqqqqqqqqqqqqqqqqqqqttqqqqqqqqqq"
15010 MP$(0)= M1$
15020 MP$(1)= M1$
15030 MP$(2)= M2$
15040 MP$(3)= M2$
15050 MP$(4)= M2$
15060 MP$(5)= M2$
15070 MP$(6)= M2$
15080 MP$(7)= M2$
15090 MP$(8)= M2$
15100 MP$(9)= M2$
15110 MP$(10)=M2$
15120 MP$(11)=M2$
15130 MP$(12)=M2$
15140 MP$(13)=M2$
15150 MP$(14)=M2$
15160 MP$(15)="uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuurruuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuvvvuuuuuuuuuuqquuuuuuz|uvvvuu"
15170 MP$(16)="uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuurruuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuvvvvuuuuvvvvvqquuuuuuz{uvvvuu"
15180 MP$(17)="uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuurrrrrruuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuvvvvuuwuwuuuuvvvvvqquvvvuuz{uvvvuu"
15190 MP$(18)="vvvuvvvuuuuuuuuuuuuuuuuuuuuqqqqqqqquuvvvuuuuuuuuvvvuuuvuurrrruuuvvvuqqqqqqqqqqquuuuuuuuuuuvvvuvvvvuqqqqvvvuvvvvvqquvvvuuz|uvvvuu"
15200 MP$(19)="vvvuvvvuuuvvvuvvvuvvvuuuuuuz{uuuuvvvuvvvuvuuvuvuvvvuuuvuuurruuuuvvvuqqqqqqqqqqquuuuuuuuuuuvvvuvvvvuqqqqvvvuvvvvvqquvvvuuz|uvvvuu"
15210 MP$(20)="vvvuvvvuvuvvvuvvvuvvvuuuuuuz{uuuuvvvuvvvuvuuwuwuuwuuuuwuuuuuuuuuvvvuuvuvuvuvuqqqqqqqqqqqvuvvvuvvvvuuuuuvvvuuuwuuqquvvvuuz|uvvvuu"
15220 MP$(21)="uwuuuwuuwuuwuuuwuuuwuuuuuuuz|uuuuuwuuuwuuwqqqqqqqqqqqqquuuuuuuuuuwuuuwuwuwuwuqqqqqqqqqqqwuuwuuuwwuuuuuuuwuuuqqqqqquuwuuwz|uuwuuu"
15230 MP$(22)= M3$
15240 MP$(23)= M3$
15250 MP$(24)= M3$
15260 MP$(25)= M3$
15270 MP$(26)="qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqttttqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"
15280 MP$(27)="rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrtrrrrrrrrrrrrrrrtttrttttrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrqqrrrrrrrrrrrrrrrrrrrrr"
15290 MP$(28)="ttttrrrrttrrrttttttttrrrtrrrtrrttttttttttrtrrrrrrtrtttttrttttrtttttttrrrrrttrrrrrtttttrrtrrrrrrrrrrrrrrrrtqrrttttttrrrrrrrrttrrr"
15300 MP$(29)="ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttrrrttttrrrtttttttttttrrrrrrrrrrrrtttqtttttttttttrrtttttttt"
15310 MP$(30)="qqqqqttttttttttttttttttttttttttttttttttttttttttttttttttqqqqttttttttttttrtttqqqqqqqqqqqqqqqqqqqqqqqqqqqttttqtttttttttttttttttttqq"
15320 MP$(31)="qqqqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|tttqqqttrrrrrrtttttttqtttttttttttttttttttqq"
15330 MP$(32)="qqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz{ttttqttttrrrrtttttttqqtttttttttttttttttttqq"
15340 MP$(33)="qqttttttttttttttttttttttttttyqqqqqqqqqqqxtttttttttqqqttttttttttttttttttqqttttttttttz{ttttqttttqqqqqqqqqqqqqtttttttttttttttttttqq"
15350 MP$(34)="qqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|ttttqttttttttttttttttttttttttttttttttttqqqq"
15360 MP$(35)="qqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|ttttqttttttttttttttttttttttttttttttttttqqqq"
15370 MP$(36)="qqtttttttttttttttttyqqqqqqqqqttttttttttttttttttttttttttttttttttttttttttttttttttttttz|ttttqttttttttttttttttttttttttttttttttttttqq"
15380 MP$(37)="qqttttttttttttttttttttttttqqqttttttttttttttttttttttttttttttttttttttttttttttqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqtttttttttttqq"
15390 MP$(38)="qqtttttttttttttttttttttttttqqtttttttttttttttttyqqqqqqxtttttttttttttttttttttttttttttz|ttttttttttttttttqqqqqqqqqqqqqttttttttttttqq"
15400 MP$(39)="qqrtttttttttttttttttttttttttqttttttttttttttttttttttttttttttttttttttttttttttttttttttz{tttttttttttttttttqqqqqqqqqqqtttrrttttttttqq"
15410 MP$(40)="qqrrrrrrrrttttttttrttrttqqqqqrrrtrrtrrrrrrtrrrttttrttrttrttttttttttqqttttttttttttttz{rrrrrrrrrrrrrtttttqqqqqqqqqtttrrrrrtqqqqqqq"
15420 MP$(41)="qqrrrrrrrrrrrrrrrrrrrrrrqrrz{rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrtttttttttttttttrrrz|rrrrrrrrrrrrrrrrtttqqqqqqqrrrrrrrrrrtttttqq"
15430 MP$(42)="qqrrrrrrrrrrryqqqqqqxtrrqrrz|rrrrrrrryqqqxrrrrrrrrrrrrrrrrrrrrrrrrrrtttttttttrrrrrrz|rrrrrrrrrrrrrrrrrrrrqqqqqrrrrrrrrrrrrrrrrqq"
15440 MP$(43)="qqrrrrrrrrrrrrrrttttttrrqrrz|rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrz|rrrrrrrrrrrrrrrrrrrrrrqrrrrrrrrrrrrrrrrrrqq"
15450 MP$(44)="qqrrrrrrrrrrrrrrrrrrrrrrqrrz{rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrz|rrrrrrrrrrrrrrrrrrrtttqrrrrrrrrrrrrrrrrrrqq"
15460 MP$(45)="qqqqqqqqrrrrrrrrrrrrrrrrqrrz{rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrz|rrrrrrrrrrrrrrrrrrttttqrrrrrrrrrrrrrrrrrrqq"
15470 MP$(46)= M4$
15480 MP$(47)= M4$
15490 MP$(48)= M4$
15500 MP$(49)= M4$
15510 MP$(50)= M4$
15520 MP$(51)="qqttttttttttttttttttttttqttttttqqqqqqqqqqqqqqqttttttqqqqqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
15530 MP$(52)="qqttttttttttttttttttttttqttttttqqqqqqqqtttttz|ttttttqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
15540 MP$(53)="qqttttttttttttttttttttttqttttttqqqqqqqttttttz{ttttttqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
15550 MP$(54)="qqtttttttttqqqttttttttttqtttttttttqqqtttttttz{ttttttqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
15560 MP$(55)="qqttttttttttttttttttttttqttttttttttqttttttttz|ttttttqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
15570 MP$(56)="qqtttttttttttttttttttqqqqttttttttttqttttttttz|ttttttqqtttttttttttttttttttttttttttttrttttttrttrttttrtrtrtrrrrtrrrrtrtttrttrrrrrqq"
15580 MP$(57)="qqttttttttttttttttttttqqqttttttttttqttttttttz|ttttttqqtttttttttttttttttttttttttttrrrrrtttrttrttttrtttrtttttttrttrtttrrttttttrtqq"
15590 MP$(58)="qqtttttttttttttttttttttqqttttttttttqtttttttqqqqqttttqqtttttttttttttttttttttttttttttrttttrrttrttttrtttrttrrrrtrrrrttrtrtttttrttqq"
15600 MP$(59)="qqqqqqqqttttttttttttttttqttttttttttqtttttttqqqqqttttqqttttttttttttttttttttttttttttrtrttttrtrtttrtrtttrtttttrttttrttttrttttrtrtqq"
15610 MP$(60)="qqqttqqqttttttttttttttttqttttqqqqqqqqqqqqqqqqqqqttttqqtttttttttttttttttttttqqqtttrtttrtttrtrrrrrtrtttrtttrrttttrtttttrtttrtttrqq"
15620 MP$(61)="qqttttqqqqqtttttttttttttqtttttttqqqqqqtttqqqqqttttttqqtttttttttttttttttttttttqqtttttttttttttttttttttttttttttttttttttttttttttttqq"
15630 MP$(62)="qqttttqqttttttttttttttttqttttttttqqqqtttttqqqqttttttqqttttttttttttttttttttttttqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"
15640 MP$(63)="qqttttz|tttttttttttttttttttttttttttqttttttttz|ttttqqqqtttttttttttttttttttttttttttttttttttrttttttttttttttz|tttz|tttz|ttttttttttqq"
15650 MP$(64)="qqttttz{tttttttttttttttttttttttttttqttttttttz{ttttttz|tttttqtttttttttttttttttttttttttttttrttttttttttttttz{tttz{tttz{ttttttttttqq"
15660 MP$(65)="qqttttz{tttttttttttttttttttttttttttqttttttttz{ttttttz{tttttqtttttttttttttttttttttttttttrrrrrttttttttttttz{tttz{tttz{ttttttttttqq"
15670 MP$(66)="qqttttz|tttttqqttttttttttttttttttttqttttttttz|ttttttz{tttttqttttttttttttttttttttttttttttrrrtttttttttttttz|tttz|tttz|ttttttttttqq"
15680 MP$(67)="qqttttz|tttttqqttttttttttttttttttttqqqqqqqqqqqqqqqqqqqqqqqqqtttttttttttttttttttttttttttttrttttttttttttttz|tttz|tttz|ttttttttttqq"
15690 MP$(68)="qqttttz|tttqqqqqqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|tttz|tttz|ttttttttttqq"
15700 MP$(69)="qqttttz|tttqqqqqqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|tttz|tttz|ttttttttttqq"
15710 MP$(70)= M5$
15720 MP$(71)= M5$
15740 GOTO1400
19990
20000 DATA222000000225042500000200000200001010
20010 DATA000000001019042521000214160200000620
20020 DATA091600000416042513000214160200001818
20030 DATA191421140225042500000200000200001010
20040 DATA030400002010042527000214160214161616
20050 DATA000000000225042500000200000200001010
20060 DATA221100000520042517000112130200000220
20070 DATA202000000411172017240214160112132514
20080 DATA291000000209182006280214160112131204
20090 DATA071007170225002500200200000200001010
20100 DATA111000001610161224240204080206100820
20110 DATA231200002010201228280204080206100420
20990
21000 DATAA2BAF+.E8DD
21010 DATAEEA.G8F+2.R4
21020 DATAA2BAF+.E8DD
21030 DATAEEF+.E8D2.R4
21040 DATAO6DDDO5BO6D2O5AA
21050 DATABBA.G8F+2.R4
21060 DATAA2BAO6D.O5B8AG
21070 DATAF+AG.E8D2.R4
21080 DATA##