program Demo;

uses Types, QuickDraw, Events;

var

  i, col: Integer;

begin

  graphics(320);

  hideCursor;

  while true do begin

    clearScreen(black);

    for col := 1 to 15 do begin

      setSolidPenPat(col);

      for i := 0 to 31 do begin

        { Draw star }

        moveTo(random mod 320, random mod 200);

        line(0, 0);

        { Draw lines }

        moveTo(i * 10, 0);

        lineTo(0, 200 - i * 7);

        moveTo(320 - i * 10, 199);

        lineTo(319, i * 7);

      end;

      if button(0) then halt;

    end;

  end;

end.