line=""; eof=0
      open a ("read \\SiMPLE\\L\\D\\S\\SiMPLE.AID")
loop: read line a (line, eof)
      If (eof) quit
      output (line)
      wait quit key (0, 50)
      Go to loop