ACLS:C=0 WHILE TRUE H=C DIV(60*60*60) M=(C DIV(60*60))MOD 60 S=(C DIV 60)MOD 60 LOCATE 0,0 ?FORMAT$("%02D:%02D:%02D",H,M,S) INC C:VSYNC 1 WEND