MODULE Read;

(******************************************************************)
(*                                                                *)
(*    Autor:     Klapczynski Norbert                              *)
(*                                                                *)
(*    Version     1.0            24. Okt. 1988                    *)
(*                                                                *)
(******************************************************************)
                       
FROM Interface IMPORT Init,ESet,Read,Input;
FROM Terminal  IMPORT WriteString,WriteLn;
FROM Dos       IMPORT Delay;

PROCEDURE show (str: ARRAY OF CHAR; set:ESet);
BEGIN
 WriteString(str);
 WriteString("{");
 IF E1 IN set THEN
   WriteString(" E1 ");
 END;
 IF E2 IN set THEN
   WriteString(" E2 ");
 END;
 IF E3 IN set THEN
   WriteString(" E3 ");
 END;
 IF E4 IN set THEN
   WriteString(" E4 ");
 END;
 IF E5 IN set THEN
   WriteString(" E5 ");
 END;
 IF E6 IN set THEN
   WriteString(" E6 ");
 END;
 IF E7 IN set THEN
   WriteString(" E7 ");
 END;
 IF E8 IN set THEN
   WriteString(" E8 ");
 END;
 WriteString("}");
 WriteLn();
END show;

VAR i:CARDINAL;
BEGIN
  Init();
  i := 0;
  LOOP
    IF i>1000 THEN
      EXIT;
    END;
    INC(i);  
    show("Die Eingänge :",Read());
  END;
END Read.