%!PS-Adobe-2.0
%%Title: Blue Book Program 9, on page 165
%%Creator: Adobe Systems Incorporated 
%%CreationDate: Thu Dec 28 13:36:08 PST 1989
%%EndComments

/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 12 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
% But what does it do?