INTEGER MONTH0(10,12),DAYNA0(10,7),AORPM
      INTEGER TIMES(4)
      INTEGER * 4 BASED0,BASEY0,DAYSP0,DAYSQ0,DAYSR0,DAYSS0,DAY,MONTH,YE
     *AR,DAYOF0,HOURS,MINUT0
      INTEGER AAAAA0(34)
      DATA MONTH0/202,225,238,245,225,242,249,0,0,0,198,229,226,242,245,
     *225,242,249,0,0,205,225,242,227,232,0,0,0,0,0,193,240,242,233,236,
     *0,0,0,0,0,205,225,249,0,0,0,0,0,0,0,202,245,238,229,0,0,0,0,0,0,20
     *2,245,236,249,0,0,0,0,0,0,193,245,231,245,243,244,0,0,0,0,211,229,
     *240,244,229,237,226,229,242,0,207,227,244,239,226,229,242,0,0,0,20
     *6,239,246,229,237,226,229,242,0,0,196,229,227,229,237,226,229,242,
     *0,0/
      DATA DAYNA0/211,245,238,228,225,249,0,0,0,0,205,239,238,228,225,24
     *9,0,0,0,0,212,245,229,243,228,225,249,0,0,0,215,229,228,238,229,24
     *3,228,225,249,0,212,232,245,242,243,228,225,249,0,0,198,242,233,22
     *8,225,249,0,0,0,0,211,225,244,245,242,228,225,249,0,0/
      DATA AAAAA0/170,178,236,186,170,178,172,172,176,236,160,170,172,17
     *8,240,172,160,170,243,172,160,170,243,160,170,236,172,160,170,236,
     *174,170,238,0/
      BASED0=0
      BASEY0=1976-1900
      DAYSP0=365
      DAYSQ0=4*DAYSP0+1
      DAYSR0=25*DAYSQ0-1
      DAYSS0=4*DAYSR0+1
      CALL TIMDAT(TIMES,4)
      TIMES(1)=TIMES(1)-('00')
      TIMES(2)=TIMES(2)-('00')
      TIMES(3)=TIMES(3)-('00')
      TIMES(1)=RS(TIMES(1),8)*10+RT(TIMES(1),8)
      TIMES(2)=RS(TIMES(2),8)*10+RT(TIMES(2),8)
      TIMES(3)=RS(TIMES(3),8)*10+RT(TIMES(3),8)
      HOURS=TIMES(4)/60
      MINUT0=TIMES(4)-HOURS*60
      MONTH=TIMES(1)
      DAY=TIMES(2)
      YEAR=1900+TIMES(3)
      IF((HOURS.GE.12))GOTO 10000
        AORPM='AM'
        IF((HOURS.NE.0))GOTO 10001
          HOURS=12
10001   GOTO 10002
10000   AORPM='PM'
        IF((HOURS.LE.12))GOTO 10003
          HOURS=HOURS-(12)
10003 CONTINUE
10002 IF((TIMES(1).GE.3))GOTO 10004
        TIMES(1)=TIMES(1)+(9)
        TIMES(3)=TIMES(3)-(BASEY0+1)
        GOTO 10005
10004   TIMES(1)=TIMES(1)-(3)
        TIMES(3)=TIMES(3)-(BASEY0)
10005 DAYOF0=BASED0
      DAYOF0=DAYOF0+(TIMES(3)/400)*DAYSS0
      TIMES(3)=MOD(TIMES(3),400)
      DAYOF0=DAYOF0+(TIMES(3)/100)*DAYSR0
      TIMES(3)=MOD(TIMES(3),100)
      DAYOF0=DAYOF0+(TIMES(3)/4)*DAYSQ0
      TIMES(3)=MOD(TIMES(3),4)
      DAYOF0=DAYOF0+TIMES(3)*DAYSP0
      DAYOF0=DAYOF0+(153*TIMES(1)+2)/5
      DAYOF0=MOD(DAYOF0+TIMES(2),7)+1
      CALL PRINT(-11,AAAAA0,HOURS,MINUT0,AORPM,DAYNA0(1,DAYOF0),MONTH0(1
     *,MONTH),DAY,YEAR)
      CALL SWT
      END
C ---- Long Name Map ----
C dayofweek                      dayof0
C daysper4years                  daysq0
C baseyear                       basey0
C daysper100years                daysr0
C daysperyear                    daysp0
C daysper400years                dayss0
C daynames                       dayna0
C baseday                        based0
C minutes                        minut0
C monthnames                     month0