subroutine caryon (prompt, continue)

      character*(*) prompt, continue

      print '(a,$)', prompt
      read (*,'(a)')  continue
      return
      end