Radio Shack TRS-80 model III Owner's Manual page 70

5
DEFINT A-Z
'INTEGER VARIABLE FOR SPEED
10
POKE 1G890* 'DON'T WAIT FOR SERIAL I/O
15
POKE 16888*
(5*16)+5
'TX/RCU
AT
BAUD RATE 300
20
DEFUSRO
=
&H005A: REM BET UP
CALL
TO
$RSINIT
40
X =
USR0(0)
B0
DEFUSRI
=
&:H0050
G5
DEFUSR2
=
&:H0055
70
CI =
16872 'CHARACTER INPUT BUFFER
80 CO
=
16880 'CHARACTER OUTPUT BUFFER
90
'
CHECK FOR SERIAL INPUT
110
X =
USRK0)
'CALL
$RSRCV
120 C$ =
CHR*(PEEK(CI)
)
'LOOK AT INPUT
BUFFER
130
PRINT
C$
'IF C =
13.
NOTHING HAPPENS
140
'
CHECK FOR KEYBOARD INPUT
150 C$
=
INKEY$
1G0
IF
C$
=
""
THEN
110
'NO
KEY* SO GO CHECK SERIAL
185
PRINT
C$:
'SELF ECHO
170
POKE
CO*
ASC(C$)
'PUT
CHARACTER INTO
OUTPUT BUFFER
130
X =
USR2(0)
'CALL
$RSTX
200 GOTO 110
'GO
CHECK SERIAL INPUT
TRSDOS
^«**^«^^^;,
:
TAPE
Tape/Disk Transfer
tape
(s
=
source, o
=
destination)
soumemA
destination are abbreviations
for
the storage devices
to
boused:
t Tape
o
Disk
n
Random
access
memory
Note: tape can only
be used
with
machine-language programs, basic
programs must be ciOAoed and
csAVEed.
This
command
transfers z-80
machine-language programs from one
storage
device
to
another.
The
following
transfers are possible:
•
Tape
to
disk
63