Radio Shack TRS-80 Owner's Manual page 170

CHARACTERS ON THE RIGHT ARE IGNORED. LSET
IS
A
LEFT-
JUSTIFY FUNCTION,"
Line 120
left-justifies
the value
in
quotes
into the
first field in
buffer
1.
Line 130
does
the
same
thing to
its
quoted
string.
Note:
rset would
place
filler-blanks to the
left
of the item. Truncation
would
still
be on
the
right.
Now
that the
data
is
in
the
buffer,
we
can
write
it
to
disk with a simple
put
statement:
140 PUT
1
>l
150
CLOSE
This
writes the
first
record
into the
file
gloss
ary/b
as.
To
read
and
print the
first
record
in
glossary/bas,
use
the
following sequence:
1B0
0PEN"R"»
1*
"GLOSSARY/BAS"
170
FIELD
Is IS
AS WD$
,
240 AS
MEANING$
180
GET
1
»1
180 PRINT WDS;
PRINT MEANING$
200 CLOSE
Line 160 and 170
are required only because
we
closed
the
file
in line
150.
If
we
hadn't closed
it,
we
could go
directly
to line
180.
152