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 "******* STARS  WAR *******":BEEP 1
11 IF M<.2OR M>1LET M=1
12 PRINT "MEILLEUR TEMPS :";M
14 BEEP 1:PRINT "PAR : ";M$:BEEP 1
16 PRINT "(T)  pour tirer":BEEP 1:PAUSE :PAUSE 
18 PRINT "BONNE CHANCE":BEEP 2
20 "B"RANDOM :WAIT 0:USING "##.##"
25 A$="7060500804":B$="10207F2010":C$="0408506070":D$="081C2A0808"
30 F$="08082A1C08":G$="1C0C142040":H$="04027F0204":I$="4020140C1C"
40 J$="77777F1C7F7777":FOR A=0TO 6:@(A+6)=2'A:NEXT A
50 CLS :X=RND 100-50:Y=RND 100-50:GCURSOR 54:FOR A=54TO 90:GPRINT "7F7F";:NEXT A:GCURSOR 87:GPRINT J$:T=TIME 
60 V=RND 3-2:W=RND 3-2
70 FOR D=0TO RND 4:Z=VAL INKEY$ :IF ZLET C=(Z>6)-(Z<4):Y=Y+W-C:X=X+V-Z+5+3*C
80 GCURSOR 30:GPRINT @$(SGN X+3*SGN Y+5):BEEP 1,1,1
90 IF EGCURSOR (O+90):GPRINT N:E=0
100 IF ABS X>36OR ABS Y>3THEN 140
110 GCURSOR X+90:N=POINT (X+90):B=N-(@(9-Y)AND N):GPRINT B:E=1:O=X:IF B<>20THEN 140
120 GCURSOR 87:GPRINT "5D1C7F777F1C5D":FOR A=0TO 20:IF INKEY$ <>"T"NEXT A:GCURSOR 87:GPRINT J$:X=X-5:GOTO 140
130 CLS :PRINT "BRAVO";:BEEP 5:T=100*DMS (DEG TIME -DEG T):GOTO 150
140 NEXT D:GOTO 60
150 CLS :WAIT 80:PRINT "VOTRE TEMPS:";T:BEEP 1
160 IF T>=MTHEN 200
170 PRINT "C EST LE MEILLEUR TEMPS !!"
180 BEEP 1,50:BEEP 2,20:BEEP 1,40:BEEP 2,30:BEEP 1,50
190 M=T:M$="":INPUT "VOTRE NOM:";M$
200 WAIT 0:PRINT "UNE AUTRE (O/N):"
210 IF INKEY$ ="O"THEN 20
220 IF INKEY$ ="N"PAUSE "AU REVOIR ...":BEEP 1:END
230 BEEP 1:GOTO 210
