home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 03 / einfach.def < prev    next >
Encoding:
Modula Definition  |  1987-02-03  |  881 b   |  32 lines
  1. (*
  2. Title   : Einfach (Uebungsprogramm fuer PASCAL-Magazin)
  3. LastEdit: 1.12.86.
  4. Author  : Joerg BEYER, Tuebingen
  5. System  : LOGITECH MODULA-2/86
  6. *)
  7.  
  8. DEFINITION MODULE Einfach;
  9.  
  10. EXPORT  QUALIFIED Eingabe,
  11.                   Ausgabe,
  12.                   FrageJaNein,
  13.                   ClrScr;
  14.  
  15. PROCEDURE FrageJaNein(Text: ARRAY OF CHAR): BOOLEAN;
  16. (* Druckt Text aus, erwartet eine Antwort mit J oder N und gibt einen
  17.    Wahrheitswert zurueck *)
  18.  
  19.  
  20. PROCEDURE Eingabe (Text: ARRAY OF CHAR): CARDINAL;
  21. (* Uebernimmt Text, Druckt ihn aus, erwartet Input einer Cardinal-Zahl
  22.    und gibt diese zurueck *)
  23.  
  24. PROCEDURE Ausgabe (Text: ARRAY OF CHAR; Zahl: CARDINAL);
  25. (* Gibt den Text und im Anschluss daran die Zahl auf dem angewaehlten
  26.    Medium aus *)
  27.  
  28. PROCEDURE ClrScr;
  29. (* Erzeugt in einfacher, rechnerunabhaengiger Weise einen leeren
  30.    Bildschirm *)
  31.  
  32. END Einfach.