Radio Shack TRS-80 X-PAD GT-116 - Tele-Prompter; CLOADM Em Up and Head Em Out!

100 IF S<>3
AND
S<>2
THEN
90
110
PSETCX
*Y
#1
)
120
X1=X:Y1=Y
130
G08UB
170
140
LINE(X1
tYl
)-(X tY)
*PSET
150
IF
PEEK(G5378)=3
THEN 120
1G0
GOTO
90
170
X=PEEK(G537G)
: Y= PEEK
(
G5377
)
sS=
(65378)
=
PEEK
180 IF
S<>15
THEN
230
190
SCREEN
0,0:CLS
200
INPUT
M
STORAGE
FILENAME"
5V1SCREENFILE$
210
CSAVEM
U1SCREENFILE$
*
C3BTARTSCREEN
»C4ENDSCREEN
>0
220
SCREEN
1
#1
230 IF
SOU
THEN
280
240
SCREEN
0,0:CLS
250 INPUT
"LOAD
FILENAME"
5
M1SCREENFILE*
2G0
SCREEN
1 ,1
270
CLOADM
U1SCREENFILE$
280
RETURN
Tele-Prompter
Included
in
this
program
are two
prompts:
•
A
saving
prompt
for
the
name
of
the file
to
be saved
("STORAGE
FILENAME?").
•
A
loading
prompt
for the
name
of the
file to
be loaded
("LOAD
FILENAME?").
After
each
prompt,
you'll
have
to
type the
filename
and
press
(ENTER) .
RUN
the
program
and draw.
To
save
your display
on
cassette:
1.
Draw
until
you are
ready
to save.
2. Press
the
RECORD
and PLAY
buttons
on
your
Cassette
Recorder.
3.
Press
the
Pen
in the
upper-left
or upper-right
corner
of
the margin. The
display
shifts
to the Text Screen and
prompts
you for
a
filename.
4. Enter
the
name
you want to call
your
file (the filename
must
conform to
standard Color
Computer syntax) and
press (ENTER)
.
The
file
begins saving when the cassette
starts moving.
5. After
the
file
is
saved, the Graphics
Screen
returns,
as
well
as
the display.
Be
sure
to mark all your
cassettes
clearly with
filenames
so you
won't have trouble
locating them later.
CLOADM
'Em
Up
and Head
'Em
Out!
[BREAK) the program
(it's
easier to see the program load on
a
clear Screen)
and re-run
it. To load the same display
from
cassette:
1.
Rewind
the cassette
to
the
beginning
or
to
the position
where
you began
saving the file.
2.
Press
the PLAY
button.
3. Move
the
Pen
to the center
of the
top
margin. The
Screen
shifts to
Text
Screen and you'll get the prompt
for
the filename.
Type the filename
and
press (ENTER)
.
4. As
soon
as you press (ENTER)
,
the
Screen shifts to
Graphics
Screen,
the file is
loaded, and the Graphics
Screen fills
with the
display,
starting from the top
of
the Screen
and proceeding
to the bottom. The display
is
fully
loaded
when the
cassette stops
turning.
If
you wish,
you can press (ENTER) for
the
filename
and the
first
file
on the
cassette will be loaded.
36