Radio Shack VoxBox TRS-80 User manual

VOXBOX™
Speech
Recognition
Device
Catalog Number 26-1181
Radio /hack
TRS-BO™
MICRO
COMPUTER
SYSTEM
CUSTOM MANUFACTURED IN U.S-A. FOR RADIO SHACK ;S5 ADIVISION OF TANDY CORPORATION

Congratulations for selecting this Radio Shack
Computer Product!
The TRS-80 VOXBOX speech recognition unit allows you to enjoy
this new technology on your Level II TRS-80 computer. Now you
may use words and phrases to control and instruct your computer —
and to enter data. Focus on the work or play at hand —such as on the
Video Display —without the distraction of having to type on the
keyboard.
•Simple to use —connects directly to TRS-80 or to Expansion
Interface TRS-80 Bus Card Edge.
•Includes dynamic push-to-talk mic with coiled cord for
communication with the VOXBOX.
•Includes machine-language "driver" program and three application
programs.
•Using the examples and instructions in this manual, you can write
your own programs for custom applications.
•Use the training mode to teach the VOXBOX up to 32 words
or phrases, each word/phrase up to 1.2 seconds long.
•Re-train it at any time to recognize adifferent 32-word
vocabulary .... in any language!
Note: Speech recognition is anew technology. In fact, your Radio
Shack VOXBOX is one of the first such devices to be both available
and affordable to general consumers. For this reason, Radio Shack
recommends that the unit be used primarily for entertainment and
experimentation. Proceed advisedly before committing the unit to any
serious application.
Required Equipment
TRS-80 with 16K RAM
Cassette Recorder
Expansion Interface optional

Contents
1. Setting Up 3
2. Powering Up and Loading the Driver Program 5
3. Hints on Using VoxBox 7
4. Running the Application Programs 8
5. How to Write Your Own Application Programs 21
Appendices
A. Modifying the Driver Program parameters .
.
29
B. Table Summary of Important Addresses 30
C. Device Specifications 31

Setting Up
1. Setting Up
Connecting the VOXBOX to the TRS-80
(See Figure 1.)
1. Turn off the TRS-80; leave the VOXBOX unplugged.
2. Remove the curved hood on the left rear of the TRS-80, exposing
the TRS-80 card edge. Connect the VOXBOX cable to this card-
edge, with the ribbon cable exiting from the bottom of the
connector.
3. Plug the microphone into the DIN jack on the front of the
VOXBOX. Take care to make the correction properly.
4. Connect the power-supply mini-plug into the back of the
VOXBOX.
5. Plug the VOXBOX power supply into asource of 120 VAC.
6. Follow the power-up instructions below.
REMOVE DOOR OVER TRS-80 CARD EDGE
CONNECT VOXBOX CONNECTORIZED CABLE
WITH CABLE EXITING BOTTOM OF CONNECTOR
PLUG POWER UNIT IN HERE
VOXBOX POWER UNIT
PLUG INTO 120 VAC OUTLET
POWER ON/OFF SWITCH
(IN=ON)
MICROPHONE DIN
CONNECTOR
11111 1 1 1 1 1 1 111
1 1 1 1 11111111111
1 1 11 1 1 1 1 1 1 11
1
VOXBOX TRS-80
TOP VIEW
CONNECTING VOXBOX TO YOUR TRS-80
FIGURE 1

Setting Up
Connecting the VOXBOX to the Expansion Interface
(See Figure 2.)
1. Turn off the TRS-80; leave the VOXBOX unplugged.
2. Connect the other end of the VOXBOX cable to the TRS-80 Bus
Card-Edge (left side, front, on the Expansion Interface), with the
ribbon cable exiting from the bottom of the connector.
3. Plug the microphone into the DIN jack on the front of the
VOXBOX. Take care to mate the connection properly.
4. Connect the power-supply mini-plug into the back of the
VOXBOX.
5. Plug the VOXBOX power supply into asource of 120 VAC.
6. Follow the power-up instructions below.
VOXBOX CABLE TO EXPANSION INTERFACE
CABLE EXITS FROM BOTTOM OF CONNECTOR
EXPANSION INTERFACE
(VIDEO DISPLAY NOT SHOWN)
PLUG POWER UNIT IN HERE
VOXBOX POWER UNIT
PLUG INTO 120 VAC OUTLET
POWER ON/OFF SWITCH
(IN=ON)
MICROPHONE DIN
CONNECTOR
1 1 1 1 111 1 1
II II 111 1 11 1 1 1 1
II 1 1 1 11 1 1111
1 1 111III 1
VOXBOX TRS-80
TOP VIEW
CONNECTING VOXBOX TO YOUR EXPANSION INTERFACE
FIGURE 2

