ライブラリの解説を行います。
■LIB_INIT
LIB_INIT はライブラリの初期化を行います。
主にライブラリのなかで使うデータなどの初期化です。
今回はライブラリで使う配列変数 _R を定義しています。
配列は数値配列で要素数は現在最大４個あれば良いので４になっていますが、
今後もっと使用することになれば増やします。
この配列は特定のデータを扱うためにあるんでなく、
汎用的に使用する配列です。
■GETMAPDT
数値変数ＸとＹに座標を設定した後に呼び出します。
マップのデータは文字列配列 MAP$ に代入されているので、
指定位置の文字を取り出し文字列変数Ｃ＄に代入し戻ります。
文字列配列 MAP$ は横一列分のマップデータが入っているので、
変数Ｙで指定される縦の位置（Ｙ座標）が配列の要素番号になります。
MAP$(Y) ← Ｙ位置の横一列分のデータ
変数Ｘで指定される横の位置（Ｘ座標）が文字列に位置になりるので
その位置の文字を取り出すために MID$ 関数を使用します。
MID$( 目的の文字列 , 文字を取り出す位置 , 取り出す文字数 )
目的の文字列は MAP$(Y) で取り出す位置は変数Ｘに入っている１文字なので
MID$( MAP$(Y), X, 1)
となります。
この取り出した文字をＣ＄に代入して返します。
■MAPCHKW
数値変数ＸとＹに座標を設定した後に呼び出します。
指定した位置が壁であれば変数Ｆに１を
もし壁でなければ変数Ｆに０を入れて戻ります。
変数Ｆはフラグ（Flag）変数です。
変数の値の意味はフラグが立っている状態か
フラグが立っていない状態かを表しています。
フラグが立っている状態を真（true）といい
フラグが立っていない状態を偽（false）といいます。
このサブルーチンではフラグＦを１（真）の状態にしておいて
GETMAPDT を呼び出し指定された位置のマップデータをＣ＄に代入します。
その後にこのＣ＄が壁の文字なのかを判断し
もし壁の文字だった場合には RETURN 命令で戻ります。
最初にフラグ変数Ｆは１（真）になっているので
この場合指定した位置は壁だったという判定になります。
もし壁の文字で無かったらフラグ変数Ｆに０（偽）を代入して戻ります。
ここでたぶん理解のできている方は疑問に思うかもしれません。
指定された位置の文字が壁の場合にフラグ変数に１を代入して戻り、
そうでない場合にはフラグ変数に０を代入し戻れば良いんじゃないの？
答えは、それでも良いんです。
一概に言えませんが多くの数学問題の場合には、
正解は一つで間違いはいっぱいあるパターンが普通ですよね。
プログラムの場合には正解もいっぱいあります。
ただ、私がそうしなかった理由もあります。
もし上記のプログラムを記述するならば次のような感じになるでしょう。
（注意便宜上壁の文字を’壁’として扱っています）
＠ＭＡＰＣＨＫＷ
ＧＯＳＵＢ ＠ＧＥＴＭＡＰＤＴ
ＩＦ Ｃ＄＝＝”壁” ＴＨＥＮ ＠ＭＡＰＣＨＫＷ１
Ｆ＝０：ＲＥＴＵＲＮ
＠ＭＡＰＣＨＫＷ１
Ｆ＝１：ＲＥＴＵＲＮ
どうですか？
わかりますか？
このプチコンベーシックの場合ＩＦ文が貧弱なので
ＴＨＥＮの後には１命令しか書けません。
フラグ変数を１にして戻るためには２命令必要なので
ジャンプしました。
おまけに無駄にラベルまで必要になります。
だからこれを回避しました。
もうひとつサンプルとして下記のプログラムも参考にしてください。
＠ＭＡＰＣＨＫＷ
Ｆ＝０：ＧＯＳＵＢ ＠ＧＥＴＭＡＰＤＴ
ＩＦ Ｃ＄＝＝”壁” ＴＨＥＮ Ｆ＝１
ＲＥＴＵＲＮ