Radio Shack TRS-80 Voxbox - Page 20

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 R
1
=240
:
B
1
=-3078
: L 1
=-24
1 1
:
B2=~-304 1
:
GOTO
90
70
R 1
=
1 76
s
B
1
=-
1
9462
: L
1
=-
1
8795
:
B2=-
1
9425
: GOTO 90
80 R
1
=
1
1
2
s
B
1
=29690
s
L
1
=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
)
1 65 P
R I NTS
1
1
4
,
" LEN= " 5
L
;
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 (
I i 47-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