Auto 0
   1 LET A$="\.'\b\'."
   2 LET B$="\'.\  \.'"
   3 LET K=INT (RND *10)+1
   4 LET L=INT (RND *10)+1
   5 LET C$="\..\a\.."
   6 LET G=INT (RND *10)+12
   7 LET H=INT (RND *10)+1
   8 GO TO 50
   9 PRINT AT G,H;C$;AT K,L;A$
  10 PRINT AT K+1,L;B$
  11 IF K=G AND L=H THEN PRINT AT 20,0;"SCORE =";SCORE
  12 IF K=G AND L=H THEN STOP
  13 IF G>K THEN LET K=K+1
  14 IF L>H THEN LET L=L-1
  15 IF K>G THEN LET K=K-1
  16 IF H>L THEN LET L=L+1
  17 IF INKEY$ ="O" OR INKEY$ ="o" THEN LET H=H-DD
  18 IF INKEY$ ="P" OR INKEY$ ="p" THEN LET H=H+DD
  19 IF INKEY$ ="A" OR INKEY$ ="a" THEN LET G=G+DD
  20 IF INKEY$ ="Q" OR INKEY$ ="q" THEN LET G=G-DD
  22 CLS
  23 LET SCORE=SCORE+1
  24 IF SCORE>=30 THEN LET DD=1
  25 GO TO 9
  50 LET SCORE=0
  51 LET DD=2
  52 RESTORE 53: FOR F=65368 TO 65383: READ A: POKE F,A: NEXT F
  53 DATA 85,170,85,170,255,255,255,255,255,219,219,255,255,255,255,255
  54 GO TO 9
