Tandy TRS-80 - Page 87

.APPENDIX
C
450 PTOT
=PTOT
+
AMT(I)
460
NEXT
I
470 CLS
480 PRINT
a
130.
"DATE(MM/DD/YY)
:"
490 PRINT
3
162,
"PROJECTED
INCOME
FROM:"
500 PRINT
a
196,
"SALARY:"
510 PRINT
a
228,
"OTHER:"
520
PRINT
a 96
530 INPUT
"
DATE(MM/DD/YY>
:";DATE*
540
PRINT
3 162,
"PROJECTED
INCOME
FROM:"
550 INPUT
"
SALARY:
" ; SAL
560 INPUT
"
OTHER:"
; OTHER
570 BTOT
=
SAL
+
OTHER
580
CLS
600 PRINT
3 9, "CURRENT
BUDGET"
610 PRINT
"ACCT#
DESCRIPTION
BALANCE"
620 SUMBUD
=
630 FOR
1=1
TO 9
640 PRINT
USING "####7.
7.
"/.
7.####.
##-"
;
ACNO<
I ) ;
SPACE*
; DESC*
(I )
? AMT
( I
)
650 SUMBUD
=
SUMBUD
+
AMT(I)
660
NEXT
I
670 PRINT
3
86, USING
"*####.##-"
?AMT(1)
680 PRINT
3
419, USING
"7.
7.**###.##";
"REMAINING
MONEY:
" 5 BTOT
-
(SUMBUD
-
PTOT)
690 PRINT
a
451,
"ENTER
ACCT#
OF
ITEM
TO
BE"
700
INPUT
"
CHANGED
(000
TO
QUIT)"
;AN
710
IF
AN
=
THEN
790
720 CLS
730 N
=
AN
/
100
740
PRINT
a
105,ACNO(N)
750 PRINT
3
138,DESC*(N>
760
PRINT
a
170,
"*"
;AMT(N)
770
PRINT:
INPUT
»
NEW
AMOUNT"
;AMT(N)
780
GO TO
580
790 DATE
=
VAL(
LEFT*
(DATES, 2)
+
M:i.'D*(DATE*,4,2)
+
RIGHT*
(DATE*,
2) )
800
LSET
OAMT*
=
MKN*(DATE)
810
PUT
#1,
1
820 FOR
1=1
TO
9
8;<0
LSET
OAMT*
=
MKN* (
AMT (
I ) )
840 LSET
UPDAMT*
=
MKN*(AMT(I))
850
PUT
#1,1+1
860
PUT
#2,
I
8/0
NEXT
I
880 CLOSE
890
RETURN
900
'
910
'
This
subroutine
builds
a
transaction
file
called
TFILE.DAT
920
'
which
contains
anv
updates
to
the
budget,
and
updates
the
930
'
file
BUDGET.
UPD
.
940
'
950 OPEN
"D",#l,
"BUDGET/UPD-,5
960
OPEN
"D",#2,"TFILE/DAT",36
970
FIELD
#1,5
AS
UPDAMT*
980
FIELD
#2,3
AS
ACN0*,8
AS
DATE*,
20 AS
DESC*,5
AS
TAMT*
990
FOR 1=1
TO 9
1000
GET
#1,
I
1010
AMT(I)
=
CVN(UPDAMT*>
1020
NEXT
I
1030
GOSUB
1810
1040
CLS
1050
SUMBUD
=
1060
PRINT
a
9,
"CURRENT
BUDGET"
1070
PRINT
"ACCT#
DESCRIPTION
BALANCE"
1080
FOR
1=1
TO 9
1090
PRINT
USING "####7.
7.
7.####.##-"
;ACNO(I)
;
SPACES*
;
DESC*
( I )
; AMT
(
I
)
1100
SUMBUD
=
SUMBUD
+
AMT(I)
11.1.0
NEXT
I
1120
PRINT
3
86, USING
"*####.##-"
5AMT(1)
1130
PRINT
a
419,
USING
"7.
'/.
**###
.
##
"
;
»
TOTAL
BALANCE
:
"
;
SUMBUD
1140
PRINT
a
451,
"ENTER
ACCT# OF
ITEM
TO
BE
1150
INPUT
"
UPDATED
(000
TO
QUIT)";
AN
1160
IF
AN
=
THEN
1350
1170
CLS
1180
N
=
AN
/
100
1190
PRINT
a
95,
AN
1200
PRINT
DESC*(N)
1210
PRINT
USING
"7.
%
**###.##" ;»
CURRENT
BALANCE"
;
AMT
(N)"
1220
PRINT:
INPUT
"DATE
(
MM/DD/YY)
"
;DT*
1230
PRINT
"DESCRIPTION
OF
TRANSACTION:"
1240
INPUT
DS*
1250 PRINT
"AMOUNT
OF
TRANSACTION:"
1260
PRINT
"(NEGATIVE
NUMBER
FOR
A
CREDIT)"
1270
INPUT
TRANS
1280
AMT(N)
=
AMT(N)
-
TRANS
1290 LSET
ACNO*
=
RIGHT*
( STR*
( AN)
,
3)
77