Advertisement
rACCOUNT BOOK <HouuHoto A c c o u N r s i - - - - - - - - - - - - - - - - - - - - -
M key
Increment No.
I key
Decrement No.
K key
Year, month, day--+ Code--+ Memo--+ Expense--+ Receipt--+ Total.
J
key
Reverse the sequence of the K key.
E key
Press this key before inputting new data.
N key
Return to the menu.
3. Sub-total
First, input the year, month, day and the memo. Then, input one by one by numbers
for the prompt "FROM, THRU". At the end of the input, the menu is displayed again.
4.
Total
The total of the data that has been input is calculated. At the end of the processing,
the menu is displayed again.
5. Kill
Input the number of the data which is to be killed, and the associated contents are
displayed. The prompt "DAT A Kl LL?" is displayed again for confirmation. Enter Y to
kill the data. If you do not wish to kill the data, enter anything other than Y. After
that, the menu is displayed again.
6. Save
First, the message "DISK OK?" is displayed. Enter Y when the disk is ready. For the
prompt "Fl LE NAME?", enter A. After that, the menu is displayed again.
- - - - - - - - - - - - ~ - - - - - - - - · - - - - - - ·
10
20
30 '
4-(Z)
CLS:
F'R I NT
"ACCOUNT
[mew:"
2102
Bytes
50
INPUT
"DISK Of:::";A$:CLEAF'.i::FIL_ES:
INPUT
"f-"ILE
NA
ME " ; Nt,:
OF'EN
Nt, FOF:;:
I NF'L.JT A~3 # 1
60 DIM 1)$(100,6)
70 FOR I=0
TO
6:READ 0$(~,I)
:NEXT
80 DATA NO.
,Yc~ar-.mu11th.d ...
~y,Codt:
,Mc-:>m
a
,r:::-:pF!n~;u
,Rec,~ipt
,Total
90 A::=:A+ 1
100
FOR
1=0
TO 6:INPUT #1,D$(A,Il :NEXT: IF D$(A,0)
=="*" THEN
A=A-1 ELSE
GOTO 90
l.10 CLOSE: PRINT "Number of data":
F·nINTTA8
(3); A; "A
items":FOR I=IZl TO 20(2):NEXT
120
CLS:F'RINT
"MENU"
130 PR I
NT
11
1 ) ) ) Wr i
tl!" :
F'R
I NT "2 l l l ED IT" :
F'R
I
NT
"3) l
)Sub-total":PRINT
"4))
>Tota.l":FRINT
"::i))
H::IL_L":FRIN
T "6 > > l SAVE "
Advertisement
