■GETSPACE
このＧＥＴＳＰＡＣＥサブルーチンは現在のステージマップにおいて壁でない移動できるスペースを見つけます。
今回のプログラムの場合はプレイヤやエネミー（敵）をマップ上に配置するため使用しています。
このサブルーチンを呼び出したあとに変数ＸとＹに座標が代入されていますが、座標はランダムに抽出されます。
それでは順を追って説明します。
＠ＧＥＴＳＰＡＣＥ
Ｘ＝ＲＮＤ（２３）：Ｙ＝ＲＮＤ（２３）
ＧＯＳＵＢ ＠ＧＥＴＣＨＫＷ
ＩＦ Ｆ ＧＯＴＯ ＠ＧＥＴＳＰＡＣＥ
ＲＥＴＵＲＮ
まずランダムにＸおよびＹ座標を決めます。
ステージのマップの大きさは２３×２３です。
座標でいうならＸ座標およびＹ座標共に、０から２２の間です。
ＲＮＤ関数は０から引数に指定された整数値未満の値をランダムに返します。
ランダムに抽出された座標が壁であるか判定するためにＧＥＴＣＨＫＷサブルーチンを呼び出します。
このサブルーチンを呼び出した後に結果がフラグ変数Ｆに代入されるので、その変数Ｆを判断します。
ＩＦ文は条件式を記述しますが、その条件が真なのか偽なのかを判定します。
条件式がない場合にはその値が０のとき偽で０でない時真となります。
変数Ｆにはフラブ値が代入されているので、真の場合には１、そうでない場合には０が代入されています。
なのでＩＦ文で判断する場合
ＩＦ Ｆ ＴＨＥＮ ・・・
となります。
今回はもし真の場合には壁なのでもう一度ラベルＧＥＴＳＰＡＣＥに戻り、再度ランダムに座標を作り繰り返します。
もし偽の場合にはスペースが見つかったわけですからサブルーチンから戻ります。
以上でマップ上で壁でないスペースを見つけ、その座標をランダムに求めることができました。