Since this program uses many of the routines from the BAR-
CHART program above, begin by loading that program. Many of its
lines need no changes, including:
110, 120, 150 and 799-1010
Delete lines 10 to 90. Make small changes to four lines:
100 DIM A(18): LPRINT
CHR$(27)"3"CHR$(20)CHR$(27)"U1";
130 LPRINT CHR$(27)"&"CHR$(0) "at";
140 FOR Y=1 TO 20: LPRINT CHR$(139);
160 NEXT Y: LPRINT CHR$(27)"C"CHR$(66);: GOSUB 700
Lines 130 and 140 specify the number (20) and locations (ASCII a - t)
of user-defined characters. Line 160 sets the form length to 66 lines and
top of form to the current position of the print head, and sends the
program to line 700, where the logo subroutine begins.
You can check your changes against the complete listing of STATE-
MENT that appears as Figure
17-4.
That listing also gives you the lines
that are new; such lines fall into two long sections:
170 to 770
1099 to 1370
Enter them one at a time, replacing the corresponding lines from the
BARCHART program.
If your computer system requires a WIDTH statement to prevent
the printer from issuing a carriage return before the graphics line is
complete, add it now:
7 WIDTH LPRINT 255
The format for this statement may be different for your BASIC; see
your software documentation.
If you are using an
FX-100,
add this line to set the right margin:
90 LPRINT CHR$(27)"QP";
233
To Next Page
Loading...
Need help?
General
