!Noddy program for testing D.Kerr's MSF clock board etc.
%include "system:msfsys.inc"

%begin
%string (255) s

%routine wait(%integer msec)
   msec = cputime + msec
   %while cputime <= msec %cycle
   %repeat
%end

%cycle
   s=get msf time
   s=substring(s, 18, length(s))
   printstring(s); newline
   wait(1000)
%repeat

%endofprogram
