Epson LX-90 User Manual - Parallel 8620 PIC for LX-90 - Page 54

For X=1 To 36: Read C: Lprint Chr$c, Lprint Chr$27&chr$0chr$achr$a-1+j

Get Epson LX-90 - Impact Printer PDF manuals and user guides View all Epson LX-90 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 54 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)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 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. 52

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 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