Hinweise zu MainWin IV

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]

WinPath.m2
PROCEDURE Weiter() : BOOLEAN;
   (* Implementierung der Option -q *)
   VAR
      answer: CHAR;
BEGIN
   IF continue OR skip THEN
      RETURN TRUE
   ELSE
      SetPos(lines-1, 0);
      WriteString("Weiter?"); Read(answer);
      SetPos(lines-1, 0);
      WriteString("        "); Flush;
      CASE answer OF
      | "c":   continue := TRUE; RETURN TRUE
      | "n":   RETURN FALSE
      | "s":   skip := TRUE; RETURN TRUE
      ELSE
         RETURN TRUE
      END;
   END;
END Weiter;

*Für Benutzereingaben ist die letzte Zeile ein geeignetes Feld.
 
*Nach erfolgter Eingabe ist es möglicherweise sinnvoll, Frage und Eingabe wieder zu entfernen.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 04.02.1999