{ (c) 1998 CREEQ <creeq@web.de> }
program Wagen;
uses Crt, Graph;
var
  Gd, Gm  : Integer;
  x,y : integer;
begin
  Gd := VGA;
  Gm := VGAHi;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  x := 700;
  y := 320;
  randomize;
  repeat
  setcolor(black);
  Ellipse(x, y, 0, 180, 20, 20);
  Ellipse(x+100, y, 0, 180, 20, 20);
  line(x+20,y,x+80,y);
  circle(x,y,10);
  circle(x+100,y,10);
  line(x-20,y,x-20,y-20);
  line(x+120,y,x+120,y-60);
  line(x-20,y-20,x+20,y-30);
  line(x+20,y-30,x+120,y-30);
  line(x+20,y-30,x+30,y-60);
  line(x+30,y-60,x+120,y-60);
  dec(x);
  setcolor(white);
  Ellipse(x, y, 0, 180, 20, 20);
  Ellipse(x+100, y, 0, 180, 20, 20);
  line(x+20,y,x+80,y);
  circle(x,y,10);
  circle(x+100,y,10);
  line(x-20,y,x-20,y-20);
  line(x+120,y,x+120,y-60);
  line(x-20,y-20,x+20,y-30);
  line(x+20,y-30,x+120,y-30);
  line(x+20,y-30,x+30,y-60);
  line(x+30,y-60,x+120,y-60);
  if x = -121 then y := random(429);
  while y <= 100 do y := random(429);
  if x = -121 then x := 700;
  until keypressed;
  readkey;
  CloseGraph;
end.