Werbung
PROGRAMMLISTING
10:"A":
WALT
58:
CLEAR
: USING
:S=-5@:A=0:D
go
20:BEEP
3: PRINT
"
#*#
START
eee
3Q:DATA
"ZEIT=",50,"TRE
IBSTOFF=",
200, "HOEHE
=" ,500
40: RESTORE
5Q0:READ
BS,W,B$,F,B$,H
6O:WAIT
W
7@:PRINT
USING "===-"5"
Hi"3H;"
SitsSrt
Fit;
F;"
Cr";
STR$
C
8@0:IF
F<=@
GOTO
170
9Q@:BEEP 1:D$= INKEY$
1@0:IF
D$=<""
LET
CsA:
GOTO
1328
11@:C=
VAL Df
12@:A=sC
130:IF
C>F LET
C=F
140: F=2F-C:X=C-5: H=H+S+X/
2:5=54+X%
150:IF
H>@ GOTO
70
160:IF
( ABS H<5)+(
ABS
S<5)=+2
BEEP
5: PRINT
WERFOLG
!!1":
GOTO
18
Q
17@:BEEP
3: PRINT
"ENDE
rit:
GOTO
19@
1480:WAIT
150:
PRINT
USING "=s==2's "VERBLE
TB
:F="3F
419@:WALT
50:
PRINT
"NEUE
S SP IEL
(J/N)2":Z$=
INKEY$
2O0:IF
(Z$="I")4+(Z$=™N")
<>1
GOTO
198
210:IF
Z$="J"
GOTO
10
220: END
SPEICHERINHALT
B
Cc
YVerbrauchter
Treibstoff
D$
Verbrauchter
Treibstoff
E
F
Anfangstreibstoffmenge/
Treibstoffmenge
G
H
Anfangshéhe/Hohe
I
J
Kx
P
Q
5
Geschwindigkeit
T
U
Vv
W
Zeit
X
PAs
So
Werbung
