Modula2_kilo/Done/step4/editor.mod

MODULE editor2;

(* based on the kilo editor building course*)

(* Step 4 *)

(* using different libreries for the same purpose, some lowlevel, some higher level *)

(* IO mode *)

IMPORT IO;

VAR 
    c : CHAR;

BEGIN
    (* PROCEDURE Read (VAR ch: CHAR) ; *)
    LOOP
        IO.Read(c);
        IF c = "q" THEN
            EXIT
        END;
    END;
END editor2.