Modula2_kilo/Done/step3/editor1.mod

MODULE editor1;

(* based on the kilo editor building course*)

(* Step 3 *)

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

(* FIO mode *)

IMPORT SYSTEM, FIO;

VAR 
    c : CHAR;
    p : POINTER TO CHAR;

BEGIN
    p := SYSTEM.ADR(c);
    (* FIO PROCEDURE ReadNBytes (f: File; nBytes: CARDINAL; dest: ADDRESS) : CARDINAL ; *)
    WHILE FIO.ReadNBytes(FIO.StdIn,1,p) = 1 DO
        ;
    END;
END editor1.