home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / support / usprndrv / i386 / pscript4.dll / 259 / 22 < prev    next >
Text File  |  1999-10-14  |  2KB  |  27 lines
  1. %%BeginResource: file Pscript_TextFE 5.0 0
  2. /FDV/FDepVector d/pd_GetAdoNotDefFont{U(AdoNotDefFont)2 copy known{get}{@ 11
  3. dict `/FontName 1 ^ d/FontMatrix matrix d/FontType 0 d/FMapType 2 d/Encoding[0
  4. 0 0 0]d/FDepVector[/NotDefFont findfont]d & E definefont @ 4 1 $ put}?}b
  5. /pd_FCIsCovered{@/SubsVector get @ 0 ~{add}forall 256 ge{! ! T}{length 1 sub ~
  6. /Encoding get ~ get F}?}b/pd_CoverFCRange{@ pd_FCIsCovered not{~ @ FDV 2 copy
  7. get @ 6 -1 $ pd_GetAdoNotDefFont put put}if}b/pd_IsModeSwitchAble{F
  8. /resourcestatus where{!/CIDParams/ProcSet 2 copy resourcestatus{! !
  9. findresource @/SetBuildCompatible known ~/GetBuildCompatible known and ~ 0}if !
  10. !}if}b/pd_LParams 8 dict d/pd_DefLocalParams{pd_LParams `/pd_InstName ~ d
  11. /pd_Incr 0 d @/pd_charset ~ d/pd_SwitchAble pd_IsModeSwitchAble d
  12. /pd_PreviousMode T d ! & E}b/pd_IsCID-KeyedFont{/resourcestatus where{!{/CMap
  13. resourcestatus}stopped{! ! ! F}{{! !/CIDFont resourcestatus{! ! T}{F}?}{! F}?}
  14. ?}{! ! F}?}b/pd_SwitchToNative{F pd_SwitchAble{!/CIDParams/ProcSet findresource
  15. @/GetBuildCompatible get exec F 3 -1 $/SetBuildCompatible get exec}if
  16. /pd_PreviousMode ~ d}b/pd_IsCIDCapable{/CIDInit/ProcSet resourcestatus @{! ! !
  17. T}if}b/pd_mF_Finally{fM @ 4 0 put @ 5 5 -1 $ put makefont Pscript_Windows_Font
  18. 3 1 $ put}b/pd_SwitchToPrevious{pd_SwitchAble{pd_PreviousMode/CIDParams/ProcSet
  19. findresource/SetBuildCompatible get exec}if}b/pd_fem90msnotfound{[
  20. (This job requires the 90ms font used in this document.)100 500 12/Times-Roman
  21. LH(%%[ PrinterError: font not found ]%%)= T FatalErrorIf}b/mF_FE{6 -1 $ ! 6 ^
  22. pd_DefLocalParams ` 2 copy pd_IsCID-KeyedFont{4 -1 $ ! 6 -1 $ !
  23. pd_SwitchToNative 4 ^ ~[4 -1 $]composefont ~ ! pd_mF_Finally
  24. pd_SwitchToPrevious}{@/90ms-RKSJ-H eq{pd_fem90msnotfound}if ! !/0 3 1 $ mF}? E}
  25. b
  26. %%EndResource
  27.