<TAIYO>
    ACCEPT "最初の貸与始期年は昭和何年ですか？",Z8;STEP ON;
    IF ERR(0)=55 THEN GOTO $EX;G;被服貸与表/1;BIND;D;被服貸与表;Y;P;被服貸与表;
    LET Z1=TODAY;LET V2=LEFT$(NUM$(Z1),4);LET Z2=VAL(V2);
    LET Z2=Z2-1988;                 /*Z2:平成当年*/
    LET Z3=64-Z8;                   /*Z3:会社の被服等貸与した昭和年数＝列数*/
    LET Z4=Z2+10;                   /*Z4:平成当年の10年後*/
    LET Z5=5+Z3+Z4;                 /*Z5:*マーク記入後の全桁数*/
    LET Z6=Z5-15;                   /*Z6:削除対象列の最後尾列*/
     LET Z7=5+Z3+1;                  /*Z7:1(平成1年)の列番号*/
     FOR X1=1 TO BINDER("被服等貸与管理表");
       G;被服等貸与管理表/%X1;
       FOR X2=H TO T STEP 3;
         G;被服等貸与管理表/%X1;LET V1=[X2,2];CS;被服等貸与管理表/%X1;@no =%V1;;;;
         LET V8=[H,4];DRL;D;DC;1,2;;SRC;INFO;;400;IC;;2;6;;IR;S;3;;NF;S;3;5/2;
         LET [2,1]="品名";LET [2,2]="期間";LET [3,2]="(年毎)";
         LET [2,3]="貸与";LET [2,4]="始";LET [2,5]="サイズ";
         CF;1;6;ATR;P;C;1/3;WC;2;;3;3;3;4;2;3;ESC;FILL;;A;3;;
         IC;D;N;3*%Z3;ESC;NUM;;R;2;6;%Z8;;
         IC;D;N;3*%Z4;ESC;NUM;;R;2;%Z7;1;;INFO;@;R;2;
         FOR X3=H TO T;
             LET V5=[X3,2];LET X5=VAL(V5);LET V6=[X3,4];IF V6="" THEN CONTINUE;
             LET V7="@"+V6;LET V7='"'+V7+'"';LET X7=CN(%V7)
             FOR X4=X7 TO %Z5 STEP X5;
               LET [X3,X4]="*";
             NEXT;
         NEXT;
         MPU;;;@%Z2 ="*";"〇"=@貸与;E;;MPU;;;@%Z2 ="";""=@サイズ;E;;
         DC;6,%Z6;;DC;4;;DRL/C;C;1,5;C;N;R;A;ESC;IF X1=1 AND X2=4 THEN GOTO $単;
$複数:   P;被服貸与表/N;GOTO $ヘッダ;
$単:     P;被服貸与表/1;
$ヘッダ: LET X4=BINDER("被服貸与表");
         G;ヘッダー/1;S;G;被服貸与表/%X4;CPR;S1,3;1;DR;4;;
         CT;[平成%Z2年度被服等貸与表  %V8];P;*;
      NEXT;
     NEXT; WIN;R;
$EX: STOP