clr
location 1,1
print "jōɈړ@kŉEɈړ@Ă镶EQ[ł"
sleep 1000

system.io.inputblock=0

i=0
point=0
by=1

main

@main
	sleep 10

	i=i+1
	if i>10 then i=0

	if i==0 then
		bx=bx+1
		flag=1
	endif

	input c

	if c=="k" then
		y=y+1
		flag=1
	endif

	if c=="j" then
		y=y-1
		flag=1
	endif

	if c=="e" then
		system.io.inputblock=1
		end
	endif

	if y<1 then
		y=1
		flag=1
	endif

	if y>70 then
		y=70
		flag=1
	endif

	if 21==bx then
		if y<=by && (y+3)>=by then
			point=point+1
		else
			point=0
		endif

		bx=0
		by=rand/143
		abs by
		by=abs
		if by<=0 then by=1
		flag=1
	endif

	if flag then
		display
		flag=0
	endif

	goto @this
_@


@display
	clr
	location bx,by
	print "$"
	location 20,y
	print "____"
	location 21,y
	print point
_@


