prog24.as :
	screen 2, 200, 200, 1
	picload "pic1.bmp"
	picx = winx  :  picy = winy

	screen 3, 200, 200, 1
	palcopy 2
	picload "pic2.bmp"

	gamenx = dispx  :  gameny = dispy
	bgscr 4, gamenx, gameny, 1
	palcopy 2
	cls 4
	repeat
		rnd x, gamenx-picx
		rnd y, gameny-picy
		pos x, y
		repeat 3
			gcopy 2, 0,0, picx,picy
			await 300
			gcopy 3, 0,0, picx,picy
			await 300
		loop
		color 0,0,0  :  boxf x,y, x+picx,y+picy
	loop

	stop