10 GOTO2300
30 S=STICK(0) OR STICK(1)
40 IF Y<=1 THEN Y=21:GOTO1040 ELSE IF Y>=22 THEN Y=2:GOTO1080
50 IF X=30 THEN X=1:GOTO1060 ELSE IF X=0 THEN X=29:GOTO1100
60 GOTO 170
80 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:GOSUB1370:GOTO2190
90 IF X=ZX(SX,SY) THEN IF Y=ZY(SX,SY) THEN IF N2=12 THEN 2130 ELSE 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:GOSUB1370:GOTO2190
100 IF F1 THEN 570
110 IF F2 THEN 630
120 IF AC>1 THEN AX=X*8:AY=Y8-1 ELSE AX=48:AY=240
130 IF AC>0 THEN AC=AC-1:IF H=0 OR H=1 THEN PUT SPRITE 3,(AX+16,AY),9,19 ELSE PUT SPRITE 3,(AX-16,AY),9,18
140 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
150 GOTO 30
170 IF JF=1 THEN 200
180 ON S+1 GOTO 260,190,190,260,260,260,260,260,190
190 JC=0:JF=1:JJ=4
200 HS(0)=(H\2)*2+1:HS(1)=(H\2)*2+1:HS(2)=1:HS(3)=1:HS(7)=3:HS(8)=3:H=HS(S)
210 ON S+1 GOTO 220,240,240,230,230,230,230,230,240
220 IF JC<=3 THEN JC=4
230 JJ=0
240 JJ=JJ-1:IF JJ<=0 THEN JJ=0:JC=JC+1:IF JC>=8 THEN JC=8
250 Y8=Y8-SJ(JC)
260 Y=Y8\8:Y2=Y:X2=X:X=X+XS(S):H9=(H9+1)MOD2:HS(0)=H:HS(1)=H:IF JF=0 THEN HS(2)=H9:HS(3)=H9:HS(7)=H9+2:HS(8)=H9+2:H=HS(S)
270 AD = &H1800+X+Y*32:AE=&H1800+X+1+Y*32
280 ON S+1 GOTO 440,440,300,300,300,440,370,370,370
300 VP=VPEEK(AE):V2=VPEEK(AE+32)
310 IF VP=A1(0) THEN X=X2
320 IF V2=A1(0) THEN X=X2
340 IF VP>=A1(1) THEN IF VP<=A1(3) THEN X=X2
350 IF V2>=A1(1) THEN IF V2<=A1(3) THEN X=X2
360 GOTO430
370 VP=VPEEK(AD):V2=VPEEK(AD+32)
380 IF VP=A1(0) THEN X=X2
390 IF V2=A1(0) THEN X=X2
410 IF VP>=A1(1) THEN IF VP<=A1(3) THEN X=X2
420 IF V2>=A1(1) THEN IF V2<=A1(3) THEN X=X2
430 AD = &H1800+X+Y*32:AE=&H1800+X+1+Y*32
440 IF JC<=3 THEN 500
460 IF VPEEK(AD+64)=A1(0) OR VPEEK(AE+64)=A1(0) THEN Y8=Y2*8:JF=0:JC=4:GOTO80
470 IF VPEEK(AD+96)=A1(0) OR VPEEK(AE+96)=A1(0) THEN Y8=(Y2+1)*8:JF=0:JC=4:GOTO80
480 IF JF=0 THEN JF=1:JC=6
490 GOTO80
500 IF VPEEK(AD+32)=A1(0) OR VPEEK(AE+32)=A1(0) THEN Y8=(Y2+2)*8:Y=Y2+2:JC=5:GOTO80
510 IF VPEEK(AD)=A1(0) OR VPEEK(AE)=A1(0) THEN Y8=(Y2+1)*8:Y=Y2+1:JC=5:GOTO80
520 GOTO80
540 AC=3
550 RETURN
570 H2=H9*H3:IF GX<=X3 THEN EE=4:HH=H5 ELSE IF GX>=X4 THEN EE=-4:HH=H4
580 ON F1 GOTO 590,600,620
590 GX=GX+EE:GOTO110
600 GX=GX+EE:GY=GY-SJ(NN):NN=NN+1:IF NN>8 THEN NN=0
610 GOTO110
620 GX=GX+EE/2
630 H1=H9*H6:IF HX<=X5 THEN EF=4:HF=H8 ELSE IF HX>=X6 THEN EF=-4:HF=H7
640 ON F2 GOTO 650,660,680
650 HX=HX+EF:GOTO120
660 HX=HX+EF:HY=HY-SJ(NM):NM=NM+1:IF NM>8 THEN NM=0
670 GOTO120
680 HX=HX+EF/2
690 GOTO120
710 SPRITE OFF:TN=0:TI=14:TH=H:TX=X*8:TY=Y8-1
720 IF H=0 OR H=1 THEN CX=AX+16 ELSE CX=AX-16
730 IF ABS(CX-GX)<=16 AND ABS(AY-GY)<=16 THEN F1=0:TN=1:TI=15:TH=H2+HH:TX=GX:TY=GY:GOTO800
740 IF ABS(CX-HX)<=16 AND ABS(AY-HY)<=16 THEN F2=0:TN=2:TI=15:TH=H1+HF:TX=HX:TY=HY:GOTO800
750 IF ABS(TX-GX)<=16 AND ABS(TY-GY)<=16 THEN 780
760 IF ABS(TX-HX)<=16 AND ABS(TY-HY)<=16 THEN 780
770 GOTO1000
780 P=P-1
790 LOCATE26,0:PRINT" ":IF P>0 THEN FOR I=0 TO P-1:LOCATE 26+I,0:PRINT"s":NEXT
800 KC=0:INTERVAL OFF:B=USR1(0):PLAY"T200S8M9000L16O6CCCGGGGG"
810 TY=TY-SJ(KC):KC=KC+1:IF KC>=8 THEN KC=8
820 IF TY>=196 THEN 860
830 IF TN<>0 THEN PUT SPRITE 4,(TX,TY-16),8,20:IF F1=3 OR F2=3 THEN PUT SPRITE 1,(TX,TY),TI,4:PUT SPRITE 2,(TX,TY+16),TI,6:GOTO810
840 PUT SPRITE TN,(TX,TY),TI,TH
850 GOTO 810
860 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:GOTO880
870 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
880 PUT SPRITE 1,(GX,GY),0,H2+H5:PUT SPRITE 2,(HX,HY),0,H2+H8:PUT SPRITE 4,(LX,LY),0,21
890 IF TN<>0 THEN 990
900 JF=0
910 IF P<=0 THEN LOCATE 11,11:PRINT"GAME OVER"ELSE 970
920 IF STRIG(0)=-1 THEN 940
930 IF STRIG(1)=0 THEN 920 ELSE GOTO940
940 FOR I=0 TO 512:NEXT
950 PUT SPRITE 0,(0,211),14,H:PUT SPRITE 1,(16,211),10,H2+HH:PUT SPRITE 2,(32,211),10,H1+HF
960 STRIG(0) OFF:STRIG(1) OFF:RETURN2380
970 BX=VAL(MID$(RE$(SX,SY),1,2)):BY=VAL(MID$(RE$(SX,SY),3,2))
980 PUT SPRITE 0,(BX*8,BY*8-1),14,H:X=BX:Y=BY:Y8=BY*8
990 INTERVAL ON
1000 SPRITE ON
1010 RETURN
1030 SPRITE OFF
1040 IF SY>0 THEN SY=SY-1 ELSE SY=2
1050 GOTO1120
1060 IF SX<3 THEN SX=SX+1 ELSE SX=0
1070 GOTO1120
1080 IF SY<2 THEN SY=SY+1 ELSE SY=0
1090 GOTO1120
1100 IF SX>0 THEN SX=SX-1 ELSE SX=3
1120 Y8=Y*8:F1=0:F2=0:NN=0:NM=0: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
1130 H3=VAL(MID$(MO$(SX,SY),1,2)):H4=VAL(MID$(MO$(SX,SY),3,2)):H5=VAL(MID$(MO$(SX,SY),5,2))
1140 H6=VAL(MID$(MD$(SX,SY),1,2)):H7=VAL(MID$(MD$(SX,SY),3,2)):H8=VAL(MID$(MD$(SX,SY),5,2))
1150 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
1160 IF H4=14 THEN F1=1:GOTO1190
1170 IF H4=12 THEN F1=2:GOTO1190
1180 IF H4=4 THEN F1=3
1190 IF H7=14 THEN F2=1:GOTO1220
1200 IF H7=12 THEN F2=2:GOTO1220
1210 IF H7=6 THEN F2=3
1220 K=0:FOR I=SY*24 TO SY*24+21
1230 LOCATE 0,K+2:PRINT MID$(MP$(I+2),SX*32+1,32):K=K+1:NEXT
1240 ON SY+1 GOTO 1260,1280,1300
1260 ON SX+1 GOTO 1460,1510,1530,1570
1280 ON SX+1 GOTO 1640,1690,1710,1770
1300 ON SX+1 GOTO 1810,1870,1960,2000
1320 IF IG=1 THEN IG=0:GOTO1340
1330 PUT SPRITE 0,(X*8,Y8-1),14,H:PUT SPRITE 1,(GX,GY),0,H5:PUT SPRITE 2,(HX,HY),0,H8
1340 SPRITE ON
1350 GOTO80
1370 FOR I=0 TO 11
1380 AA=&H80+I*4:BB=&H80+I*4+2:CC=&H80+I*4+1:DD=&H80+I*4+3
1390 LOCATE I*2,0:PRINT CHR$(AA+SN(I)):LOCATE I*2+1,0:PRINT CHR$(BB+SN(I))
1400 LOCATE I*2,1:PRINT CHR$(CC+SN(I)):LOCATE I*2+1,1:PRINT CHR$(DD+SN(I))
1410 NEXT
1420 LOCATE26,0:PRINT" ":FOR I=0 TO P-1:LOCATE 26+I,0:PRINT"s":NEXT
1430 RETURN
1460 IF IX(0,0)=99 THEN GOTO1480
1470 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
1480 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))
1490 GOTO1320
1510 GOTO1320
1530 IF IX(2,0)=99 THEN GOTO1320
1540 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
1550 GOTO1320
1570 IF IX(3,0)=99 THEN GOTO1590
1580 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
1590 IF ZX(3,0)=99 THEN GOTO1610
1600 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
1610 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))
1620 GOTO1320
1640 IF IX(0,1)=99 THEN GOTO1660
1650 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
1660 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))
1670 GOTO1320
1690 GOTO1320
1710 IF IX(2,1)=99 THEN GOTO1730
1720 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
1730 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))
1740 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))
1750 GOTO1320
1770 IF IX(3,1)=99 THEN GOTO1320
1780 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
1790 GOTO1320
1810 IF IX(0,2)=99 THEN GOTO1830
1820 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
1830 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))
1840 LOCATE ZX(0,2),ZY(0,2):PRINT CHR$(&HE0);CHR$(&HE2):LOCATE ZX(0,2),ZY(0,2)+1:PRINT CHR$(&HE1);CHR$(&HE3):N2=12
1850 GOTO1320
1870 IF IX(1,2)=99 THEN GOTO1890
1880 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
1890 IF ZX(1,2)=99 THEN GOTO1910
1900 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
1910 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))
1920 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))
1930 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))
1940 GOTO1320
1960 IF IX(2,2)=99 THEN GOTO1320
1970 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
1980 GOTO1320
2000 IF IX(3,2)=99 THEN GOTO2020
2010 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
2020 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))
2030 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))
2040 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))
2050 GOTO 1320
2070 LOCATE 9,13:PRINT"PUSH SPACE KEY"
2080 IF STRIG(0)=-1 THEN 2100
2090 IF STRIG(1)=0 THEN 2080 ELSE GOTO 2100
2100 PLAY"T200S8M9000L16O6GAB2":CLS
2110 RETURN
2130 CLS:INTERVAL OFF:B=USR1(0):PLAY"T200S8M9000L16O6D8R16O5BO6DDD"
2140 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
2150 GOSUB 2080
2160 FOR I=0 TO 512:NEXT
2170 STRIG(0) OFF:STRIG(1) OFF:SPRITE OFF:GOTO2380
2190 INTERVAL OFF:B=USR1(0):PLAY"T200S8M9000L16O6D8R16O5BO6DDD"
2200 FOR I=0 TO 100:NEXT
2210 INTERVAL ON
2220 GOTO1220
2240 IF PEEK(&HFB40)<>0 THEN RETURN
2250 READ U$
2260 IF U$="##" THEN RESTORE 3630:READ U$
2270 PLAY"T160S8M9000L12V10O5"+U$,B$
2280 RETURN
2300 CLEAR 300,&HD300
2310 CLS:SCREEN1,2:COLOR15,1,1:WIDTH32:DEFINTA-Z:KEYOFF
2320 POKE &HF3B1,26:POKE &HF3DB,0
2330 DEFUSR1=&H0090:DEFUSR2=&HD300
2340 BLOAD"program.bin"
2350 C=USR2(0)
2360 DIMA1(4),SN(12),MP$(72),XS(9),HS(9),WX(12),SJ(9)
2370 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)
2380 PUT SPRITE 1,(20,199),0,0:PUT SPRITE 2,(40,199),0,0:PUT SPRITE 0,(0,199),0,0
2390 CLS:LOCATE 7,8:PRINT"BACK TO THE GANTAN":LOCATE 8,10:PRINT"YEAR OF THE RAT"
2400 GOSUB 2070
2410 H1=0:H2=0:H3=2:H4=0:H5=0:H6=2:H7=0:H8=0:H9=0
2420 GX=0:GY=0:HX=0:HY=0:EE=4:EF=4:F1=0:F2=0:NN=0:NM=0
2430 IG=0:AX=160:AY=211:P=3:N1=0:N2=0:AC=0:S$=""
2440 X=15:Y=20:H=0:HH=0:YY=1:SX=0:SY=0:Y2=Y:Y8=Y*8:JC=4
2450 XS(0)=0:XS(1)=0:XS(2)=1:XS(3)=1:XS(4)=1:XS(5)=0:XS(6)=-1:XS(7)=-1:XS(8)=-1
2460 HS(0)=0:HS(1)=0:HS(2)=0:HS(3)=0:HS(4)=0:HS(5)=0:HS(6)=2:HS(7)=2:HS(8)=2
2470 SJ(0)=16:SJ(1)=8:SJ(2)=4:SJ(3)=2:SJ(4)=0:SJ(5)=-2:SJ(6)=-4:SJ(7)=-8:SJ(8)=-16
2480 LOCATE 13,11:PRINT"START"
2490 RESTORE3500
2500 FOR M=0 TO2
2510 FOR N=0 TO3
2520 READ S$
2530 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)):
2540 FX(N,M)=VAL(MID$(S$,13,2)):FY(N,M)=VAL(MID$(S$,15,2)):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)
2550 S$=""
2560 NEXT
2570 NEXT
2580 B$="T160L12V8O6 C16R16 C16R16 C8 R16C16 C16R16 C16R16"
2590 GX=EX(0,0):GY=EY(0,0):HX=FX(0,0):HY=FY(0,0)
2600 A1(0)=ASC("q"):A1(1)=ASC("z"):A1(2)=ASC("{"):A1(3)=ASC("|")
2610 FOR I=0 TO 11:SN(I)=&H30:WX(I)=0:NEXT
2620 CLS
2630 GOSUB1370
2640 RESTORE 3630
2650 GOSUB 2240
2660 ON INTERVAL=80 GOSUB 2240
2670 INTERVAL ON
2680 ON STRIG GOSUB540,540
2690 STRIG(0) ON:STRIG(1) ON
2700 ON SPRITE GOSUB710
2710 SPRITE ON
2720 M1$ = "uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu"
2730 M2$ = "uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuqquuuuuuqquuuuuu"
2740 M3$ = "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqttttqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"
2750 M4$ = "qqtrrrrrrrrrrrrrrrrrrrrtqrrqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqttttqqqqqqqqqqqqqqqqqqqqq"
2760 M5$ = "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqtttqqqqqqqqqqqqqqqqqqqqqqqqqttqqqqqqqqqq"
2770 MP$(0)= M1$
2780 MP$(1)= M1$
2790 MP$(2)= M2$
2800 MP$(3)= M2$
2810 MP$(4)= M2$
2820 MP$(5)= M2$
2830 MP$(6)= M2$
2840 MP$(7)= M2$
2850 MP$(8)= M2$
2860 MP$(9)= M2$
2870 MP$(10)=M2$
2880 MP$(11)=M2$
2890 MP$(12)=M2$
2900 MP$(13)=M2$
2910 MP$(14)=M2$
2920 MP$(15)="uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuurruuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuvvvuuuuuuuuuuqquuuuuuz|uvvvuu"
2930 MP$(16)="uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuurruuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuvvvvuuuuvvvvvqquuuuuuz{uvvvuu"
2940 MP$(17)="uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuurrrrrruuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuvvvvuuwuwuuuuvvvvvqquvvvuuz{uvvvuu"
2950 MP$(18)="vvvuvvvuuuuuuuuuuuuuuuuuuuuqqqqqqqquuvvvuuuuuuuuvvvuuuvuurrrruuuvvvuqqqqqqqqqqquuuuuuuuuuuvvvuvvvvuqqqqvvvuvvvvvqquvvvuuz|uvvvuu"
2960 MP$(19)="vvvuvvvuuuvvvuvvvuvvvuuuuuuz{uuuuvvvuvvvuvuuvuvuvvvuuuvuuurruuuuvvvuqqqqqqqqqqquuuuuuuuuuuvvvuvvvvuqqqqvvvuvvvvvqquvvvuuz|uvvvuu"
2970 MP$(20)="vvvuvvvuvuvvvuvvvuvvvuuuuuuz{uuuuvvvuvvvuvuuwuwuuwuuuuwuuuuuuuuuvvvuuvuvuvuvuqqqqqqqqqqqvuvvvuvvvvuuuuuvvvuuuwuuqquvvvuvz|uvvvuu"
2980 MP$(21)="uwuuuwuuwuuwuuuwuuuwuuuuuuuz|uuuuuwuuuwuuwqqqqqqqqqqqqquuuuuuuuuuwuuuwuwuwuwuqqqqqqqqqqqwuuwuuuwwuuuuuuuwuuuqqqqqquuwuuwz|uuwuuu"
2990 MP$(22)= M3$
3000 MP$(23)= M3$
3010 MP$(24)= M3$
3020 MP$(25)= M3$
3030 MP$(26)="qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqttttqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"
3040 MP$(27)="rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrtrrrrrrrrrrrrrrrtttrttttrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrqqrrrrrrrrrrrrrrrrrrrrr"
3050 MP$(28)="ttttrrrrttrrrttttttttrrrtrrrtrrttttttttttrtrrrrrrtrtttttrttttrtttttttrrrrrttrrrrrtttttrrtrrrrrrrrrrrrrrrrtqrrttttttrrrrrrrrttrrr"
3060 MP$(29)="ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttrrrttttrrrtttttttttttrrrrrrrrrrrrtttqtttttttttttrrtttttttt"
3070 MP$(30)="qqqqqttttttttttttttttttttttttttttttttttttttttttttttttttqqqqttttttttttttrtttqqqqqqqqqqqqqqqqqqqqqqqqqqqttttqtttttttttttttttttttqq"
3080 MP$(31)="qqqqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|tttqqqttrrrrrrtttttttqtttttttttttttttttttqq"
3090 MP$(32)="qqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz{ttttqttttrrrrtttttttqqtttttttttttttttttttqq"
3100 MP$(33)="qqttttttttttttttttttttttttttyqqqqqqqqqqqxtttttttttqqqttttttttttttttttttqqttttttttttz{ttttqttttqqqqqqqqqqqqqtttttttttttttttttttqq"
3110 MP$(34)="qqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|ttttqttttttttttttttttttttttttttttttttttqqqq"
3120 MP$(35)="qqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|ttttqttttttttttttttttttttttttttttttttttqqqq"
3130 MP$(36)="qqtttttttttttttttttyqqqqqqqqqttttttttttttttttttttttttttttttttttttttttttttttttttttttz|ttttqttttttttttttttttttttttttttttttttttttqq"
3140 MP$(37)="qqttttttttttttttttttttttttqqqttttttttttttttttttttttttttttttttttttttttttttttqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqtttttttttttqq"
3150 MP$(38)="qqtttttttttttttttttttttttttqqtttttttttttttttttyqqqqqqxtttttttttttttttttttttttttttttz|ttttttttttttttttqqqqqqqqqqqqqttttttttttttqq"
3160 MP$(39)="qqrtttttttttttttttttttttttttqttttttttttttttttttttttttttttttttttttttttttttttttttttttz{tttttttttttttttttqqqqqqqqqqqtttrrttttttttqq"
3170 MP$(40)="qqrrrrrrrrttttttttrttrttqqqqqrrrtrrtrrrrrrtrrrttttrttrttrttrrrtttttqqttttttttttttttz{rrrrttttttttttttttqqqqqqqqqtttrrrrrtqqqqqqq"
3180 MP$(41)="qqrrrrrrrrrrrrrrrrrrrrrrqrrz{rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrtttttttttttttttrrrz|rrrrrrrttttttttttttqqqqqqqrrrrrrrrrrtttttqq"
3190 MP$(42)="qqrrrrrrrrrrryqqqqqqxtrrqrrz|rrrrrrrryqqqxrrrrrrrrrrrrrrrrrrrrrrrrrrtttttttttrrrrrrz|rrrrrrrrttttttttttttqqqqqrrrrrrrrrrrrrrrrqq"
3200 MP$(43)="qqrrrrrrrrrrrrrrttttttrrqrrz|rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrz|rrrrrrrrrtttttttrrrrrrqrrrrrrrrrrrrrrrrrrqq"
3210 MP$(44)="qqrrrrrrrrrrrrrrrrrrrrrrqrrz{rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrz|rrrrrrrrrrrrrrrrrrrtttqrrrrrrrrrrrrrrrrrrqq"
3220 MP$(45)="qqqqqqqqrrrrrrrrrrrrrrrrqrrz{rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrz|rrrrrrrrrrrrrrrrrrttttqrrrrrrrrrrrrrrrrrrqq"
3230 MP$(46)= M4$
3240 MP$(47)= M4$
3250 MP$(48)= M4$
3260 MP$(49)= M4$
3270 MP$(50)= M4$
3280 MP$(51)="qqttttttttttttttttttttttqttttttqqqqqqqqqqqqqqqttttttqqqqqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
3290 MP$(52)="qqttttttttttttttttttttttqttttttqqqqqqqqtttttz|ttttttqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
3300 MP$(53)="qqttttttttttttttttttttttqttttttqqqqqqqttttttz{ttttttqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
3310 MP$(54)="qqtttttttttqqqttttttttttqtttttttttqqqtttttttz{ttttttqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
3320 MP$(55)="qqttttttttttttttttttttttqttttttttttqttttttttz|ttttttqqttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttqq"
3330 MP$(56)="qqtttttttttttttttttttqqqqttttttttttqttttttttz|ttttttqqtttttttttttttttttttttttttttttrttttttrttrttttrtrtrtrrrrtrrrrtrtttrttrrrrrqq"
3340 MP$(57)="qqttttttttttttttttttttqqqttttttttttqttttttttz|ttttttqqtttttttttttttttttttttttttttrrrrrtttrttrttttrtttrtttttttrttrtttrrttttttrtqq"
3350 MP$(58)="qqtttttttttttttttttttttqqttttttttttqtttttttqqqqqttttqqtttttttttttttttttttttttttttttrttttrrttrttttrtttrttrrrrtrrrrttrtrtttttrttqq"
3360 MP$(59)="qqqqqqqqttttttttttttttttqttttttttttqtttttttqqqqqttttqqttttttttttttttttttttttttttttrtrttttrtrtttrtrtttrtttttrttttrttttrttttrtrtqq"
3370 MP$(60)="qqqttqqqttttttttttttttttqttttqqqqqqqqqqqqqqqqqqqttttqqtttttttttttttttttttttqqqtttrtttrtttrtrrrrrtrtttrtttrrttttrtttttrtttrtttrqq"
3380 MP$(61)="qqttttqqqqqtttttttttttttqtttttttqqqqqqtttqqqqqttttttqqtttttttttttttttttttttttqqtttttttttttttttttttttttttttttttttttttttttttttttqq"
3390 MP$(62)="qqttttqqttttttttttttttttqttttttttqqqqtttttqqqqttttttqqttttttttttttttttttttttttqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"
3400 MP$(63)="qqttttz|tttttttttttttttttttttttttttqttttttttz|ttttqqqqtttttttttttttttttttttttttttttttttttrttttttttttttttz|tttz|tttz|ttttttttttqq"
3410 MP$(64)="qqttttz{tttttttttttttttttttttttttttqttttttttz{ttttttz|tttttqtttttttttttttttttttttttttttttrttttttttttttttz{tttz{tttz{ttttttttttqq"
3420 MP$(65)="qqttttz{tttttttttttttttttttttttttttqttttttttz{ttttttz{tttttqtttttttttttttttttttttttttttrrrrrttttttttttttz{tttz{tttz{ttttttttttqq"
3430 MP$(66)="qqttttz|tttttqqttttttttttttttttttttqttttttttz|ttttttz{tttttqttttttttttttttttttttttttttttrrrtttttttttttttz|tttz|tttz|ttttttttttqq"
3440 MP$(67)="qqttttz|tttttqqttttttttttttttttttttqqqqqqqqqqqqqqqqqqqqqqqqqtttttttttttttttttttttttttttttrttttttttttttttz|tttz|tttz|ttttttttttqq"
3450 MP$(68)="qqttttz|tttqqqqqqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|tttz|tttz|ttttttttttqq"
3460 MP$(69)="qqttttz|tttqqqqqqtttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttz|tttz|tttz|ttttttttttqq"
3470 MP$(70)= M5$
3480 MP$(71)= M5$
3490 GOTO1120
3500 DATA222000000225042500000100000100001010
3510 DATA000000001019042521000114160100000620
3520 DATA091600000416042513000114160100001818
3530 DATA191421140225042500000100000100001010
3540 DATA030400002010042527000114160100001616
3550 DATA000000000225042500000100000100001010
3560 DATA221100000520042517000012130100000220
3570 DATA202000000411172017240114160012132514
3580 DATA291003200209182006280114160012131204
3590 DATA071007170225002500200100000100001010
3600 DATA111000001610161224240104080106100820
3610 DATA231200002010201228280104080106100420
3630 DATAA2BAF+.E8DD
3640 DATAEEA.G8F+2.R4
3650 DATAA2BAF+.E8DD
3660 DATAEEF+.E8D2.R4
3670 DATAO6DDDO5BO6D2O5AA
3680 DATABBA.G8F+2.R4
3690 DATAA2BAO6D.O5B8AG
3700 DATAF+AG.E8D2.R4
3710 DATA##