<サブルーチン>
G;%V4O/1; CS;M;C1<>C1;;;%V40/D; RETURN;
─┬─ ─┬─ ┬┬ ┬
│ │ ││ │
│ │ ││ └─ 登録先のバインダー
│ │ │└─ 必要な列 全列
│ │ └─ 検策条件指定おわり
│ └─ 絶対にあり得ない条件を指定
└──── 検策元のバインダの1頁をメインバファーに
5〜 8行 の場合 LET V40=V06; GOSUB サブルーチン; とする。
15〜18行 の場合 LET V40=V10; GOSUB サブルーチン; とする。
なお、サブルーチンは1行なので、特別な理由がない限り、直接メインプログラムに書込んでしまった方が好いと思います。
5〜 8行 の場合 G;%V06/1; CS;M;C1<>C1;;;%V06/D;
15〜18行 の場合 G;%V10/1; CS;M;C1<>C1;;;%V10/D;
□