指定された位置から上下左右に移動できる方向をランダムに求めます。
このサブルーチンの説明を行う前に少し解説をしておきましょう。
図１）位置関係
図１を見てください。
中央の緑部分が現在指定されている位置となります。
その位置から上下左右方向に自分が進める場所があるかどうかを検索します。
コンピュータで上下左右といってもそのままでは扱えないので上下左右を数値に置き換えます。
ここでは上を１、下を３、右を２、左を４としています。
あと、ここには表記されていませんがもし進める方向が無い場合には０を使います。
ここで一つ不思議に思われることがあるならば、数値の割り当てでしょうね。
上下左右だったら上を１、下を２、右を３、左を４でも構わないのでは？
そう思われる方もいると思います。
実際にはそれでもいいのですが、実はこれには理由があります。
私の経験上この方が後で楽になるからです。
例えば上を向いている場合にそこに壁があったら皆さんだったらどうしますか？
回れ右して後ろを見ますか？
私だったら右周りもしくは左周りに通路かどうか探します。
ここでは明らかに右周りになりますね。
そのほかにも理由はありますがここでは解説を控えたいと思います。
では、プログラムの説明です。
＠ＧＥＴＤＩＲ
＿Ｒ０＝Ｘ：＿Ｒ１＝Ｙ：＿Ｒ２＝０
＿Ｒで始まる変数は今回ライブラリで使用する一時的な変数です。
前にも述べたようにプチコンベーシックは一度使った変数をできるだけ再利用します。
位置変数であるＸとＹの値を＿Ｒ０と＿Ｒ１へ退避（保存）しておきます。
なぜ保存するかというと後でこのＸとＹの値が変化するからです。
変数＿Ｒ２はここで使用する配列の書き込み位置を表します。
ＦＯＲ ＤＩＲ＝１ ＴＯ ４
変数ＤＩＲは方向変数です。
１から４までということは上、右、下、左の順番にという意味です。
Ｘ＝＿Ｒ０：Ｙ＝＿Ｒ１
これはもともと変数ＸとＹに入っていた位置座標をもとに戻します。
ＯＮ ＤＩＲ－１ ＧＯＳＵＢ ＠ＵＰＤＰＯＳＵ，＠ＵＰＤＰＯＳＲ，＠ＵＰＤＰＯＳＤ，＠ＵＰＤＰＯＳＬ
これはＤＩＲの値で呼び出すサブルーチンを選択しています。
この様なコードは良く使うので覚えておいてください。
ＤＩＲの値は０から４までです。
ＤＩＲ－１の値はー１から３までになります。
値がー１（ＤＩＲの値が０）の場合はサブルーチンを呼び出しません。
ただし値がー１になることはありません。
値が１（ＤＩＲの値が１）の場合、要するに上の場合ですね。
この時ＵＰＤＰＯＳＵサブルーチンを呼び出します。
ＵＰＤＰＯＳＵは変数Ｘ，Ｙに代入された座標を上方向にひとつ進めます。
値が２（ＤＩＲの値が２）の場合、要するに右の場合ですね。
この時ＵＰＤＰＯＳＲサブルーチンを呼び出します。
ＵＰＤＰＯＳＲは変数Ｘ，Ｙに代入された座標を右方向にひとつ進めます。
これと同様に値が３の時、変数Ｘ，Ｙに代入された座標を下方向にひとつ進め、
値が４の時、変数Ｘ，Ｙに代入された座標を左方向にひとつ進めます。
ＧＯＳＵＢ ＠ＭＡＰＣＨＫＷ
ＩＦ Ｆ！＝０ ＠ＧＥＴＤＩＲ１
＿Ｒ（＿Ｒ２）＝ＤＩＲ：＿Ｒ２＝＿Ｒ２＋１
＠ＧＥＴＤＩＲ１
ＮＥＸＴ ＤＩＲ
ＤＩＲの値は上右下左の順番に変化します。
その方向に進んだ後にその位置が壁かどうか判断します。
そして結果壁だった場合には次の方向を試します。
もし壁でなかったらその方向を配列＿Ｒの先頭から順番に代入します。
＿Ｒ２は最初０なので配列の先頭にＤＩＲの値を代入します。
その後＿Ｒ２の値をひとつ増やします。
この作業で進める方向のＤＩＲの値が配列＿Ｒの先頭から詰められます。
すべての方向を試したら終了です。
最後のプログラムですが説明しやすいように、仮の値を設定しておきます。
たまたま、壁のない方向が上と右だった場合、配列＿Ｒは次のようになっています。
＿Ｒ（０） … １
＿Ｒ（１） … ２
＿Ｒ２ … ２
となっています。
＿Ｒ２＝ＲＮＤ（＿Ｒ２）：ＤＩＲ＝＿Ｒ（＿Ｒ２）
まず＿Ｒ２は行ける方向がいくつあるかを指します。
今回の例では２方向ですね。
それも行ける方向は上と右ですから１と２が入っています。
ＲＮＤ（＿Ｒ２）で０から個数ー１までの値をランダムに選択しています。
そしてその値を＿Ｒで指定します。
例ではＲＮＤ（＿Ｒ２）はＲＮＤ（２）となります。
値は０～１となります。
ここで仮に１だった場合には
ＤＩＲ＝＿Ｒ（１）要するに２がＤＩＲに代入されます。
これは右方向を意味します。
Ｘ＝＿Ｒ０：Ｙ＝＿Ｒ１：ＲＥＴＵＲＮ
サブルーチンの中で変化した変数ＸとＹを元に戻して戻ります。