Powering Up and Loading the Driver Program
2. Powering Up and Loading the
Driver Program
Okay, you've got the hardware set up now. But the VOXBOXis still
only halfway installed.
That's because an essential part of the VOXBOX is the software—the
driver program that communicates back and forth between your
application program and the hardware. Before you can begin using
the VOXBOX, you have to "install" the driver program.
This driver program is amachine-language file stored on cassette, and
loaded into the highest RAM addresses in your machine. There are
three different machine-language tapes, SP16, SP32, SP48,
corresponding to the three possible memory sizes, 16K, 32K and
48K RAM.
1
.
Turn on the VOXBOX. The Power Button is on the rear of the case
at the left.
2. Turn on any other peripherals you are going to use.
3. Turn on the Computer as usual. (TRSDOS users should load and
execute the BASIC interpreter.)
4. Now it's time to reserve memory for the driver program. Answer
MEMORY SIZE? according to the following table:
IF YOU HAVE ANSWER MEMORY SIZE?
16K RAM 28671
32K RAM 45055
48K RAM 61439
5. Now locate the proper SPnn tape for your System. (For 16K RAM,
use SP16; 32K, SP32; 48K, SP48). Prepare your recorder to
play the tape.

Powering Up and Loading the Driver Program
6. TRSDOS users type CMD "T" yggggg before cassette
operations.
Type:
SYSTEM QSE3
*? SPnn EMUS nn=16, 32 or 48
The tape will now load, as indicated by the blinking asterisks
on the Display. If there is an error, one of the blinking asterisks on
the Display will be replaced by a"C." Wait till the tape stops,
adjust the volume, and repeat step 6. If the tape doesn't stop,
reset the and start over at step 1.(The program is recorded twice on
each side of the tape.)
7. Once the tape has loaded successfully, (t he *? returns and there's
no Cin the upper right corner), press BREAK
*9 BREAK
The VOXBOX is now completely "installed" and ready to run one
of the applications programs.
The driver program will remain intact until you turn off the computer
or replace the contents of the highest 4096 RAM bytes in your
computer. Pressing RESET will not affect the driver program. (But
always reserve memory as in the preceding table.)
Saving the Driver Program on Disk
With adisk system, you can save the driver program (SPnn) in adisk
file. Use the TAPEDISK utility program described in the
TRSDOS Reference Manual. Prepare the recorder to play the correct
SPnn tape, and type:
TAPEDISK
?C
?FSPnn/CMD:0 aaaa bbbb 402D
?EgJjJJ3|
Get values for nn, aaaa and bbbb from the table below.
ENTER
ENTER ENTER
Memory Size nn aaaa bbbb
16K 16 7000 7FFF
32K 32 B000 BFFF
48K 48 F000 FFFF
Once you've saved the driver program, you can load it in the
DOS READY mode by typing:
LOAD SPnn/CMD Q2EQ3 (nn=16,32 or 48)
Then load BASIC and answer MEMORY SIZE as described on the
preceding page.

Hints on Using VOXBOX
3. Hints on Using VOXBOX
Computer Speech Recognition is still in its early stages. You cannot,
for example, expect the VOXBOX to understand you unless you make
every effort to make yourself understood. Put another way, it is easy
to fool the VOXBOX; the goal is to communicate with your
Computer through it.
To obtain the best results from your VOXBOX, always follow the
following suggestions:
Environmental Conditions
Your VOXBOX, like you, will work best in aclean and quiet room.
Background noise will be picked up by the microphone and mixed
with speech, reducing the recognition accuracy of the VOXBOX.
Using the Microphone
Hold the microphone almost touching your lips. Movement of the
microphone introduces additional variations into the system which
increase the chance of recognition mistakes.
When VOXBOX is ready for you to talk, press the push-to-talk button
on the Mic; release the button when you have finished pronouncing
the word or phrase.
Speak slowly and distinctly into the Mic, using as little inflection as
possible. You will need to pronounce your words consistently, so don't
use aforced or unnatural pronunciation.
Choose Your Language and Words
You may use any language or words with VOXBOX, programming it
in the language and words of choice. Even though the video display
may "prompt" you in English, it is not necessary to use the same
English word.
Be consistent in your speech
Once you have trained the VOXBOX on agiven vocabulary,
pronounce the words consistently so the VOXBOX can recognize
them more reliably.

