Epson FX-80 Specifications Page 248

  • Download
  • Add to my manuals
  • Print
  • Page
    / 268
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 247
270 FOR M=l TO
3:
LPRINT H$;
280 FOR P=l 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+l
320 NEXT R: LPRINT H$;H$;B$;"g";H$jH$;H$;H$;"k"
325 LPRINT H$;H$;B$;"k";H$;H$;H$;H$;"k"
330 LPRINT H$;H$;"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=l 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
Page view 247
1 2 ... 243 244 245 246 247 248 249 250 251 252 253 ... 267 268

Comments to this Manuals

No comments