回答箱 No.81-3

◆ No.81(1998年 7月号)の回答-3

先ずワーキングバインダーGK1 GK2 GK3 GK4を作ってください。
その１ページだけを使用します。

 <BARA>
    G;BARA/1;　　　　　　　　　　　　　　/* (1)元表   :/
    DRL;V;P;GK1/1;
    G;GK1/1;SRC;P;SK2/1;　　　　　　　　/*  (2)SRCでGK2へ　*/
    CA;;;1/2;;;
    INFO;@;C;2;
    DR;@;;
    DR;H,T-5;;
    NUM;;;1;;01;;
    P;GK3/1;                            /* まずは2列目BCFだけをやります */

    G;GK2/1;
    FOR X1=3 TO C;                      /* X1←　ループで追加します */
    G;GK2/1;CA;;;1/%X1;;;
    INFO;@;C;2;
    DR;@;;
    DR;H,T-5;;
    G/F/S;GK3/1;
    CPC;2;SN;P/F/S;GK3/1;              /* (3) 順次積層してGK3へ　*/
    NEXT;                              /* X1 → */
    S;SRC;
    INFO;S;42;DRL;C;1/2;DRL;C;N;
    P;GK4/1;                           /* (4) SRCで完成です　*/
    STOP

□