Epson LX-80 User Manual - Page 75

Second NLQ definition program, in lines 130-150. If you want to define more than one character

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

Page 75 highlights

la LPRINT CHR$(27) "x"CHR$(l) 20 LPRINT CHR$(27)":"CHR$(I)CHR$(O)CHR$(0); 30 LPRINT CHR$(27)"%"CHR$(l)CHR$(O); 40 LPRINT CHR$(27)"&"CHR$(O)"

  • 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
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
la
LPRINT
CHR$(27)
"x"CHR$(l)
20
LPRINT
CHR$(27)":"CHR$(I)CHR$(O)CHR$(0);
30
LPRINT
CHR$(27)"%"CHR$(l)CHR$(O);
40
LPRINT
CHR$(27)"&"CHR$(O)"<(";
50
LPRINT
CHR$(O)CHR$(lZ)CHR$(0);
60
FOR
X=1
TO
36
70
READ
C:
LPRINT
CHR$(C);
80
NEXT
X
90
LPRINT
"YOUR
CHARACTER
IN
PICA:
<
<
<"
100
LrjRINT
"IN
EXPANDED
EMPHASIZED
PICA:
";
110
LPRINT
CHR$(27)"!*<
<
<"
120
LPRINT
CHR$(27)"!"CHR$(0)
130
DATA
4,0,0,8,0,0,16,0,0,32,0,0
140
DATA
64,0,0,255,255,192,64,0,0,32,0,0
150
DATA
16,0,0,8,0,0,4,0,0,0,0,0
When you run this program for your own character, you find out
whether or not it looks right to you. If it doesn’t, move the dots as
needed, recalculate and change the data numbers, and run the prog-
ram again.
Second NLQ definition program
When you are satisfied with the character you have created, enter
and run the next program. Use your data numbers instead of the ones
in lines 130-150. If you want to define more than one character,
change line 10 so that J equals the total number of characters you are
defining (the maximum is six) and enter the extra data numbers (36
for each character).
10
J=l:
IF
J>3
THEN
A=58
ELSE
A=60
20
LPRINT
CHR$(27)"x"CHR$(l)
30
FOR
X=58
TO
63:
LPRINT
CHR$(X)"
";:
NEXT
X
40
LPRINT
50
LPRINT
CHR$(27)":"CHR$(I)CHR$(O)CHR$(0);
60
LPRINT
CHR$(27)"%"CHR$(l)CHR$(0);
70
LPRINT
CHR$(27)"&"CHR$(O)CHR$(A)CHR$(A-l+J);
80
FOR
Y=l
TO
J
90
LPRINT
CHR$(O)CHR$(12)CHR$(0);
100
FOR
X=1
TO
36
110
READ
C:
LPRINT
CHR$(C);
120
NEXT
X:
NEXT
Y
130
FOR
X=58
TO
63:
LPRINT
CHR$(X)"
";:
NEXT
X
140
DATA
4,0,0,8,0,0,16,0,0,32,0,0
150
DATA
64,0,0,255,255,192,64,0,0,32,0,0
160
DATA
16,0,0,8,0,0,4,0,0,0,0,0
71