Publicité
IMPRESSION EN SORTIE
10:"A
v
: WAIT 0: CLEAR :
USING : CLS
20:S=-50:A=9:D$=
Mtf
:V=3Û
30:CURSOR 0,1: PRINT "*
** SOFTLANDING GAME
***":
BEEP 3: CLS
40:DATA
V
TIME=",5
50: DATA "FUEL=%200
60:DATA "HEIGHT=
M
,500
70:RESTORE : READ B$,U,
WAIT W
FOR P=l TO 2:
GCURSOR (135>P*7):
GPRINT "FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF":
NEXT P
CURSOR 0,2: PRINT "H
EIGHT SPEED LEFT BUR
NT
V
GOSUB 300
L=V
: IF F<=M LET C=0:
BbhP i: GÛTO 180
BEEP l:B*= INKEYS
HP D$ = "* LET C=A:
GOTO 180
ii> VAL D$
:A=C
HF OF LET C=F
;F=F-C:X=C-5:H=H+S+X/
2:S=S+X
:IF H>0 LET V=(500-H)
/5+30: GOTO 110
HF ABS H<5 OR ABS S<
5 LET H=0:3=0:L=V:V=
129: GOSUB 300:
BEEP 5: CLS : PRINT
w
***
SUCCESS
**
*
v
: GOTO 259
:GCURSOR (L'11):
G P R I N T
"000000000000
230:GCURSOR (129»11):
GPRINT
W
15A006A00A21
30
90
100
110:
120
130
1401
150
160
170
180
190
200
210
240:
250:
260
270
230:
290
300
310
320
BEEP 3: CLS :
CURSOR 0>i: PRINT "
***
Good by ! ! ***
v
: GOTO 260
PRINT IJSING
w
Jtttttlt
v
;
tf
FUEL LEFT =
W
? F
CURSOR 0»3: PRINT "
Replay (Y/N) ?
v
2$= INKEY$ : IF Z$=
v
Y
v
THEN 10
IF Z$=
v
w
tf
FNTI
:ûOlÛ 270
: CURSOR 9? 3: PRINT
USING
USING
USING "«««««" ÏC
:GCURSOR (L»ll):
G P R I N T "000000000000
v
: GCURSOR (V»ll):
GPRINT "031C3E7F7F49
330:RETURN
779 octets
244
Publicité
