Statement Form; Statement Form - Epson FX Series User Manual

270 FOR M=l TO
280 FOR P=l TO
290 IF R>MAX(M,P) THEN 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
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
<<< LINE GRAPHICS AND SHADING >>>
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
DATA 8,0,8,0,8,0,8,0,8,0,8:'j
990
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

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
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 By combining figures from previous chapters with new mate-
16.
rial, this large program demonstrates the way you can use several of
the techniques you have learned within a single application.
3:
LPRINT H$;
3
8,0,8,0,127,0,8,0,8,0,8:'i
Program for BARCHART (concluded)
17-2.
Feel free to adapt the form or any of its elements
17-3.
";ELSE LPRINT
"C"
231