310NEXT I
320LPRINT
330LPRINT CHR$(9) ;
340
350FOR I=2 TO 8 STEP 2
360LPRINT SCALE$;
370NEXT I
380LPRINT
390LPRINT CHR$(9) ;‘I ‘I;
400FOR I=2 TO 8 STEP 2
410 LPRINT ” I’; I;
420NEXT I
430 LPRINT CHR$(27) ; “%O”
440LPRINT CHR$(27) ; “SO”;
450 LPRINT CHR$(9);“MILLIONS OF DOLLARS”
460LPRINT CHR$(27) ; “T”
470 END
nDefining 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