MAP1 T,F
MAP1 STR'TIME,S,8
MAP1 G,F

     ON ERROR GOTO ABORT


LOOP1:
GOSUB GET'TIME
G = 0.01
XCALL SLEEP,G
? STR'TIME
GOTO LOOP1



	GET'TIME:
		T = TIME
		STR'TIME = SPACE(8)
		HOURS = INT(T/(3600))
		MINS = INT(T/(60)-HOURS*60)
		SECS = INT(T-(HOURS*3600)-(MINS*60))
	H'MOD:
		IF HOURS > 24 &
			HOURS = HOURS - 24 : &
			GOTO H'MOD
		STR'TIME = (HOURS USING "#Z") + ":" + &
			   (MINS USING "#Z") +":"+ (INT(SECS) USING"#Z")

		RETURN



ABORT:
END