◆ No.1(1993年9月号)の回答-2
    いまさら消去
   ■ 次のようなオートで簡単にできます。注意すべきポイントは、V3の内容です。LET V3=""では消去しません。必ずLET V3="  "とすることです。             (PIPS-4G) ■

【プログラム】
1. <消去>
2. LET V30="";LET X30=BINDER(V30);LET V3=" ";
3.  FOR X1=1 TO X30;
4.    G;%V30/%X1;
5.      FOR X2=H TO T; LET X3=X2+1;
6.        LET [X2,@月日];LET V2=[X3,@月日];
7.        IF V1=V2 THEN GOTO 消去 ELSE GOTO 次;
8. $消去: LET [X2,@残高１ ]=V3;
9.  NEXT;
10.P;*;
11.NEXT;STOP;