home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPC355_2.ZIP / FPCSRC.ZIP / LASERJET.SEQ < prev    next >
Encoding:
Text File  |  1991-03-06  |  2.0 KB  |  59 lines
  1. \ LASERJET.SEQ          Print strings for LASERJET      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. \s      \ don't load any further, we are not using Print controls
  9.  
  10. #then
  11.  
  12. headerless
  13.  
  14. \ Printer control strings the the LASERJET & DESKJET
  15.  
  16. create hpreset$    ," &k0S"                  \ " &k0S 9"
  17. create hpinit$     ," &k4S&l7.4c66F&a10L"    \ " &k4S &l7.4c66F &a10L"
  18. create hp8cpi$     ," &k8S"                    \ " &k8S"
  19. create hp16cpi$    ," &k2S"                    \ " &k2S"
  20. create hp10cpi$    ," &k0S"                    \ " &k0S"
  21. create hp12cpi$    ," &k4S"                    \ " &k4S"
  22. create hpulon$     ," &dD"                     \ " &dD"
  23. create hpuloff$    ," &d@"                     \ " &d@"
  24. create hpiton$     ," (s1S"                    \ " (s1S"
  25. create hpitoff$    ," (s0S"                    \ " (s0S"
  26. create hpblon$     ," (s3B"                    \ " (s3B"
  27. create hpbloff$    ," (s0B"                    \ " (s0B"
  28.  
  29. \ &k4S&l7.4c66F&a10L   re-init printer now
  30.  
  31. headers
  32.  
  33. forth definitions
  34.  
  35. : LASERJET      ( --- )
  36.                 teletype                \ any unchanged default to NOTHING
  37.                 hpinit$     =: pr-init$
  38.                 hpreset$    =: pr-reset$
  39.                 hp16cpi$    =: compresson$
  40.                 hp12cpi$    =: compressoff$
  41.                 hpblon$     =: boldon$
  42.                 hpbloff$    =: boldoff$
  43.                 hpulon$     =: ulon$
  44.                 hpuloff$    =: uloff$
  45.                 hpiton$     =: 1on$             \ set user function 1 italics
  46.                 hpitoff$    =: 1off$ ;          \ set user function 1
  47.  
  48. LASERJET        \ Select the LASERJET as the default printer.
  49.  
  50. forth definitions
  51.  
  52. \s
  53.         %B This line should be printed BOLD %B
  54.         %U This line should be printed UNDERLINE %U
  55.         %B%U This line should be printed with BOLD and UNDERLINE %U%B
  56.         %1 ITALICS Printing %1 On an LASER JET printer
  57.         %This will print normally
  58.  
  59.