randomize
	L = 100
	W = 200
	MY = 180
	SC = 0
	HI = 0
	screen 0,480,360	;画面サイズ480×360
	cls 4				;背景色黒

*LOOP1
	
	color 0,0,0			;画面右端に黒線を引く
	line 479,0,479,359

	R1 = rnd(29)
	R1 = R1-14
	L  = L+R1
	if L < 10 : L=10
	if L>250 : L = 250
	color 0,255,0		;緑
	line 479,0,479,L	;上の線を引く

	R2 = rnd(29)
	R2 = R2 - 14
	W = W + R2
	color 0,255,255		
	if W<100 : W = 100
	if W>200 : W = 200
	line 479,L+W,479,359 ;下の線を引く
	

	pget 340,MY
	if ginfo_g != 0  : stop
	color 255,255,255
	pset 340,MY

	stick KY,16
	if KY=16 : DY=DY-1 : else :DY=DY+1

	MY = MY + (DY/4)



	pos 0,0				;スクロール
	gcopy 0,1,0,479,360

	SC = SC +1
	color 0,0,0
	boxf 20,0,100,16
	pos 21,0
	color 255,255,255
	mes SC


	wait 5
	
	goto *LOOP1