$! pspage
$! This procedure prints selected pages from a postscript file
$! created with the psplot plotting library.
$!
$ say:="write sys$output"
$ if   p1 .eqs. "" -
  .or. p2 .eqs. "" -
  .or. p4 .eqs. "" -
  .or. p5 .eqs. "" 
$ then
$      say " "
$      say "        PSPAGE requires 5 input arguments, separated by spaces:"
$      say " "
$      say "        Arg. 1: Input psplot library PS file."
$      say " "
$      say "        Arg. 2: Pages to print (e.g. 1,3,5,7-11,18)."
$      say "                No spaces are allowed in pages argument."
$      say "                Pages must be listed in ascending order."
$      say " "
$      say "                Enter A or ALL for all pages."
$      say " "
$      say "                To print pages with a constant increment,
$      say "                use the form xx,yy,Szz where xx is the first
$      say "                page, yy is the last page (can be "A" or "ALL"),
$      say "                and zz is the increment.
$      say " "
$      say "        Arg. 3: Name of output file
$      say "                ("""" if you don't want a permanent output file)"
$      say " "
$      say "        Arg. 4: Immediate print? (T or F)
$      say " "
$      say "        Arg. 5: Upper or lower tray (U or L) 
$      say " "
$      exit
$ endif
$ ifile=p1
$ pages=p2
$ ofile=p3
$ printnow=p4
$ ptray=p5
$ run sys$common:[sysroutines]pspage 
$ exit