new
global io, iw, gx, gy, ga, n
sub forward(d){
	gx = gx + d * sin(3.14159 / 180 * ga)
	gy = gy - d * cos(3.14159 / 180 * ga)
	iw.Line(round(gx, 0), round(gy, 0))
}
sub turn(a){
	ga = mod(ga + a, 360)
}
sub p1 {
	dim n, w, d
	gx = rnd(300)
	gy = rnd(24)
	iw.pos(gx, gy)
	iw.color = rnd(0xffffff)
	d = rnd(7)
	n = 18000
	while(n){
		forward(rnd(d +10))
		ga = rnd(360)
		n = n - 1
	}
}

DispProgram(0)
MainForm.ClientWidth = 320
MainForm.ClientHeight = 240
MainTextBox.Visible = 0

iw = Create Image
iw.Visible = 0
iw.Width = 320
iw.Height = 240

io = Create Image
io.Width = 320
io.Height = 240

n = 14
while(n){
	p1
	iw.pos(0, 0)
	iw.copy(320, 240)
	io.pos(0, 0)
	io.paste
	n = n - 1
}
beep