home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / proprint.seq < prev    next >
Text File  |  1991-03-06  |  2KB  |  55 lines
  1. \ PROPRINT.SEQ  Print strings for IBM PROPRINTER        by Tom Zimmer
  2.  
  3. editor definitions
  4.  
  5. defined teletype nip 0=         \ test to see if we are using print controls
  6. #if
  7.         forth definitions
  8.  
  9. \s      \ don't load any further, we are not using Print controls
  10.  
  11. #then
  12.  
  13. headerless
  14.  
  15. \       Printer control strings the the IBM PROPRINTER
  16.  
  17. create procompon$       1 c, 15 c,      \ SI
  18. create procompoff$      1 c, 18 c,      \ DC2
  19. create proboldon$       2 c, 27 c, 'E' c,
  20. create proboldoff$      2 c, 27 c, 'F' c,
  21. create proulon$         3 c, 27 c, '-' c, 1 c,
  22. create prouloff$        3 c, 27 c, '-' c, 0 c,
  23. create prowideon$       3 c, 27 c, 'W' c, 1 c,      \ turnon WIDE
  24. create prowideoff$      3 c, 27 c, 'W' c, 0 c,      \ TurnOFF WIDE
  25.  
  26. headers
  27.  
  28. forth definitions
  29.  
  30. : IBM-PROPRINT  ( --- )
  31.                 teletype                \ any unchanged default to NOTHING
  32.                 procompoff$ =: pr-reset$
  33.                 procompon$  =: compresson$
  34.                 procompoff$ =: compressoff$
  35.                 proboldon$  =: boldon$
  36.                 proboldoff$ =: boldoff$
  37.                 proulon$    =: ulon$
  38.                 prouloff$   =: uloff$
  39.                 prowideon$  =: 1on$             \ set user function 1 for WIDE
  40.                 prowideoff$ =: 1off$ ;          \ set user function 1
  41.  
  42. IBM-PROPRINT    \ Select the PROPRINTER as the default printer.
  43.  
  44. forth definitions
  45.  
  46. \s
  47.  
  48.         %B This line should be printed BOLD %B
  49.         %U This line should be printed UNDERLINE %U
  50.         %B%U This line should be printed with BOLD and UNDERLINE %U%B
  51.         %1 Double Wide Printing %1 On an IBM Proprinter
  52.         %This will print normally
  53.  
  54.  
  55.