010 Randomize
input "横幅",w
if 255<w or w/2-int(w/2)=0 or w<0 then
print"255より小さい正の奇数を入力してね"
goto 010
endif
020 input "高さ",h
if 255<h or h/2-int(h/2)=0 or h<0 then
print"255より小さい正の奇数を入力してね"
goto 020
endif
dim map(256,256)

w=w-1
h=h-1
gx=w-1
gy=h-1
for a=0 to w'縁取りをする
map(a,0)=1
map(a,h)=1
next a
for a=0 to h
map(0,a)=1
map(w,a)=1
next a

for b=0 to h
	for a=0 to w'壁の中心つくる
		if int(a/2)-a/2=0 and int(b/2)-b/2=0 then
		map(a,b)=1
		endif
	next a
next b
a=2
b=2
'棒倒し開始
030 
t=int(rnd(1)*4)
if a<w then
	if t=0 and map(a-1,b)=0 then'左
		map(a-1,b)=1
		a=a+2
	endif
	
		if t=1 and map(a+1,b)=0 then'右
		map(a+1,b)=1
		a=a+2
	endif
	
		if t=2 and map(a,b+1)=0 then'下
		map(a,b+1)=1
		a=a+2
	endif
	if t=3 and map(a,b-1)=0 and b=2 then'上
		map(a,b-1)=1
		a=a+2
	else 
	goto 030
	endif
goto 030
else
	if b<h then
	b=b+2
	a=2
	goto 030 
	endif
endif

090 cls'マップを表示
for b=0 to h
	cp$=""
	for a=0 to w
	if map(a,b)=1 then
		cp$=cp$+"@@"
	else
		if gx<>a or gy<>b then
				if a=1 and b=1 then
				cp$=cp$+" S"
				else
				cp$=cp$+"  "
				endif
		else
		cp$=cp$+"G "
		endif
		endif
	next a
	print cp$
next b