clock.f

   1 \\r
   2 \ CLOCK.F\r
   3 \ Displaying time on screen using hForth multitasker\r
   4 \ HIOMULTI.F or HIOMULT2.F must be loaded first.\r
   5 \\r
   6 \ 1995. 11. 5.\r
   7 \ Wonyong Koh\r
   8 \r
   9 BASE @\r
  10 GET-ORDER  GET-CURRENT\r
  11 \r
  12 �e\8bi���\89\9db-WORDLIST GET-ORDER 1+ SET-ORDER\r
  13 NONSTANDARD-WORDLIST SET-CURRENT\r
  14 \r
  15 DECIMAL\r
  16 0 60 CELLS 60 CELLS HAT CLOCK  CLOCK BUILD\r
  17 \r
  18 :NONAME CLOCK ACTIVATE\r
  19         BEGIN\r
  20           \8cq�b�� @ 0 DO PAUSE LOOP\r
  21           GRAPHIC? SCREEN-UPDATED? AND                  IF\r
  22             BASE @ DECIMAL\r
  23             MAX-X 20 - DUP >R\r
  24             0 BL EFONT!\r
  25             TIME&DATE DROP DROP DROP    \ second minute hour\r
  26             12 MOD\r
  27             S>D <# # # #>\r
  28             R> 1+ DUP >R 0 2SWAP xySTR!\r
  29             R> 2 + DUP >R 0 [CHAR] : EFONT!\r
  30             S>D <# # # #>\r
  31             R> 1+ DUP >R 0 2SWAP xySTR!\r
  32             R> 2 + DUP >R 0 [CHAR] : EFONT!\r
  33             S>D <# # # #>\r
  34             R> 1+ DUP >R 0 2SWAP xySTR!\r
  35             R> 2 + 0 BL EFONT!\r
  36             BASE !                                      THEN\r
  37         AGAIN\r
  38 ; EXECUTE\r
  39 \r
  40 SET-CURRENT  SET-ORDER\r
  41 BASE !\r