begin ; !TO: redirect control output
  selectoutput(0); closeoutput
  openoutput(0,cliparam); selectoutput(0)
endofprogram