Running the Application Programs
4. Running the Application Programs
Three BASIC programs are included on tape to let you get used to
the VOXBOX:
•An Inventory Demonstrator that lets you specify items and
quantities from an imaginary inventory.
•ALunar Lander that simulates the landing of aspace craft on
the lunar surface. You control the rate of descent by commanding
the craft to fire specified fuel bursts.
•AVoice Plotter that gives you agraphic representation of any
sound you make.
In all these demonstration programs, the Computer will display adot
in the upper left corner of the Screen when it is listening. This means
it is time for you to press the push-to-talk button and say the
appropriate word or phrase.
To interrupt the Computer while it is waiting for speech input, hold
down the HHacid key while you speak into the Mic.
Loading the Programs
All the programs are designed to run under LEVELIIBASIC. If you
are operating under TRSDOS, type BASIC2 gJjJJS
Note: These three Applications programs will not run under
DISKBASIC because of differences in the USR function. However,
you can write programs (or modify these) to run under DISKBASIC.
(See Section 5.)
Prepare the recorder to play the desired tape program, then use
the BASIC command, CLOAD, to load the program. Instructions for
running each program follow.

Running the Application Programs
Inventory Program
This program illustrates howdata may be entered using the VOXBOX.
It also illustrates use of akeyword to start acommand or data
sequence. Such keywords or "wake-up" words are useful to minimize
interference from background noise.
These program control words are used in this demonstration:
"PART' To begin the data entry sequence at the
part number.
"QUANTITY" To end the part number and begin entry
of the quantity of that part.
"BACKSPACE" To allow the previous entry to be
corrected (re-entered).
"SCRATCH" To cancel acomplete sequence and begin
over again with the word "PART'.
"OK" To accept an entry after visual
verification.
"SAVE" To signal the end of the entry program.
After training the system you may enter part numbers and quantities
by entries of the following form:
PART (digit)(digit) ...QUANTITY (digit)(digit) ... OK
For example:
PART 123 QUANTITY 45 OK
"OK" signals the system to enter this data. If you or the system makes
an error, you can say BACKSPACE to erase digits. You can also say
SCRATCH to clear the entire entry. In the part field the letters Aor
B, or the character "-" (dash), may also be used to make up the
part number. When you are through trying the Inventory demo, say
SAVE instead of PARTto end the program. In this demonstration,
data is not actually saved at this point.

Running the Application Programs
Lunar Program
In LUNAR, you try to land arocket on the moon without crashing. It's
areal challenge, since the amount offuel is limited and the effect of
burning agiven amount offuel varies with the mass of the ship. As you
burn fuel the mass gets smaller, and the change in velocity occurring
for each pound of fuel burned increases.
You can set the burn rate as large as you like. Each entry, for example
"FIVE", ZERO, ZERO" (500), represents the burn rate for the next
ten seconds in pounds of fuel per second.For example, if you say
"FIVE" (5), you will burn 50 pounds offuel. If you say "ZERO"
(p), you will burn no fuel.
Make your entries in the form
—
(digit)(digit) .. . FIRE
If you or the system makes an entry mistake, you can clear adigit by
saying "BACKSPACE".
After saying "FIRE", the computer will compute the 10 second burn
and display elapsed time in seconds, distance to the moon in miles
per hour, and pounds of fuel remaining.
Good Luck!
Plot Program
This program shows you aplot of your voice. This is the raw data
which the computer works with to recognize words. The top plot is
ameasure of energy in the frequency range 900 to 2200 hertz. High
(trace up) means energy present. The second line is energy in the 100
to 900 hertz energy range. Notice that vowels (AH, OO, EE, etc.)
have high energy in the low band while many consonants (S, F, V,
etc.) don't.
The next (lower) plot is an estimate of the dominant frequency in
the band 900 to 5000 hertz. The lowest plot is an estimate of the
dominant frequency in the band 200 to 900 hertz. All of these values
are measured at 10 millisecond intervals.
10

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 R1=240 :B1 =-3078: GOTO 100
80 R1 =176SB1=- -19462 sGOTO 100
90 Ri =l12 :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 INIT WORD LIST
120 PRINT "VOICE DATA ENTRY INVENTORY"
125 PRINT "DEMO PROGRAM"
130 PRINT
135 PRINT "CODE" »"FUNCTION"
137 PRINT
140 PRINT "i'S "TRAIN"
150 PRINT "2" i"ENTER INVENTORY"
180 PRINT
190 INPUT C
200 GOSUB 9000 sREM CLEAR SCREEN
210 ON CGOTO 1000* 2000
220 GOTO 120
1000 PRINT ""!" RAINING 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

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 sD=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 INT 3576 »BIRING* <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 1tV" 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

