home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / MAC_PRGS.M2 / TEST.M < prev    next >
Encoding:
Text File  |  1995-07-16  |  378 b   |  19 lines
  1. (*$c-,x+*)
  2. module test;
  3. import gemio;
  4. from inout import read,write, writeln, writestring, keypressed;
  5. FROM SYSTEM IMPORT ASSEMBLER;
  6. from sysvars import _hz_200;
  7. VAR hz200[_hz_200]: LONGCARD;
  8.  l: LONGCARD;
  9.  ch:char;
  10. begin
  11.  repeat
  12.    l:= hz200+200;
  13.    repeat
  14.    until hz200>=l;
  15.    write ('.');
  16.    if keypressed() then read(ch); end;
  17.  until ch=chr(27);
  18. end test.
  19.