6025 DEF FNT2$(T$) : T$=CVT$$(T$,39%) : I8%=INSTR(1%,T$,':') : I9%=LEN(T$) 6027 J8%=VAL(LEFT(T$,I8%-1%)) : IF RIGHT(T$,I9%)='M' THEN I9%=I9%-2% : J8%=0% IF J8%=12% 6030 J9%=VAL(MID(T$,I8%+1%,I9%-I8%)) : J8%=J8%+12% IF RIGHT(T$,I9%+1%)='PM' : IF I9% THEN FNT2$=CVT%$(60%*J8%+J9%) ELSE FNT2$=CVT%$(-1%) 6035 FNEND 32767 I8%=FNC2%(0%) : END