CAD时钟

看到CAD俄罗斯方块，我很是震惊，想起了我以前一直想编一个CAD时钟的事情。
本来我想用grread函数像俄罗斯方块一样设定退出键，但grread函数导致程序中断，鼠标不移动，时钟不运行，所以放弃了，大家退出用Esc强退。
由于CAD没有时间函数，所以采用while死循环较占内存。所以，某些图像采用基本的command函数模拟生成，这样可以增加循环时间。
同大家探讨下grread函数用法，哪位大神能详解下。

下载:shizhong.zip