//โปรแกรมแสดงการเดินของนาฬิกา
Do while .t.
   ? time()
   inkey(0.1)
enddo