POKE#F0A,16,11 POKE#F0C,0,0,0,0,0,0,0,0,0,0 POKE#F16,0,0,0,0,0,0,0,0,0,0 POKE#F20,0,0,0,0,0,0,0,0,0,0 POKE#F2A,0,0,0,0,0,0,0,0,0,0 POKE#F34,0,0,0,6,6,6,6,6,0,0 POKE#F3E,0,0,0,6,0,0,231,6,0,0 POKE#F48,0,0,0,6,0,232,0,6,0,0 POKE#F52,0,0,0,6,231,232,0,6,0,0 POKE#F5C,0,0,0,6,6,6,6,6,0,0 POKE#F66,0,0,0,0,0,0,0,0,0,0 POKE#F70,0,0,0,0,0,0,0,0,0,0 POKE#F7A,0,0,0,0,0,0,0,0,0,0 POKE#F84,13,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,6,6,6,6,0,0 POKE#FA4,0,0,0,6,6,0,231,6,0,0 POKE#FAE,0,0,6,6,0,0,231,6,0,0 POKE#FB8,0,6,6,0,0,0,0,6,0,0 POKE#FC2,0,6,0,232,0,0,6,6,0,0 POKE#FCC,0,6,0,232,0,6,6,0,0,0 POKE#FD6,0,6,0,0,6,6,0,0,0,0 POKE#FE0,0,6,6,6,6,0,0,0,0,0 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