FTN,L 
C     NAME:   AUTOR 
C     SOURCE: 92070-18252 
C     RELOC:  92070-16252 
C     PGMR:   G.A.A.
C             E.J.W.,750505 
C             D.L.S.,760622 
C             E.J.W.,771219 
C             C.H.W.,780915 
C 
C 
      PROGRAM AUTOR(2,1), 92070-16252  REV.1941  790612 
      DIMENSION ITM(3),ITMX(5)
C                                  GET THE PASSED TIME OF POWER-FAIL
   20 CALL RMPAR(ITM(1),ITM(2),ITM(3))
C                                  CONVERT THE DOUBLE INTEGER TO: 
C                                  HR,MIN,SEC.TENS OF MS
      CALL TMVAL(ITM,ITMX)
C                                  GET THE YEAR OFFSET FROM DAYS
      IB=ITM(3)/366 
C                                  ADD THE BASE YEAR TO GET ACTUAL YEAR 
      IY=IB+1976
C                                  SUBTRACT THE YEARS TO GET DAYS AND 
C                                  CORRECT FOR DAY ZERO.
      ID=ITM(3)-IB*366+1
C                                  FLOAT THE TENS OF MS VALUE 
      REG=ITMX(1) 
C                                  COMPUTE SECONDS INTO ONE FLOATING WORD 
      REG=REG/100.+FLOAT(ITMX(2)) 
C                                  *****************************
C                                  THE FOLLOWING DO LOOP MAY BE 
C                                  MODIFIED IF DESIRED. 
C                                  IT SERVES TWO FUNCTIONS: 
C                                  1) BY SENDING A MESSAGE TO EACH INTER- 
C                                     ACTIVE DEVICE, THE DRIVER WILL
C                                     RESET THE INTERFACE TO REENABLE 
C                                     ANY TERMINALS.
C                                  2) ANY USERS AT THE TERMINALS ARE
C                                     INFORMED THAT THE LAST LINE MAY 
C                                     NOT HAVE BEEN TRANSMITTED 
C                                     CORRECTLY.
C                                  *****************************
C 
C                                  FORMAT TO PRINT THE TIME 
C 
 40   FORMAT("POWER FAILED AT "I2":"I2":"F6.3" ON DAY "I3" OF "I4)
C 
C                                  SCAN FOR ALL THE TTY TYPE DEVICES
      DO 30 I=1,64
C                                  DO STATUS CALL 
           CALL EXEC(100015B,I,IDVT6) 
C                                  IGNOR UNDEFINED,AND UNASSIGNED LU'S
           GO TO 30 
C                                  CHECK IF INTERACTIVE DEVICE
    1      IF(IAND(IDVT6,34000B))30,2,30
C                                  INTERACTIVE DEVICE, WRITE TIME ON IT.
    2           WRITE(I,40)ITMX(4),ITMX(3),REG,ID,IY
   30 CONTINUE
C                                  *****************************
C                                  USER POWER FAIL RECOVERY CODE
C                                  SHOULD BE ADDED HERE.
C                                  *****************************
      STOP
      END 
      END$
                                                                                                                                              