POKE#F0A,12,16 POKE#F0C,6,6,6,6,6,6,6,6,6,6 POKE#F16,6,6,6,6,0,0,0,0,0,6 POKE#F20,6,6,231,6,0,0,0,0,0,6 POKE#F2A,6,6,224,6,0,0,0,0,0,6 POKE#F34,6,0,0,0,0,6,6,6,0,6 POKE#F3E,6,0,0,0,0,224,232,224,0,6 POKE#F48,6,0,0,0,0,6,6,6,0,6 POKE#F52,6,0,0,0,0,0,0,0,0,6 POKE#F5C,6,6,6,6,0,0,0,0,0,6 POKE#F66,6,0,0,6,0,0,0,0,0,6 POKE#F70,6,0,0,224,0,0,0,0,0,6 POKE#F7A,6,6,6,6,6,6,6,6,6,6 POKE#F84,15,14 POKE#F86,0,0,0,0,0,0,0,0,0,0 POKE#F90,0,0,0,0,0,0,0,0,0,0 POKE#F9A,0,0,0,0,0,0,0,0,0,0 POKE#FA4,6,6,6,6,6,6,6,6,6,6 POKE#FAE,6,0,0,0,0,231,6,6,231,6 POKE#FB8,6,0,0,0,0,0,6,6,0,6 POKE#FC2,6,0,232,0,0,0,6,6,0,6 POKE#FCC,6,6,6,6,6,0,6,6,0,6 POKE#FD6,0,0,0,0,0,6,6,6,232,6 POKE#FE0,0,0,0,0,0,0,0,6,6,6 POKE#FEA,0,0,0,0,0,0,0,0,0,0 POKE#FF4,0,0,0,0,0,0,0,0,0,0 10 'JUST PUSH 20 CLV:F=#F0C 30 CLP:COPY#700,#30,8 40 CLS:FORI=0TO11:COPY#9CB+I*32,I*10+F,10:NEXT 50 FORY=6TO16:FORX=11TO21:LCX,Y:S=SCR():IFS=231ORS=233P=P+1:[P]=POS() 60 NEXT:NEXT:A=PEEK(F-2):B=PEEK(F-1):GOTO170 70 K=INKEY():IF!KCONT 80 IFK=32M=0:GOTO40 90 C=0:D=0:K=K-28 100 C=-(!K)+(K=1):A=X+C 110 D=-(K=2)+(K=3):B=Y+D 120 V=SCR(A,B) 130 IFV=6A=X:B=Y:GOTO70 140 Q=SCR(A+C,B+D) 150 IFV=232ORV=233IFQ=231OR!QLCA+C,B+D:?CHR$(232)ELSEA=X:B=Y:GOTO70 160 M=M+1 170 LCX,Y:?CHR$(0):LCA,B:?CHR$(237):X=A:Y=B 180 S=0:FORI=1TOP:LC[I]:IFSCR()=232ORSCR()=233?CHR$(233):S=S+1ELSEIFSCR()!=237?CHR$(231) 190 NEXT:LC0:?"COUNT",M:IFS=PIFF=#F0C:CLV:F=#F86:GOTO40ELSEEND 200 GOTO70