Filter
Top Products
Chapter 4
Type in this NEW program:
9 PR #1
(Apple)
10 PRINT CHR$ (27) "A" CHR$ (0)
(or 0+ 128)
20 PRINT "UNDERLINE"
30 FOR U=l TO 9
: PRINT CHR$ (95); : NEXT U
40 PRINT CHR$ (27) "2"
50 PRINT "WORKS"
59 PR #0
(Apple)
and RUN.
Oops, too close for comfort. We forgot that the MX-70 doesn’t have lower case
descenders, and the underline character is in that category. We’d better drop
the underline down one dot.
UNDERLINE
WORKS
Figure 4-6
Change line 10 to:
10 PRINT CHR$ (27) "A" CHR$ (l)
and RUN.
Compare this RUN with the previous one. It’s looking better, isn’t it? Let’s
drop the underline position down one more dot. Go ahead - can you figure out
what to do?
Here is how the program works:
Line 10 sets line spacing to 1 DOT (1)
Line 20 PRINTS something we want to underline
Line 30 PRINTS 9 underlines. (Computers that support STRING$ could
use it here.) The ; suppresses the LF.
38