(*
Title   : Einfach (Uebungsprogramm fuer PASCAL-Magazin)
LastEdit: 1.12.86.
Author  : Joerg BEYER, Tuebingen
System  : LOGITECH MODULA-2/86
*)

DEFINITION MODULE Einfach;

EXPORT  QUALIFIED Eingabe,
                  Ausgabe,
                  FrageJaNein,
                  ClrScr;

PROCEDURE FrageJaNein(Text: ARRAY OF CHAR): BOOLEAN;
(* Druckt Text aus, erwartet eine Antwort mit J oder N und gibt einen
   Wahrheitswert zurueck *)


PROCEDURE Eingabe (Text: ARRAY OF CHAR): CARDINAL;
(* Uebernimmt Text, Druckt ihn aus, erwartet Input einer Cardinal-Zahl
   und gibt diese zurueck *)

PROCEDURE Ausgabe (Text: ARRAY OF CHAR; Zahl: CARDINAL);
(* Gibt den Text und im Anschluss daran die Zahl auf dem angewaehlten
   Medium aus *)

PROCEDURE ClrScr;
(* Erzeugt in einfacher, rechnerunabhaengiger Weise einen leeren
   Bildschirm *)

END Einfach.