$年度: ACCEPT "表示の年度は？ [YYYY]",X30; IF ERR(0)=55 THEN GOTO $END; IF X30<2000 THEN GOTO $年度; G;貸与予定表/1; FILL;;A;6,T;; NUM;M;R;2;6;%(X30-1);1; P;貸与予定表/1; TAIYO1; TAIYO2; $END: STOP; G;基本台帳/1; FOR Z01=1 TO 20; FOR X02=H TO T; LET Z02=M(X02,@始期 )+M(X02,@現在 )*Z01; IF Z02<=2001+M(X02,@現在 ) THEN GOTO $現在; $改正後: LET M(X02,@%Z01 )=M(X02,@%(Z01-1) )+M(X02,@改正後 ); CONTINUE; $現在: LET [X02,@%Z01 ]="+"+NUM$(Z02); NEXT; NEXT; P;基本台帳/1; STOP; G;貸与予定表/1;G/S;基本台帳/1; LET Z11=M(2,6); FOR X01={H} TO {T}; FOR X02=1 TO 10; LET V01={X01,@%X02 }; IF V01="=+*" THEN GOTO $現在; LET [X01,@%V01 ]="●"; CONTINUE; $現在: LET V02=RIGHT$(V01,2); IF VAL(V02)