10 REM UNDERLINE TEST PROGRAM
100 PRINT "ENTER 1 WHEN PRINTER READY"
110 INPUT A
120 IF A <>1 THEN 100
130 LET L1$ ="THIS IS LINE ONE OF THE PRINT TEST*|         |         ]"
132 LET L2$ =" THIS  IS  LINE  TWO  OF  THE TEST *************"
133 LET L3$ ="LINE       THREE      OF      TEST *-*-*-*-*-*-*-*"
134 LET UL$ ="-----------------------------------|---------|---------|"
140 LPRINTER WIDTH 132
142 PRINT CHR$(15) REM SET PRINTER TO 132 CHAR PER LINE
143 REM GOSUB 150
143.1 PRINT L1$
143.2 GOSUB 150
143.3 PRINT L2$
143.4 GOSUB 150
143.5 PRINT L3$
143.6 GOSUB 150
145 GO TO 200
150 REM PRINT CHR$(27);CHR$(49) REM SET LINE SP TO 7/72 IN FOR CLOSE UNDRLNE
151 PRINT CHR$(27);CHR$(65);CHR$(4); REM SET ESC A
152 PRINT CHR$(27);CHR$(50); REM ESC 2 FOR ONE DOT SPACING
160 PRINT UL$
165 PRINT
170 REM PRINT CHR$(27);CHR$(49) REM ESC 1 SETS TO 7/72 IN SPACE BETW LINES
180 RETURN
200 PRINT CHR$(7) REM BEEP
210 CONSOLE
9999 END