Radio Shack VoxBox TRS-80 User Manual

TEST
PROGRAM
1
(Continued)
1030
POKE
16526,0
1040
POKE
16527, AD
1050
POKE TX,TR
:
REM
PASS
TRAINING
INDEX
TO
SBR
1060
X=USR(0)
1070
IF
Peek(TX)
<>
THEN GO TO
1090
1080
RETURN
1090
PRINT
"ERROR
-
PLEASE REPEAT"
1100
GOTO
1000
TEST
PROGRAM 2
•PLOT''
NOTE: Same
program as in User Manual
—
on
User Cassette
10
: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 NOI
1
LOADED"
50
]
3ND
60
]R1=240:B1=-3078:L1=-2411:B2=
=-3041:
GOTO
90
70
]
*1=176
:
Bl=-19
46 2 :L1=-
18795:1
32=-19425:GOTO
80
]
R1=112:B1=29690:L1=303
57:B2=
=29727:
GOTO
90
90
(
:ls
100
PRINT
3
50,
"SPEAK.
.
.
"
;
110
POKE
B1,0
120
POKE
16526,0
130
POKE
16527, Rl
140
X=USR(0)
150
CLS
160
L=PEEK(L1)
165 PRINTS
114
,
" LEN="
;
L
;
170
B=B2
180
FOR
1=10
TO
L+10
190
IF PEEK(B)=0
THEN X=l
ELSE X=0
200
SET
(I,X)
210
IF PEEK(B+1)=0
THEN
X
=
=1
ELSE
X=0
2
20
SET(I,X+4)
230
SET(I,47-PEEK(B+2)/4)
240
SET(I,4
7-PEEK(B+3)/4)
250
B=B+4
260
NEXT
I
270
GOTO
100
280
END
90
-6-

Radio Shack VoxBox TRS-80 Specifications

General

Brand	Radio Shack
Model	VoxBox TRS-80
Category	Control Unit
Language	English