Epson FX-1050 User Manual - Page 79

Width, Lprint, For= 1 To 6, For X = 1 To, Next X: Lprint, Next R, Chr$27;a;chr$8, Chr$17@;chr$85

Page 79 highlights

The program is listed below. The lines inside each pair of FOR and NEXT statements have been indented so that you can see how the program works; the spaces are not needed for the program to run. 1Qp WIDTH "LPTl:", 255 ll@ LPRINT CHR$(27);"A";CHR$(8); 12@ FOR R = 1 TO 6 138 LPRINT CHR$(27);"K";CHR$(l@);CHR$(@); 14a FOR X = 1 to 58 158 LPRINTCHR$(17@);CHR$(85); 16P NEXT X: LPRINT 17@ NEXT R lSp! LPRINT CHR$(27);"@" If you run the program, you will see how it combines six print lines into a pattern. There are five basic steps that the program goes through to produce this kind of pattern. 1. The computer is prevented from adding any extra characters by the WIDTH statement (line 100). 2. The line spacing is changed to 8/72 of an inch-the height of the dot patterns used in the program (line 110). 3. The program goes through the graphics commands the required number of times (lines 120 and 170). 4. A new graphics command is used for each line printed (lines 130-160). This part of the program is similar to the last example, but two columns are printed each time through the loop making a total of 100. 4-14 Using Software and Graphics

  • 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

The program is listed below. The lines inside each pair of FOR and
NEXT statements
have
been indented so that you can see
how the
program works; the spaces are not needed for the program to run.
1Qp
WIDTH
"LPTl:",
255
ll@
LPRINT
CHR$(27);"A";CHR$(8);
12@
FOR R = 1 TO 6
138
LPRINT
CHR$(27);"K";CHR$(l@);CHR$(@);
14a
FOR X = 1 to
58
158
LPRINT
CHR$(17@);CHR$(85);
16P
NEXT X: LPRINT
17@
NEXT R
lSp!
LPRINT
CHR$(27);"@"
If you run the program, you will see how it combines six print lines into
a pattern.
There are five basic steps that the program goes through to produce this
kind of pattern.
1.
The computer is prevented from adding any extra characters by the
WIDTH statement (line
100).
2. The line spacing is changed to 8/72 of an inch-the height of the dot
patterns used in the program (line
110).
3. The program goes through the graphics commands the required
number of times (lines 120 and
170).
4.
A new graphics command is used for each line printed (lines 130-160).
This part of the program is similar to the last example, but two
columns are printed each time through the loop making a total of
100.
4-14
Using Software and Graphics