Tandy TRS-80 Owner Manual & Programming Manual page 87
Color computer disk system
Hide thumbs
Also See for TRS-80:
- Technical reference manual (204 pages) ,
- Service manual (60 pages) ,
- Owner's manual (16 pages)
Table of Contents
Advertisement
.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
»
NE
W
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
Advertisement
Table of Contents
