instructions Subroutine

      subroutine instructions
      write(*,'(a)')'_______________________________________________________________________________'
      write(*,'(a)')'| REDO(3f) COMMAND INPUT EDITOR                                                |'
      write(*,'(a)')'|                                                                              |'
      write(*,'(a)')'| Enter commands to be passed to the shell and then enter "r" or "r r_command" |'
      write(*,'(a)')'| on the input line to go into history edit mode. Once in history edit mode    |'
      write(*,'(a)')'| you may enter "?" to get some help. Enter "quit" to exit the program         |'
      write(*,'(a)')'|______________________________________________________________________________|'
      end subroutine instructions