%PS%
/Draft{gsave initmatrix 72 dup scale /Helvetica-Bold findfont 1 scalefont setfont
(DRAFT) dup stringwidth pop 4.5 5.5 translate 45 rotate 2 div neg 0 moveto
.85 setgray show grestore}def
Draft

/showpage
[
 /showpage load dup type /operatortype ne {/exec cvx}if
 /Draft load /exec cvx
] cvx def

PE