Radio Shack TRS-80 Voxbox - Page 13

Running
the
Application
Programs
Inventory Demo
Program
10 CLEAR
1000
20 IF PEEK
(-4095)
=12 THEN 70
30 IF PEEK
(-20479)
=12 THEN
80
40 IF PEEK
(28673)
=12 THEN
90
50 PRINT
"ERRORS
VOXBOX SOFTWARE
NOT LOADED"
60 END
70 R
1
=240
:B1
=-3078:
GOTO
100
80 R1
=
176SB1=-
-19462
s
GOTO
100
90 Ri
=
l
12 :B1
=2969(3
100 REM SPEECH
INPUT INVENTORY
ENTRY
DENO
103 DIM WD*(32))P1*(32)»L1(32)
105
W=0
107
V=30
110
GOSUB 9000
115 GOSUB
7000s
REM I NIT WORD LIST
120 PRINT
"VOICE DATA
ENTRY INVENTORY"
125 PRINT
"
DEMO
PROGRAM"
130 PRINT
1
35
PRINT
" CODE"
»
"
FUNCTION"
137 PRINT
140 PRINT
"i'S "TRAIN"
150 PRINT
"2"
i "ENTER
INVENTORY"
180
PRINT
190
INPUT
C
200 GOSUB
9000
s
REM CLEAR
SCREEN
210 ON C GOTO
1 000* 2000
220 GOTO
120
1 000 P
R
I
NT
"
"!"
RA I
N I NG MODE
"
1002
POKE 16526?
6
1003 POKE
16527* Rl
1004
X=USR<0)
1010 PRINT
1020 PRINT "PLEASE SAY
THE FOLLOWING..."
1030 PRINT
1240 FOR
1=1
TO V
1250 W*=WD*(I)
1260 GOSUB
1500
1270
NEXT I
1280 GOTO
105
1500
REM TRAINING
ROUTINE
1510 PRINT a400»W*5"
1530 POKE Bl» I
1540
POKE 16526*
1550
POKE
16527, Rl
11