home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / COMPUTER / PRINTER / PRNTER3.ARC / EMBEDDED.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-03-03  |  896 b   |  23 lines
  1. 10  '  SOURCE: CREATIVE COMPUTING [MAY 1982] page 198
  2. 20  '  AUTHOR: Will Fastie
  3. 30  '  EDITED BY David Reussow
  4. 100  ' PROGRAM TO DEMONSTRATE EMBEDDED PRINT ATTRIBUTES
  5. 110  ESC$ = CHR$(27)
  6. 120  CR = 13
  7. 130  NORMAL$ = "NORMAL PRINT"
  8. 140  DASHES$ = " -- "
  9. 150  NLEN = LEN(NORMAL$) + LEN(DASHES$)
  10. 160  X$ = "BOLD PRINT"
  11. 170  ' PRINT NORMAL TEXT, LEAVING SPACE FOR EMPHASIZED PART
  12. 180  LPRINT NORMAL$;DASHES$;SPC(LEN(X$));DASHES$;NORMAL$;
  13. 190  LPRINT CHR$(128+CR);     'COMMAND PRINTER TO PRINT, NO LINE ADVANCE
  14. 200  LPRINT ESC$;"E";         'TURN ON EMPHASIS
  15. 210  LPRINT SPC(NLEN);X$      'SPACE OVER TO HOLE, PRINT TEXT WHILE EMPHASIS ON
  16. 220                           'NOTE:  TAB WONT WORK ABOVE!
  17. 230  LPRINT ESC$;"F";         'TURN OFF EMPHASIS
  18. 240  LPRINT: LPRINT
  19. 250  X$ = "DOUBLE WIDTH"
  20. 260                           'DOUBLE WIDTH PRINTING IS EASIER!
  21. 270  LPRINT NORMAL$;DASHES$;CHR$(14);X$;CHR$(20);DASHES$;NORMAL$
  22. 280  END
  23.