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