Statement Form - Epson FX-80 User Manual

3(3(3 NEXT P: NEXT M: LPRINT B$;H$;"k"; C$;:
IF F=(3 THEN LPRINT: GOTO 32(3
31(3 LPRINT H$;CHR$(93+Z)" - DISTRICT ";Z: Z=Z+l
32(3 NEXT R: LPRINT H$;H$;B$;U$;"g";
H$;H$;H$;H$;"k"
33(3 LPRINT H$;H$;"d";: A$="j":
GOSUB 8(3(3: LPRINT "e"
34(3 LPRINT C$;H$;H$;H$;" JAN";
H$;" FEB";H$;" MAR": LPRINT
39(3 LPRINT CHR$(27)"@": STOP
Line 300 closes the P and M loops, prints the right-hand border, and
sends control to either 310 or 320. Line 310 prints the districts. Lines
320 through 340 print the bottom portion of the chart.
Now it's time to RUN your program and see if it looks like Figure
19-1.
The heights of the bars can be changed by adjusting the data in line
40. Go ahead and SAVE the program as BARCHART if you like. The
next program starts where this one ends.
Statement Form
The final program produces the stunning statement form that ap-
pears as Figure 19-2. It's amazing what you can do with a full-feature
printer like the FX-80!
Do you recognize parts of the figure from previous chapters? There
is the logo from Chapter 12, user-defined letters (SOFTWARE) from
Chapter 17, and line graphics characters from Chapter 18. This pro-
gram combines all those routines into one neat package.
Figure 19-3 gives the complete listing for the statement form pro-
gram:
229