home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / MISC / PLAN / PS.OPO / PS.txt
Encoding:
Text File  |  1996-06-29  |  4.9 KB  |  356 lines
  1. OPLObjectFile**
  2. LOC::A:\OPP\PLAN_SRC\PS.OPP
  3. OPP_NoReVtRaN
  4. PSSTA&
  5. PSEND&
  6. PMAXY%
  7. EINITP$
  8. PSTASKS
  9. VERS$
  10. MINT&
  11. MAXT&
  12. 4.1G[?
  13. Warning: Module not uptodate+
  14. PS module:4.1, Plan:
  15. OH|R*R
  16. @VWB}
  17. OH|R*R
  18. @VWB}
  19. OH|R*R
  20. @VWB}
  21. PSGINI
  22. PSTGAN
  23. PSPINI
  24. PSTPER
  25. VERS$
  26. VERD$
  27. %!PS Plan 
  28. /enc [
  29. +J128 /Ccedilla/udieresis/eacute/acircumflex/adieresis/agrave/aring/ccedilla
  30. +J/ecircumflex/edieresis/egrave/idieresis/icircumflex/igrave/Adieresis/Aring
  31. +G/Eacute/ae/AE/ocircumflex/odieresis/ograve/ucircumflex/ugrave/ydieresis
  32. +G/Odieresis/Udieresis/cent/sterling/Oslash/multiply/florin/aacute/iacute
  33. +M/oacute/uacute/ntilde/Ntilde/ordfeminine/ordmasculine/questiondown/registered
  34. +F/logicalnot/onehalf/onequarter/exclamdown/guillemotleft/guillemotright
  35. +(181 /Aacute/Acircumflex/Agrave/copyright
  36. 189 /cent/yen
  37. 198 /atilde/Atilde
  38. +X207 /currency/eth/Eth/Ecircumflex/Edieresis/Egrave/dotlessi/Iacute/Icircumflex/Idieresis
  39. 221 /brokenbar/Igrave
  40. +M224 /Oacute/germandbls/Ocircumflex/Oacute/otilde/Otilde/mu/thorn/Thorn/Uacute
  41. +I/Ucircumflex/Ugrave/yacute/Yacute/macron/acute/minus/plusminus/underscore
  42. +G/threequarters/paragraph/section/divide/cedilla/ring/dieresis/dotaccent
  43. +8/onesuperior/threesuperior/twosuperior/bullet/underscore
  44. ] def
  45. +5/re {findfont begin currentdict dup length dict begin
  46. +,{1 index /FID ne {def}{pop pop}ifelse}forall
  47. +C/FontName exch def enc /Encoding Encoding 256 array copy def 0 exch
  48. +O{dup type /nametype eq {Encoding 2 index 2 index put pop 1 add}{exch pop}ifelse
  49. }forall
  50. +=pop currentdict dup end end /FontName get exch definefont pop
  51. +    }bind def
  52. /s3f /
  53. startp
  54. |NO    |Vy
  55. |NO    |Vy
  56. LO    PO
  57. 480 0 d
  58. startp
  59. LO    PO
  60. 480 0 d
  61. currentfile closefile
  62. showpage
  63. currentfile closefile
  64. PGETFHD$
  65. PSSTR$
  66. PMAXY%
  67. TPTR%
  68. RO    |R
  69. OQWPW
  70. OSWPW
  71. /border
  72. {pm pm moveto
  73. pw pm sub pm lineto
  74. pw pm sub ph pm sub lineto
  75. pm ph pm sub lineto
  76. closepath stroke} bind def
  77. /idfh
  78. /defh
  79. /bm idfh 4 div def
  80. +(/idfont /s3f findfont idfh scalefont def
  81. +(/defont /s3f findfont defh scalefont def
  82. idfont setfont
  83. +,/idw (MMMM) stringwidth pop bm 2 mul add def
  84. /ptask
  85. {setlinewidth
  86. newpath
  87. moveto
  88. gsave
  89. idw 0 rlineto
  90. 0 idfh bm add neg rlineto
  91. idw neg 0 rlineto
  92. closepath 
  93. +${gsave 0.9 setgray fill grestore} if
  94. stroke
  95. grestore
  96. +L{gsave 0 idfh bm add neg rmoveto idw idfh bm add rlineto stroke grestore} if
  97. 0.5 setlinewidth
  98. gsave
  99. defont setfont
  100. +"0 idfh bm add defh add neg rmoveto
  101. grestore
  102. gsave
  103. defont setfont
  104. 0 bm rmoveto
  105. grestore
  106. bm idfh neg rmoveto
  107. idfont setfont
  108. show} bind def
  109. /pdep
  110. {idfh bm add 2 div sub moveto
  111. exch idw add exch
  112. +#idfh bm add 2 div sub lineto stroke
  113. {exch idw 2 div add exch
  114. idfh sub moveto
  115. +'dup stringwidth pop 2 div neg 0 rmoveto
  116. gsave
  117. +    1 setgray
  118. +#(0.0) stringwidth pop dup 0 rlineto
  119. 0 idfh rlineto
  120. neg 0 rlineto
  121. +    0 setgray
  122. grestore
  123. show} if} bind def
  124. 0.5 setlinewidth
  125. border
  126. +"/s3f findfont 10 scalefont setfont
  127. translate 90 rotate
  128. moveto (
  129. ) show
  130. +    translate
  131. moveto (
  132. ) show
  133. 2 2 moveto (
  134. ) show
  135. scale
  136. newpath 0 0 moveto
  137. 0 rlineto 0
  138. rlineto
  139. 0 rlineto clip
  140. 0 rlineto 0
  141. rlineto
  142. 0 rlineto clip
  143. +    translate
  144. PSSTR$
  145. LEAF%
  146. TPTR%
  147. SECD&
  148. PTD1%
  149. PTD2%
  150. OQWPW
  151. OSWPW
  152. PHWPWC}W
  153. OQWPW
  154. OQWPW
  155. OSWPW
  156. OSWPW
  157. OQWPW
  158. OSWPW
  159. OQWPW
  160. OSWPW
  161. false
  162. OQWPW
  163. OSWPW
  164. OQWPW
  165. OSWPW
  166. false
  167. false
  168. OQWPW
  169. OSWPW
  170. O3WPW
  171. ptask
  172. PGETFHD$
  173. PSSTR$
  174. PSEND&
  175. PSSTA&
  176. VO    |Nz
  177. VO    |Nz
  178. +!/s3f findfont 5 scalefont setfont
  179. 0.25 setlinewidth
  180. /m {moveto} bind def
  181. /rm {rmoveto} bind def
  182. /r {rlineto} bind def
  183. /d {rlineto stroke} bind def
  184. /sd {gsave
  185. 0 0 moveto 94 0 rlineto 0 -
  186. rlineto -94 0 rlineto clip
  187. 0 0 moveto 134 0 rlineto 0 -
  188. rlineto -134 0 rlineto clip
  189. m show
  190. grestore} bind def
  191. {0.75 setgray
  192. closepath fill
  193. 0 setgray} bind def
  194. /startp
  195. {gsave
  196. lineto
  197. lineto
  198. lineto
  199. closepath gsave stroke
  200. grestore clip
  201. translate 90 rotate
  202. +    translate
  203. scale
  204. 0 0 m 480 0 d
  205. 20 0 m 0 -13 d
  206. 2 -9 m (
  207. ) show
  208. +    22 -9 m (
  209. ) show
  210. 100 0 m 0 -13 d
  211. 145 0 m 0 -13 d
  212. 102 -9 m (
  213. ) show
  214. 148 -9 m (
  215. ) show
  216. 140 0 m 0 -13 d
  217. 165 0 m 0 -13 d
  218. 142 -9 m (
  219. ) show
  220. 168 -9 m (
  221. ) show
  222. 190 0 m 0 -13 d
  223. 2 2 m
  224. ) show
  225. VO    |Nz
  226. VO    |Nz
  227. +    m 480 0 d
  228. ) show
  229. }VJWB
  230. ) show
  231. }VJWB
  232. ) show
  233. } bind def
  234. /endp
  235. +    {showpage
  236. grestore} bind def
  237. ONHOLS%
  238. PSSTR$
  239. GLEV%
  240. GETD$
  241. LEAF%
  242. TPTR%
  243. PSEND&
  244. PSSTA&
  245. O0WPW
  246. O1WPW
  247. }VJWB
  248. LO    PO
  249. }VJWB
  250. LO    PO
  251. LO    PO
  252. 480 0 d
  253. LO    PO
  254. 0 -9 d
  255. LO    PO
  256. LO    PO
  257. 0 -9 d
  258. LO    PO
  259. LO    PO
  260. 0 -9 d
  261. LO    PO
  262. 0 -9 d
  263. ) show
  264. O3WPW
  265. (*) show
  266. ) show
  267. ) show
  268. OMWPWC    [
  269. OIWPWC    Y
  270. OIWPWC}    [
  271. LO    PO    L
  272. OIWPWC
  273. OMWPWCA[^
  274. 1.5 -3 r -3 0 r closepath
  275. gsave
  276. 1 setgray fill 0 setgray
  277. grestore
  278. stroke
  279. OMWPWC
  280. UI}("
  281. 0 r 0 -3 r
  282. 0 r closepath
  283. gsave
  284. 1 setgray fill 0 setgray
  285. grestore
  286. stroke
  287. OAWPWC    [
  288. O=WPWC    Y
  289. O=WPWC}    [
  290. LO    PO
  291. O=WPWC
  292. OAWPWCA[
  293. 0 r closepath
  294. gsave
  295. 1 setgray fill 0 setgray
  296. grestore
  297. stroke
  298. OAWPWC
  299. U}J("
  300. O=WPWC    [
  301. 0 -6 r stroke
  302. OAWPWC    Y
  303. LO    PO
  304. 0 -6 r stroke
  305. LO    PO
  306. 0 r 0
  307. 0 r closepath fill
  308. 0 r 0
  309. 0 r closepath
  310. gsave
  311. 1 setgray fill 0 setgray
  312. grestore
  313. stroke
  314. O=WPWC}
  315. OAWPWC
  316. O=WPWCM}*
  317. OUWPWC}R
  318. O5WPWC}VRJ
  319. LO    PO
  320. 0 r 0
  321. 0 r closepath fill
  322. LO    PO
  323. ) show
  324. }VJWB
  325. LO    PO
  326. O0@[!
  327. par:a
  328. parallel port
  329. O1@[e
  330. tty:a
  331. serial port
  332. \p.lis
  333. OPP_NoReVtRaN
  334. PGETHD$
  335. PDATE$
  336. PTIM$
  337. O%@[;
  338. OP@[$
  339. PGETP%
  340. CTOO$
  341. ODWPW
  342. AREV=
  343. ENAM$f
  344. EMAIN
  345. PSTASKS
  346. PSPINI!
  347. PSTPER
  348. PSGINIQ
  349. PSTGANx$
  350. PSSTR$@/
  351. EINITP$
  352. AREVE
  353. PGETFHD$(1
  354. PGETHD$
  355. PGETP%
  356.