Epson LQ-2550 User Manual - Page 126

Width, To 126, 40readn, Lprint, Next X, Restore, Chr$n

Page 126 highlights

l@ WIDTH "LPT1:",255 20 LPRINT CHR$(27)"*"CHR$(39)MR$(~2)C~$(@); 30 FOR X=1 TO 126 40READN 50 LPRINT CHR$(N); 60 NEXT X 70 LPRINT 80 DATA 0,0,63,0,0,127,0,0,255,0,3,255~0~15>255,0~31~255 90 DATA 0,127,255,0,255,255,1,255,255,3,255,255,7,255,255~15~ 255,255 100 DATA 31,255,254,31,255,252,31,255,248,31,255,240,31,255, 224,31,255,192 110 DATA 31,255,0,31,252,0,31,240,0,31,224,0,31,12~~0~31~240~0 120 DATA 31,255,192,28,255,224,28,127,240,28,15,248,30,0,2521 31,0,126 130 DATA 15,128,15,7,192,7,3,2~~,7,1,25~,7,~~255~7~~~~27~135 140 DATA 0,31,199,0,7,231,0,1,247,0,0,255~0~0~127t0~0~63 In this program, line 20 assigns the graphics option (24-pin triple-density) with code 39. Code 42 sets the number of pin columns at 42. Lines 80140 contain 126 bytes of data (42 pin columns x 3 bytes) for each pin column. Lines 30-60 print the following design. Notice that the dots overlap quite a bit. This design was printed using the triple-density 24-pin graphics option because the density is the same (180 dots to the inch) in both directions. Adding the following lines to the preceding program causes the pattern to print 10 times in a row as shown below. 15 FOR C=l TO 10: RESTORE 65 NEXT C Using Software and Graphics 4-21

  • 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
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187
  • 188
  • 189
  • 190
  • 191
  • 192
  • 193
  • 194
  • 195
  • 196
  • 197
  • 198
  • 199
  • 200
  • 201
  • 202
  • 203
  • 204
  • 205
  • 206
  • 207
  • 208
  • 209
  • 210
  • 211
  • 212
  • 213
  • 214
  • 215
  • 216
  • 217
  • 218
  • 219
  • 220
  • 221
  • 222
  • 223
  • 224
  • 225
  • 226
  • 227
  • 228
  • 229
  • 230
  • 231
  • 232
  • 233
  • 234
  • 235
  • 236
  • 237
  • 238
  • 239
  • 240
  • 241
  • 242
  • 243
  • 244
  • 245
  • 246
  • 247
  • 248
  • 249
  • 250
  • 251
  • 252
  • 253
  • 254
  • 255
  • 256
  • 257
  • 258
  • 259
  • 260
  • 261
  • 262
  • 263
  • 264
  • 265
  • 266
  • 267
  • 268
  • 269
  • 270
  • 271
  • 272
  • 273
  • 274
  • 275
  • 276
  • 277
  • 278
  • 279
  • 280
  • 281

l@
WIDTH
"LPT1:",255
20
LPRINT
CHR$(27)"*"CHR$(39)MR$(~2)C~$(@);
30 FOR
X=1
TO 126
40READN
50
LPRINT
CHR$(N);
60
NEXT X
70
LPRINT
80
DATA
0,0,63,0,0,127,0,0,255,0,3,255~0~15>255,0~31~255
90
DATA
0,127,255,0,255,255,1,255,255,3,255,255,7,255,255~15~
255,255
100
DATA
31,255,254,31,255,252,31,255,248,31,255,240,31,255,
224,31,255,192
110
DATA
31,255,0,31,252,0,31,240,0,31,224,0,31,12~~0~31~240~0
120 DATA
31,255,192,28,255,224,28,127,240,28,15,248,30,0,2521
31,0,126
130
DATA
15,128,15,7,192,7,3,2~~,7,1,25~,7,~~255~7~~~~27~135
140 DATA
0,31,199,0,7,231,0,1,247,0,0,255~0~0~127t0~0~63
In this program, line 20 assigns the graphics option (24-pin triple-density)
with code 39. Code 42 sets the number of pin columns at 42. Lines 80-
140 contain 126 bytes of data (42 pin columns x 3 bytes) for each pin
column. Lines 30-60 print the following design.
Notice that the dots overlap quite a bit. This design was printed using the
triple-density 24-pin graphics option because the density is the same (180
dots to the inch) in both directions.
Adding the following lines to the preceding program causes the pattern
to print 10 times in a row as shown below.
15 FOR
C=l
TO
10:
RESTORE
65 NEXT C
Using Software and Graphics
4-21