Clock += 1
    locate (1, 1)
    put "Time : ", Clock div 3000, ""
    % every 1 second is 3000