Radio Shack TRS-80 Voxbox - Page 27

How To Write
Your Own
Application
Programs
Here is a complete program:
10 i3EM SET UP
CALLING PARAMETERS
20 13EM MS=MEMORY
SIZE IN K-BYTES
30 i
:
'RINT"
IS
THIS A 16K? 32K OR
48K
35
:
INPUT"
(TYPE
16. 32? OR
48)
"SMS
40 :IF MS=16 THEN AD
=112:
GOTO
80
50 :IF MS=32 THEN
AD
=176:
GOTO
80
60 :IF MS=48
THEN
AD
=240:
GOTO
80
70 GOTO 35
80 i
:>
OKE 16526? 6
90
1=>OKE 16527? AD
95 AB=AD
*256
1.00 X=USR<0)
200 REM
210 REM TR= INDEX? W*=STRING
ARRAY
220 DIM W*<32)
230
W*(0)="0"
240
W$<1)="1"
250
W$<2)="2"
260
W$(3)="3"
270 W*(4)="4"
280 W*(5>="5"
290 W$(6)="YES"
300
W* (7)=" NO"
310 W*
(8)=" PERHAPS"
320
W*(9)="FASTER"
330 W*< 10)=" SLOWER"
340 FOR
TR=0 TO 10
350 PRINT "SAY.
.
.
" ?W$(TR)
360 GOSUB 1000:
REM
TRAIN
370 NEXT TR
400
REM GET VOICE INPUT
410 POKE 16526?
3
420 POKE 16527?
AD
430 PRINT "SPEAK...."
440 X
=
USR(0)s
REM CALL RECOGNIT
450 W
=
PEEK(TA)
460 IF W
>
31 THEN
GOTO 500
470
PRINT "YOU
SAID
"5
W*(W)
480 GOSUB
900s
REM DELAY
490 GOTO
400s
REM Gfc. 1 NEXT WORD
500
REH ERROR
510 PRINT "PLEASE
REPEAT THAT"
520 GOSUB
900
s
REM DELAY
530 GOTO
400s
GET WORD
SYSTEM
25