Radio Shack TRS-80 Owner's Manual page 79

mm
3&m#8
k^:tfm
\'^Wss$ft&
\
hSS^SSfS^^-''
'CHARACTER INPUT BUFFER
'CHARACTER OUTPUT BUFFER
5
DEFINT A-Z
'INTEGER VARIABLE FOR SPEED
10
POKE 16890J 'DON'T WAIT FOR
SERIAL
I/O
15
POKE
1(3888,
(5*16)+5
'TX/RCV AT BAUD RATE 300
20
DEFUSRB
=
&H005A: REM SET
UP
CALL
TO
$RSINIT
40
X =
USR0C0)
G0
DEFUSR1
=
&H0050
65
DEFUSR2
=
&H0055
70
CI =
1S872
80 CO = 1(3880
90
'
CHECK FOR SERIAL INPUT
110
X
=
USRKB)
'CALL
*RSRCO
120 C*
=
CHR*(PEEK(CI>)
'LOOK AT INPUT
BUFFER
130
PRINT C$
'IF C = 0.
NOTHING HAPPENS
140
'
CHECK FOR KEYBOARD INPUT
150 C*
=
INKEY*
'NO
KEY, SO GO
CHECK SERIAL
'SELF
ECHO
'PUT
CHARACTER INTO OUTPUT
BUFFER
'CALL $RST>(
'GO
CHECK SERIAL INPUT
1G0
IF
C*
=
""
THEN 110
1B5
PRINT
C*:
170
POKE CO,
ASC(C$)
190
X =
USR2(0)
200 GOTO 110
TAPE
Tape/Disk Transfer
TAPf
(s
=
source,
n
=
destination)
source and destination are abbreviations
lor
the storage devices
?:
ISlllSlSlll^^
••-'"'••
•'•'•'-
^'-/V-V'
Ifllllll^
;
-
r Random
access
memory
Note: tapf
can
only be
used
with
machine language
pqigran-?
^Ici-
reside
above 5200
hex.
if
program
is
below S20G
iies 'irs-jus
wi
:
t
z\ti
program
storage but not
program
execution
w*x. trDora^s m^;i
as
ciOADedandcsAVFed
This
command
transfers z~80
machine-language programs from one
storage
device
to
another.
The
following transfers are possible:
*
Tape
to
disk
83