      INTEGER LOGNAM(102),TIM(9),DAT(9),DOW(10)
      INTEGER FD,E
      INTEGER OPEN,GETARG,SCOPY
      INTEGER AAAAA0(11)
      INTEGER AAAAB0(6)
      DATA AAAAA0/189,246,225,242,243,228,233,242,189,175,0/
      DATA AAAAB0/245,174,236,239,231,0/
      E=SCOPY(AAAAA0,1,LOGNAM,1)+1
      IF((GETARG(1,LOGNAM(E),102-E).NE.-1))GOTO 10000
        CALL SCOPY(AAAAB0,1,LOGNAM,E)
10000 FD=OPEN(LOGNAM,3)
      IF((FD.NE.-3))GOTO 10001
        CALL CANT(LOGNAM)
10001 CALL WIND(FD)
      CALL DATE(1,DAT)
      CALL DATE(2,TIM)
      CALL DATE(5,DOW)
      CALL PRINT(FD,'*n*n*s  *s  *s*n.',TIM,DAT,DOW)
      CALL FCOPY(-10,FD)
      CALL CLOSE(FD)
      CALL SWT
      END
C ---- Long Name Map ----
