Epson LX-90 User Manual - IBM PC Jr. 8690 PIC for LX-90 - Page 49
Lprint Chr$27&chr$0chr$achr$a-1+j, J=1: If J>3 Then A=58 Else A=60
View all Epson LX-90 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 49 highlights
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 2, it prints six characters, then redefines one or more of them and prints them again. As with the draft characters, 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. 44