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.