ASSIGN 19997 TO I19998
      GO TO 19998
19997 GO TO 19995
19996 IF(NOMORE) GO TO 19994
19995 ASSIGN 19992 TO I19993
      GO TO 19993
19992 ASSIGN 19990 TO I19991
      GO TO 19991
19990 ASSIGN 19988 TO I19989
      GO TO 19989
19988 ASSIGN 19986 TO I19987
      GO TO 19987
19986 ASSIGN 19984 TO I19985
      GO TO 19985
19984 ASSIGN 19982 TO I19983
      GO TO 19983
19982 ASSIGN 19980 TO I19981
      GO TO 19981
19980 ASSIGN 19978 TO I19979
      GO TO 19979
19978 GO TO 19996
19994 CALL SYSCHK
19998 CONTINUE
      BYTE NOMORE
      BYTE ANS
      BYTE FILENAM(9)
      BYTE FILE(30)
      BYTE LUN
      BYTE OWNER(3)
      BYTE GROUP(3)
      BYTE OK
      BYTE BUFF(5)
      EQUIVALENCE (FILE(3),LUN),(FILE(6),GROUP)
      EQUIVALENCE (FILE(10),OWNER),(FILE(14),FILENAM)
      CALL LITRAL (FILE,'DPX:[GRP,OWN]')
      INTEGER RECORD(300)
      INTEGER SIZOFREC
      INTEGER TI
      DATA TI /2/
      NOMORE = .FALSE.
      GO TO I19998
19993 CONTINUE
      OK = .FALSE.
      GO TO 19976
19977 IF(OK) GO TO 19975
19976 ASSIGN 19973 TO I19974
      GO TO 19974
19973 CALL VTOUT (TI,'ENTER DRIVE #')
      CALL VSPOT (TI,1,13)
      NUMCH = 1
      CALL VTIN (TI,LUN,NUMCH)
      IF(.NOT.(LUN .GE. "60 .AND. LUN .LE. "62)) GO TO 19971
      OK = .TRUE.
      GO TO 19972
19971 ASSIGN 19969 TO I19970
      GO TO 19970
19969 CONTINUE
19972 GO TO 19977
19975 GO TO I19993
19974 CONTINUE
      CALL HOME (TI)
      GO TO I19974
19970 CONTINUE
      ASSIGN 19968 TO I19974
      GO TO 19974
19968 CALL VTOUT (TI,'INVALID ENTRY -- RETRY  ')
      CALL WAIT (5,2)
      GO TO I19970
19991 CONTINUE
      OK = .FALSE.
      GO TO 19966
19967 IF(OK) GO TO 19965
19966 ASSIGN 19964 TO I19974
      GO TO 19974
19964 CALL VTOUT (TI,'ENTER UIC [GRP,OWN]')
      CALL VSPOT (TI,1,12)
      NUMCH = 3
      CALL VTIN (TI,GROUP,NUMCH)
      CALL VSPOT (TI,1,16)
      NUMCH = 3
      CALL VTIN (TI,OWNER,NUMCH)
      ASSIGN 19963 TO I19974
      GO TO 19974
19963 NUMCH = 9
      CALL VTOUT (TI,FILE(5),NUMCH)
      ASSIGN 19961 TO I19962
      GO TO 19962
19961 GO TO 19967
19965 GO TO I19991
19962 CONTINUE
      CALL VSPOT (TI,3,1)
      CALL VTOUT (TI,'IS THIS OK?')
      CALL ANSWER (TI,ANS)
      IF (ANS .EQ. 1) OK = .TRUE.
      GO TO I19962
19989 CONTINUE
      OK = .FALSE.
      GO TO 19959
19960 IF(OK) GO TO 19958
19959 ASSIGN 19957 TO I19974
      GO TO 19974
19957 CALL VTOUT (TI,'ENTER FILE NAME _________')
      CALL VSPOT (TI,1,17)
      NUMCH = 9
      CALL VTIN (TI,FILENAM,NUMCH)
      I = NUMCH + 14
      CALL LITRAL (FILE(I),'.DAT;1')
      I = I + 6
      CALL FILLB (FILE,I,30,0)
      NUMCH = 28
      CALL VTOUT (TI,FILE,NUMCH)
      ASSIGN 19956 TO I19962
      GO TO 19962
19956 GO TO 19960
19958 GO TO I19989
19987 CONTINUE
      OK = .FALSE.
      GO TO 19954
19955 IF(OK) GO TO 19953
19954 ASSIGN 19952 TO I19974
      GO TO 19974
19952 CALL VTOUT (TI,'ENTER # OF RECORDS IN FILE - _____')
      CALL VSPOT (TI,1,30)
      NUMCH = 5
      CALL VTIN (TI,BUFF,NUMCH)
      CALL MASIB (BUFF,1,NUMCH,NUMREC)
      ASSIGN 19951 TO I19974
      GO TO 19974
19951 CALL VTOUT (TI,BUFF,NUMCH)
      ASSIGN 19950 TO I19962
      GO TO 19962
19950 GO TO 19955
19953 GO TO I19987
19985 CONTINUE
      OK = .FALSE.
      GO TO 19948
19949 IF(OK) GO TO 19947
19948 ASSIGN 19946 TO I19974
      GO TO 19974
19946 CALL VTOUT (TI,'ENTER RECORD SIZE ___ (WORDS PER RECORD)')
      CALL VSPOT (TI,1,19)
      NUMCH = 3
      CALL VTIN (TI,BUFF,NUMCH)
      CALL MASIB (BUFF,1,NUMCH,SIZOFREC)
      ASSIGN 19945 TO I19974
      GO TO 19974
19945 CALL VTOUT (TI,BUFF,NUMCH)
      ASSIGN 19944 TO I19962
      GO TO 19962
19944 GO TO 19949
19947 GO TO I19985
19983 CONTINUE
      DEFINE FILE 1(NUMREC,SIZOFREC,U,IR1)
      CALL ASSIGN (1,FILE)
      CALL FDBSET (1,'NEW')
      GO TO I19983
19981 CONTINUE
      ASSIGN 19943 TO I19974
      GO TO 19974
19943 CALL VTOUT (TI,'NOW CLEARING THE FILE.  PLEASE WAIT')
      CALL FILL (RECORD,1,SIZOFREC,0)
      CALL VSPOT (TI,3,1)
      CALL VTOUT (TI,'NOW WORKING ON RECORD #')
      DO 19942 I=1,NUMREC
      CALL VSPOT (TI,3,25)
      CALL MSIAB (BUFF,1,5,I,0)
      CALL VTOUT (TI,BUFF)
      WRITE (1'I) (RECORD(J),J=1,SIZOFREC)
19942 CONTINUE
      CALL CLOSE (1)
      GO TO I19981
19979 CONTINUE
      ASSIGN 19941 TO I19974
      GO TO 19974
19941 CALL VTOUT (TI,FILE)
      CALL VSPOT (TI,3,1)
      CALL VTOUT (TI,'THIS FILE HAS BEEN CREATED AND CLEARED.',,12)
      CALL VTOUT (TI,'DO SOME MORE?')
      CALL ANSWER (TI,ANS)
      IF (ANS .NE. 1) NOMORE = .TRUE.
      GO TO I19979
      END