{
    PROGRAMMNAME:   ASK
    VERSION:        0.2
    DATUM:          26.04.1990
    PROGRAMMZWECK:  Gibt einen Frage aus und wartet auf eine Antwort

    PROGRAMMAUTOR:  Thorsten Kuthe
                    Sonderburgerstr. 2A
                    5090 Leverkusen 1
                    FRG

    COMPILER:       PCQ v1.1c
    COMPILERAUFRUF: Make ASK.P - SYSTEM.O als Objektnamen angeben
}

PROGRAM ASK;

{ *****************  Einbinden von Include-Dateien  ***************** }

{$I "/Include/StringLib.i" }
{$I "/Include/System.i"    }

{ *****************************  Variabeln  ************************* }

VAR
  Eingabe  : CHAR;
  I        : SHORT;

{ ***************************  Hauptprogramm  *********************** }

BEGIN
  FOR i:=1 TO ParamCount DO write(ParamStr(i),' ');
  write("? ");
  readln(Eingabe);                     { Einlesen der Eingabe         }
  Eingabe := ToUpper(Eingabe);         { Eingabe in Großbuchstaben    }
  IF ( Eingabe = 'J') OR (Eingabe = 'Y') THEN exit(5);
  exit(0);
END.