解答例１
＠ＭＡＰＣＨＫＴ
ＧＯＳＵＢ ＠ＧＥＴＭＡＰＤＴ
ＩＦ Ｃ＄＝”壁” ＧＯＴＯ ＠Ｌ００１
ＮＡＰＲＥＳ＝０
ＲＥＴＵＲＮ
＠Ｌ００１
ＭＡＰＲＥＳ＝１
ＲＥＴＵＲＮ
解説
最初にすでに紹介した＠ＧＥＴＭＡＰＤＴサブルーチンを
使用するものと仮定しましょう。
このサブルーチンは指定位置（Ｘ，Ｙ）のキャラクタをＣ＄に返します。
そのキャラクタが通れないキャラクタだったら＠Ｌ００１へジャンプ
そうでないときは通れるキャラクタなのでＭＡＰＲＥＳに０を入れて帰ります。
＠Ｌ００１はラベルを毎回考えているのが面倒なので重要でないラベルは
一時的な名前をつけておきます。
＠Ｌ００１以降は通れないキャラクタだったのでＭＡＰＲＥＳに１を入れて帰ります。
解答例２
＠ＭＡＰＣＨＫＴ
ＭＡＰＲＥＳ＝１
ＧＯＳＵＢ ＠ＧＥＴＭＡＰＤＴ
ＩＦ Ｃ＄＝”壁” ＴＨＥＮ ＲＥＴＵＲＮ
ＮＡＰＲＥＳ＝０
ＲＥＴＵＲＮ
解説
これは解答例１とほとんど同じですが、
サブルーチンの最初にＭＡＰＲＥＳ変数に１を代入した後で
通れないキャラクタの判定をします。
通れない場合にはＲＥＴＵＲＮで戻ればＭＡＰＲＥＳ変数には１が入っています。
最後にそうでない場合に０を代入して戻ります。
このサブルーチンは余計なラベルが減るのでプログラムが見やすくなります。