buffer 3,,,0
	picload "hsp2ttl.jpg"
	buffer 4,,,0
	picload "kumo.jpg"
	screen 0,640,400,0
*main
	gm=5
	repeat 128
		rate=cnt*2
		gosub *draw
	loop
	repeat 128
		rate=256-(cnt*2)
		gosub *draw
	loop
	gm=6
	repeat 128
		rate=cnt*2
		gosub *draw
	loop
	repeat 128
		rate=256-(cnt*2)
		gosub *draw
	loop
	goto *main
*draw
	redraw 0
	gmode 0
	pos 0,0:gcopy 3,0,0,640,200
	pos 0,200:gcopy 3,0,0,640,200
	gmode gm,640,400,rate
	pos 0,0:gcopy 4
	redraw 1
	await 20
	return