%PS%
/2coltrimmarks 
 {      % trim marks
   gsave PagWid RgtMrg sub 7 MM add dup 0 moveto dup 10 MM lineto 
   0 setlinewidth stroke  PagLen moveto 0 -10 MM rlineto stroke 
   LftMrg 7 MM sub dup 0 moveto dup 10 MM lineto 
   0 setlinewidth stroke  PagLen moveto 0 -10 MM rlineto stroke 
   grestore
 } def
QSdict begin
/PagLen PagWid /PagWid PagLen store store
90 rotate 0 PagLen neg translate  
/Eject 
 { PrPagNum 2coltrimmarks showpage 90 rotate 0 PagLen neg translate 
   NCol 1 gt {SetCol}if ToTop
   } store
/ColGap 15 MM store
end
PE
%PM,55,55,16,16%%NC,2%%VT,0%