Epson FX-185 User Manual - Page 185

For X=1 To L: Lprint Chr$1;: Next X, For D=1 To 17: Print Row;d

Page 185 highlights

290 DATA 3,3,25,3,0,3,25,3,12,3,2,3,12,3,3,-1 300 DATA 3,3,24,3,2,3,24,3,12,3,2,3,12,3,3,-1 310 DATA 3,3,23,3,4,3,23,3,12,3,2,3,12,3,3,-1 320 DATA 3,3,22,3,6,3,22,3,12,3,2,3,12,3,3,-1 330 DATA 3,3,21,3,8,3,21,5,8,5,2,5,8,5,3,-1 340 DATA 3,3,20,3,10,3,21,18,4,18,4,-1 350 DATA 3,3,19,3,12,3,22,14,8,14,6,-1 Yes, indeed, high-resolution graphics does require a large amount of data. Okay, now RUN the program: Figure 12-S. FX-80 figure Success! In your printout (which should look like Figure 12-5), can you see the 3D effect of the letters? The modifications to follow will make the letters easier to read. Type LLIST to see what you've got up to this point. It should match Figure 12-6. Figure 12-7 shows the printout and Figure 12-8 shows the listing for the FX-100. 7 WIDTH LPRINT 255 10 LPRINT CHR$(27)"1" 20 G$=CHR$(27)+"L"+CHR$(51)+CHR$(3): GOSUB 160 30 FOR D=1 TO 17: PRINT "ROW";D 40 LPRINT G$; 50 READ L,H 60 L=L*7: H=H*7 70 IF L=0 THEN 90 80 FOR X=1 TO L: LPRINT CHR$(1);: NEXT X 90 IF H

  • 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

290 DATA 3,3,25,3,0,3,25,3,12,3,2,3,12,3,3,-1
300 DATA 3,3,24,3,2,3,24,3,12,3,2,3,12,3,3,-1
310 DATA 3,3,23,3,4,3,23,3,12,3,2,3,12,3,3,-1
320 DATA 3,3,22,3,6,3,22,3,12,3,2,3,12,3,3,-1
330 DATA 3,3,21,3,8,3,21,5,8,5,2,5,8,5,3,-1
340 DATA 3,3,20,3,10,3,21,18,4,18,4,-1
350 DATA 3,3,19,3,12,3,22,14,8,14,6,-1
Yes, indeed, high-resolution graphics does require a large amount of
data. Okay, now RUN the program:
Figure 12-S. FX-80 figure
Success! In your printout (which should look like Figure
12-5),
can
you see the 3D effect of the letters? The modifications to follow will
make the letters easier to read.
Type LLIST to
see what
you’ve got up to this point. It should match
Figure 12-6. Figure 12-7 shows
the
printout and Figure 12-8 shows the
listing for the FX-100.
7 WIDTH LPRINT 255
10 LPRINT CHR$(27)"1"
20 G$=CHR$(27)+"L"+CHR$(51)+CHR$(3): GOSUB 160
30 FOR D=1 TO 17: PRINT "ROW";D
40 LPRINT G$;
50 READ L,H
60 L=L*7: H=H*7
70 IF L=0 THEN 90
80 FOR X=1 TO L: LPRINT CHR$(1);: NEXT X
90 IF H<0 LPRINT: GOT0 140
----------------------------------------------------------------------------------.
Figure 12-6.
Program
for
FX-80
figure
168