I/O channel already open (ERR=7)

  The program attempted to OPEN channel zero (the controlling terminal).
  Remove the OPEN statement; channel zero is always open.