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
11 PAUSE "***** SUPER  GLOUTON *****":BEEP 1,10,1500
12 PRINT "MEILLEUR SCORE :";M:BEEP 1:PRINT "PAR  ";M$:BEEP 1
13 PRINT "DEP.  (Q): <- , (P): ->":PAUSE :PAUSE :BEEP 2:PAUSE "C EST PARTI  !!":BEEP 1
15 "B"WAIT 0:P=100:D=31:Z=0:S=0:C=30
20 F=3:ON ERROR GOTO 75:FOR I=0TO 10+RND 20:K=K=0
30 IF P<CCLS :GCURSOR C:PRINT "*":FOR J=-10TO 10:BEEP 1,ABS J,80:NEXT J:C=30:Z=Z+1:IF Z=3THEN 150
40 CLS :GCURSOR C:GPRINT "04087B3F7B0804":GCURSOR P
50 IF K=0GPRINT "226377777F3E1C"
60 IF K=1GPRINT "1C3E7F7F7F3E1C"
70 BEEP 1,1,1:GOSUB INKEY$ 
75 P=P+(10*(C<40)-5):IF P>100LET P=100
80 NEXT I
90 ON ERROR GOTO 110:F=6:D=D-3*(D>12)
100 FOR K=0TO D:P=P+3:GOSUB INKEY$ 
110 CLS :GCURSOR C:GPRINT "403D5F3D0C0A08":GCURSOR P:GPRINT "1C22414141221C"
120 IF P>150LET K=40:NEXT K:GOTO 20
130 IF C>PPRINT "BRAVO":BEEP 5:S=S+1:C=60:E=-1:K=40:NEXT K:GOTO 20
140 BEEP 1,9,1:NEXT K:GOTO 20
150 I=40:NEXT I:CLS :CURSOR 9:PRINT "-PERDU-":BEEP 4,200,100
160 WAIT 100:PRINT "VOTRE SCORE :";S:BEEP 1
170 IF S<=MTHEN 200
180 PAUSE "C EST LE MEILLEUR SCORE !!"
185 BEEP 1,20:BEEP 1,50:BEEP 1,80:BEEP 1,40:BEEP 1,200
190 M=S:M$="":INPUT "VOTRE NOM:";M$
200 WAIT 0:PRINT "UNE AUTRE PARTIE (O/N)?"
210 IF INKEY$ ="O"THEN 15
220 IF INKEY$ ="N"PAUSE "AU REVOIR ....":BEEP 1:END
225 GOTO 210
230 "P"C=C+F:RETURN 
240 "Q"C=C-F*(C>F):RETURN 
