Hauptteil der Spruchauswahl

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

FortuneCookie.om
PROCEDURE DoIt;
   VAR
      file: CookieFile;
      selected: INTEGER; (* index of selected cookie *)
BEGIN
   IF ~OpenCookies(file) THEN
      Write.String("I am sorry as I am unable ");
      Write.Line("to locate any cookies!");
      RETURN
   END;
   selected := SHORT(RandomGenerators.Val(0,
      file.nofcookies-1));
   PrintCookie(file, selected);
END DoIt;

*Das Hauptprogramm wurde hier in die Prozedur DoIt verlagert, damit ein Verzicht auf globale Variablen möglich ist.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 2004, 2005 Andreas Borchert, in HTML konvertiert am 18.02.2005