Running the Application Programs
Inventory Demo Program (Continued)
2425 U=U*1
2430 GOTO 2330
2500 PRINT SPRINT "OK"
2505 PRINTS 512.
"
2510 GOTO 2005
2600 REM BACKSPACE
2610 C=C-l:D=D-LKC>
2620 PRINTSDi
"
"
;
2640 IF U=0 THEN 2005
2645 C=C-1
2650 U=U-i
2660 GOTO 2120
2700 C=C-1 :D=D-L1 (C)
2710 PRINT3Di
"
"
5
2730 IF U=0 THEN 2120
2740 OC--1
2745 U=U-i
2750 GOTO 2330
2800 PRINT SPRINT "SCRATCH"
28 1PRINT 85 12»ST RING* <32 ,"")
2820 GOTO 2005
6000 POKE 16526^3
6010 POKE 16527 5Rl
6015 SET (0*0)
6020 X=USR(0)
6025 RESET (0,0)
6030 X=PEEK(B1
)
6040 IF X>V THEN 6000
6050 W*=WD*(X)
6052 C=C+ 1:P1*<C):==W* :L1<C)=2*LEN <W* )
6080 RETURN
7000 REM INITIALIZE TABLES
70 1WD* (1)=• "SCRAT CH
"
7020 WD*<2)="PART"
7030 WD* <3)="QUANT ITY
"
7040 WD*(4)="0K"
7050 WD* (5)="BACKSPACE
"
7060 WD* <6) ="OK"
7070 WD*<7)="SAVE"
7080 WD*(S)="0"
7090 WD*(9)="1"
7100 WD*(10>="2"
7110 WD*(11)="3"
7120 WD*U2) ="4"
13

Running the Application Programs
Inventory Demo Program (Continued)
7130 WD* (13) ="5"
7140 WD*<14)="6"
7150 WD*(15)="7"
7160 WD*<16)="8"
7170 WD*<17)="9"
7180 WD* (18)="-"
7190 WD* (19)=" A"
7200 WD*(20)="B"
7220 WD* (21 )="PART
7230 WD* (22)=" OK"
7240 WD* (23)=" 5'
7250 WD* (24)=" 9'
7260 WD*(25)="1
7270 WD* (26) ="2
7280 WD$<27)="6"
7290 WD* (28) ="7"
7300 WD* (29) ="BACKSPACES"
73 10 WD* (30 )="PART
"
9000 PR INTS) 1CHR* (3D? CHR* (28 )5CHR* (23 ):REITURN
10000 CLS
14

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 VOXBOX SOFTWARE NOT L-OADED
"
60 END
70 131=240 :B1 =-3078: GOTO 100
80 111=176 :B1=-1 9462 :GOTO 100
90 131=112 sBl =29690
100 REM SPEECH INPUT LUNAR
105 DIM W*<1
)
110 REM INITIALIZE
120 POKE 16526?
6
130 POKE 16527? Rl
140 X=USR(0)
160 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 ATIME '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

Running the Application Programs
Lunar Program (Continued)
410 L=0
420 PRINT 3128? "SEC" ?"MI+FT" ?"MPH" ?"LB FUEL"
425 PRINT 3384? "BURN RATE"
430 A=120:V=l:M=33000:N= 16500:6=0.00 1:2=1.8
440 PR INT 3256 ?L?INT <A) ? INT (5280* (A~ INT <A) ) )*3600*V ?M-N
?
445 P1=447:K=0
450 REM RECOGNIZE
460 SET<0?0)
470 POKE 16526i
3
480 POKE 16527? Rl
490 X=USR<0>
500 X=PEEK(B1)
510 IF X>19 THEN 1000
520 RESET (0»0)
530 T=10
540 X=(X-INT(X/10)*10)
545 W$=CHR$<X+ASC<"0" >
>
550 P1=P1+1
555 K=10*K+X
560 PRINT 3P1?W$?
565 GOTO 450
568 PRINT 3448?" ";:P1=447
570 IF M-N<0.001 THEN 650
580 IF T<.001 THEN 440
590 S=TSIF M>=N+S*K THEN 610
600 S=(M-N)/K
610 GOSUB 840 :IF I<=0 THEN 760
620 IF W=0 THEN 640
630 IF J<0 THEN 790
640 GOSUB 750: GOTO 570
650 PRINT3704? "FUEL OUT AT "?L? "SECONDS"
660 S=<--V+SQR<V*V+2*A*G> )/G
670 V=V+G*S:L=L+S
680 W=3600*V
690 PRINTS 768. "ON MOON AT "5L5" SECONDS— IMPACT VELOCITY ";W;" MPH"
700 IF W<=1.2 THEN PRINT3832 "PERFECT LANDING i!
i"sGOTO 390
710 IF WO-10 THEN PRINT3832 "CRAFT DAMAGED. YOU'RE STRANDED" :GOTO 390
720 PRINT3832? "SORRY THERE WERE NO SURVIVORS? YOU BLEW IT"
730 PRINT3896?"IN FACT? YOU BLASTED ANEW CRATER ";W*.2275" FEET DEEP"
735 FOR 1=0 TO 2000 5NEXT I
740 GOTO 390
16

