SET;S;M;1;250;3;30;;;          /*罫線用の行を確保するため設定を変更*/
      SIZE;検策結果;250;AAA/D;       /*検策結果の桁数(行数)変更、AAAへ */
      IC/P;AAA;AAA;@;3;NUM;Y;        /*ナンバーリング用の列新設*/
      FILL/P;AAA;AAA;1;A;@NUM;Y;Y;   /*NUM列全行に１を記入*/
      ACM;AAA;@執筆者;;@NUM;@NUM;;;; /*執筆者列をキー列として@NUM列繰越演算*/
      INFO/P;AAA;AAA;@;C;@NUM;Y;     /*@NUM列を参照列にする*/
    FOR X1=1 TO BINDER("AAA");
      G;AAA/%X1;
    FOR X2=H TO T;
      LET V1=[X2,@NUM];IF V1=”1” THEN GOTO $L;
    NEXT;CONTINUE;                  /*@NUM列に"1"が無ければDRLを実行しない*/
$L:   DRL;R;@1;P;%X                 /*@NUM列の"1"の行に罫線を引く《下図》*/
    NEXT;

      INFO/P;AAA;AAA;@;C;;Y;        /*参照列をディフォルトに戻す*/
      DC/P;AAA;AAA;@NUM;;Y;         /*NUM列を削除*/
      SET;S;M;3;0;;;                /*設定表の予備行を0に戻す*/
      SIZE;AAA;250;BBB/D;           /*SIZE指令でページをまとめる*/
    FOR X1=1 TO BINDER("BBB");
      G;BBB/%X1;LET V2=[H,2];IF V2=”=*-*” THEN GOTO $D;CONTINUE;
$D:   DR;H;;P;*;                   /*開始行に罫線があれば削除*/
    NEXT;
    STOP;