Liren Large Software Subsidy 14/14.iso/s/s005/4.ddi/BUNDLE/OS2_PSCRIPT.SEP

Text File | 1993-03-12 | 1.0 KB | 48 lines

@
@L/Name (
@N
@L) def
@L/Printer (
@Q
@L) def
@L/Jobid (
@I
@L) def
@L/Date (
@D
@L) def
@L/Time (
@T
@L) def
@L100 0 {dup mul exch dup mul add 1 exch sub} setscreen
@L2 setlinewidth 2 setmiterlimit
@L/inch {72 mul} def
@L/Gray 0.9 def
@Lnewpath clippath closepath pathbbox
@L/ury exch def
@L/urx exch def
@L/llx exch def
@L/lly exch def
@L/PrintWidth urx llx sub def
@L/PrintHeight ury lly sub def
@L/Helvetica-Bold findfont 1 inch scalefont setfont
@Lnewpath
@Lllx PrintHeight 1.5 inch sub moveto
@LPrintWidth Name true charpath
@L/Helvetica-Bold findfont 0.5 inch scalefont setfont
@Lllx PrintHeight 3 inch sub moveto
@LPrintWidth Printer true charpath
@Lllx PrintHeight 4.5 inch sub moveto
@LPrintWidth Jobid true charpath
@L/Helvetica findfont 0.5 inch scalefont setfont
@Lllx PrintHeight 6 inch sub moveto
@LPrintWidth Date true charpath
@LPrintWidth 4 inch sub 4.5 inch moveto Time true charpath
@Lclosepath
@Lgsave
@LGray setgray fill
@Lgrestore
@Lstroke
@Lshowpage
@E