editor2.mod 320 B

123456789101112131415161718192021
  1. MODULE editor2;
  2. (* based on the kilo editor building course*)
  3. (* Step 3 *)
  4. (* using different libreries for the same purpose, some lowlevel, some higher level *)
  5. (* IO mode *)
  6. IMPORT IO;
  7. VAR
  8. c : CHAR;
  9. BEGIN
  10. (* PROCEDURE Read (VAR ch: CHAR) ; *)
  11. WHILE TRUE DO
  12. IO.Read(c)
  13. END;
  14. END editor2.