%% Vertical Text
%%                PostScript Language Tutorial and Cookbook

/vshowdict 4 dict def
/vshow {
  vshowdict begin
    /thestring exch def
    /lineskip exch def
    thestring {
      /charcode exch def
      /thechar ( ) dup 0 charcode put def
      0 lineskip neg rmoveto
      gsave
        thechar stringwidth pop 2 div neg 0 rmoveto
        thechar show
        grestore
      } forall
    end
  } def

/Helvetica findfont 16 scalefont setfont
72 576 moveto 16 (TEXT POSITIONED VERTICALLY) vshow
122 576 moveto 16 (SHOULD BE CENTERED ON) vshow
172 576 moveto 16 (A COMMON CENTER LINE.) vshow
222 576 moveto 16 (VERTICAL TEXT IN CAPITAL) vshow
272 576 moveto 16 (LETTERS HAS MORE EVEN) vshow
322 576 moveto 16 (spacing than lower case letters.) vshow
showpage
122 576 moveto 16 () vshow
122 576 moveto 16 () vshow

