CLS
NEW
' ------- 07 Squash
10 CLS:CLP:X=21:Y=18:B=0:C=0:D=1:E=80:F=1
20 LOCATE X-1, Y:PRINT CHR$(32,131,131,131,32);
30 K=INKEY()
40 IF K=28 AND X>0 THEN X=X-1
50 IF K=29 AND X<29 THEN X=X+1
60 F=F+1:IF (F%2)=0 THEN GOTO 20
70 LOCATE B,C/100:PRINT " ";
80 B=B+D
90 C=C+E
100 LOCATE B,C/100:PRINT CHR$(233);
110 IF B<0 OR B=29 THEN D=-D
120 IF C<0 THEN E=-E
130 T=C/100
140 IF (T=Y-1 OR T=Y) AND (B>=X AND B<=X+2) THEN E=-80+RND(11)
150 IF T<22 THEN GOTO 20
160 LOCATE 12,9:PRINT "Game Over"