Program post site for everyone
・そうさ
カーソルキー 移動
スペースキー めいろを変える
実行すると四角にランダムに穴があいためいろができます。
左上に人がでてくるので、その人をカーソルキーで移動させてください。
Gとかかれたところについたゴールです。（左からたっちしてください。）
もしふさがっていてゴールできない場合は、スペースキーを押してください。
・変数（迷路設定）
X：よこ Y：たて V：たて線をかくところ Z：よこ線をかくところ
A：穴のよこ B：穴のたて
・変数（迷路設定）
X：人のよこ Y：人のたて
T：時間
1 '(#8F)
5 CLT:CLS
20 FOR Y=0 TO 20:LC 0,Y:?"(#8F)"
30 NEXT
40 FOR Y=0 TO 20:LC 28,Y:?"(#8F)"
50 NEXT
60 FOR X=0 TO 28:LC X,0:?"(#8F)"
70 NEXT
80 FOR X=0 TO 28:LC X,20:?"(#8F)"
90 NEXT
100 FOR V=4 TO 28 STEP 4
110 FOR Y=1 TO 20 :LC V,Y:?"(#8F)"
120 NEXT:NEXT
130 FOR Z=4 TO 20 STEP 4
140 FOR X=1 TO 27 :LC X,Z:?"(#8F)"
150 NEXT:NEXT
160 FOR B=4 TO 16 STEP 4
170 FOR A=2 TO 27 STEP 4
180 IF RND(2)=0 LC A,B:?CHR$(0)
190 NEXT
200 NEXT
210 FOR B=4 TO 24 STEP 4
220 FOR A=2 TO 18 STEP 4
230 IF RND(2)=0 LC B,A:?CHR$(0)
240 NEXT
250 NEXT
300 LC 2,4:?CHR$(0):LC 4,2:?CHR$(0)
310 LC 26,16:?CHR$(0):LC 24,18:?CHR$(0)
350 X=1:Y=1
400 LC X,Y:?"(#F9)"
500 'BTN
505 T=TICK():LC6,22:?"タイム:";T/60;".";T/6%10
510 LC X,Y:?CHR$(0)
515 IF SCR(X+1,Y)==ASC("G") LC0,22:?"コ゛ール":END
520 IFSCR(X-1,Y)==0ANDBTN(LEFT)X=X-1
530 IFSCR(X+1,Y)==0ANDBTN(RIGHT)X=X+1
540 IFSCR(X,Y-1)==0ANDBTN(UP)Y=Y-1
550 IFSCR(X,Y+1)==0ANDBTN(DOWN)Y=Y+1
552 LC 27,1:?"G"
553 LC 27,19:?"G"
560 IF INKEY()==10 H=H+5:GOTO20
590 IF SCR(X+1,Y)==ASC("G") LC0,22:?"コ゛ール!!":END
600 LC X,Y:?"(#F9)":WAIT5:GOTO500
