3, DATA, DATA, 120 LPRINT: END, 100 NEXT X: NEXT Y, 7,135,0,7,253,0,0,0,0,0,0,0 110 FOR X=58 TO 63: LPRINT CHR$(X)" ";: NEXT, DATA, DATA, J>3, 120 LPRINT: END, 100 NEXT X: NEXT Y, 7,135,0,7,253,0,0,0,0,0,0,0, 20 LPRINT CHR$(27)"x"CHR$(1), 0,1,0,0,3,128,0,3,128,7,255,0, 80 LPRINT CHR$(0)CHR$(12)CHR$(0);"> Epson LX-90TM 110 FOR X=58 TO 63: LPRINT CHR$(X)" ";: NEXT, NEW, J>3, DATA, DATA, 120 LPRINT: END, 100 NEXT X: NEXT Y, 7,135,0,7,253,0,0,0,0,0,0,0

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