PRO NEXTTIME, TIME
;
    HH= FIX(STRMID(TIME, 0, 2))  
    MM= FIX(STRMID(TIME, 2, 2))
    SS= FIX(STRMID(TIME, 4, 2))
;
   SS= SS+ 1
;
   CASE 1 OF
    SS EQ 60 : SS=0
    SS GT 60 : STOP,'IRREGAL FILE NAME'
   ELSE : GOTO, FINAL3
   ENDCASE
;
   MM= MM+ 1
;
   CASE 1 OF 
    MM EQ 60 : MM=0
    MM GT 60 : STOP, 'IRREGAL FILE NAME'
   ELSE : GOTO, FINAL2
   ENDCASE
;
   HH= HH+ 1
;
   CASE 1 OF
    HH EQ 24 : STOP, 'FINISH IN SEARCH'
    HH GT 24 : STOP, 'IRREGAL FILE NAME'
   ELSE : GOTO, FINAL1
   ENDCASE
;
FINAL3:
FINAL2:
FINAL1: H2= STRCOMPRESS(STRING(HH), /REMOVE_ALL)
         A1= STRLEN(H2)
        IF A1 EQ 1 THEN H2='0' + H2
        M2= STRCOMPRESS(STRING(MM), /REMOVE_ALL)
         A2= STRLEN(M2)
        IF A2 EQ 1 THEN M2='0' + M2
        S2= STRCOMPRESS(STRING(SS), /REMOVE_ALL)
         A3= STRLEN(S2)
        IF A3 EQ 1 THEN S2='0' + S2
;
TIME= H2 + M2 + S2
;
RETURN
END