home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 24 DOS / 24-DOS.zip / hp4kbeta.zip / pohplite.ps < prev    next >
Text File  |  1992-08-17  |  7KB  |  521 lines

  1.  
  2. %  .bn1 pull letter/upper on the HP3D.
  3. /ltrupp
  4. {
  5.     statusdict begin 
  6.     0 setpapertray
  7.     end
  8.     userdict begin letter 
  9.     end
  10.  
  11.     statusdict begin
  12.     /trayswitch false def
  13.     end
  14.  
  15.     /pgsize 11 inch def
  16. }
  17. def
  18.  
  19. %  .bn2 pull letter/lower on the HP3D.
  20. /ltrlow
  21. {
  22.     statusdict begin 
  23.     1 setpapertray
  24.     end
  25.     userdict begin letter 
  26.     end
  27.  
  28.     statusdict begin
  29.     /trayswitch false def
  30.     end
  31.     
  32.     /pgsize 11 inch def
  33. }
  34. def
  35.  
  36. %  .bn3 pull letter/mp on the HP3D.
  37. /ltrmp
  38. {
  39.     statusdict begin 
  40.     3 setpapertray
  41.     end
  42.     userdict begin letter 
  43.     end
  44.  
  45.     statusdict begin
  46.     /trayswitch false def
  47.     end
  48.     
  49.     /pgsize 11 inch def
  50. }
  51. def
  52.  
  53. %  .bn4 pull legal/upper on the HP3D.
  54. /lglupp
  55. {
  56.     statusdict begin 
  57.     0 setpapertray
  58.     end
  59.     userdict begin legal 
  60.     end
  61.  
  62.     statusdict begin
  63.     /trayswitch false def
  64.     end
  65.     
  66.     /pgsize 14 inch def
  67. }
  68. def
  69.  
  70. %  .bn5 pull legal/lower on the HP3D.
  71. /lgllow
  72. {
  73.     statusdict begin 
  74.     1 setpapertray
  75.     end
  76.     userdict begin legal 
  77.     end
  78.  
  79.     statusdict begin
  80.     /trayswitch false def
  81.     end
  82.     
  83.     /pgsize 14 inch def
  84. }
  85. def
  86.  
  87. %  .bn6 pull legal/mp on the HP3D.
  88. /lglmp
  89. {
  90.     statusdict begin 
  91.     3 setpapertray
  92.     end
  93.     userdict begin legal 
  94.     end
  95.  
  96.     statusdict begin
  97.     /trayswitch false def
  98.     end
  99.     
  100.     /pgsize 14 inch def
  101. }
  102. def
  103.  
  104. %  .bn7 pull a4/upper on the HP3D.
  105. /a4upp
  106. {
  107.     statusdict begin 
  108.     0 setpapertray
  109.     end
  110.     userdict begin a4 
  111.     end
  112.  
  113.     statusdict begin
  114.     /trayswitch false def
  115.     end
  116.     
  117.     /pgsize 11.66 inch def
  118. }
  119. def
  120.  
  121. %  .bn8 pull a4/lower on the HP3D.
  122. /a4low
  123. {
  124.     statusdict begin 
  125.     1 setpapertray
  126.     end
  127.     userdict begin a4 
  128.     end
  129.  
  130.     statusdict begin
  131.     /trayswitch false def
  132.     end
  133.     
  134.     /pgsize 11.66 inch def
  135. }
  136. def
  137.  
  138. %  .bn9 pull a4/mp on the HP3D.
  139. /a4mp
  140. {
  141.     statusdict begin 
  142.     3 setpapertray
  143.     end
  144.     userdict begin a4 
  145.     end
  146.  
  147.     statusdict begin
  148.     /trayswitch false def
  149.     end
  150.     
  151.     /pgsize 11.66 inch def
  152. }
  153. def
  154.  
  155. %  .bn10 pull a3/upper on the HP3D.
  156. /a3upp
  157. {
  158.     statusdict begin 
  159.     0 setpapertray
  160.     end
  161.     userdict begin a3 
  162.     end
  163.  
  164.     statusdict begin
  165.     /trayswitch false def
  166.     end
  167.     
  168.     /pgsize 16.5 inch def
  169. }
  170. def
  171.  
  172. %  .bn11 pull a3/lower on the HP3D.
  173. /a3low
  174. {
  175.     statusdict begin 
  176.     1 setpapertray
  177.     end
  178.     userdict begin a3 
  179.     end
  180.  
  181.     statusdict begin
  182.     /trayswitch false def
  183.     end
  184.     
  185.     /pgsize 16.5 inch def
  186. }
  187. def
  188.  
  189. %  .bn12 pull a3/mp on the HP3D.
  190. /a3mp
  191. {
  192.     statusdict begin 
  193.     3 setpapertray
  194.     end
  195.     userdict begin a3 
  196.     end
  197.  
  198.     statusdict begin
  199.     /trayswitch false def
  200.     end
  201.     
  202.     /pgsize 16.5 inch def
  203. }
  204. def
  205.  
  206. %  .bn13 pull Note/upper on the HP3D.
  207. /notupp
  208. {
  209.     statusdict begin 
  210.     0 setpapertray
  211.     end
  212.     userdict begin note 
  213.     end
  214.  
  215.     statusdict begin
  216.     /trayswitch false def
  217.     end
  218.     
  219.     /pgsize 11 inch def
  220. }
  221. def
  222.  
  223. %  .bn14 pull note/lower on the HP3D.
  224. /notlow
  225. {
  226.     statusdict begin 
  227.     1 setpapertray
  228.     end
  229.     userdict begin note 
  230.     end
  231.  
  232.     statusdict begin
  233.     /trayswitch false def
  234.     end
  235.     
  236.     /pgsize 11 inch def
  237. }
  238. def
  239.  
  240. %  .bn15 pull note/mp on the HP3D.
  241. /notmp
  242. {
  243.     statusdict begin 
  244.     3 setpapertray
  245.     end
  246.     userdict begin note 
  247.     end
  248.  
  249.     statusdict begin
  250.     /trayswitch false def
  251.     end
  252.     
  253.     /pgsize 11 inch def
  254. }
  255. def
  256.  
  257. %  .bn16 pull executive/upper on the HP3D.
  258. /exeupp
  259. {
  260.     statusdict begin 
  261.     0 setpapertray
  262.     end
  263.     userdict begin executive 
  264.     end
  265.  
  266.     statusdict begin
  267.     /trayswitch false def
  268.     end
  269.     
  270.     /pgsize 10.5 inch def
  271. }
  272. def
  273.  
  274. %  .bn17 pull executive/lower on the HP3D.
  275. /exelow
  276. {
  277.     statusdict begin 
  278.     1 setpapertray
  279.     end
  280.     userdict begin executive 
  281.     end
  282.  
  283.     statusdict begin
  284.     /trayswitch false def
  285.     end
  286.     
  287.     /pgsize 10.5 inch def
  288. }
  289. def
  290.  
  291. %  .bn18 pull executive/mp on the HP3D.
  292. /exemp
  293. {
  294.     statusdict begin 
  295.     3 setpapertray
  296.     end
  297.     userdict begin executive  
  298.     end
  299.  
  300.     statusdict begin
  301.     /trayswitch false def
  302.     end
  303.     
  304.     /pgsize 10.5 inch def
  305. }
  306. def
  307.  
  308. %  .bn19 pull letter/cont on the HP3D.
  309. /ltrcont
  310. {
  311.     userdict begin letter end
  312.  
  313.     statusdict begin
  314.     /trayswitch true def
  315.     end
  316.  
  317.     /pgsize 11 inch def
  318. }
  319. def
  320.  
  321. %  .bn20 pull legal/cont on the HP3D.
  322. /lglcont
  323. {
  324.     userdict begin legal end
  325.  
  326.     statusdict begin
  327.     /trayswitch true def
  328.     end
  329.  
  330.     /pgsize 14 inch def
  331. }
  332. def
  333.  
  334. %  .bn21 pull a4/cont on the HP3D.
  335. /a4cont
  336. {
  337.     userdict begin a4 end
  338.  
  339.     statusdict begin
  340.     /trayswitch true def
  341.     end
  342.  
  343.     /pgsize 11.66 inch def
  344. }
  345. def
  346.  
  347. %  .bn22 pull a3/cont on the HP3D.
  348. /a3cont
  349. {
  350.     userdict begin a3 end
  351.  
  352.     statusdict begin
  353.     /trayswitch true def
  354.     end
  355.  
  356.     /pgsize 16.5 inch def
  357. }
  358. def
  359.  
  360. %  .bn23 pull note/cont on the HP3D.
  361. /notcont
  362. {
  363.     userdict begin note end
  364.  
  365.     statusdict begin
  366.     /trayswitch true def
  367.     end
  368.  
  369.     /pgsize 11 inch def
  370. }
  371. def
  372.  
  373. %  .bn24 pull executive/cont on the HP3D.
  374. /execont
  375. {
  376.     userdict begin executive end
  377.  
  378.     statusdict begin
  379.     /trayswitch true def
  380.     end
  381.  
  382.     /pgsize 10.5 inch def
  383. }
  384. def
  385.  
  386. %  .bn25 pull comm10/envelope on the HP3D.
  387. /comm10env
  388. {
  389.     statusdict begin 
  390.     2 setpapertray
  391.     end
  392.     userdict begin com10envelope 
  393.     end
  394.  
  395.     statusdict begin
  396.     /trayswitch false def
  397.     end
  398.  
  399.     /pgsize 9.5 inch def
  400. }
  401. def
  402.  
  403. %  .bn26 pull monarch/envelope on the HP3D.
  404. /monarchenv
  405. {
  406.     statusdict begin 
  407.     2 setpapertray
  408.     end
  409.     userdict begin monarcenvelope 
  410.     end
  411.  
  412.     statusdict begin
  413.     /trayswitch false def
  414.     end
  415.  
  416.     /pgsize 10.8 inch def
  417. }
  418. def
  419.  
  420. %  .bn27 pull DL/envelope on the HP3D.
  421. /DLenv
  422. {
  423.     statusdict begin 
  424.     2 setpapertray
  425.     end
  426.     userdict begin dlenvelope 
  427.     end
  428.  
  429.     statusdict begin
  430.     /trayswitch false def
  431.     end
  432.  
  433.     /pgsize 8.75 inch def
  434. }
  435. def
  436.  
  437. %  .bn28 pull C5/envelope on the HP3D.
  438. /C5env
  439. {
  440.     statusdict begin 
  441.     2 setpapertray
  442.     end
  443.     userdict begin c5envelope 
  444.     end
  445.  
  446.     statusdict begin
  447.     /trayswitch false def
  448.     end
  449.  
  450.     /pgsize 9 inch def
  451. }
  452. def
  453.  
  454. %  .bn29 pull comm10/mp on the HP3D.
  455. /comm10mp
  456. {
  457.     statusdict begin 
  458.     3 setpapertray
  459.     end
  460.     userdict begin com10envelope 
  461.     end
  462.  
  463.     statusdict begin
  464.     /trayswitch false def
  465.     end
  466.  
  467.     /pgsize 9.5 inch def
  468. }
  469. def
  470.  
  471. %  .bn30 pull monarch/mp on the HP3D.
  472. /monarchmp
  473. {
  474.     statusdict begin 
  475.     3 setpapertray
  476.     end
  477.     userdict begin monarcenvelope 
  478.     end
  479.  
  480.     statusdict begin
  481.     /trayswitch false def
  482.     end
  483.  
  484.     /pgsize 10.8 inch def
  485. }
  486. def
  487.  
  488. %  .bn31 pull DL/mp on the HP3D.
  489. /DLmp
  490. {
  491.     statusdict begin 
  492.     3 setpapertray
  493.     end
  494.     userdict begin dlenvelope 
  495.     end
  496.  
  497.     statusdict begin
  498.     /trayswitch false def
  499.     end
  500.  
  501.     /pgsize 8.75 inch def
  502. }
  503. def
  504.  
  505. %  .bn32 pull C5/manual on the HP3D.
  506. /C5mp
  507. {
  508.     statusdict begin 
  509.     3 setpapertray
  510.     end
  511.     userdict begin c5envelope 
  512.     end
  513.  
  514.     statusdict begin
  515.     /trayswitch false def
  516.     end
  517.  
  518.     /pgsize 9 inch def
  519. }
  520. def
  521.