$!
$!	PRIPS_NO_DOUBLE_SIDED.COM
$!
$!	Adds 2 lines of a header to a PS file to privent a printer from
$!	double sided printing.
$!
$!                                      M. Yokoyama
$!
$  queue_name  = p1
$  original_PS = p2
$  PS_to_print = p3
$  delete_flag = p4
$  If queue_name .eqs."" then queue_name  = "SP10$PRINT_D207"
$  If original_PS.eqs."" then original_PS = "S$Y:Temp.PS"
$  If PS_to_print.eqs.""
$  Then
$    area = F$TRNLNM("S$Y")
$    If area.eqs."" then area = "SYS$SCRATCH:"
$    PS_to_print = area + F$Parse(original_PS,,,"NAME") + ".ps_NOD"
$  EndIf
$  If delete_flag.eqs."" then delete_flag = "Yes"
$  delete_q = ""
$  If delete_flag then delete_q = "/delete"
$!
$  Create/nolog 'PS_to_print'
%!PS-Adobe-2.0
<< /Duplex false >> setpagedevice
$!
$  Append/nolog 'original_PS' 'PS_to_print'
$!
$  Print/notify/noflag/queue='queue_name'/parameter=postscript -
         'PS_to_print' 'delete_q'
$!
$  Exit