| 【プログラム】 | |
| 1. | <TEST> |
| 2. | G/S;現金出納帳/1; |
| 3. | FOR X1=1 TO BINDER("現金出納帳"); |
| 4. | G;現金出納帳/%X1; |
| 5. | FOR X2=H TO T; LET X3=X2+1; /* X2:メイン画面の行番号 */ |
| 6. | IF X2=T THEN GOTO $S;GOTO $EXE; /* X3:サブ画面の行番号 */ |
| 7. | $S次: IF X1=BINDER("現金出納帳") THEN STOP; |
| 8. | G/S;/%(X1+1);LET X3={H}; |
| 9. | $EXE: IF [X2,@日 ]={X3,@日 } THEN LET [X2,@残高 ]=""; |
| 10. | NEXT; |
| 11. | P;現金出納帳/%X1; | 12. | NEXT; |
| 13. | STOP; |
