Radio Shack TRS-80 Voxbox - Page 17

Running
the Application
Programs
Lunar
Program
10
(
IS
20 :IF PEEK
(--4095) =
12 THEN 70
30 :IF PEEK
(-20479)
=12
THEN 80
40 :IF PEEK (28673)
=12 THEN 90
50 i
"•'PINT
"ERRORS
VOX
BOX SOFTWARE NOT
L-OADED
"
60 END
70
1
31=240
:B1
=-3078: GOTO 100
80 11
1
= 1 76 : B
1=-1
9462
: GOTO
100
90
1
31=112 sBl
=29690
100
REM S PEECH
INPUT
LUNAR
105
DIM W*<1
)
110
REM
INITIALIZE
120
POKE 16526?
6
130
POKE
16527? Rl
1 40 X=USR(0)
1
60 PRINT "THIS
IS A
SIMULATION
OF
AN APOLLO
LUNAR"
170
PRINT
"LANDER. THE
ON BOARD
COMPUTER'
)
180 PRINT
"HAS
FAILED,
SO YOU
HAVE TO
LAND
MANUALLY.
190
PRINT "SET
BURN RATE OF ROCKET
TO ANY VAI._UE"
200
PRINT-
"BY ENTERING
ONE
DIGIT
AT A TIME
'TIL
YOU"
205 PRINT "GET
THE VALUE YOU
WANT* THEN
SAY
'
'FIRE'.
"
208
PRINT "SAY
'BACKSPACE'
TO
ERASE
THE LAST-
DIGIT.
"
209 PRINT
"YOU'LL
SEE THE NEW
POSITION?
WEIGHT?
ETC.
210 PRINT
"UPDATED
AFTER
EACH BURN.
FIRST"
220
PRINT
"WE TRAIN
THE
SYSTEM
ON THE DIGITS.
TYpE
„
230
PRINT
"ANY
KEY TO
GET
STARTED."
250 A*=INKEY*slF
A*=""
THEN
250
260 CLS
270 PRINT
"PLEASE
SAY THE
FOLLOWING
una
11
280 FOR J;
=0
TO
1
290 FOR
r
=0
TO
9
300
PRINTS
192? I
310
POKE 1B1»J*10+I
320 POKE
16526?
330 POKE
16527? Rl
340
X=USR(0)
350 IF
PEEK(B1)<>0 THEN
300
360
NEXT-
I
370
NEXT ,J
375
GOTO :
2000
380 PRINT
"TRAINED.
..
"
390
FOR 1
=
=0
TO
1000s
NEXT
I
400 CLS
15