      INTEGER*4 N,T(2,500),I
      CHARACTER*23 AT
      CHARACTER*40 S(500)
      INTEGER*4 CIALST
      WRITE(*,*) CIALST(S,N,T)
      DO 100 I=1,N
        CALL SYS$ASCTIM(,AT,T(1,I),)
        WRITE(*,*) S(I),AT
100   CONTINUE
      END
