INTEGER FUNCTION SINIT(X)
      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 NUM,LEN,STATUS,RPACK,X,TNUM,TEMP
      INTEGER XY
      INTEGER ALIN(132)
      INTEGER AONE,BONE
      INTEGER MOREFILE(9)
      DATA MOREFILE(1),MOREFILE(2),MOREFILE(3),MOREFILE(4),MOREFILE(5),M
     *OREFILE(6),MOREFILE(7),MOREFILE(8),MOREFILE(9)/77,79,82,69,70,73,7
     *6,69,10002/
      IF(.NOT.(NUMTRY.GT.5 ))GOTO 23000
      SINIT=65
      RETURN
23000 CONTINUE
      NUMTRY=NUMTRY+1
23001 CONTINUE
      AONE=1
      BONE=1
      CALL SPAR(PACKET)
      TNUM=N
      CALL SPACK(83,TNUM,6,PACKET)
      STATUS=RPACK(LEN,NUM,RECPKT)
      IF(.NOT.(STATUS.EQ.78))GOTO 23002
      IF(.NOT.(N.NE.(NUM-1)))GOTO 23004
      SINIT=STATE
      RETURN
23004 CONTINUE
      GOTO 23003
23002 CONTINUE
      IF(.NOT.(STATUS.EQ.89))GOTO 23006
      IF(.NOT.(N.NE.NUM))GOTO 23008
      SINIT=STATE
      RETURN
23008 CONTINUE
      CALL RPAR(RECPKT)
      IF(.NOT.(EOL.EQ.0))GOTO 23010
      EOL=10
23010 CONTINUE
      IF(.NOT.(QUOTE.EQ.0))GOTO 23012
      QUOTE=35
23012 CONTINUE
      NUMTRY=0
      N=MOD((N+1),64)
      MOREFD=AOPEN(MOREFILE,0)
      TEMP=1
23014 IF(.NOT.(TEMP.EQ.1))GOTO 23015
      XY=GETLIN(ALIN,MOREFD)
      IF(.NOT.(XY.EQ.10003))GOTO 23016
      SINIT=65
      CALL RATCLOSE(MOREFD)
      RETURN
23016 CONTINUE
      CALL SCOPY(ALIN,AONE,FILNAM,BONE)
      FD=AOPEN(FILNAM,0)
      IF(.NOT.(FD.NE.10001))GOTO 23018
      TEMP=0
23018 CONTINUE
23017 CONTINUE
      GOTO 23014
23015 CONTINUE
      SINIT=70
      RETURN
23006 CONTINUE
      IF(.NOT.(STATUS.EQ.0))GOTO 23020
      SINIT=STATE
      RETURN
23020 CONTINUE
      SINIT=65
23021 CONTINUE
23007 CONTINUE
23003 CONTINUE
      RETURN
      END