Casio FP-200 - Page 68

rACCOUNT BOOK <HouuHoto AccouNrsi---------------------
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.
------------~--------·------·
72
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 "