home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / f / forthmac / !Forthmacs / lib / clock < prev    next >
Encoding:
Text File  |  1997-04-12  |  238 b   |  14 lines

  1. \ simple clock hs 09.02.95
  2. multi
  3. task: clock
  4. : do-clock
  5.     multi clock activate
  6.     begin    single at-xy?
  7.         #columns d# 9 -  0 at-xy  .now
  8.         at-xy  multi d# 1000 ms
  9.     again ;
  10. do-clock
  11. : (cold-hook    (cold-hook    do-clock ;
  12. ' (cold-hook is cold-hook
  13.  
  14.