Advertisement
10 INPUT "Point Siie";A$
20 B=VAL(A$)*2
21 RESTORE 70
24 IF B=Y THEN GOT0 30
26CLS
27 PRINT A$ " is not a valid point size choice."
28 GOT0 10
30 C=VAL(A$)
40 LPRM CHR$(27);"X";CHR$(l);CHR$(B);CHR$(O);"n'lese are ";A$;" point
characters"
60 GOT0 10
70 DATA 0,16,20,21,24,28,32,36,40,4~44,48,52,56,60,64
Line 10 - allows you to specify the point size desired.
Line 20 - computes the value for "nl" in the ESC X command.
tine 21 - check to ensure that a valid point size was input tf the point size is
valid, the program jumps to line 30. tf the point size is not valid, the
program prints a message on the screen and starts over again.
Line 30 - computes the value for "nl " 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 ail 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.
NOTE: To hatt the program, hold down the "CM key and press the "c" key.
PSB No: P-0082
Page: 3 of 14
Advertisement
