home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / print / 2upprt / 21upa4.chg < prev    next >
Encoding:
Text File  |  1993-03-20  |  4.0 KB  |  108 lines
  1. /* ****** 1UP Changes for A4 Paper ****** */
  2.  
  3. /* Mode=1 and bopt */
  4.   /* A4 Paper - Replace with the following lines:
  5.   cpl=88      /* Char/Line  */
  6.   lpp=84      /* Lines/Page */
  7.   qq=X2C(1B5B460400000000040F1B41061B301B5B53080000003B0000143BF6)
  8.   End of A4 Paper changes   */
  9.  
  10. /* Mode=1 Else */
  11.   /* A4 Paper - Replace with the following lines:
  12.   cpl=128     /* Char/Line  */
  13.   lpp=125     /* Lines/Page */
  14.   qq=X2C(1B5B460400000000040F1B41061B321B5B53080000003B0000143BF6)
  15.   End of A4 Paper changes   */
  16.  
  17. /* Mode=2 and bopt */
  18.   /* A4 Paper - Replace with the following lines:
  19.   cpl=73      /* Char/Line  */
  20.   lpp=83      /* Lines/Page */
  21.   qq=X2C(1B451B266C26411B266C31451B287330541B283130551B28733130481B266C3844)
  22.   End of A4 Paper changes   */
  23.  
  24. /* Mode=2 Else */
  25.   /* A4 Paper - Replace with the following lines:
  26.   cpl=125     /* Char/Line  */
  27.   lpp=83      /* Lines/Page */
  28.   qq=X2C(1B451B266C26411B266C31451B287330541B283130551B287331362E36481B266C3844)
  29.   End of A4 Paper changes   */
  30.  
  31. /* Mode=3 */
  32.  /* A4 Paper - Replace with the following lines:
  33.  If bopt Then cpl=101
  34.  Else cpl=129 /* Char/Line */
  35.  End of A4 Paper changes   */
  36.  
  37. /* Mode=3 */
  38. /* A4 Paper - Replace with the following lines:
  39. Call Out '/tm { 803 } bind def /bm { 20 } bind def'
  40. Call Out '/lbox { newpath setgray setlinewidth 22 811 moveto'
  41. Call Out ' 22 20 lineto 573 20 lineto 573 811 lineto closepath stroke } def'
  42. Call Out '/llin { newpath setgray setlinewidth 22 811 moveto'
  43. Call Out ' 573 811 lineto stroke } def'
  44. End of A4 Paper changes */
  45.  /* A4 Paper - Replace with the following lines:
  46.  Call Out ' 22 814 moveto ('||nf||') show 604 814 moveto'
  47.  Call Out ' ('||nd||') show 331 814 moveto (Page) show 357 814 moveto'
  48.  End of A4 Paper changes */
  49.  
  50. /* ****** End of 1UP A4 Paper changes ****** */
  51.  
  52.  
  53. /* ****** 2UP Changes for A4 Paper ******   */
  54.  
  55. /* Mode=1 and bopt */
  56.   /* A4 Paper - Replace with the following lines:
  57.   cpl=64      /* Char/Line  */
  58.   lpp=116     /* Lines/Page */
  59.   qq=X2C(1B5B460400000000041B6C1B3A1B41061B301B5B53080000003B0000143BF6)
  60.   End of A4 Paper changes   */
  61.  
  62. /* Mode=1 Else */
  63.   /* A4 Paper - Replace with the following lines:
  64.   cpl=92      /* Char/Line  */
  65.   lpp=180     /* Lines/Page */
  66.   qq=X2C(1B5B460400000000041B6C0F1B41061B321B5B53080000003B0000143BF6)
  67.   End of A4 Paper changes   */
  68.  
  69. /* Mode=2 and bopt */
  70.   /* A4 Paper - Replace with the following lines:
  71.   cpl=47      /* Char/Line  */
  72.   lpp=114     /* Lines/Page */
  73.   qq=X2C(1B451B266C26411B266C314F1B266C31451B287330541B283130551B28733130481B266C3844)
  74.   End of A4 Paper changes   */
  75.  
  76. /* Mode=2 Else */
  77.   /* A4 Paper - Replace with the following lines:
  78.   cpl=89      /* Char/Line  */
  79.   lpp=114     /* Lines/Page */
  80.   qq=X2C(1B451B266C26411B266C314F1B266C31451B287330541B283130551B287331362E36481B266C3844)
  81.   End of A4 Paper changes   */
  82.  
  83. /* Mode=3 */
  84.  /* A4 Paper - Replace with the following lines:
  85.  If bopt Then cpl=91
  86.  Else cpl=117 /* Char/Line */
  87.  End of A4 Paper changes   */
  88.  
  89. /* Mode=3 */
  90. /* A4 Paper - Replace with the following lines:
  91. Call Out '/tm { 555 } bind def /bm { 15 } bind def'
  92. Call Out '/lf { currentpoint exch pop lspace sub dup bm lt { pop lm 533 lt { /lm'
  93. Call Out ' { 533 } def tm } { showpage saveobj restore incp opg /saveobj save def'
  94. Call Out ' /lm { 26 } def tm } ifelse } if lm exch moveto } bind def'
  95. Call Out '/lbox { newpath setgray setlinewidth 22 563 moveto'
  96. Call Out ' 22 15 lineto 525 15 lineto 525 563 lineto closepath stroke } def'
  97. Call Out '/rbox { newpath setgray setlinewidth 529 563 moveto'
  98. Call Out ' 529 15 lineto 1032 15 lineto 1032 563 lineto closepath stroke } def'
  99. Call Out '/llin { newpath setgray setlinewidth 22 563 moveto'
  100. Call Out ' 1032 563 lineto stroke } def'
  101. End of A4 Paper changes */
  102.  /* A4 Paper - Replace with the following lines:
  103.  Call Out ' 22 568 moveto ('||nf||') show 997 568 moveto'
  104.  Call Out ' ('||nd||') show 491 568 moveto (Page) show 546 568 moveto'
  105.  End of A4 Paper changes */
  106.  
  107. /* ****** End of 2UP A4 Paper changes ****** */
  108.