# unhung - during the receive and sending phase, a return carriage
#        - in the local kermit mode will cause a NAK send to the
#        - remote system
#  
subroutine unhung
include ratdef
include kerdef
include kercom
#  
character alin(MAXLINE)
integer tnum,status,getlin
while((getlin(alin,localinfd)^=EOF)){
       if((alin(1)==BIGQ)&(alin(2)==LETU))call exit
       call remark("Sending out a NAK for retry purpose")
       tnum=n
       call spack1(BIGN,tnum,0,0)
       type "just send out a NAK"
}  
return
end