Epson FX-185 User Manual - Page 248

Statement Form

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

Page 248 highlights

270 FOR M=1 TO 3: LPRINT H$; 280 FOR P=1 TO 3 290 IF R>MAX(M,P) THEN LPRINT ;ELSE LPRINT CHR$(93+P); 300 NEXT P: NEXT M: LPRINT B$;H$;"k";C$;: IF F=0 THEN LPRINT: GOT0 320 310 LPRINT H$;CHR$(93+Z)" - DISTRICT ";Z: Z=Z+1 320 NEXT R: LPRINT H$;H$;B$;"g";H$;H$;H$;H$;"k" 325 LPRINT H$;H$;B$;"k";H$;H$;H$;H$;"k" 330 LPRINT H$;H$j"d";: A$="j": GOSUB 800: LPRINT "C" 335 LPRINT: LPRINT 340 LPRINT C$;H$;H$;H$; " JAN";H$; " FEB";H$; MAR": LPRINT 390 LPRINT CHR$(27)"@": END 799 ' *** STRING$ ROUTINE *** 800 FOR J=1 TO N: LPRINT A$;: NEXT J: RETURN 899 ' > 900 DATA 0,0,0,0,15,0,8,0,8,0,8:'a 910 DATA 8,0,8,0,15,0,0,0,0,0,0: 'b 920 DATA 8,0,8,0,120,0,0,0,0,0,0: 'c 930 DATA 0,0,0,0,120,0,8,0,8,0,8: 'd 940 DATA 8,0,8,0,120,0,8,0,8,0,8: 'e 950 DATA 8,0,8,0,15,0,8,0,8,0,8: 'f 960 DATA 0,0,0,0,127,0,8,0,8,0,8: 'g 970 DATA 8,0,8,0,127,0,0,0,0,0,0: 'h 980 DATA 8,0,8,0,127,0,8,0,8,0,8: 'i 990 DATA 8,0,8,0,8,0,8,0,8,0,8: 'j 1000 DATA 0,0,0,0,127,0,0,0,0,0,0,: 'k 1010 DATA 84,0,170,0,84,0,170,0,84,0,170:'1 Figure 17-2. Program for BARCHART (concluded) Statement Form For the last application of this manual, you will produce, for a hypothetical business-Strata Software, the statement form that is shown as Figure 17-3. Feel free to adapt the form or any of its elements to your own purposes. Do you recognize figures from previous chapters within this form? We have you use the logo we developed in Chapter 12, user-defined characters from Chapter 1.5, and line-graphics characters from Chapter 16. By combining figures from previous chapters with new material, this large program demonstrates the way you can use several of the techniques you have learned within a single application. 231

  • 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
270 FOR M=1 TO
3:
LPRINT H$;
280 FOR P=1 TO
3
290 IF R>MAX(M,P) THEN LPRINT
;ELSE LPRINT
CHR$(93+P);
300 NEXT P: NEXT M: LPRINT B$;H$;"k";C$;: IF F=0
THEN LPRINT: GOT0 320
310 LPRINT H$;CHR$(93+Z)"
- DISTRICT
";Z: Z=Z+1
320 NEXT R: LPRINT H$;H$;B$;"g";H$;H$;H$;H$;"k"
325 LPRINT H$;H$;B$;"k";H$;H$;H$;H$;"k"
330 LPRINT H$;H$j"d";: A$="j": GOSUB 800: LPRINT
"C"
335
LPRINT: LPRINT
340 LPRINT C$;H$;H$;H$; "
JAN";H$; "
FEB";H$;
MAR":
LPRINT
390 LPRINT CHR$(27)"@": END
799 ' *** STRING$ ROUTINE ***
800 FOR J=1 TO N: LPRINT A$;: NEXT J: RETURN
899
'
<<< LINE GRAPHICS AND SHADING >>>
900 DATA 0,0,0,0,15,0,8,0,8,0,8:‘a
910 DATA 8,0,8,0,15,0,0,0,0,0,0: ‘b
920 DATA 8,0,8,0,120,0,0,0,0,0,0: ‘c
930 DATA 0,0,0,0,120,0,8,0,8,0,8: ‘d
940 DATA 8,0,8,0,120,0,8,0,8,0,8: ‘e
950 DATA 8,0,8,0,15,0,8,0,8,0,8: ‘f
960 DATA 0,0,0,0,127,0,8,0,8,0,8: ‘g
970 DATA 8,0,8,0,127,0,0,0,0,0,0: ‘h
980
DATA
8,0,8,0,127,0,8,0,8,0,8:
‘i
990
DATA
8,0,8,0,8,0,8,0,8,0,8: ‘j
1000 DATA 0,0,0,0,127,0,0,0,0,0,0,: ‘k
1010 DATA 84,0,170,0,84,0,170,0,84,0,170:'1
Figure
17-2.
Program for BARCHART (concluded)
Statement Form
For the last application of this manual, you will produce, for a
hypothetical business-Strata Software, the statement form that is
shown as Figure
17-3.
Feel free to adapt the form or any of its elements
to your own purposes.
Do you recognize figures from previous chapters within this form?
We have you use the logo we developed in Chapter 12, user-defined
characters from Chapter 1.5, and line-graphics characters from Chap-
ter
16.
By combining figures from previous chapters with new mate-
rial, this large program demonstrates the way you can use several of
the techniques you have learned within a single application.
231