# rinit - receive the initial packet from the remote system
integer function rinit(x)
include ratdef
include kerdef
include kercom
#  
integer len,num,status,rpack,x,tnum
if(numtry>MAXTRY){
   rinit=BIGA
   return
}  
else numtry=numtry+1
#  
status=rpack(len,num,packet)
if(status==BIGS){
   call rpar(packet)
   call spar(packet)
   tnum=n
   call spack(BIGY,tnum,6,packet)
   oldtry=numtry
   numtry=0
   n=mod((n+1),64)
   rinit=BIGF
   return
}  
else if(status==FALSE){
        rinit=state
        tnum=n
        call spack(BIGN,tnum,0,0)
        return
     }
else {
      rinit=BIGA
}  
return
end