10 REM Last Modified 8/4/2000
40 OPEN "I",1,"C:\ETC\HSEDATA.DAT"
50 INPUT#1,R,U,C,I,F,G,P,A,D,H,Z,S,M1,M2,A1,D1,W,S1,M3,Y
60 CLOSE 1
70 PRINT "INITIALIZE VALUES FOR BEGINING OF NEW MONTH Y/N";:INPUT A$
80 IF A$="Y" GOTO 570
90 IF A$="N" GOTO 110
100 GOTO 70
110 GOSUB 3000
220 GOSUB 1090
230 PRINT USING "REMAINING INCOME: ######.##";Y;:PRINT USING"     REMAINING FREE FUNDS:######.##";B
240 PRINT
250 PRINT"ANY BILLS PAID OR EXTRA INCOME TO ENTER Y/N";:INPUT B$
260 IF B$="Y" GOTO 600
270 IF B$="N" GOTO 300
280 GOTO 250
290 PRINT
300 GOSUB 3000
420 GOSUB 1090
430 PRINT USING "REMAINING INCOME: ######.##";Y;:PRINT USING"     REMAINING FREE FUNDS: ######.##";B
440 PRINT
450 PRINT"DO WISH TO CHANGE VALUES ANY FURTHER? Y/N";:INPUT Z$
460 IF Z$="Y" GOTO 600
470 IF Z$="N" GOTO 490
480 GOTO 880
490 PRINT"TYPE P FOR HARD-COPY OR C TO CONTINUE"
500 IF INKEY$="P" GOTO 530
510 IF INKEY$="C" GOTO 540
520 GOTO 500
530 GOSUB 1110
540 OPEN "O",1,"C:\ETC\HSEDATA.DAT":PRINT#1,R,U,C,I,F,G,P,A,D,H,Z,S,M1,M2,A1,D1,W,S1,M3,Y:CLOSE 1
550 END
560 END
570 R=R+2225.00:Y=Y+2000.00
580 GOTO 110
590 END
600 PRINT"ENTER CATEGORY AND AMOUNT": :PRINT:PRINT"NOTE:VALUE IS ADDED TO INCOME, BUT SUBTRACTED FROM BILL.":PRINT
610 INPUT C$
620 INPUT A5
630 IF C$="Rent" GOTO 840
640 IF C$="Utilities" GOTO 850
650 IF C$="Car" GOTO 860
660 IF C$="Extra1" GOTO 870
670 IF C$="Food" GOTO 880
680 IF C$="Gas" GOTO 890
690 IF C$="Phone" GOTO 900
700 IF C$="Extra2"GOTO 910
710 IF C$="Savings" GOTO 920
720 IF C$="Extra4" GOTO 930
730 IF C$="Chris" GOTO 940
740 IF C$="Extra9" GOTO 950
750 IF C$="Extra6" GOTO 960
760 IF C$="Extra8" GOTO 970
770 IF C$="Extra3" GOTO 980
780 IF C$="Meadows" GOTO 990
790 IF C$="Extra5" GOTO 1000
800 IF C$ ="Extra7" GOTO 1010
810 IF C$="Credit Cards" GOTO 1020
820 IF C$="Income" GOTO 1030
830 PRINT "ILLEGAL CATEGORY---REDO":PRINT:GOTO 250
840 R=R-A5:GOSUB 1050:PRINT"REMAINING Rent:"R:GOTO 250
850 U=U-A5:GOSUB 1050:PRINT "REMAINING Utilities:"U: GOTO 250
860 C=C-A5:GOSUB 1050:PRINT "REMAINING Car Payment"C: GOTO 250
870 I=I-A5:GOSUB 1050:PRINT "REMAINING Extra1:"I: GOTO 250
880 F=F-A5:GOSUB 1050:PRINT"REMAINING Food:"F:GOTO 250
890 G=G-A5:GOSUB 1050:PRINT"REMAINING Gas:"G:GOTO 250
900 P=P-A5:GOSUB 1050:PRINT"REMAINING Phone:"P:GOTO 250
910 A=A-A5:GOSUB 1050:PRINT"REMAINING Extra2:"A:GOTO 250
920 D=D-A5:GOSUB 1050:PRINT"REMAINING Savings:"D:GOTO 250
930 H=H-A5:GOSUB 1050:PRINT"REMAINING Extra4:"H:GOTO 250
940 Z=Z-A5:GOSUB 1050:PRINT"REMAINING DUE Chris:"Z:GOTO 250
950 S=S-A5:GOSUB 1050:PRINT"REMAINING Savings:"S:GOTO 250
960 M1=M1-A5:GOSUB 1050:PRINT"REMAINING Extra6:"M1:GOTO 250
970 M2=M2-A5:GOSUB 1050:PRINT"REMAINING Extra8:"M2:GOTO 250
980 A1=A1-A5:GOSUB 1050:PRINT"REMAINING Extra3:"A1:GOTO 250
990 D1=D1-A5:GOSUB 1050:PRINT"REMAINING Meadows:"D1:GOTO 250
1000 W=W-A5:GOSUB 1050:PRINT"REMAINING Extra5:"W:GOTO 250
1010 S1=S1-A5:GOSUB 1050:PRINT"REMAINING Extra7:"S1:GOTO 250
1020 M3=M3-A5:GOSUB 1050:PRINT"REMAINING Credit Cards:"M3:GOTO 250
1030 Y=Y+A5:PRINT"REMAINING INCOME:"Y:GOTO 250
1040 END
1050 Q=SGN(A5)
1060 IF Q=-1 THEN RETURN
1070 Y=Y-A5
1080 RETURN
1090 T=R+U+C+I+F+G+P+A+D+H
1091 T=T+Z+S+M1+M2+A1+D1+W+S1+M3:B=Y-T:RETURN
1100 END
1110 LPRINT:LPRINT"PRESENT VALUES ARE:"
1120 LPRINT ,"Rent",R,"Chris",Z
1130 LPRINT ,"Credit Cards",M3,"Savings",D
1140 LPRINT ,"Meadows",D1,"Car",C
1150 LPRINT ,"Utilities",U,"Food",F
1160 LPRINT ,"Gas",G,"Phone",P
1170 LPRINT ,"Extra1",I,"Extra2",A
1180 LPRINT ,"Extra3",A1,"Extra4",H
1190 LPRINT ,"Extra5",W,"Extra6",M1
1200 LPRINT ,"Extra7",S1,"Extra8",M2
1210 LPRINT ,"Extra9",S
1220 LPRINT
1230 GOSUB 1090
1240 LPRINT USING "REMAINING INCOME: ######.##";Y;:LPRINT USING"     REMAINING FREE FUNDS: ######.##";B
1250 LPRINT
1260 LPRINT DATE$:LPRINT TIME$
1270 LPRINT CHR$(12);
1280 RETURN
3000 CLS:PRINT ,"HOME FINANCE","     DISK VERSION 1.6", "August 4, 2000":PRINT ,"****************************************************************":PRINT
3010 PRINT ,"Rent",R,"Chris",Z
3020 PRINT ,"Credit Cards",M3,"Savings",D
3030 PRINT ,"Meadows",D1,"Car",C
3040 PRINT ,"Utilities",U,"Food",F
3045 PRINT ,"Gas",G,"Phone",P
3050 PRINT ,"Extra1",I,"Extra2",A
3055 PRINT ,"Extra3",A1,"Extra4",H
3060 PRINT ,"Extra5",W,"Extra6",M1
3065 PRINT ,"Extra7",S1,"Extra8",M2
3070 PRINT ,"Extra9",S
3080 PRINT
3090 RETURN
4000 END