_PDPARMS
%!PS-Adobe-1.0F
%%Creator: FoxPro Postscript driver, Version 1.0
%%Title:
%%Creation Date: 
         
/ff {outputflag 0 ne {showpage} ifF
            setupsave restore
            /setupsave save def 
            0 linepos moveto} def
/nl {newpath linepos 
         {ff}
         {/linepos linepos lineheight sub def}
     ifelse
     0 linepos moveto} def
/say { show
      /outputflag 1 def} def
/norm {
 findfont 
     
 scalefont setfont} def
/rmt {rmoveto} def
/xy {/objx cp pop def /objy cp exch pop def} def
/mtxy {objx objy moveto} def
/slw {0 setlinewidth} def
/trim {{( ) anchorsearch {pop} {exit} ifelse} loop} defF
/strw {dup length /strwidth exch def} def
/numwidth {dup stringwidth pop strwidth exch sub} def
/jfy {strw trim numwidth} def
/rj {jfy 0 rmt xy} def
/ctr {jfy 2 div 0 rmt xy} def
/cp {currentpoint} def
/mt {moveto} def
/font {findfont exch scalefont setfont} def
/rol {cp 3 -1 roll} def
/mv {rol exch mt pop} def
/up {rol add mt} def
/dn {rol sub mt} def
/u1 {xy 0 
 -.1 mul rmt} def
/u2 {dup stringwidth
     
 setlinewidth
      rlineto gsave stroke grestore
      mtxy slw say} def
/gcp {mt 1 0 rmt} defF
/l1 {dup 0 le {
 sub} {
 add} ifelse 0 exch rlineto} def
/l2 {0 rlineto} def
/dhl {0 .4 rmt l2 0 .2 rmt l2} def
/dvl {.4 0 rmt l1 .2 0 rmt l1} def
/lm {rol 0 rmt} def
/ulc {mt cp 0 .6 rmt .4 l2 .4 l1} def
/blc {mt cp 0 .4 rmt .4 l2 -.4 l1} def
/urc {mt cp 1 .6 rmt -.4 l2 .4 l1} def
/brc {mt cp 1 .4 rmt -.4 l2 -.4 l1} def
/trc {mt cp 0 .6 rmt .6 l2 -.6 l1} def
/lrc {mt cp 0 .4 rmt .6 l2 .6 l1} def
/tlc {mt cp 1 .4 rmt -.6 l2 .6 l1} def
/llc {mt cp 1 .6 rmt -.6 l2 -.6 l1} defF
/c1 {cp .5 0 rmt 1 l1 gcp} def
/c2 {cp 0 .5 rmt .5 l2 0 -.5 rmt 1 l1 gcp} def
/c3 {c1 -1 0 rmt cp 0 .4 rmt .5 l2 0 .2 rmt -.5 l2 gcp} def
/c4 {c8 -1 0 rmt cp 0 .5 rmt .3 l2 gcp} def
/c5 {cp 0 .5 rmt .6 l2 -.6 0 rmt .5 -.5 dvl gcp} def
/c6 {cp -.5 .5 dhl .5 0 rmt -.6 l1 gcp} def
/c7 {cp ulc blc mt cp .6 0 rmt 1 l1 0 -1 
 sub rmt 0 l1 gcp} def
/c8 {cp -1 1 dvl gcp} def
/c9 {cp blc trc gcp} def
/c10 {cp ulc lrc gcp} def
/c11 {cp 0 .5 rmt -.5 .5 dvl -.6 l2 gcp} def
/c12 {cp -.5 .5 dhl .5 -.2 rmt .5 l1 gcp} def
/c13 {cp 0 .5 rmt .5 l2 -.5 l1 gcp} defF
/c14 {cp 1 .5 rmt -.5 l2 .5 l1 gcp} def
/c15 {cp 0 .5 rmt 1 l2 -.5 0 rmt .5 l1 gcp} def
/c16 {cp 0 .5 rmt 1 l2 -.5 0 rmt -.5 l1 gcp} def
/c17 {cp .5 .5 rmt .5 l2 -.5 -.5 rmt 1 l1 gcp} def
/c18 {cp 0 .5 rmt 1 l2 gcp} def
/c19 {cp 0 .5 rmt 1 l2 -.5 -.5 rmt 1 l1 gcp} def
/c20 {c1 -1 0 rmt cp .5 .4 rmt .5 l2 0 .2 rmt -.5 l2 gcp} def
/c21 {c8 -1 0 rmt cp .6 .5 rmt .4 l2 gcp} def
/c22 {cp urc tlc gcp} defF
/c23 {cp brc llc gcp} def
/c24 {cp urc ulc mt cp 0 .4  rmt 1 l2 gcp} def
/c25 {cp brc blc mt cp 0 .6 rmt 1 l2 gcp} def
/c26 {cp urc brc mt cp .4  0 rmt 1 l1 0 -1 
 sub rmt 0 l1 gcp} def
/c27 {cp -1 1 dhl gcp} def
/c28 {cp ulc blc urc brc gcp} def
/c29 {cp -1 1 dhl .5 0 rmt .4 l1 gcp} def
/c30 {c18 -1 0 rmt cp 0 .5 rmt -.5 .5 dvl gcp} def
/c31 {cp -1 1 dhl .5 -.2 rmt  -.4 l1 gcp} defF
/c32 {c18 -1 0 rmt cp -.5 .5 dvl gcp} def
/c33 {cp 0 .5 rmt -.5 .5 dvl -.2 0 rmt .6 l2 gcp} def
/c34 {cp .5 .4 rmt .6 l1 0 -1 
 sub rmt -.6 .6 dhl gcp} def
