{ (c) 1998 CREEQ <creeq@web.de> }
program Schnee;
uses Crt,Graph;
var
  grDriver: Integer;
  grMode: Integer;
  x,y : integer;
  i : integer;
  unten : boolean;
begin
  grdriver := CGA;
  grmode := CGAC1;
  InitGraph(grDriver, grMode,'');
  randomize;
  unten := true;
  i := 1;
  repeat
    while unten do begin x := random(getmaxx); unten := false; end;
    putpixel(x,y,getmaxcolor);
    if getpixel(x,y+1) = getmaxcolor then begin y := 1; unten := true; end;
    if y = getmaxy then begin y := 1; unten := true; end;
    putpixel(x,y-1,black);
    inc(y);
    if getpixel(i,2) = getmaxcolor then inc(i);
    if i = getmaxx then halt;
  until keypressed;
  Readkey;
  CloseGraph;
end.