LOGICAL*1 ZTIM(4),ZTIME(10) INTEGER*2 IERR,IINTYP,IOUTYP INTEGER*4 ISECS,IENTIM 10 DO 15,I=1,10 15 ZTIME(I) = '-' TYPE 100 100 FORMAT ('$Input Type (1=I,2=A,3=D,4=T) > ') ACCEPT 200,IINTYP 200 FORMAT (I6) IF (IINTYP.EQ.0) CALL EXIT IF ((IINTYP.LT.0).OR.(IINTYP.GT.4)) GOTO 10 20 TYPE 300 300 FORMAT ('$Output Type (1=I,2=A,3=D) > ') ACCEPT 200,IOUTYP IF ((IOUTYP.LE.0).OR.(IOUTYP.GT.3)) GOTO 20 IF (IINTYP.EQ.IOUTYP) GOTO 10 GOTO (2000,4000,6000,10000) IINTYP 30 IF (IERR.NE.0) TYPE 350,IERR 350 FORMAT (' Error return = ',I6) IF (IERR.NE.0) GOTO 10 GOTO (40,50,60) IOUTYP 40 TYPE 400,ZTIM 400 FORMAT (' Hour = ',I3,' Minute = ',I3,' Second = ',I3,'.',I1) GOTO 10 50 TYPE 500,ZTIME 500 FORMAT (' The Time is - ',10A1) GOTO 10 60 TYPE 600,ISECS 600 FORMAT (' Seconds = ',I7) GOTO 10 C 2000 TYPE 2010 2010 FORMAT ('$Enter Hour,Minute,Second,Tenth > ') ACCEPT 2020,ZTIM 2020 FORMAT (4I3) GOTO (2100,2200,2300) IOUTYP 2100 CONTINUE GOTO 30 2200 TYPE 2220 2220 FORMAT ('$Length of Output > ') ACCEPT 2230,ILEN 2230 FORMAT (I6) CALL CTIMIA(ZTIM,ZTIME,ILEN,IERR) GOTO 30 2300 CALL CTIMID(ZTIM,ISECS,IERR) GOTO 30 C 4000 TYPE 4010 4010 FORMAT ('$Enter ASCII Time > ') ACCEPT 4020,ZTIME 4020 FORMAT (10A1) GOTO (4100,4200,4300) IOUTYP 4100 CALL CTIMAI(ZTIME,ZTIM,IERR) GOTO 30 4200 CONTINUE GOTO 30 4300 CALL CTIMAD(ZTIME,ISECS,IERR) GOTO 30 C 6000 TYPE 6010 6010 FORMAT ('$Enter Number of Secs > ') ACCEPT 6020,ISECS 6020 FORMAT (I8) GOTO (6100,6200,6300) IOUTYP 6100 CALL CTIMDI(ISECS,ZTIM,IERR) GOTO 30 6200 TYPE 2220 ACCEPT 2230,ILEN CALL CTIMDA(ISECS,ZTIME,ILEN,IERR) GOTO 30 6300 CONTINUE GOTO 30 C 10000 CONTINUE GOTO (10100,10200,10300) IOUTYP 10100 CALL GTTIMI(ZTIM,IERR) GOTO 30 10200 TYPE 2220 ACCEPT 2230,ILEN CALL GTTIMA(ZTIME,ILEN,IERR) GOTO 30 10300 CALL GTTIMD(ISECS,IERR) GOTO 30 END