Advertisement
rACCOUNT BOOK
1HousiH010 AccouNrs1-, - - - - - - - - - - - - - - - - - - - ,
440 FOR I=B TO A-1
450 FOR J=0 TO 6:D$CI,J>=D$(I+l,J):NEXT:NEXT:A=A-
l:
GOTO 120
460 CLS: FRINT "SAVE ":
INPUT "DIS~::
m<
<Y>
11
;
Y$: IF Y$
<
>"y" AND Y$< >"Y"
THEN
120
470 FILES: INPUT "FILE NAME
11
;
F'f;
480 OPEN FS FOR OUTPUT AS 11
490
FOR
I=l TO
A:FOR
J=(2) TO 6:PRINT #1,DS(I,J):NE
XT:NEXT:FOR
Ic::eJ
TO 9:FRINT :itl,"·11-":NEXT:CLOSE:GOTO 1
20
EXAMPLE
E:-:ampl e
MENU
l>>>Write
2>>>EDIT
3>>>Sub-total
4>>>Total
5>>>1<i 11
6>>>Save
Which?
Write
NEW
DATA
N0.1
END(Y)
LDEBUGI
EDIT
Year,Month,Day
830804
No. 1
DATA MAKE
N0.2
Year,Month,Day
830804
Memo
ABC
From,
Thru
(No.)
Total
Year,Month,Day
830804
Memo
DEF
DATA
KILL
NO.
SAVE
DISK OK(Y)
FILE NAME
1. If you wish
to
use a file name other than "A" as the FILE NAME, replace
the "A" in the 4-line program described in the beginning of the text with the
desired file name.
2. The code is always '99.'
3. The result of a sub-total or total operation is output to the position of the fast
data entered.
Advertisement
