1 FORP=560TO569:READD:POKEP,D:NEXT 3 DATA32,0,253,168,169,0,32,193,175,96 5 POKE530,1 6 POKE 57088,253 10 S=61440:D=61441 11 CU=161 18 FORT=0TO29:PRINT:NEXT 19 FORT=54113TO54271:POKET,32:NEXT 20 FORP=54246TO54267:POKEP,132:NEXT 21 FORP=53349TO54213STEP32:POKEP,140:NEXT 22 FORP=53318TO53339:POKEP,131:NEXT 23 FORP=53372TO54236STEP32:POKEP,139:NEXT 24 POKE53317,204:POKE53340,205 25 POKE54245,203:POKE54268,206 26 POKE11,48:POKE12,2 28 P=53350 29 GOTO 100 80 CH=USR(0) 82 POKEP+X+32*Y,CC 85 GOTO1000 86 REM RETURN 90 POKEP+X+32*Y,CH 95 X=X+1 100 IFX>21THENX=X-22:Y=Y+1:GOTO100 105 IFX<0THENX=X+22:Y=Y-1:GOTO105 110 IFY>27THENY=Y-28:GOTO110 115 IFY<0THENY=Y+28:GOTO115 120 CC=PEEK(P+X+Y*32) 125 POKEP+X+32*Y,CU 130 GOTO 80 1000 IFCH<>13GOTO1010 1005 Y=Y+1:X=0 1009 GOTO 100 1010 IFCH<>10GOTO1020 1015 Y=Y+1 1019 GOTO100 1020 IFCH<>21GOTO1030 1025 Y=Y-1 1029 GOTO100 1030 IFCH<>12GOTO1040 1035 X=X-1 1039 GOTO100 1040 IFCH<>18GOTO1050 1045 X=X+1 1049 GOTO100 1050 IFCH<>27GOTO1060 1055 RUN 1060 IFCH<>8GOTO1070 1065 X=0:Y=X 1069 GOTO100 1070 IFCH=19GOTO2000 1080 IFCH=7GOTO2100 1090 IFCH=3THENEND 1999 GOTO 86 2000 FORI=0TO4:WAITS,2:POKED,22:NEXT 2005 POKEP+X+32*Y,CC 2010 FORY=0TO27:FORX=0TO21 2011 A=P+X+32*Y 2012 C=PEEK(A):POKEA,CU 2013 WAITS,2:POKED,C 2014 POKEA,C 2019 NEXT:NEXT 2099 GOTO100 2100 N=0 2101 WAITS,1:C=PEEK(D) 2102 N=N+1 2103 POKEP,C 2104 POKE57088,253:IFPEEK(57088)=239GOTO100 2105 IFC<>22GOTO2100 2106 IFN<5GOTO2101 2120 FORY=0TO27:FORX=0TO21 2125 A=P+X+32*Y 2130 POKEA,CU 2132 WAITS,1:C=PEEK(D) 2135 POKEA,C 2139 NEXT:NEXT 2199 GOTO100 9999