回答箱 No.81-2

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

  最新データ順に纏め(最高5個)、表右端から記入していきます。

1<MATOME>
2   G;DATA/1;                                       /*データ頁*/
3   FOR X2=H TO T;                                  /*コード行*/
4     CLEAR X11 & V1,40;                            /*初期化*/
5     FOR X3=C-1 TO 4 STEP-1;                       /*データ列*/
6        LET V40=[X2,X3];
7        IF LEN(V40)=0 THEN CONTINUE;               /*スペース列を除く   */
8          LET X11=X11+1;LET V%X11=V40;             /*Ｖ変数に格    */
9            IF X11=5 THEN brEAK;                       /*最高５データのカウント*/
10     NEXT;
11        IF X11=0 THEN CONTINUE;                    /*データの無い行    */
12     FILL;;%X2;4,T;Y;                                  /*データ行を空欄に  */
13     LET X3=C-1;                                   /*最終列から書込み*/
14       FOR X4=1 TO X11;LET [X2,X3]=V%X4;LET X3=X3-1;NEXT;
15   NEXT;STOP;

□