Parts User Manual

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)CHR$(0);

60 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-1+J);

70 FOR Y=1 TO J

80 LPRINT CHR$(0)CHR$(l2)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

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.