Running the Application Programs
Lunar Program (Continued)
750 L=L+S :T=T-S :M=M-S*K :A= I:V=J:RETURN
760 IF 5<.005 THEN 680
770 D=V+SOR <V*V+2*A* <G-Z*K/M )):S=2*A/D
780 GOSUB 840s GOSUB 750= GOTO 760
790 W= <1-M*G/ (Z*K ) ) /2
792 S=M*V/ <Z*K* <W+SOR <W*W+V/ Z>
)
)+0 .05
794 GOSUB 840
800 IF I<=0 THEN 760
810 GOSUB 750! IF J>0 THEN 570
820 IF. V>0 THEN 790
830 GOTO 570
840 Q=S*K/M
842 J~V+G*S+Z* (-Q* <1+0* (1/2+0* (1/3+0* (1/4+0/5 )))))
844 Ti=Q*( 1/2-1-0* <1/6+0* <l/12+0#< 1/20+0/30) )))
850 I=A-G*S*S/2-V*S+Z*S*Tl
855 RETURN
1000 RESET <0»0)
1010 IF X-20 OR X=21 THEN. 568: REM ENTER
102B IF X>23 THEN 450s REM TRY AGAIN
1030 REM BACKSPACE
1040 PRINT QP1» ""
5
1050 P1=P1-1
1060 IF PK448 THEN PI ==447
1070 K=INT(K/10)
1080 GOTO 450
2000 FOR 1=0 TO 1
2005 PRINT 31 92 »"FIRE
2010 POKE Bl»20+I
2020 POKE 16526*0
2030 POKE 16527? R1
2040 X=USR(0)
2050 IF PEEK(B1)<>0 THEN 2000
2060 P R INT 5) 192 »"BACKSPA CE "
2070 POKE Bl»22+I
2080 POKE 16526*0
2090 POKE 16527? Rl
2100 X=USR<0>
2110 IF PEEK(B1)<>0 THEN 2060
2115 NEXT I
2120 PRINT 3192*
"
2130 GOTO 380
17

Running the Application Programs
Plot Program
1(3 IF PEEK (-4095) =12 THEN 60
20 IF PEEK (-20479) =12 THEN 70
30 IF PEEK (28673) =12 THEN 80
40 PRINT "ERROR: VOX BOX SOFTWARE NOT LOADED"
50 END
60 R1=240 :B1=-3078 :L1=-24 11:B2=~-304 1:GOTO 90
70 R1=176 sB1=- 19462 :L1=- 18795 :B2=- 19425 :GOTO 90
80 R1=112sB1=29690 sL1=30357 :62=29727 :GOTO 90
90 CLS
100 PRINT 350, "SPEAK. .."
5
110 POKE BlfO
120 POKE 16526,0
130 POKE 16527? Rl
140 X=USR(0)
150 CLS
160 L=PEEK(L1
)
165 PRINTS 114,"LEN= "5L
;
170 B=B2
180 FOR 1=10 TO L+10
190 IF PEEK(B)=0 THEN X=l ELSE X=0
200 SET(IjX)
210 IF PEEK(B+1)=0 THEN X=l ELSE X=0
220 SET(IiX+4>
230 SET (Ii47-PEEK (B+2 )/4
)
240 SET (
I
,47-PEEK (B+3 )/4
)
250 B--B+4
260 NEXT I
270 GOTO 100
280 END
18