Advertisement
10 INPUT "Point Size";A$
20 B=VAL(A$)*2
21 RESTORE 70
22 FOR X=1 TO 16
23 READY
24 IF B=Y THEN GOTO 30
25 NEXT X
26 CLS
27 PRINT A$ " is not a valid point size choice."
20 GOTO 10
30 C=VAL(A$)
40 LPRINT CHR$(27);"X";CHR$(1);CHR$(B);CHR$(0);"These are ";A$;" point
characters"
50 LPRINT CHR$(27);"(v";CHR$(2);CHR$(C);CHR$(C);CHR$(0)
60 GOTO 10
70 DATA 0,16,20,21,24,28,32,36,40,42,44,48,52,56,60,64
Line 10 - allows you to specify the point size desired.
Line 20 - computes the value for "n1" in the ESC X command.
tine 21 - check to ensure that a valid point size was input If 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 "n1" 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 all 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.
PSB No: P-0082
Page: 3 of 14
Advertisement
