１秒显示一次



on timer(1) gosub printtime
(如果时间=1秒那么转移到printtime 子程序)
timer on
(打开时间事件)
printtime:       　  ︳
? time$              ︳→printtime子程序
return　　　　　　　 ︳


在printtime子程序里面你可以做不少事情～～～或者也可以添加语句在timer　　on　前面

我也来发个简单点的:
10  t$=inkey$:locate 10,10:print time$:if t$="" then 10
if t$=chr$(27) then end 
xxxxxxxxxxxxxxxxxx(你要另外的东西 机器运行时间保证不超过1秒的) goto 10

谢谢！