#include sys.fth

: run           \ -- ;
  0                                     \ Initialise line counter.
  begin
    key? 0=                             \ Any key been pressed?
  while                                 \ No key pressed so:
    1+                                  \ Increment line counter.
    dup <# # # # # # # # # #> stype     \ Send the number to the comms channel.
    13 semit                            \ Send CR to the comms channel.
    10 semit                            \ Send LF to the comms channel.
    dup <# # # # # # # # # #> type      \ Send the number to the script window.
    cr                                  \ Send CR/LF pair to the script window.
    1000 tpause                         \ Wait for one second (or thereabouts).
  repeat
  drop                                  \ Discard line counter.
  key drop                              \ Discard key that was pressed.
;
run