home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
printer
/
postscri
/
ps_test.prg
< prev
next >
Wrap
Text File
|
1991-02-26
|
5KB
|
179 lines
* Program........: PS_TEST.PRG
* Author.........: Richard Elliott, Ferret Software
* Purpose........: Sample Printout of the PS Laser Library
* Usage..........: DO PS_TEST
* SET PRINTER TO test.prn && Activate for Goscript, etc.
SET PROCEDURE TO ps_lib
DO init_print
??? ORIENT("PORT")
??? FONTPICK("HEN",14)
??? SAYIT(ypos, xpos, "Helvetica, 14 point",'')
ypos = ypos - .167
??? LINEDRAW( ypos , xpos ,ypos , xpos+5 , 2 )
ypos = ypos - .2
??? SETGRAY(.5)
??? FONTPICK("HEO",14)
??? SAYIT(ypos, xpos, "Helvetica Oblique at 50% gray",'')
ypos = ypos - .167
??? LINEDRAW( ypos , xpos ,ypos , xpos+5 , 4 )
ypos = ypos - .22
??? SETGRAY(0)
??? FONTPICK("HEB",14)
??? SAYIT(ypos, xpos, "Helvetica Bold, 14 point",'')
ypos = ypos - .22
??? FONTPICK("HEX",14)
??? SAYIT(ypos, xpos, "Helvetica Bold Oblique, 14 point",'')
ypos = ypos - .22
??? FONTPICK("HEO",14)
??? SAYIT(ypos, xpos, "Helvetica Oblique, 14 point",'')
ypos = ypos - .5
??? FONTPICK("TRN",18)
??? SAYIT(ypos, xpos, "Times Roman, 18 point",'')
ypos = ypos - .3
??? FONTPICK("TRI",18)
??? SAYIT(ypos, xpos, "Times Roman Italic, 18 point",'')
ypos = ypos - .3
??? FONTPICK("TRX",18)
??? SAYIT(ypos, xpos, "Times Roman Italic Bold, 18 point",'')
ypos = ypos - .3
** ??? LINEDRAW( _sline , _scol ,_eline , _ecol , thi__)
ypos = ypos - 1.3
??? BOXDRAW( ypos, xpos, 5 , 1 , 8)
??? BOXSHADE( ypos, xpos, 5 , 1 , .9)
ypos = ypos - .6
??? FONTPICK("TRB",20)
??? SAYIT(ypos, xpos+1, "Times Roman Bold, 20 point",'')
??? ejectit
xpos = 0
ypos = 0
??? ORIENT("LAND")
??? FONTPICK("HEN",8)
??? SAYIT(ypos, 0, "Helvetica, 8 point",'')
ypos = ypos - .16
??? FONTPICK("HEN",10)
??? SAYIT(ypos, 0, "Helvetica, 10 point",'')
ypos = ypos - .18
??? FONTPICK("HEN",12)
??? SAYIT(ypos, 0, "Helvetica, 12 point",'')
ypos = ypos - .20
??? FONTPICK("HEN",14)
??? SAYIT(ypos, 0, "Helvetica, 14 point",'')
ypos = ypos - .22
??? FONTPICK("HEN",16)
??? SAYIT(ypos, 0, "Helvetica, 16 point",'')
ypos = ypos - .24
??? FONTPICK("HEN",18)
??? SAYIT(ypos, 0, "Helvetica, 18 point",'')
ypos = ypos - .26
??? FONTPICK("HEN",20)
??? SAYIT(ypos, 0, "Helvetica, 20 point",'')
ytemp = ypos
* Notice how you can start a new column on the same page!
ypos = ypos + 1.16
??? FONTPICK("CRN",12)
??? SAYIT(ypos, 3, "Courier",'')
ypos = ypos - .167
??? FONTPICK("CRO",12)
??? SAYIT(ypos, 3, "Courier-Oblique",'')
ypos = ypos - .167
??? FONTPICK("CRB",12)
??? SAYIT(ypos, 3, "Courier-Bold",'')
ypos = ypos - .167
??? FONTPICK("CRX",12)
??? SAYIT(ypos, 3, "Courier-BoldOblique",'')
ypos = ypos - .167
??? FONTPICK("AGN",12)
??? SAYIT(ypos, 3, "AvantGarde-Book",'')
ypos = ypos - .167
??? FONTPICK("AGO",12)
??? SAYIT(ypos, 3, "AvantGarde-BookOblique",'')
ypos = ypos - .167
??? FONTPICK("AGD",12)
??? SAYIT(ypos, 3, "AvantGarde-Demi",'')
ypos = ypos - .167
??? FONTPICK("AGX",12)
??? SAYIT(ypos, 3, "AvantGarde-DemiOblique",'')
ypos = ypos - .167
??? FONTPICK("BKL",12)
??? SAYIT(ypos, 3, "Bookman-Light",'')
ypos = ypos - .167
??? FONTPICK("BKI",12)
??? SAYIT(ypos, 3, "Bookman-LightItalic",'')
ypos = ypos - .167
??? FONTPICK("BKD",12)
??? SAYIT(ypos, 3, "Bookman-Demi",'')
ypos = ypos - .167
??? FONTPICK("BKX",12)
??? SAYIT(ypos, 3, "Bookman-DemiItalic",'')
ypos = ypos - .167
??? FONTPICK("HNN",12)
??? SAYIT(ypos, 3, "Helvetica-Narrow",'')
ypos = ypos - .167
??? FONTPICK("HNO",12)
??? SAYIT(ypos, 3, "Helvetica-Narrow-Oblique",'')
ypos = ypos - .167
??? FONTPICK("HNB",12)
??? SAYIT(ypos, 3, "Helvetica-Narrow-Bold",'')
ypos = ypos - .167
??? FONTPICK("HNX",12)
??? SAYIT(ypos, 3, "Helvetica-Narrow-BoldOblique",'')
ypos = ypos - .167
??? FONTPICK("NCN",12)
??? SAYIT(ypos, 3, "NewCenturySchlbk-Roman",'')
ypos = ypos - .167
??? FONTPICK("NCI",12)
??? SAYIT(ypos, 3, "NewCenturySchlbk-Italic",'')
ypos = ypos - .167
??? FONTPICK("NCB",12)
??? SAYIT(ypos, 3, "NewCenturySchlbk-Bold",'')
ypos = ypos - .167
??? FONTPICK("NCX",12)
??? SAYIT(ypos, 3, "NewCenturySchlbk-BoldItalic",'')
ypos = ypos - .167
??? FONTPICK("PAN",12)
??? SAYIT(ypos, 3, "Palatino-Roman",'')
ypos = ypos - .167
??? FONTPICK("PAI",12)
??? SAYIT(ypos, 3, "Palatino-Italic",'')
ypos = ypos - .167
??? FONTPICK("PAB",12)
??? SAYIT(ypos, 3, "Palatino-Bold",'')
ypos = ypos - .167
??? FONTPICK("PAX",12)
??? SAYIT(ypos, 3, "Palatino-BoldItalic",'')
ypos = ypos - .167
??? FONTPICK("ZCM",12)
??? SAYIT(ypos, 3, "ZapfChancery-MediumItalic",'')
ypos = ypos - .167
??? FONTPICK("ZAD",12)
??? SAYIT(ypos, 3, "ZapfDingbats",'')
ypos = ypos - .167
??? FONTPICK("SYM",12)
??? SAYIT(ypos, 3, "Symbol",'')
ypos = ypos - .167
* And pick up where you left off!
ypos = ytemp - .6
??? FONTPICK("HEN",14)
??? SAYIT(ypos, 0, {12/31/90},'')
ypos = ypos - .6
??? FONTPICK("HEN",13)
??? SAYIT(ypos, 2, 123456,'999,999,999') && NOTE! Numbers are right
ypos = ypos - .3 && justified!
??? SAYIT(ypos, 2, 123.56,'999,999.99')
ypos = ypos - .3
mnumber = 12345.6
??? SAYIT(ypos, 2, mnumber,'999,999.99')
??? ejectit
??? psfooter
SET PRINTER TO
* ---------------------------------------------------------