SUBROUTINE UNHUNG
      IMPLICIT INTEGER (A-Z)
      COMMON /KER/ N,RPSIZ,SPSIZ,PAD,NUMTRY,OLDTRY, FD,RMTINFD,RMTOUTFD,
     *STATE,PADCHAR, EOL,ESCHAR,QUOTE,FILNAM(132),RECPKT(94 ), PACKET(94
     * ),SIZE,MOREFD,IBM,HOST, LOCALINFD,LOCALOUTFD,SPEED
      INTEGER ALIN(132)
      INTEGER TNUM,STATUS,GETLIN
23000 IF(.NOT.((GETLIN(ALIN,LOCALINFD).NE.10003)))GOTO 23001
      IF(.NOT.((ALIN(1).EQ.81).AND.(ALIN(2).EQ.117)))GOTO 23002
      CALL RATEXIT
23002 CONTINUE
      CALL REMARK("Sending out a NAK for retry purpose")
      TNUM=N
      CALL SPACK1(78,TNUM,0,0)
      GOTO 23000
23001 CONTINUE
      RETURN
      END