Epson FX Series User Manual page 254

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
100-150
160-390
500-660
700-770
800
900-1010
1100-1170
1200-1250
1300-1370
Line prints STRATA SOFTWARE using Master Select to define
170
mode.
the
Lines and
180 190
Line stores the tab command in H$ and prints STATEMENT in
200
Expanded print.
Line 210 prints the second and third lines of the logo.
Lines print more of the logo and the address in various mode
220-250
combinations.
Line 260 sets new horizontal tab stops.
Line sets some variables for the box subroutine at
270
tine prints the box in the upper-right comer of the sheet.
Line does a vertical tab, then prints a string of
280
ters (ASCII
95)
Line 290 prints
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.
Routine
Defines characters and does housekeeping
Prints the statement form
The box subroutine
The logo subroutine
The STRING$ subroutine
Data for line graphics
Data for the STRATA SOFTWARE letters
Data for the logo
Data for the box routine
set vertical and horizontal tab stops.
via subroutine 800.
Subscript AMOUNT REMITTED.
the
That rou-
500.
underline charac-
21
237