home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / support / usprndrv / i386 / pscript4.dll / 259 / 10 < prev    next >
Text File  |  1999-10-14  |  2KB  |  31 lines
  1. %%BeginResource: file Pscript_Win_Basic 5.0 0
  2. /d/def load def/,/load load d/~/exch , d/?/ifelse , d/!/pop , d/`/begin , d/^
  3. /index , d/@/dup , d/+/translate , d/$/roll , d/U/userdict , d/M/moveto , d/-
  4. /rlineto , d/&/currentdict , d/:/gsave , d/;/grestore , d/F/false , d/T/true ,
  5. d/N/newpath , d/E/end , d/Ac/arc , d/An/arcn , d/A/ashow , d/D/awidthshow , d/C
  6. /closepath , d/V/div , d/O/eofill , d/L/fill , d/I/lineto , d/-c/curveto , d/-M
  7. /rmoveto , d/+S/scale , d/Ji/setfont , d/Lc/setlinecap , d/Lj/setlinejoin , d
  8. /Lw/setlinewidth , d/Lm/setmiterlimit , d/sd/setdash , d/S/show , d/LH/showpage
  9. , d/K/stroke , d/W/widthshow , d/R/rotate , d/L2? false/languagelevel where{pop
  10. languagelevel 2 ge{pop true}if}if d L2?{/xS/xshow , d/yS/yshow , d/zS/xyshow ,
  11. d}if/b{bind d}bind d/bd{bind d}bind d/xd{~ d}bd/ld{, d}bd/bn/bind ld/lw/Lw ld
  12. /lc/Lc ld/lj/Lj ld/sg/setgray ld/ADO_mxRot null d/self & d/OrgMx matrix
  13. currentmatrix d/reinitialize{: OrgMx setmatrix[/TextInit/GraphInit/UtilsInit
  14. counttomark{@ where{self eq}{F}?{cvx exec}{!}?}repeat cleartomark ;}b
  15. /initialize{`{/ADO_mxRot ~ d/TextInitialised? F d reinitialize E}{U
  16. /Pscript_Win_Data 230 dict @ ` put/ADO_mxRot ~ d/TextInitialised? F d
  17. reinitialize}?}b/terminate{!{& self eq{exit}{E}?}loop E}b/suspend/terminate , d
  18. /resume{` Pscript_Win_Data `}b U `/lucas 21690 d/featurebegin{countdictstack
  19. lucas[}b/featurecleanup{stopped{cleartomark @ lucas eq{! exit}if}loop
  20. countdictstack ~ sub @ 0 gt{{E}repeat}{!}?}b E/snap{transform 0.25 sub round
  21. 0.25 add ~ 0.25 sub round 0.25 add ~ itransform}b/dsnap{dtransform round ~
  22. round ~ idtransform}b/nonzero_round{@ 0.5 ge{round}{@ -0.5 lt{round}{0 ge{1}
  23. {-1}?}?}?}b/nonzero_dsnap{dtransform nonzero_round ~ nonzero_round ~
  24. idtransform}b U<04>cvn{}put/rr{1 ^ 0 - 0 ~ - neg 0 - C}b/irp{4 -2 $ + +S fx 4 2
  25. $ M 1 ^ 0 - 0 ~ - neg 0 -}b/rp{4 2 $ M 1 ^ 0 - 0 ~ - neg 0 -}b/solid{[]0 sd}b/g
  26. {@ not{U/DefIf_save save put}if U/DefIf_bool 2 ^ put}b/DefIf_El{if U/DefIf_bool
  27. get not @{U/DefIf_save get restore}if}b/e{DefIf_El !}b/UDF{L2?{undefinefont}{!}
  28. ?}b/UDR{L2?{undefineresource}{! !}?}b/freeVM{/Courier findfont[40 0 0 -40 0 0]
  29. makefont Ji 2 vmreclaim}b
  30. %%EndResource
  31.