SUBROUTINE FORINI
       OPEN (5,file="/dev/tty")
       OPEN (6,file="/dev/tty")
       RETURN
       END