Randomize:xsc=1080:ysc=720:screen 0,xsc,ysc,0,10,10:font "メイリオ",20,1:slev=0 //画面サイズ
kb = 90,88,37,38,39,40,1,2:dim k,length(kb):dim pk,length(kb) //キー
crs=30:dim crdt,crs,10:repeat crs:crdt(cnt,0)=rnd(xsc):crdt(cnt,1)=rnd(ysc):crdt(cnt,2)=1+rnd(4):crdt(cnt,3)=10+rnd(4)
gosub *rhcs1:loop:repeat:gosub*stwait:loop
*stwait
	repeat length(kb):if(k(cnt)==0){pk(cnt)=0}else{pk(cnt) += 1}:getkey k(cnt),kb(cnt):loop //兼キー入力
	redraw 1:await 15:redraw 0:playtime++:gosub *haikei:return
*haikei
	color 255,255,255:boxf
	repeat crs:color crdt(cnt,6),crdt(cnt,7),crdt(cnt,8):circle crdt(cnt,0)-crdt(cnt,5),crdt(cnt,1)-crdt(cnt,5),crdt(cnt,0)+crdt(cnt,5),crdt(cnt,1)+crdt(cnt,5),1
	if(playtime\crdt(cnt,2)==0){crdt(cnt,0)++}:if(playtime\crdt(cnt,3)==0){crdt(cnt,1)++}
	if(crdt(cnt,0)-crdt(cnt,5)>xsc){gosub *rhcs1:crdt(cnt,0)=-crdt(cnt,5)}
	if(crdt(cnt,1)-crdt(cnt,5)>ysc){gosub *rhcs1:crdt(cnt,1)=-crdt(cnt,5)}:loop:return
*rhcs1
	crdt(cnt,5)=30+rnd(70):crdt(cnt,6)=200+rnd(55):crdt(cnt,7)=200+rnd(55):crdt(cnt,8)=200+rnd(55):return