program hunderennen;
uses crt;

const hundesymbol='...-()~';
      bahn1=15;
      bahn2=17;

var hund1, hund2:integer;
    x:integer;

procedure start;
BEGIN
     clrscr;
     hund1:=1; hund2:=1;
     x:=15;
     gotoxy(x,2);write('+++++++++++++++++++++++++++++++');
     gotoxy(x,3);write('+ Willkommen beim Hunderennen +');
     gotoxy(x,4);write('+++++++++++++++++++++++++++++++');
     textcolor(black);
     gotoxy(hund1,bahn1);write('...',hundesymbol);
     write('....|....|....|....|....|....|....|....|....|....|....|....|1');
     gotoxy(hund2,bahn2);write('...',hundesymbol);
     write('....|....|....|....|....|....|....|....|....|....|....|....|2');
     gotoxy(5,20);
     textcolor(lightgreen+blink);
     write('Start mit ENTER  ');readln;
     textcolor(black);
     gotoxy(5,20);
     delline;
END;

procedure rennen;
          begin
               repeat
                     hund1:=hund1+random(2)+1;
                     gotoxy(hund1,bahn1);write('...',hundesymbol);
                     hund2:=hund2+random(2)+1;
                     gotoxy(hund2,bahn2);write('...',hundesymbol);
                     delay(200);
               UNTIL (hund1>65) or (hund2>65);
               readln;
               clrscr;
          end;

PROCEDURE wetten;
          BEGIN
               writeln('Wetten SIE!');writeln('Wer wird Sieger?');
               writeln;writeln('Wenn Sie auf Hund 1 wetten, tippen Sie "1"');
                       writeln('Wenn Sie auf Hund 2 wetten, tippen Sie "2"');
                       writeln('F�r unentschieden, tippen Sie "0"');

          END;

BEGIN
     randomize;
     textbackground(green);clrscr;
     textcolor(red);
     start;
     wetten;
     rennen;
end.