Squash – Basic

   2 LET C=0
   3 LET X=0
   4 LET Y=0
   5 LET M=1
   6 LET L=1
   7 LET H=10
   8 LET F=0
   9 GOSUB 1000
  10 REM %B%U%I%L%D% %C%O%U%R%T
  15 FOR A=6 TO 14
  20 PRINT AT A,8;"% "
  30 PRINT AT A,19;"% "
  35 NEXT A
  40 FOR B=8 TO 19
  50 PRINT AT 5,B;"\.."
  60 NEXT B
  65 REM %S%C%O%R%E% %A%N%D% %B%A%T% %C%O%N%T%R%O%L
  70 PRINT AT 3,0;"SINCLAIR SCORE..0"
  75 PRINT AT 1,0;"YOUR SCORE IS...0"
  80 PRINT AT 15,H;" \'' "
  90 LET H=H+(INKEY$="P" AND H<17)-(INKEY$="Q" AND H>8)
 120 PRINT AT 6+Y,9+X;" "
 130 IF L+X>9<=L+X<0 THEN LET L=-L
 140 IF M+Y>8 OR M+Y<0 THEN LET M=-M
 150 LET X=X+L
 160 LET Y=Y+M
 170 PRINT AT 6+Y,9+X;"O"
 180 REM %C%H%E%C%K%S% %B%A%L%L% %P%O%S%I%T%I%O%N
 190 IF Y=8 AND ABS (H-X)>=9 THEN GOSUB 2000
 200 IF Y=8 AND ABS (H-X)=8 THEN GOSUB 3050
 210 GOTO 80
\n1000 PRINT "*********** SQUASH ***********"
\n1060 PRINT "*** FIRST TO SCORE 10 WINS ***"
\n1100 PRINT 
\n1110 PRINT "*USE P AND Q KEYS TO MOVE BAT*"
\n1120 PRINT 
\n1130 PRINT "***PRESS  .P.  KEY TO PLAY.***"
\n1140 IF INKEY$<>"P" THEN GOTO 1140
\n1150 CLS 
\n1160 RETURN 
\n2000 LET C=C+1
\n2050 PRINT AT 3,16;C
\n2060 IF C<10 THEN RETURN 
\n2070 CLS 
\n2080 PRINT AT 10,1;"***** COME ON TRY AGAIN *****"
\n2090 STOP 
\n3050 LET F=F+1
\n3060 PRINT AT 1,16;F
\n3070 IF F<10 THEN RETURN 
\n3080 CLS 
\n3090 PRINT AT 10,1;"* I WILL BEAT YOU NEXT TIME *"
\n3100 STOP 
\n3110 CLEAR 
\n3120 SAVE "1024%7"
\n3130 RUN