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

TRS-80
MODEL
III
DISK
SYSTEM
MID$(A$*
1
*
2)
=
"":
PRINT
A*
which
returns
Lincoln.
MID$(A$>
5)
=
"123*15"; PRINT
A$
returns LINC123.
MID$(A$*
5) =
"01":
PRINT
A$
returns
lincoin.
MID$(A$*
1*3)=
"***":
PRINT
A$
returns ***coln.
Sample
Program
770 CLS: PRINT: PRINT
780 LINE INPUT "TYPE
IN
A
MONTH AND DAY HM/DD*
"3
B$
790
P =
INSTR(S$*
"/")
800
IF
P
=
THEN 7B0
810 MID*(S$t
Pt
1) =
CHR*U5)
8Z0 PRINT
S$
" IS
EASIER
TO
READ* ISN'T
IT?"
This program
uses instr
to
search
for the slash ("/").
When
it
finds
it
(if
it
finds
it),
it
uses MiD$
=
to substitute a
" -
"
(Chr$(45)) for
it.
NAME
Renumber
the
Current
Program
newWrn?
specifies the
new
line
number
of the
first line
to be renumbered,
stertttne specifies the
line
number
in the original
program where
renumbering
will
start.
If
omitted, the
entire
program
will
be
increment
specifies
the increment
to
be used between
each
successive
line
number,
if
omitted, 10
is
used.
112