Epson LX-90TM User Manual

Page of 122
NEW
10 J=1: IF 
J>3 
THEN A=58 ELSE A=60
20 LPRINT CHR$(27)"x"CHR$(1)
30 
FOR X=58 TO 63: LPRINT CHR$(X)" ";: NEXT X
40 
LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0)
50 LPRINT CHR$(27)"%"CHR$(1)CH$(0);
60 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-1+J);
70 
FOR Y=1 TO J
80 LPRINT CHR$(0)CHR$(12)CHR$(0);
90 FOR X=1 TO 36: READ C: LPRINT CHR$(C);
100 NEXT X: NEXT Y
110 FOR X=58 TO 
63: 
LPRINT CHR$(X)" ";: NEXT X
120 LPRINT: END
130 
DATA 
0,1,0,0,3,128,0,3,128,7,255,0
140 DATA 4,128,0,4,128,0,4,130,0,4,135,0
150 
DATA 
7,135,0,7,253,0,0,0,0,0,0,0
: ;
< = > ?
: ;
= > ?
When you run program 2, it prints six characters, then redefines
one or more of them and prints them again. As with the draft charac-
ters, you use this two-line printout as a guide to the new characters
your LX-90 will print. You can use them with an applications program
or a program you write yourself.
52