home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dblaser.zip / LASERG.PRG
Text File  |  1986-09-04  |  5KB  |  139 lines
  1.  
  2. * Procedure ...........: LASERG.prg
  3. * Author ..............: PaineWebber Inc ...Jonathan Stern
  4. * Date Modified .......: August 6,1986
  5. * Modified By .........: Jay B. Zucker
  6. * Notice ..............: Copyright 1986, All rights reserved.
  7. * Note ................: Procedure file to set laserjet printer.
  8.  
  9. *-----------------------------------------------------------------------------
  10. * Procedure: port66
  11. procedure port66
  12.                set console off
  13.                set print on
  14.                 ?  chr(27)+'&l0O'+chr(27)+'(8U'+chr(27)+'(s10h12v0s0b3T' 
  15.                 ?  chr(27)+'&l14c1e7.64c66F' 
  16.                 ?  chr(27)+'&a0R' 
  17.                 ?  chr(27)+'&a0C' 
  18.                 ?  chr(27)+'&a+62R'  
  19.                 ?  chr(27)+'&a1C'  
  20.                 set print off
  21.                 set console on
  22. return
  23. *-----------------------------------------------------------------------------
  24. * Procedure: port6612p
  25. procedure port6612p
  26.                set console off
  27.                set print on
  28.                 ?  chr(27)+'&l0O'+chr(27)+'(0U'+chr(27)+'(s12h10v0s0b8T'+;
  29.                 chr(27)+'&l17.65c1e7.58c66F'
  30.                 ?  chr(27)+'&a0R' 
  31.                 ?  chr(27)+'&a0C' 
  32.                 ?  chr(27)+'&a+62R' 
  33.                 ?  chr(27)+'&a0C'
  34.                 set print off
  35.                 set console on
  36. return
  37. *-----------------------------------------------------------------------------
  38. * Procedure: port66con
  39. procedure port66con
  40.                set console off
  41.                set print on
  42.                 ?  chr(27)+'&l0O'+chr(27)+'(0U'+chr(27)+'(s16.66h7v0s0b8T'
  43.                 ?  chr(27)+'&l29.675c1e7.21c66F'
  44.                 ?  chr(27)+'&a0R' 
  45.                 ?  chr(27)+'&a0C' 
  46.                 ?  chr(27)+'&a+62R'
  47.                 ?  chr(27)+'&a1C' 
  48.                 set print off
  49.                 set console on
  50. return
  51. *-----------------------------------------------------------------------------
  52. * Procedure: port72con
  53. procedure port72con
  54.                set console off
  55.                set print on
  56.                 ?  chr(27)+'&l0O'+chr(27)+'(0U'+chr(27)+'(s16.66h7v0s0b8T' 
  57.                 ?  chr(27)+'&l27.3215c1e6.667c72F' 
  58.                 ?  chr(27)+'&a0R'   
  59.                 ?  chr(27)+'&a0C'  
  60.                 ?  chr(27)+'&a+68R'
  61.                 ?  chr(27)+'&a1C'  
  62.                 set print off
  63.                 set console on
  64. return
  65. *-----------------------------------------------------------------------------
  66. * Procedure: land66con
  67. procedure land66con
  68.                set console off
  69.                set print on
  70.                 ?  chr(27)+'&l1O'+chr(27)+'(0U'+chr(27)+'(s16.66h7v0s0b8T'
  71.                 ?  chr(27)+'&l19c1e5.65c66F'
  72.                 ?  chr(27)+'&a0R' 
  73.                 ?  chr(27)+'&a0C' 
  74.                 ?  chr(27)+'&a+62R'
  75.                 ?  chr(27)+'&a1C' 
  76.                 set print off
  77.                 set console on
  78. return
  79. *-----------------------------------------------------------------------------
  80. * Procedure: land72con
  81. procedure land72con
  82.                set console off
  83.                set print on
  84.                 ?  chr(27)+'&l1O'+chr(27)+'(0U'+chr(27)+'(s16.66h7v0s0b8T'
  85.                 ?  chr(27)+'&l26.5c1e5c72F'
  86.                 ?  chr(27)+'&a0R' 
  87.                 ?  chr(27)+'&a0C' 
  88.                 ?  chr(27)+'&a+68R'
  89.                 ?  chr(27)+'&a1C' 
  90.                 set print off
  91.                 set console on
  92. return
  93. *-----------------------------------------------------------------------------
  94. * Procedure: land51
  95. procedure land51
  96.                set console off
  97.                set print on
  98.                 ?  chr(27)+'&l1O'+chr(27)+'(8U'+chr(27)+'(s10h12v0s0b3T'
  99.                 ?  chr(27)+'&l24c1e7.2c51F'
  100.                 ?  chr(27)+'&a0R' 
  101.                 ?  chr(27)+'&a0C' 
  102.                 ?  chr(27)+'&a+47R'
  103.                 ?  chr(27)+'&a1C'
  104.                 set print off
  105.                 set console on
  106. return
  107. *-----------------------------------------------------------------------------
  108. * Procedure: lport94con :Legal Paper - Portrait 94 lines per page condensed.
  109. procedure lport94con
  110.                set console off
  111.                set print on
  112.                 ?  chr(27)+'&l0O'+chr(27)+'(0U'+chr(27)+'(s16.66h7v0s0b8T' 
  113.                 ?  chr(27)+'&l27.3215c1e6.667c94F' 
  114.                 ?  chr(27)+'&a0R'   
  115.                 ?  chr(27)+'&a0C'  
  116.                 ?  chr(27)+'&a+68R'
  117.                 ?  chr(27)+'&a1C'  
  118.                 set print off
  119.                 set console on
  120. return
  121. *-----------------------------------------------------------------------------
  122. * Procedure: lport8512p :Legal Paper - Portrait 85 lines per page/12 pitch.
  123. procedure lport8512p
  124.                set console off
  125.                set print on
  126.                 ?  chr(27)+'&l0O'+chr(27)+'(0U'+chr(27)+'(s12h10v0s0b8T'+;
  127.                 chr(27)+'&l17.65c1e7.58c66F'
  128.                 ?  chr(27)+'&a0R' 
  129.                 ?  chr(27)+'&a0C' 
  130.                 ?  chr(27)+'&a+62R' 
  131.                 ?  chr(27)+'&a0C'
  132.                 set print off
  133.                 set console on
  134. return
  135. *-----------------------------------------------------------------------------
  136.  
  137.  
  138.  
  139.