Epson LQ-860 - Impact Printer Bulletin d'information sur les produits - Page 3

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