home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / PSLIB.ZIP / PS_TEST.PRG < prev    next >
Encoding:
Text File  |  1991-02-26  |  5.1 KB  |  179 lines
  1. * Program........: PS_TEST.PRG
  2. * Author.........: Richard Elliott, Ferret Software
  3. * Purpose........: Sample Printout of the PS Laser Library
  4. * Usage..........: DO PS_TEST
  5.  
  6. * SET PRINTER TO test.prn     && Activate for Goscript, etc.
  7.  
  8. SET PROCEDURE TO ps_lib
  9.  
  10. DO init_print
  11.  
  12. ??? ORIENT("PORT")
  13. ??? FONTPICK("HEN",14)
  14. ??? SAYIT(ypos, xpos, "Helvetica, 14 point",'')
  15. ypos = ypos - .167
  16. ??? LINEDRAW( ypos , xpos ,ypos , xpos+5 , 2 )
  17. ypos = ypos - .2
  18. ??? SETGRAY(.5)
  19. ??? FONTPICK("HEO",14)
  20. ??? SAYIT(ypos, xpos, "Helvetica Oblique at 50% gray",'')
  21. ypos = ypos - .167
  22. ??? LINEDRAW( ypos , xpos ,ypos , xpos+5 , 4 )
  23. ypos = ypos - .22
  24. ??? SETGRAY(0)
  25. ??? FONTPICK("HEB",14)
  26. ??? SAYIT(ypos, xpos, "Helvetica Bold, 14 point",'')
  27. ypos = ypos - .22
  28. ??? FONTPICK("HEX",14)
  29. ??? SAYIT(ypos, xpos, "Helvetica Bold Oblique, 14 point",'')
  30. ypos = ypos - .22
  31. ??? FONTPICK("HEO",14)
  32. ??? SAYIT(ypos, xpos, "Helvetica Oblique, 14 point",'')
  33. ypos = ypos - .5
  34. ??? FONTPICK("TRN",18)
  35. ??? SAYIT(ypos, xpos, "Times Roman, 18 point",'')
  36. ypos = ypos - .3
  37. ??? FONTPICK("TRI",18)
  38. ??? SAYIT(ypos, xpos, "Times Roman Italic, 18 point",'')
  39. ypos = ypos - .3
  40. ??? FONTPICK("TRX",18)
  41. ??? SAYIT(ypos, xpos, "Times Roman Italic Bold, 18 point",'')
  42. ypos = ypos - .3
  43. ** ??? LINEDRAW( _sline , _scol ,_eline , _ecol , thi__)
  44. ypos = ypos - 1.3
  45. ??? BOXDRAW( ypos, xpos, 5 , 1 , 8)
  46. ??? BOXSHADE( ypos, xpos, 5 , 1 , .9)
  47. ypos = ypos - .6
  48. ??? FONTPICK("TRB",20)
  49. ??? SAYIT(ypos, xpos+1, "Times Roman Bold, 20 point",'')
  50. ??? ejectit
  51.  
  52. xpos    = 0
  53. ypos    = 0
  54. ??? ORIENT("LAND")
  55. ??? FONTPICK("HEN",8)
  56. ??? SAYIT(ypos, 0, "Helvetica, 8 point",'')
  57. ypos = ypos - .16
  58. ??? FONTPICK("HEN",10)
  59. ??? SAYIT(ypos, 0, "Helvetica, 10 point",'')
  60. ypos = ypos - .18
  61. ??? FONTPICK("HEN",12)
  62. ??? SAYIT(ypos, 0, "Helvetica, 12 point",'')
  63. ypos = ypos - .20
  64. ??? FONTPICK("HEN",14)
  65. ??? SAYIT(ypos, 0, "Helvetica, 14 point",'')
  66. ypos = ypos - .22
  67. ??? FONTPICK("HEN",16)
  68. ??? SAYIT(ypos, 0, "Helvetica, 16 point",'')
  69. ypos = ypos - .24
  70. ??? FONTPICK("HEN",18)
  71. ??? SAYIT(ypos, 0, "Helvetica, 18 point",'')
  72. ypos = ypos - .26
  73. ??? FONTPICK("HEN",20)
  74. ??? SAYIT(ypos, 0, "Helvetica, 20 point",'')
  75. ytemp = ypos
  76. * Notice how you can start a new column on the same page!
  77.  
  78. ypos = ypos + 1.16
  79. ??? FONTPICK("CRN",12)
  80. ??? SAYIT(ypos, 3, "Courier",'')
  81. ypos = ypos - .167
  82. ??? FONTPICK("CRO",12)
  83. ??? SAYIT(ypos, 3, "Courier-Oblique",'')
  84. ypos = ypos - .167
  85. ??? FONTPICK("CRB",12)
  86. ??? SAYIT(ypos, 3, "Courier-Bold",'')
  87. ypos = ypos - .167
  88. ??? FONTPICK("CRX",12)
  89. ??? SAYIT(ypos, 3, "Courier-BoldOblique",'')
  90. ypos = ypos - .167
  91. ??? FONTPICK("AGN",12)
  92. ??? SAYIT(ypos, 3, "AvantGarde-Book",'')
  93. ypos = ypos - .167
  94. ??? FONTPICK("AGO",12)
  95. ??? SAYIT(ypos, 3, "AvantGarde-BookOblique",'')
  96. ypos = ypos - .167
  97. ??? FONTPICK("AGD",12)
  98. ??? SAYIT(ypos, 3, "AvantGarde-Demi",'')
  99. ypos = ypos - .167
  100. ??? FONTPICK("AGX",12)
  101. ??? SAYIT(ypos, 3, "AvantGarde-DemiOblique",'')
  102. ypos = ypos - .167
  103. ??? FONTPICK("BKL",12)
  104. ??? SAYIT(ypos, 3, "Bookman-Light",'')
  105. ypos = ypos - .167
  106. ??? FONTPICK("BKI",12)
  107. ??? SAYIT(ypos, 3, "Bookman-LightItalic",'')
  108. ypos = ypos - .167
  109. ??? FONTPICK("BKD",12)
  110. ??? SAYIT(ypos, 3, "Bookman-Demi",'')
  111. ypos = ypos - .167
  112. ??? FONTPICK("BKX",12)
  113. ??? SAYIT(ypos, 3, "Bookman-DemiItalic",'')
  114. ypos = ypos - .167
  115. ??? FONTPICK("HNN",12)
  116. ??? SAYIT(ypos, 3, "Helvetica-Narrow",'')
  117. ypos = ypos - .167
  118. ??? FONTPICK("HNO",12)
  119. ??? SAYIT(ypos, 3, "Helvetica-Narrow-Oblique",'')
  120. ypos = ypos - .167
  121. ??? FONTPICK("HNB",12)
  122. ??? SAYIT(ypos, 3, "Helvetica-Narrow-Bold",'')
  123. ypos = ypos - .167
  124. ??? FONTPICK("HNX",12)
  125. ??? SAYIT(ypos, 3, "Helvetica-Narrow-BoldOblique",'')
  126. ypos = ypos - .167
  127. ??? FONTPICK("NCN",12)
  128. ??? SAYIT(ypos, 3, "NewCenturySchlbk-Roman",'')
  129. ypos = ypos - .167
  130. ??? FONTPICK("NCI",12)
  131. ??? SAYIT(ypos, 3, "NewCenturySchlbk-Italic",'')
  132. ypos = ypos - .167
  133. ??? FONTPICK("NCB",12)
  134. ??? SAYIT(ypos, 3, "NewCenturySchlbk-Bold",'')
  135. ypos = ypos - .167
  136. ??? FONTPICK("NCX",12)
  137. ??? SAYIT(ypos, 3, "NewCenturySchlbk-BoldItalic",'')
  138. ypos = ypos - .167
  139. ??? FONTPICK("PAN",12)
  140. ??? SAYIT(ypos, 3, "Palatino-Roman",'')
  141. ypos = ypos - .167
  142. ??? FONTPICK("PAI",12)
  143. ??? SAYIT(ypos, 3, "Palatino-Italic",'')
  144. ypos = ypos - .167
  145. ??? FONTPICK("PAB",12)
  146. ??? SAYIT(ypos, 3, "Palatino-Bold",'')
  147. ypos = ypos - .167
  148. ??? FONTPICK("PAX",12)
  149. ??? SAYIT(ypos, 3, "Palatino-BoldItalic",'')
  150. ypos = ypos - .167
  151. ??? FONTPICK("ZCM",12)
  152. ??? SAYIT(ypos, 3, "ZapfChancery-MediumItalic",'')
  153. ypos = ypos - .167
  154. ??? FONTPICK("ZAD",12)
  155. ??? SAYIT(ypos, 3, "ZapfDingbats",'')
  156. ypos = ypos - .167
  157. ??? FONTPICK("SYM",12)
  158. ??? SAYIT(ypos, 3, "Symbol",'')
  159. ypos = ypos - .167
  160.  
  161. * And pick up where you left off!
  162. ypos = ytemp - .6
  163.  
  164. ??? FONTPICK("HEN",14)
  165. ??? SAYIT(ypos, 0, {12/31/90},'')
  166. ypos = ypos - .6
  167. ??? FONTPICK("HEN",13)
  168. ??? SAYIT(ypos, 2, 123456,'999,999,999')    && NOTE! Numbers are right
  169. ypos = ypos - .3                            && justified!
  170. ??? SAYIT(ypos, 2, 123.56,'999,999.99')
  171. ypos = ypos - .3
  172. mnumber = 12345.6
  173. ??? SAYIT(ypos, 2, mnumber,'999,999.99')
  174. ??? ejectit
  175. ??? psfooter
  176. SET PRINTER TO
  177.  
  178. * ---------------------------------------------------------
  179.