Radio Shack TRS-80 PC-3 Owner's Manual page 268

------.....-..
PROGRAM UST
10:
V AV:
WAIT 50: CLEAR
: USING :S=-50:A=0:D
20:BEEP
3:
PRINT
v
***
START
***V
30:DATA
vTIME=v,50,"~UE
L=",200,vHEIGHT=v,50
o
40: RESTORE
50:READ E$,W,B$,F,B$,H
60: WAIT
W
70:PRINT USING
VttttttttV;V
F;" C:"; STR$ C
80:IF F<=0 GOTO 170
90:BEEP 1:D$= INKEY$
100:IF D$="" LET C=A:
GOTO 130
110:C= VAL D$
120:A=C
130:rF e)F LET C=F
140:F=F-C:X=C-5:H=H+S+X/
2:S=S+X
150:IF H>0 GOTO 70
160:IF ( ABS H(5)+( ABS
S(5)=2 BEEP 5: PRINT
"SUCCESSl !": GOTO 18
o
170:BEEP 3: PRINT "GOOD
BYEl
I":
GOTO 190
180:WAIT 150: PRINT
USING "lltttt";"FUEL L
EFT :F="jF
190:WAIT 50: PRINT "REPL
AY (Y/N) ?":Z$=
DiKE'($
200:IF <Z$="Y")+(Z$=vN")
<>1 GOTO 190
210:IF Z$="Y" GOTO 10
220:END
438
273