{***************************************************************************}
{*                          Die Spielparameter                             *}
{***************************************************************************}

PROCEDURE StartAngaben;
  VAR c: char;
  BEGIN
    ClrScr;
    writeln('Willkommen zum CHIP-Special-REVERSI':50);
    writeln('-----------------------------------':50);
    writeln;
    write('Bitte waehlen Sie das Spielfeld: k)lein, m)ittel oder g)ross? ');
    REPEAT read(kbd,c); c:=upcase(c) UNTIL c IN ['K','M','G']; writeln(c);
    IF c='K' THEN Groesse:=4 ELSE IF c='M' THEN Groesse:=6 ELSE Groesse:=8;
    writeln;
    write('Und jetzt waehlen Sie das LEVEL (0..9) : ');
    REPEAT read(kbd,c) UNTIL c IN ['0'..'9']; writeln(c); writeln;
    LEVEL:=ord(c)-48;
    write('Wollen Sie ',SchwarzZeichen,' oder ',WeissZeichen,' (1/2) ? ');
    REPEAT read(kbd,c); c:=upcase(c) UNTIL c IN ['1','2']; writeln(c);
    writeln;
    CASE c OF
      '1' : BEGIN
              MenschZeichen:=SchwarzZeichen;
              ComputerZeichen:=WeissZeichen;
            END;
      '2' : BEGIN
              MenschZeichen:=WeissZeichen;
              ComputerZeichen:=SchwarzZeichen;
            END
    END;
    write('Wollen Sie beginnen (j/n) ? ');
    REPEAT read(kbd,c); c:=upcase(c) UNTIL c IN ['J','N']; writeln(c);
    writeln; IF c='J' THEN Player:=Mensch ELSE Player:=Computer
  END;