PSB No: P-0082
Page: 3 of 14
10 INPUT “Point
20
21 RESTORE 70
TO16
24 IF B=Y THEN GOT0
26CLS
27 PRINT A$ is not a valid point size choice.”
28 GOT0 10
30 C=VAL(A$)
40
are
point
characters”
60 GOT0 10
70 DATA
Line 10
allows you to specify the point size desired.
Line 20
computes the value for
in the ESC X command.
tine 21
check to ensure that a valid point size was input
the point size is
valid, the program jumps to line 30.
the point size is not valid, the
program prints a message on the screen and starts over again.
Line 30 computes the value for
for advancing paper using the ESC ( v
command.
Line 40
sends the “Set
and Point
command to the printer. (Note: The
pitch is set for proportional spacing for point sizes to ensure proper
character spacing regardless of the point size.)
Line
sends the “Set Relative Vertical Position” command to the printer. This
command advances the paper in preparation for printing the next line.
causes the program to start again at the beginning.
NOTE: To hatt the program, hold down the
key and press the
key.
