Radio Shack TRS-80 Voxbox - Page 14

Running
the Application Programs
Inventory
Demo
Program (Continued)
1560 X=USR(0)
1570 if
pe::ek(Bix>0 then print 3400
»
"repeat
1590 RETURN
2000
PRINT
"
ENTER INVENTORY"
2005 C=0
s
D=5 1
2
2010 60SUB
6000 :REM
GET
SPEECH
TO
W*
2020 IF W*="PART" THEN 2100
2030 IF W*="SAVE" THEN 105
2035 C=C-1
2040
GOTO 2010
2100 REM PART-
2105
PR I NT 3576
»
B
I R I NG* < 32
»
"
"
)
5
2110 PRINT
3Df
"PART
"
S
2115 LI <C)=10:D=D+10
2117 U=0
2120 GOSUB
6000s
REM GET SPEECH
2122 IF
W*=" SCRATCH" THEN 2800
2125 IF
W*=" BACKSPACE"
THEN 2600
2130 IF W*="QUANI
1
t
V"
THEN 2300
2140 IF ASC<W*>>47 AND ABC(W*)<58 THEN 2200
2150 IF ASC<W*>>64 AND
ASC(W*)<68 THEN 2200
2160 IF W*="-» THEN 2200
2165 C-
:
=C"-1
2170 GOTO 2120
2200 PRINTQDjW*?
2205 U=U+
1
2220 D=D+2
2230 GOTO 2120
2300 PRINTS D»
"
QUANTITY
"5
2302 L1(C)=L1 <C>+4
2305 Z=D+2*LEN(W*>+4
2310 D=Z
2320 P1*<C)=" QUANTITY
":L1(C)=20
2325 U=0
2330 GOSUB 6000
2333 IF
W*="
SCRATCH"
THEN 2800
2335 IF W*=" BACKSPACE" THEN 2700
2340
IF W*="OK" THEN 2500
2350
IF ASC(W*)>47 AND ASC<W*)<58
THEN
2400
2360 C=C-1
2370 GOTO 2330
2400 PRINTS D*W*i
2410 REM P1*<D)=W*-
2420 D=D+2*LEN ( W*
)
SW* !"...": GOTO
1530
12