%!PS-Adobe-1.0
%%For: SHOCK


/M {moveto} def
/S {show} def
/F3 {/Courier findfont 10.00 scalefont setfont} def
/F1 {/Courier-Bold findfont 10.00 scalefont setfont} def
/BI {/Courier-BoldOblique findfont 10.00 scalefont setfont} def
/F2 {/Courier-Oblique findfont 10.00 scalefont setfont} def
/U {dup currentpoint 3 2 roll stringwidth
    0 currentfont /FontInfo get /UnderlineThickness
    get currentfont /FontMatrix get
    transform setlinewidth pop currentpoint
    0 currentfont /FontInfo get /UnderlinePosition
    get currentfont /FontMatrix get transform
    exch pop add newpath moveto rlineto stroke
    moveto show} def
/P+ {initmatrix [1 0 0 1 21 0] concat} def
/P- {showpage} def

F3
%Page: ? 1
P+