Tandy TRS-80 Owner Manual & Programming Manual page 88

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
T
ACNO*,
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