C*******************************************************
C             FILE - OBTAIN FILE NAME AND ATTRIBUTES
********************************************************
C
C
C
      SUBROUTINE FILE
      COMMON INBUF(2048),IOUTBUF(8192),IWRK1(20),IWRK2(20),IFNAME1(3)
      COMMON ICMND,IFLAG1,IORG,INUM,IFORMT(20),IFLAG2
      DIMENSION IACT(2),IPASSWD(2)
      DATA IOTAB/'CKRI'/
      DIMENSION ISTRING(9),ISN(2)
      DATA IORGNUM/4/
      CALL ERRSET2(IERR1,99S,99S,IDCB)
      CALL CLOSEF(1,2)
99    DO 5 I=1,9
05    ISTRING(I)=4H
      DO 6 I=1,2
      IACT(I) = 4H
6     IPASSWD(I) = 4H
10    CALL QUICK(' FILE NAME: ',IWRK1,39,NCR1,0)
      CALL ROBIN(ISTRING,NCR1,IER)
      IF(IER.EQ.1) GO TO 10
15    CALL QUICK(' ACCOUNT: ',IWRK1,11,NCR1,0)
      CALL ROBIN(IACT,NCR1,IER)
      IF (IER .EQ. 1) GO TO 15
20    CALL QUICK(' PASSWORD: ',IWRK1,11,NCR1,0)
      CALL ROBIN(IPASSWD,NCR1,IER)
      IF (IER  .EQ. 1) GO TO 20
42    CALL QUICK(' SERIAL NUMBER:  ',IWRK1,17,NCR1,0)
      IF (NCR1.EQ.0) ISN(1)=0; GO TO 40
      IF (NCR1.GT.4) GO TO 42
      ISN(1)=1
      ISN(2)=IWRK1(1)
40    CALL QUICK(' ORG: ',IWRK1,30,NCR2,0)
41    IF(NCR2.EQ.0) CALL ORGHELP; GO TO 40
      CALL FIND(IWRK1,1,IOTAB,1,IORGNUM,CHAR,K4)
      IF(K4.EQ.0) CALL ERROR(3); CALL ORGHELP; GO TO 40
      IORG=K4
      IF(IORG.EQ.4) NCR2=0;GO TO 41
      IACC=2
      KEYM=0
      IF(IORG.EQ.1) IACC=1
      IF(IORG.EQ.2) KEYM=31
      CALL ERRSET2(IERR,999S,999S,IDCB)
      IF (IACT(1) .EQ. 4H     ) IACT(1) = 0
      IF (IPASSWD(1) .EQ. 4H     ) IPASSWD(1) = 0
      CALL OPENF(1,ISTRING,6,IACT,IPASSWD,IORG,IACC,7,ISN,KEYM,0)
60    CONTINUE
      RETURN
999   CALL ERROR(4)
      RETURN
      END