/c35 {cp .4 0 rmt -.6 .6 dhl -.6 l1 gcp} def
/c36 {cp .4 .5 rmt .6 l2 -1 -.5 
 sub rmt -.5 .5 dvl gcp} def
/c37 {cp -1 1 dvl mt c18} def
/c38 {cp -1 1 dhl mt c1} def
/c39 {cp 0 .5 rmt .5 l2 .5 l1 gcp} def
/c40 {cp 1 .5 rmt -.5 l2 -.5 l1 gcp} def
/draw {gsave stroke grestore newpath mtxy
      /outputflag 1 def} def
%%EndPrologF
-90 rotate -FFF
 0 translate
 translate
 scale
 findfont 
 scalefont setfont
/pageheight 
/lineheight 
 store
/#copies 
 store
/linepos pageheight 
 sub def
/outputflag 0 def
/setupsave save def
newpath ff
/encodingF
{/newcodes exch def /newfname exch def
 /basefname exch def /basefdict basefname findfont def
 /newfont basefdict maxlength dict def   
 basefdict
 { exch dup /FID ne { dup /Encoding eq
   { exch dup length array copy newfont 3 1 roll put }
   { exch newfont 3 1 roll put }
 ifelse } { pop pop } ifelse } forall
 newfont /FontName newfname put
 newcodes aload pop newcodes length 2 idiv
 { newfont /Encoding get 3 1 roll put} repeat
newfname newfont definefont pop } def
/intl [ 39 /quotesingle 96 /grave 128 /Ccedilla 129 /udieresisF
 130 /eacute 131 /acircumflex 132 /adieresis 133 /agrave
 134 /aring 135 /ccedilla 136 /ecircumflex 137 /edieresis
 138 /egrave 139 /idieresis 140 /icircumflex 141 /igrave
 142 /Adieresis 143 /Aring 144 /Eacute 145 /ae 146 /AE
 147 /ocircumflex 148 /odieresis 149 /ograve
 150 /ucircumflex 151 /ugrave 152 /ydieresis 153 /Odieresis
 154 /Udieresis 155 /cent 156 /sterling 157 /yen
 158 /fi 159 /florin 160 /aacute 161 /iacute 162 /oacute 163 /uacute
 164 /ntilde 165 /Ntilde 166 /ordfeminine 167 /ordmasculine
 168 /questiondown 170 /logicalnot
 173 /exclamdown 174 /guillemotleft 175 /guillemotright
 225 /germandbls 248 /degree
 226 /Gamma 228 /SigmaF
 224 /alpha 227 /pi 243 /lessequal 236 /infinity
 241 /plusminus 242 /greaterequal 246 /divide 240 /equivalence
 247 /approxequal 239 /intersection 238 /element 251 /radical
 ] def
 /Courier /Courier intl encoding
 /Courier-Oblique /Courier-Oblique intl encoding
 /Courier-Bold /Courier-Bold intl encoding
 /Courier-BoldOblique /Courier-BoldOblique intl encoding
 /Helvetica /Helvetica intl encoding
 /Helvetica-Oblique /Helvetica-Oblique intl encoding
 /Helvetica-Bold /Helvetica-Bold intl encoding
 /Helvetica-BoldOblique /Helvetica-BoldOblique intl encoding
 /Times-Roman /Times-Roman intl encoding
 /Times-Italic /Times-Italic intl encoding
 /Times-Bold /Times-Bold intl encoding
 /Times-BoldItalic /Times-BoldItalic intl encoding
PRG;APP;SPR;FXP;SPX
Wo ist F
DOC_HEIGHTDOC_WIDTH
CODE1
CODE1A
CODE1B
CODE1C
CODE2
CODE3
CODE4
CODE5
CODE6
CODE7
CTLCHARS
LEADING
LINEEXT
TRANS_X
TRANS_Y
VALOF9
VALOF21
_PDPARMS
HEADER
TFOOTER
PRG;APP;SPR;FXP;SPX
Wo ist F
CTLCHARS
TLENGTH
_PDPARMS
FROMHERE
TGOTOHERE
CTLCHARS
LENGTH
_PDPARMS
 font 
 norm F
 font 
 norm F
 font 
 norm 
PRG;APP;SPR;FXP;SPX
Wo ist F
TATTRIBS
CTLCHARS
STARTCHARSENDCHARS
UNDER1
UNDER2
SUPER
CHARS
_PDPARMS
SCHK_SPECIALENGTH
PRG;APP;SPR;FXP;SPX
Wo ist F
CTLCHARS
TLENGTH
_PDPARMS
%%Trailer
setupsave restore
/#copies 1 store
PRG;APP;SPR;FXP;SPX
Wo ist F
CODE1
T_PDPARMS
 ctr8
ctr 8
say 8
mtxy 
 0 rmt c
draw mtxy 
 0 rmt (
 draw 
ctr 8
say 8
THETEXT
TUNDERLINE
CENTER
SCURCHAR
LASTALINE
NEWTEXT
RJORCTR
PDONUNLOAD
PDDOCST
PDPAGEST
PDADVPRT
PDOBJECT
PDLINEEND
PDDOCEND
CHK_SPECIA
C:\FOXPRO2\PDRIVER\
C:\FOXPRO2\PDRIVER\PS.PRG
PS.FXP