1 ARUN 
2 REM 
3 REM **************************
4 REM *                        *
5 REM * (C) LOGI "STICK   1893 *
6 REM *                        *
7 REM **************************
8 REM 
9 REM 
10 "A"WAIT 80
11 PAUSE "*****  MICRO-TENNIS  *****":BEEP 1,10,1500
12 PRINT "MEILLEUR SCORE:";M:BEEP 1:PRINT "PAR  ";M$:BEEP 1
13 PAUSE "POUR DEPLACER LA RAQUETTE"
14 BEEP 1:PRINT "(Q)=GAUCHE  (P)=DROITE":PAUSE :PAUSE :BEEP 1
15 PAUSE "C EST PARTI !!!":BEEP 2
20 "B"Z=0:N=0:X=15:Y=64:P=.5:V=0:C=15:S=1:USING 
30 WAIT 0:ON ERROR GOTO 140
100 CLS :GCURSOR 9:GPRINT 127:GCURSOR 21:GPRINT 127:GCURSOR C:GPRINT "4040":GCURSOR X:GPRINT YOR POINT X
105 CURSOR 20:PRINT Z
110 IF X<11OR X>19LET S=-S:BEEP 1,1,1
120 IF Y=1LET P=2:V=(RND 4-1)/2:BEEP 1,1,1
130 GOSUB INKEY$ 
140 IF Y=64LET P=.5:BEEP 1,1:Z=Z+1:IF X<COR X>C+1PRINT "DEHORS!":BEEP 1,255:N=N+1:IF N=5THEN 160
150 X=X+S*V:Y=P*Y:GOTO 100
160 WAIT 100:PRINT "VOTRE SCORE:";Z:BEEP 1
170 IF Z<=MTHEN 200
180 PAUSE "C EST LE MEILLEUR SCORE !!!"
185 BEEP 1,20:BEEP 1,30:BEEP 1,60:BEEP 1,40:BEEP 1,50:BEEP 3,10
190 M=Z:M$="":INPUT "VOTRE NOM:";M$
200 WAIT 0:PRINT "UNE AUTRE PARTIE (O/N)?"
210 IF INKEY$ ="O"THEN 20
220 IF INKEY$ ="N"PAUSE "AU REVOIR ....":BEEP 1:END
225 BEEP 1:GOTO 210
230 "P"C=C+(C<19):RETURN 
240 "Q"C=C-(C>10):RETURN 
