' ------- 22 Squash Analog Joy Stick Version
10 CLS:CLP:X=21:Y=18:B=0:C=0:D=1:E=80:F=1
20 LOCATE X, Y:PRINT "   ";
30 X=X+(ANA(0)-512)/256
40 IF X<0 THEN X=0
50 IF X>29 THEN X=29
55 LOCATE X, Y:PRINT CHR$(131,131,131);
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"