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

 

990DATA 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 mate- rial, this large program demonstrates the way you can use several of the techniques you have learned within a single application.

231