home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / laserjet.seq < prev    next >
Text File  |  1990-09-06  |  2KB  |  55 lines
  1. \ LASERJET.SEQ          Print strings for LASERJET      by Tom Zimmer
  2.  
  3. defined teletype nip 0=         \ test to see if we are using print controls
  4. #if
  5.         forth definitions
  6. \s      \ don't load any further, we are not using Print controls
  7.  
  8. #then
  9.  
  10. \       Printer control strings the the LASERJET & DESKJET
  11. \                       ON                                  OFF
  12. \ 80 cpl          1B 26 6C 37 2E 32 37 43 1B 26 6B 30 53
  13. \ 132 cpl         1B 2B 6C 37 2E 32 37 43 1B 26 6B 32 53
  14. \ Underline       1B 26 64 44                           1B 26 64 40
  15. \ Bold            1B 28 73 33 42
  16. \ Normal          1B 28 73 30 42
  17. \ Light           1B 28 73 2D 33 42
  18. \ Italics         1B 28 73 31 53                        1B 28 73 30 53
  19.  
  20. create JETcompon$       ," &l7.27C&k2S"
  21. create JETcompoff$      ," &l7.27C&k0S"
  22. create JETboldon$       ," (s3B"
  23. create JETboldoff$      ," (s0B"
  24. create JETulon$         ," &dD"
  25. create JETuloff$        ," &d@"
  26. create JETitalicson$    ," (s1S"
  27. create JETitalicsoff$   ," (s0S"
  28.  
  29. ALSO EDITOR ALSO
  30.  
  31. : LASERJET      ( --- )
  32.                 teletype                \ any unchanged default to NOTHING
  33. \                53 =: prtlines                  \ Use fewer lines on LJ
  34.                 JETcompon$  =: compresson$
  35.                 JETcompoff$ =: compressoff$
  36.                 JETboldon$  =: boldon$
  37.                 JETboldoff$ =: boldoff$
  38.                 JETulon$    =: ulon$
  39.                 JETuloff$   =: uloff$
  40.                 JETitalicson$ =: 1on$           \ set user function 1 italics
  41.                 JETitalicsoff$ =: 1off$ ;       \ set user function 1
  42.  
  43. PREVIOUS PREVIOUS
  44.  
  45. LASERJET        \ Select the LASERJET as the default printer.
  46.  
  47. forth definitions
  48. \s
  49.         %B This line should be printed BOLD %B
  50.         %U This line should be printed UNDERLINE %U
  51.         %B%U This line should be printed with BOLD and UNDERLINE %U%B
  52.         %1 ITALICS Printing %1 On an LASER JET printer
  53.         %This will print normally
  54.  
  55.