home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / editor / epmtools / epmsmp / epmprt.e < prev    next >
Text File  |  1993-03-17  |  5KB  |  85 lines
  1. /*************************************************************************
  2.  
  3.                       +---------------------------+
  4.                       |  E P M P R T . E          |
  5.                       +---------------------------+
  6.  
  7.   Printer Control Code selector for the EPM editor.
  8.  
  9.   This proc  creates a pulldown menu  of printer  control codes  which you can
  10.   select and imbed in your text  or send  immediately to  the printer.
  11.  
  12.   You can change the control codes by typing  over them  below, or you
  13.   can add  new ones  by adding  lines using   the template   below.
  14.   The  codes  provided  here  should   work  on  the
  15.   proprinter and graphics printer.
  16.  
  17. Originally appended to EPM PROCS by 72412757 at EHONE.
  18.  
  19. Updated by Larry Margolis for use in CUSTEPM.  This is now set up to be
  20. invoked by typing the name of the .ex file on the EPM command line.
  21. The DEFMAIN will update the menu, and then we're done - no code from
  22. this file needs to remain loaded.  (Requires the latest base set of
  23. macros, which includes a KEYIN command defined in STDCTRL.E.)
  24.  
  25. ***************************************************************************/
  26.  
  27. const
  28.    AF_CHAR        =   1   -- key style constants (from STDCONST.E)
  29.    AF_ALT         =  32
  30. compile if EVERSION < '5.21'
  31.    TILDE_CHAR = ''
  32. compile else
  33.    TILDE_CHAR = '~'
  34. compile endif
  35.  
  36. defmain
  37.    universal activemenu, defaultmenu
  38.    universal activeaccel
  39.    universal printer_codes_menu_flag
  40.    if printer_codes_menu_flag then
  41.       deletemenu defaultmenu, 9, 0, 0
  42.       call maybe_show_menu()
  43.       printer_codes_menu_flag = 0
  44.       return
  45.    endif
  46.    deletemenu defaultmenu, 6, 0, 0  -- delete the existing Help menu (we want it to stay at the right)
  47.    call add_printer(defaultmenu)
  48.    printer_codes_menu_flag = 1
  49.    call readd_help_menu()
  50.    buildacceltable activeaccel, 'dokey a+P', AF_CHAR+AF_ALT,    80, 998  -- a+P
  51.    buildacceltable activeaccel, 'dokey a+P', AF_CHAR+AF_ALT,   112, 999  -- a+p
  52.    activateacceltable  activeaccel
  53.  
  54. defproc add_printer(menuname)
  55.    buildsubmenu menuname, 9, TILDE_CHAR'Printer ', '', 0, 0
  56.    buildmenuitem menuname, 9, 901, 'Use Nr. Letter qual.', 'keyin G',    0, 0  -- asc(27,71)
  57.    buildmenuitem menuname, 9, 902, 'End Nr. Letter qual.', 'keyin H',    0, 0  -- asc(27,72)
  58.    buildmenuitem menuname, 9, 903, 'Use 12 CPI Printing' , 'keyin :',    0, 0  -- asc(27,58)
  59.    buildmenuitem menuname, 9, 904, 'End 12 CPI Printing' , 'keyin ',     0, 0  -- asc(18)
  60.    buildmenuitem menuname, 9, 905, 'Use Compressed FONT' , 'keyin ',     0, 0  -- asc(15)
  61.    buildmenuitem menuname, 9, 906, 'End Compressed FONT' , 'keyin ',     0, 0  -- asc(18)
  62.    buildmenuitem menuname, 9, 907, 'Use NORMAL FONT'     , 'keyin I0',   0, 0  -- asc(27,73,48)
  63.    buildmenuitem menuname, 9, 908, 'Emphasized Print'    , 'keyin E',    0, 0  -- asc(27,69)
  64.    buildmenuitem menuname, 9, 909, 'End Emphasized Print', 'keyin F',    0, 0  -- asc(27,70)
  65.    buildmenuitem menuname, 9, 910, 'Form Feed'           , 'keyin  ',     0, 0  -- asc(12)
  66.    buildmenuitem menuname, 9, 911, '6 LPI spacing'       , 'keyin A ', 0, 0  -- asc(27,65,12,27,50)
  67.    buildmenuitem menuname, 9, 912, '8 LPI spacing'       , 'keyin ',    0, 0  -- asc(27,48)
  68.    buildmenuitem menuname, 9, 913, '10 LPI spacing'      , 'keyin ',    0, 0  -- asc(27,49)
  69.    buildmenuitem menuname, 9, 914, '1-1/2_space'         , 'keyin A', 0, 0  -- asc(27,65,18,27,50)
  70.    buildmenuitem menuname, 9, 915, 'Double space'        , 'keyin A', 0, 0  -- asc(27,65,24,27,50)
  71.    buildmenuitem menuname, 9, 916, 'Skip perforation ON' , 'keyin N',    0, 0  -- asc(27,78)
  72.    buildmenuitem menuname, 9, 917, 'Skip perforation OFF', 'keyin O',    0, 0  -- asc(27,79)
  73.    buildmenuitem menuname, 9, 918, 'Stop at end of page' , 'keyin ',    0, 0  -- asc(27,57)
  74.    buildmenuitem menuname, 9, 919, 'Continue at page end', 'keyin ',    0, 0  -- asc(27,56)
  75.    buildmenuitem menuname, 9, 920, 'Compressed ON'       , 'keyin ',     0, 0  -- asc(15)
  76.    buildmenuitem menuname, 9, 921, 'Compressed OFF'      , 'keyin ',     0, 0  -- asc(18)
  77.    buildmenuitem menuname, 9, 922, 'Underline ON'        , 'keyin -1',   0, 0  -- asc(27,45,49)
  78.    buildmenuitem menuname, 9, 923, 'Underline OFF'       , 'keyin -0',   0, 0  -- asc(27,45,48)
  79.    buildmenuitem menuname, 9, 924, 'Double Width ON'     , 'keyin W1',   0, 0  -- asc(27,87,49)
  80.    buildmenuitem menuname, 9, 925, 'Double Width OFF'    , 'keyin W0',   0, 0  -- asc(27,87,48)
  81.    buildmenuitem menuname, 9, 926, 'Superscript ON'      , 'keyin S0',   0, 0  -- asc(27,83,48)
  82.    buildmenuitem menuname, 9, 927, 'Subscript ON'        , 'keyin S1',   0, 0  -- asc(27,83,49)
  83.    buildmenuitem menuname, 9, 928, 'Super/subscript OFF' , 'keyin T',    0, 0  -- asc(27,84)
  84.  
  85.