PSB No: P-0082
Page: 3 of 14
10 INPUT “Point
20
21 RESTORE 70
TO16
23READY
24 IF B=Y THEN GOT0
26CLS
27 PRINT A$ is not a valid point size choice.”
26 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. If 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 Pitch and Point Size” 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 50
sends the “Set Relative Vertical Position” command to the printer. This
command advances the paper in preparation for printing the next line.
Line 60- causes the program to start again at the beginning.
NOTE: To halt the program, hold down the “Ctrl” key and press the “c” key.
