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

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

    COMPILER:       PCQ v1.0c
    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;
  ParamStr : STRING;
  I        : SHORT;


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

BEGIN
  ParamStr := AllocString(80);              { Speicher für String belegen  }
  GetParam(1, ParamStr);                    { Ersten Parameter einlesen    }
  i:=1;
  WHILE (ParamStr^ <> Chr(0)) DO BEGIN      { Solange, bis Stringende (#0) }
    write(ParamStr,' ');
    i := Succ(i);                           { Erhöhe I um 1 mittels Succ   }
    GetParam(i, ParamStr);                  { Nächsten Paramter einlesen   }
  END;
  write("? ");

  read(Eingabe);                          { Einlesen der Eingabe }
  Eingabe := ToUpper(Eingabe);            { Eingabe in Großbuchstaben      }
  IF ( Eingabe = 'J') OR (Eingabe = 'Y') THEN exit(5);
  exit(0);
END.