元々の定義方法は、31行目からのように 「READ 命令で1行ずつデータを変数 DAT$ に代入し、MAP$ 配列の各要素を指定してそこに代入」 でした。 これは、一見するとFOR ループで簡略化できるように見えますが…… FOR ループを使うには、繰り返しの数(この場合は、マップの南北方向のサイズ)が事前に分かっていないといけません。 きっちりマップを作りこんでからなら、作成したマップサイズを数えればいいのですが、残念ながらマップはまだ未完成です。 というわけで、今回は回数が不明の時に使用する WHILE ～ WEND ループを使用します。 それが46行目からです。