%PS%
QSdict begin
/PagLen PagWid /PagWid PagLen store store
90 rotate 0 PagLen neg translate  
/Eject 
{ PrPagNum showpage 90 rotate 0 PagLen neg translate 
   NCol 1 gt {SetCol}if ToTop} store
end
PE
%PM,11,11,16,16%%VT,0%