1 ARUN 
2 REM 
3 REM ***************************
4 REM *                         *
5 REM * (C) LOGI "STICK    1983 *
6 REM *                         *
7 REM ***************************
8 REM 
9 REM 
10 "A"WAIT 80:PRINT "******* INTERCEPTOR ******":BEEP 1
11 IF M<.1OR M>3LET M=1
12 PRINT "MEILLEUR TEMPS :";M:BEEP 1
14 PRINT "PAR  ";M$:BEEP 1
16 PRINT "(/) monter  (+) descendre":BEEP 1:PAUSE :PAUSE 
17 PRINT "(space) : SUPER ZAP":PAUSE :BEEP 1
18 PRINT "BONNE CHANCE !":BEEP 2
20 "B"WAIT 0:RANDOM :USING "##.##":L=0:N=0
25 A$="4361797961636747":B$="614347475F474363":C$="4341417941414741"
30 D$="4141495D5D5D4941":E$="41616171797979":F$="4141554949554141"
40 FOR I=1TO 5:@(I)=2'I:NEXT I
45 T=TIME 
50 GPRINT "0000224141";:FOR I=1TO 18:GPRINT @$(RND 6);:NEXT I:GPRINT "414122141414"
60 Z=3:FOR I=2TO 152
70 Z=Z-(INKEY$ ="/")*(Z>1)+(INKEY$ ="+")*(Z<5)
80 IF INKEY$ <>" "THEN 110
90 V=127-@(Z):GCURSOR I+1:FOR X=1TO 4:GPRINT V;
100 FOR W=1TO 20:POKE# 64000,RND 255:NEXT W:NEXT X
110 K=L:L=N:N=POINT I:GCURSOR I-2:GPRINT K;LOR @(Z);NOR @(Z)
120 IF (N+@(Z))=(NOR @(Z))BEEP 1,1,1:NEXT I:WAIT 80:T=100*DMS (DEG TIME -DEG T):GOTO 150
130 FOR X=-15TO 15:BEEP 1,ABS X:NEXT X
140 GCURSOR I-2:GPRINT K;L;N:K=0:L=0:N=0:GOTO 60
150 PRINT "VOTRE TEMPS :";T:BEEP 1
160 IF T>=MTHEN 200
170 PRINT "C EST LE MEILLEUR TEMPS !!"
180 BEEP 1,20:BEEP 2,30:BEEP 3,40:BEEP 1,50:BEEP 1,10
190 M=T: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
230 BEEP 1:GOTO 210
