home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / SAMPLE02.ZIP / EMBEDDED.BAS < prev    next >
BASIC Source File  |  1982-05-05  |  1KB  |  24 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.                   'DOUBLE WIDTH PRINTING IS EASIER!
  24. 270 LPRINT NORMAL$;DASHES$;CHR$(14);X$;CHR$