You may prefer to work out what each line does on your own—
three cheers if you do. But if you want a little guidance, here is a brief
program overview, followed by a line-by-line description of the main
portion of the program.
STATEMENT breaks down into several large blocks of routines
and data:
Lines
Routine
100-150
Defines characters and does housekeeping
160-390
Prints the statement form
500-660
The box subroutine
700-770
The logo subroutine
800
The STRING$ subroutine
900-1010
Data for line graphics
1100-1170
Data for the STRATA SOFTWARE letters
1200-1250
Data for the logo
1300-1370
Data for the box routine
Line
170
prints STRATA SOFTWARE using Master Select to define
the
mode.
Lines
180
and
190
set vertical and horizontal tab stops.
Line
200
stores the tab command in H$ and prints STATEMENT in
Expanded print.
Line 210 prints the second and third lines of the logo.
Lines
220-250
print more of the logo and the address in various mode
combinations.
Line 260 sets new horizontal tab stops.
Line
270
sets some variables for the box subroutine at
500.
That rou-
tine prints the box in the upper-right comer of the sheet.
Line
280
does a vertical tab, then prints a string of
21
underline charac-
ters (ASCII
95)
via subroutine 800.
Line 290 prints
the
Subscript AMOUNT REMITTED.
Line 300 sets new horizontal tab stops.
Line 310 tabs vertically twice, then prints a Superscript message.
Line 320 cancels Scripts and prints 80 hyphens with subroutine 800.
Line 330 calls the box routine.
Line 340 sets new horizontal tabs.
Line 350 calls the box routine.
Line 360 ses new horizontal tabs.
Line 370 prints STRATA SOFTWARE in a different print mode.
Line 380 thanks us in Italic characters.
Line 390 resets all modes and ends the program.
237
