RETURN
*AM CACULATES  HR / MINUTES OLD A DATE AND TIME IS
*INPUT CALLBATI,CALLBADA
*COMPARED AGAINST CURRENT DATE AND TIME
*4 HOUR DUE TIME IN MDUE
*HR OLD IN MOLD

*STORE TIME() TO CALLBATI
*STORE DATE() TO CALLBADA
*CLEAR
*@ 4,0 say 'TIME - ' GET CALLBATI
*@ 5,0 SAY 'DATE - ' GET CALLBADA
*READ

STORE CALLBADA TO MCALLBADA
STORE (VAL(SUBSTR(CALLBATI,1,2)) * 60) + VAL(SUBSTR(CALLBATI,4,2)) TO MCALLBATI
STORE (VAL(SUBSTR(TIME(),1,2)) * 60) + VAL(SUBSTR(TIME(),4,2)) TO MTIME

STORE CALLBADA TO D1
STORE CALLBATI TO T1
STORE DATE() TO D2
STORE TIME() TO T2

STORE 0 TO MIN
IF DATE() < CALLBADA .OR. (DATE()=CALLBADA .AND. MTIME < MCALLBATI)   
 STORE 0 TO XHR
 STORE 0 TO XMIN
 STORE ' ' TO MMM
 RETURN
ENDIF
DO WHILE D1+1 > D1
STORE MIN+480 TO MIN
STORE D2+1 TO D2
ENDDO 
*? MIN
*? 'AFTER CACULATING DAYS'
*WAIT
IF MCALLBATI < 540
 ? 'ERROR IN MCALLBATI '
 WAIT
 STORE 540 TO MCALLBATI
ENDIF
IF MCALLBATI > 1080
 ? 'ERROR IN MCALLBATI '
 WAIT
 STORE 1080 TO MCALLBATI
ENDIF
IF MTIME < 540
 STORE 540 TO MTIME
ENDIF
IF MTIME > 1080
 STORE 540 TO MTIME
ENDIF
IF MTIME < MCALLBATI
 STORE MIN + (MCALLBATI-MTIME) TO MIN
ENDIF
IF MTIME > MCALLBATI
 STORE MIN + (MTIME-MCALLBATI) TO MIN
ENDIF
*? MIN
*? 'AFTER CACULATING MIN'
*WAIT
STORE 0 TO XHR
STORE 0 TO XMIN

DO WHILE MIN > 60
 STORE XHR+1 TO XHR
 STORE MIN-60 TO MIN
ENDDO
STORE MIN TO XMIN
? XHR
? XMIN
WAIT
STORE STR(XHR,2,0) + ':' + STR(XMIN,2,0) TO MMM