10 IFA=0THENA=1:LOAD"",8,1
11 SYS14612:POKE2053,143
16 POKE56,50:POKE52,50:CLR:V=53248:SYS14069:PRINT"";:FORT=0TO79:PRINT"";:NEXT
20 SYS14198:PRINT"";
21 PRINT"";
22 PRINT""
23 PRINT"";
24 PRINT"";
25 PRINT""
26 PRINT"";
27 PRINT"";
28 PRINT""
29 PRINT"";
30 PRINT"";:PRINT
32 FORA=0TO39:PRINT"";:NEXT:FORA=0TO39:PRINT"";:NEXT:PRINT
33 FORA=0TO39:PRINT"";:NEXT:FORA=0TO39:PRINT"";:NEXT:PRINT
34 FORA=0TO39:PRINT"";:NEXT:FORA=0TO39:PRINT"";:NEXT
35 SYS16016:FORT=0TO1000:NEXT:SYS14235
36 FORT=0TO231:POKEV+4,T:POKEV+6,T+24:NEXT:FORT=1TO999:NEXT
37 POKE53281,11:POKE53280,11:PRINT"":FORT=1TO400:NEXT:SYS14273:FORT=0TO99:NEXT
38 PRINT""
39 PRINT""
40 POKE54273,8:POKE54272,225:FORT=1TO200:NEXT:POKE54276,32
41 FORT=1TO2000:NEXT:PRINT""
42 FORT=1TO2000:NEXT:PRINT""
43 FORT=1TO500:NEXT
44 PRINT"":POKE15333,0
45 GETST$:IF ST$=""THEN45
46 IFST$<>""THENPRINT"":GOTO983
48 SYS14533:PRINT""
49 PRINT"";
50 PRINT"
51 PRINT"";
52 PRINT""
53 FORX=1TO4000:NEXT
54 PRINT"";
55 PRINT"";
56 PRINT"";
57 PRINT"":FORT=1TO4000:NEXT
58 PRINT"";
59 PRINT""
60 PRINT"
61 FOR T=1TO4000:NEXT:PRINT""
62 GET Z$:IF Z$=""THEN62
982 PRINT"";CHR$(142)
983 INPUT"";NA$
1010 SYS14297:SYS24212:SYS12*4096:SYS14403
1021 PRINT"";NA$;""
1022 PRINTTAB(27)""
1025 SYS15232:SYS15274:SYS23989:SK=1:DK=4:POKE22508,0:SS=−1:SO=0
1029 SYS12800:IFPEEK(15333)=122THENPOKE15333,0:GOTO1037
1030 X=PEEK(V):Y=PEEK(V+1)+7:IFPEEK(V+16)AND1THENX=X+255
1031 OX=170−X:OY=200−Y:R=OX/OY*2:POKE22038,OY/36+1:A=170:SYS21951
1032 POKEV+2,A:A=A−R:IFA>255THENA=0:SYS22218
1033 SYS22032:IFPEEK(V+3)<200THEN1032
1034 POKEV+3,200
1035 IFPEEK(14830)=1THENPOKE14830,0:SO=SO+SK:SS=SS−1:POKE49268,7:SYS22707
1036 IFPEEK(14830)=2THENPOKE14830,0:SO=SO+DK:SS=SS−4:POKE49268,7:SYS22707
1037 SS=SS+1+PEEK(22508):POKE22508,0:IFPEEK(22919)=1THEN1055
1038 IFPEEK(22878)=1THENPOKE22878,0:GOTO1040
1039 PRINTTAB(13+LEN(NA$))"";SO:PRINTTAB(36);"";SS;"":IFSS>49THEN1053
1040 IFSO<10THENSYS22964:GOTO1029
1041 IFPEEK(13811)=67THENPOKE13811,66
1042 IFSO<20THENSYS22964:POKE13561,132:GOTO1029
1043 IFSO<30THENSK=2:DK=8:SYS22964:GOTO1029
1045 IFSO<50THENSK=3:DK=10:SYS22964:GOTO1029
1047 IFSO<100THENPOKE15320,5:SK=5:DK=15:SYS22984:GOTO1029
1049 SYS23005:POKE15320,3:POKE22532,3:SK=8:DK=20:GOTO1029
1053 SYS22849:PRINT"":FORT=1TO2000:NEXT
1055 SYS22947:PRINT"":IFPEEK(22919)=1THEN1066
1056 PRINT""NA$"";SO
1057 PRINT"";SS:PRINT:PRINT:PRINT
1058 PRINT"
1059 PRINT"":POKE198,0
1060 GETY$:IFY$=""THEN1060
1062 IFY$=""THEN16
1063 IFY$=""THENPOKE53280,11:POKEV+28,60:POKE54296,15:GOTO1010
1064 PRINT"":FORT=0TO14:PRINT"";:NEXT
1065 PRINT"":END
1066 POKE22919,0:PRINT"":GOTO1056
READY.
