APPENDIX
C.
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420
DT*
DS*
LBET DATE*
=
LSET DESC*
=
LBET TAMT*
=
MKN* < TRANS)
PUT
#2,L0F<2)+1
GOTO
1040
FOR
1=1
TO
9
LSET
UPDAMT*
=
MKN*(AMT(
PUT #1,1
NEXT I
CLOSE
RETURN
I) )
This prints o u
t
subrout i ne
a J
our-nal listing the
1430
'
budget , transact i cms, and
balances.
1440
'
1450 OPEN "D",#l, "BUDGET/0RG",5
1460 FIELD #1,5 AS AMT*
1470
OPEN "D",#2, "TFILE/DAT",36
1480 FIELD #2,3 AS TACNO*, 8 AS
TDATE*,20 AS TRDESC*,5
AS TMT*
1490 GOSUB
1810
1500 CLS
1510 PRINT 3
172,
"PRINTING"
1520
Get #1,
I
1530 DATE*
=
STR*(CVN(AMT*)
)
1540
IF LEN(DATE*) < 6 THEN DATE*
=
" "
+
DATE*
1550
DATE*
=
LEFT*
(DATE*, 2)
+
"/"
+
MID*(DATE*,3,2)
+
"
/
"
+
RIGHT* (DATE*, 2)
1560 PRINT #-2, TAB
(30)
"BUDGET FOR
THE
PERIOD"
1570 PRINT
"STARTING
1580 PRINT
1590
PRINT
1600
PRINT
OR"
#-2, TAB
(31)
"
;DATE*
#-2: PRINT
#-2
#-2
, TAB ( 28
)
" ACCOUNT
#-2, TAB (10)
"ACCOUNT" ?TAB(27) "TRANSACTION"
1610 PRINT #-2, TAB
(10)
"NUMBER"
?
TAB (14)" DATE " ? TAB ( 27
)
" DESCR I PT I ON
"
TAB
(
47
)
" TRANSACTION"
; TAB ( 61
)
"BALANCE"
1620 FOR
1=2
TO LOF(l)
1630 GET #1,
I
1640 PRINT
#-2
1650 PRINT
#-2,TAB(12)ACN0(I-l>
;
TAB (17) DATE* ; TAB ( 27 ) DESC*
(
I
- 1 )
;
TAB(61)CVN(AMT*)
1660
BAL=CVN(AMT*)
1670 FOR J=l TO L0F(2)
1680 GET #2,
J
1 690 I F ACNO (
I
- 1 ) < > VAL ( T
ACNO*
)
THEN 1730
1700 BAL=BAL
-
CVN(TMT*>
1710
IF
CVN(TMT*) <,0
THEN CR*="CR"
ELSE CR*=""
1720 PRINT
#-2,TAB(17)TDATE*?TAB(27)
TRDESC* 5 TAB (
47 ) ABS ( CVN (
TMT* ) ) ! CR*
? TAB (61 )BAL
1730 NEXT J
1740
NEXT I
1750 CLOSE
1760 RETURN
1770
'
1780
'
This
subroutine sets the
values of the account
numbers,
1790
'
ACNO(I), and account
de
s c r i Pt i o n s , DESC* (
I )
.
1800
'
FOR
1=1
TO 9
ACNO(I)
=
I
*
100
NEXT I
1810
1820
1830
1840 DESC*( 1)
1850 DESC*<2)
1860 DESC*(3)
1870
DESC*
(4)
1880
DESC*(5)
1890 DESC*(6)
1900 DESC*
(7)
1910 DESC*(8)
1920
DESC* (9)
1930 RETURN
1940
'
1950
'
This subroutine
the program.
1960
'
1970
END
"FOOD"
"RENT"
"CAR"
"UTILITIES"
"INSURANCE"
"TAXES"
"CLOTHING"
"ENTERTAINMENT"
"MISCELLANEOUS"
terminates
78
To Next Page
Loading...
