回答箱 No.43-2:同じような手順を共通のサブルーチンにしたい
    ◆ 質問箱 No.43  質問者: 罍 昭夫  1996年12月 179号 P.37
      ◆ 質問箱 目次へ
No.43-2 同じような手順を共通のサブルーチンにしたい 回答者:
 高橋 周助
1997年02月
181号 P.27
質問箱 No.43(1996年12月号)の回答-2
<サブルーチン>
           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;

□  


戻る