310 NEXT I
320 LPRINT
330 LPRINT CHR$(9) ; “t--‘I;
340 SCALE$=“--t--”
350 FOR I=2 TO 8 STEP 2
360 LPRINT SCALE$;
370 NEXT I
380 LPRINT “--+‘I
390 LPRINT CHR$(9) ;‘I ‘I;
400 FOR I=2 TO 8 STEP 2
410 LPRINT ” I’; I;
420 NEXT I
430 LPRINT CHR$ (27) ; “%O”
440 LPRINT CHR$(27) ; “SO”;
450 LPRINT CHR$(9);“MILLIONS OF DOLLARS”
460 LPRINT CHR$ (27) ; “T”
470 END
n Defining proportional characters
Defining proportional characters uses the same process as
above, except that we add additional information. Being able
to specify the width of the character allows you to specify the
precise area inside the grid that the character will occupy, so
that narrow characters will look attractive next to wide ones.
The additional information is carried in the attribute byte,
m0. The first bit carries the descender data, the next three bits
specify the starting column (acceptable values are 0 to 7), and
the last four bits specify the last print column, including space