10 '  SOURCE: CREATIVE COMPUTING [MAY 1982] page 198
20 '  AUTHOR: Will Fastie
30 '  EDITED BY David Reussow
100 ' PROGRAM TO DEMONSTRATE EMBEDDED PRINT ATTRIBUTES
110 ESC$ = CHR$(27)
120 CR = 13
130 NORMAL$ = "NORMAL PRINT"
140 DASHES$ = " -- "
150 NLEN = LEN(NORMAL$) + LEN(DASHES$)
160 X$ = "BOLD PRINT"
170 ' PRINT NORMAL TEXT, LEAVING SPACE FOR EMPHASIZED PART
180 LPRINT NORMAL$;DASHES$;SPC(LEN(X$));DASHES$;NORMAL$;
190 LPRINT CHR$(128+CR);     'COMMAND PRINTER TO PRINT, NO LINE ADVANCE
200 LPRINT ESC$;"E";         'TURN ON EMPHASIS
210 LPRINT SPC(NLEN);X$      'SPACE OVER TO HOLE, PRINT TEXT WHILE EMPHASIS ON
220                          'NOTE:  TAB WONT WORK ABOVE!
230 LPRINT ESC$;"F";         'TURN OFF EMPHASIS
240 LPRINT: LPRINT
250 X$ = "DOUBLE WIDTH"
260                          'DOUBLE WIDTH PRINTING IS EASIER!
270 LPRINT NORMAL$;DASHES$;CHR$(14);X$;CHR$(20);DASHES$;NORMAL$
280 END
                  'DOUBLE WIDTH PRINTING IS EASIER!
270 LPRINT NORMAL$;DASHES$;CHR$(14);X$;CHR$