10CLS :CLEAR :RESTORE 20X=23:Y=23:I=1:J=0:W=2 30DIM X(3),Y(3) 40FOR Q=0 TO 3 50READ X(Q),Y(Q) 60NEXT 70DATA 1,0,0,1,-1,0,0,-1 80H=( PEEK &HF5)*256+ PEEK &HF6 90LOCATE 9,2:PRINT "READY..." 100LOCATE 9,3:PRINT "HIGH SCORE:"; STR$ H 110LINE (46,0)-(46,47) 120FOR Q=1 TO 999:NEXT 130LOCATE 9,2:PRINT " " 140*MAIN 150IF POINT (X,Y) GOTO *FIN 160PSET (X,Y) 170FOR Q=1 TO W 180K$= INKEY$ 190IF K$="" LET F=1 200IF F=1 AND K$<>"" LET A=(A+1) MOD 4:I=X(A):J=Y(A):F=0 210NEXT 220X=X+I:Y=Y+J:C=C+1 230GOTO *MAIN 240*FIN 250LOCATE 9,2 260PRINT "SCORE:"; STR$ C 270IF H