1 REM ****************************
2 REM *                          *
3 REM *       Jeu du Point       *
4 REM *   (C) LOGI"STICK 1983    *
5 REM *                          *
6 REM *                          *
7 REM ****************************
9 ON ERROR GOTO 50
10 WAIT 0:PRINT "Difficulte 1/2/3 :";:WAIT 50
11 A=VAL INKEY$ :IF A=0OR A>3GOTO 11
12 PRINT A:WAIT 0:S=0:X=RND 156-1:Y=2'RND 5
20 CLS :FOR P=1TO A*10:I=RND 156-1:RANDOM :GCURSOR I:A=2'(RND 7-1):GPRINT POINT IOR A:NEXT P
21 IF POINT XAND YLET X=RND 156-1:Y=2'RND 5:GOTO 21
25 K=POINT XOR Y:L=POINT X
30 WAIT 10:GCURSOR X:GPRINT K:IF INKEY$ =""GCURSOR X:GPRINT L:GOTO 30
40 WAIT 0:GOTO INKEY$ 
45 S=S+1:GOTO 40
50 ""X=X+VX:Y=Y*VY:IF Y<1OR Y>64OR X<0OR X>155GOTO 140
60 IF POINT XAND YGOTO 140
70 GCURSOR X:GPRINT POINT X+Y
80 GOTO 45
100 "/"VX=0:VY=.5:BEEP 1:GOTO 50
110 "+"VX=0:VY=2:BEEP 1:GOTO 50
120 "[19]"VX=1:VY=1:BEEP 1:GOTO 50
130 "[02]"VX=-1:VY=1:BEEP 1:GOTO 50
140 WAIT 100:PRINT "SCORE:";S;" POINTS"
150 IF S>MLET M=S:PRINT "Bravo, vous avez le record":INPUT "Votre nom : ";M$
160 PRINT M$;" a le record":PRINT "Il a fait";M;" points":WAIT :PRINT "Une autre = ENTER":GOTO 1
