	randomize
	screen 0, 480, 360
	cls 4
	UeKabe = 100
	Sukima = 200
	My = 180
	Speed  = 0.0
*DrawLoop
	
	color 0, 0, 0
	line 479, 0, 479, 359
	
	UeKabe += rnd(20) - 10
	if Uekabe < 10 : Uekabe = 10
	if Uekabe > 250 : Uekabe = 250
	color 255, 0, 0 
	line 479, 0, 479, UeKabe
	
	Sukima += rnd(29) - 14
	if Sukima < 100 : Sukima = 100
	if Sukima > 200 : Sukima = 200
	color 255, 255, 0
	line 479, UeKabe + Sukima, 479, 359
	
	stick ky, 2 or 8
	if ky & 2 : Speed -= 0.25
	if ky & 8 : Speed += 0.25
	if Speed > 3.0 : Speed = 3.0
	if Speed < -3.0 : Speed = -3.0
	My += Speed
	pget 340, My
	if ginfo_r ! 0 {
		pos 100, 100
		color 100, 100, 0
		mes "BQ[I[o["
		stop 
	}
	color 255,255,255
	pset 340, My
	
	color 255, 255
	pos 0,0
	gcopy 0, 1, 0, 479, 360
	
	wait 5
	
	goto *DrawLoop