Epson FX-1050 User Manual - Page 87

Dim F9, Print Which Rows Have Dots In, Input R: If, Then Next I Else Got0, Lprint

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

Page 87 highlights

First definition program The next few sections explain the steps used to create the symbol for Mercury. The figure below shows the grid used to design the character. I 123456789 Once you have drawn your dots on the grid, type the following BASIC program. l!$i3 DIM F(9) 110 FOR I=1 TO 9 120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";1 130 INPUT R: IF R=@ THEN 150 140 F(I)=F(I)+2"(R-1) 150 IF R=jJ THEN NEXT I ELSE GOT0 130 160 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0); 170 LPRINT CHR$(27)~%nCHR$(1)cH$(0); 180 LPRINT CHR$(27)"&"CHR$(@)CHR$(60)CHR$(60); 190 LPRINT CHR$(128); 200 LPRINT CHR$(27)"x$v'; 210 FOR X=1 TO 9 220 LPRINT CHR$(F(X));:NEXT X 230 LPRINT CHR$(~)CHR$(~); 240 LPRINT "YOUR CHARACTER IN 10 CPI: ( ( (" 250 LPRINT "IN DOUBLE-WIDE EMPHASIZED 10 CPI: '1; 260 LPRINT CHR$(27)"!*( ( (" 270 LPRINT CHR$(27)"!"CHR$(@)"IN NLQ:"; 280 LPRINT CHR$(27)"xl( ( (" 290 LPRINT CHR$(27) "!"CHR$(rjl) "YOUR DATA NUMBERS:" 300 FOR ~=l TO 9: LPRINT F(K);: NEXT K 310 LPRINT: END 4-22 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
First definition program
The next few sections explain the steps used to create the symbol for
Mercury. The figure below
shows
the grid used to design the character.
I
123456789
Once you
have
drawn your dots
on
the grid, type the following BASIC
program.
l!$i3
DIM F(9)
110
FOR
I=1
TO 9
120
PRINT "WHICH ROWS HAVE DOTS IN
COLUMN";1
130
INPUT R: IF
R=@
THEN
150
140
F(I)=F(I)+2"(R-1)
150
IF
R=jJ
THEN NEXT I ELSE GOT0
130
160
LPRINT
CHR$(27)
":"CHR$(0)CHR$(0)CHR$(0);
170
LPRINT
CHR$(27)~%nCHR$(1)cH$(0);
180
LPRINT
CHR$(27)"&"CHR$(@)CHR$(60)CHR$(60);
190
LPRINT
CHR$(128);
200
LPRINT
CHR$(27)"x$v';
210
FOR
X=1
TO 9
220
LPRINT CHR$(F(X));:NEXT X
230
LPRI
NT
CHR$(~)CHR$(~);
240
LPRINT "YOUR CHARACTER IN
10
CPI:
(
(
("
250
L
P
RINT
"
IN
D
OUB
LE-
WI
DE E
M
PH
A
SIZED
10
CPI:
'1;
260
LPRINT
CHR$(27)"!*(
(
("
270
LPRINT
CHR$(27)"!"CHR$(@)"IN
NLQ:";
280
LPRINT
CHR$(27)"xl(
(
("
290
LPRINT
CHR$(27)
"!"CHR$(rjl)
"YOUR DATA NUMBERS:"
300
FOR
~=l
TO
9:
L
PR
INT F
(
K
);:
N
EXT
K
310
L
P
RINT
: E
ND
4-22
Using Software and Graphics