Listing of file='HBUDGT.BAS;01' on disk='vmedia/chip_39-sector.ccvf'
40 POKE 33289,80:REM :***THIS PROGRAM USES A PRINTER.
50 REM :*** MONTHLY BUDGET PROGRAM BY HARLAN HOWARD.
52 REM :*** 832 SAN RAFAEL ST. SUNNYVALE CA. 94086.
54 REM :******* SUBROUTINE 2200 CHANGES ANY NUMBER INTO $XXX.XX.
56 REM :******* EACH BUDGET ENTRY IS A SEPARATE SUBROUTINE SO
58 REM :******* THAT IT MAY BE ACCESSED UNDER MANY HEADINGS,
60 REM :******* SUCH AS 'AUTO EXPENSES', ETC.
100 PLOT 12
140 PRINT :PRINT :PRINT " MONTHLY BUDGET "
150 PRINT :PLOT 15:PRINT "NOTE: (THIS PROGRAM MUST BE CORRECTED BEFORE USE. REPLACE ALL"
152 PRINT " 'XXX' WITH APPROPRIATE NAME, TERM, ETC. ALSO, DELETE"
154 PRINT " $111.00 (STARTING AT LINE 500), AND REPLACE WITH AMOUNT"
156 PRINT " OF EACH BILL. AND, ALSO USE AMOUNT OF ACTUAL INCOME"
158 PRINT " (SEE LINES 1985, 1990). THEN, REMEMBER TO DELETE"
160 PRINT " LINES 150 THRU 160.)":PLOT 14:PRINT
180 PRINT :PRINT :PRINT " THE XXX(YOU)XXX'S - MARCH 1980"
220 PRINT :PRINT :PRINT :PRINT :PRINT TAB( 15)"DO YOU WANT TO:"
260 PRINT TAB( 20)"(1)LIST TOTAL BILLS ":PRINT TAB( 20)"(2)LIST BILLS DUE THE FIRST OF MONTH "
300 INPUT " (3)BILLS FOR XXXXXXXXX ";Q
340 ON Q GOTO 380,2140,2400
380 PLOT 12:PRINT "TOTAL BILLS DUE:"
420 PRINT :PRINT "# "TAB( 8)"NAME "TAB( 25)" FOR "TAB( 45)"PMT. "TAB( 60)"BAL"
425 GOSUB 460:GOSUB 580:GOSUB 660:GOSUB 740:GOSUB 820
430 GOSUB 900:GOSUB 980:GOSUB 1060
440 GOSUB 1140:GOSUB 1220:GOSUB 1300:GOSUB 1380:GOSUB 1460
450 GOSUB 1540:GOSUB 1620:GOSUB 1700:GOSUB 1780
452 GOSUB 1842:GOSUB 1855:GOSUB 1865:GOSUB 1875:GOSUB 1885
453 GOSUB 1891:GOSUB 1897
454 GOSUB 1940
455 INPUT "";Q:GOTO 100
460 PRINT :PRINT "1"TAB( 8)"BANK"TAB( 25)"HOUSE PMT"TAB( 39)"$";
500 N= 111:H1= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
520 RETURN
540 REM
580 PRINT "2"TAB( 8)"XXXXX"TAB( 25)"XXXXXX";
620 N= 111:H2= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
640 RETURN
660 PRINT "3"TAB( 8)"XXXXXX"TAB( 25)"XXXXXX";
700 N= 111:L1= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
720 RETURN
740 PRINT "4"TAB( 8)"XXXXXX"TAB( 25)"XXXXXX";
780 N= 111:L4= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
800 RETURN
820 PRINT "5"TAB( 8)"P.G.& E."TAB( 25)"HOUSE";
860 N= 111:U1= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
880 RETURN
900 PRINT "6"TAB( 8)"XXXXX"TAB( 25)"XXXXX";
940 N= 111:L2= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
960 RETURN
980 PRINT "7"TAB( 8)"TELEPHONE"TAB( 25)"XXXXX";
1020 N= 111:B1= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1040 RETURN
1060 PRINT "8"TAB( 8)"TELEPHONE"TAB( 25)"PERSONAL";
1100 N= 111:H3= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1120 RETURN
1140 PRINT "9"TAB( 8)"S'VALE UTILL."TAB( 25)"HOUSE";
1180 N= 111:H4= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1200 RETURN
1220 PRINT "10"TAB( 8)"WATER"TAB( 25)"XXXXX";
1260 N= 111:A3= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1280 RETURN
1300 PRINT "11"TAB( 8)"XXXXX"TAB( 25)"XXXXXXXX";
1340 N= 111:D1= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1360 RETURN
1380 PRINT "12"TAB( 8)"XXXXX"TAB( 25)"XXXXXXX";
1420 N= 111:D2= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1440 RETURN
1460 PRINT "13"TAB( 8)"SEARS"TAB( 25)"MERCHANDISE";
1500 N= 111:D3= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1520 RETURN
1540 PRINT "14"TAB( 8)"XXXXX"TAB( 25)" INSURANCE";
1580 N= 111:D4= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1600 RETURN
1620 PRINT "15"TAB( 8)"XXXXX"TAB( 25)"MERCHANDISE";
1660 N= 111:D5= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1680 RETURN
1700 PRINT "16"TAB( 8)"UNION OIL"TAB( 25)"GASOLINE";
1740 N= 111:D6= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1760 RETURN
1780 PRINT "17"TAB( 8)"ARCO"TAB( 25)"GASOLINE";
1820 N= 111:D7= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1840 RETURN
1842 PRINT "18"TAB( 8)"XXXXX"TAB( 25)"XXXXXXX.";
1845 N= 111:D8= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1850 RETURN
1855 PRINT "19"TAB( 8)"XXXXX"TAB( 25)"XXXXXXX";
1860 N= 111:D9= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1862 RETURN
1865 PRINT "20"TAB( 8)"XXXXXX"TAB( 25)"XXXXXXX";
1870 N= 111:M1= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1872 RETURN
1875 PRINT "21"TAB( 8)"XXXXXXX"TAB( 25)"XXXXXXXX";
1880 N= 111:M2= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1882 RETURN
1885 PRINT "22"TAB( 8)"XXXXXX"TAB( 25)"XXXXXXXXX";
1887 N= 111:M3= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1890 RETURN
1891 PRINT "23"TAB( 8)"XXXXXXX"TAB( 25)"XXXXXXX";
1892 N= 130:M4= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1895 RETURN
1897 PRINT "24"TAB( 8)"XXXXX"TAB( 25)"XXXXXXX";
1899 N= 120:M5= N:GOSUB 2220:PRINT TAB( 40)N$;"___________"
1900 RETURN
1940 T1= U1+ B1+ H1+ H2+ H3+ H4+ L1+ L2+ A3+ L4+ D1+ D2+ D7+ D9+ M1+ M2+ M3+ M4+ M5+ D3+ D4+ D5+ D6+ D8
1980 PLOT 3,0,29: PRINT TAB( 25)"TOTAL ";
1982 N= T1:L3= N:GOSUB 2220:PRINT TAB( 40)N$
1985 W1 = 1111.11+ 2222.22+ 33.33
1990 PRINT "INCOME:XX + XXX + XXX = ";W1;
1995 PRINT TAB( 55)W1- T1
2060 RETURN
2100 GOTO 100
2140 PLOT 12:CLEAR
2180 PRINT "BILLS DUE BEFORE THE 10TH OF THE MONTH:"
2190 GOSUB 460:GOSUB 580:GOSUB 660:GOSUB 740
2195 T1= H1+ H2+ L1+ L4
2196 PLOT 3,0,30: PRINT TAB( 25)"TOTAL ";
2200 N= T1:L3= N:GOSUB 2220:PRINT TAB( 40)N$
2205 INPUT "";Q:GOTO 100
2206 REM
2207 REM
2209 REM $00.00 ALIGNMENT SUB..
2220 N = N + .004
2260 N$= LEFT$ (STR$ (SGN (N)),1)+ MID$ (STR$ (INT (ABS (N))),2)+ MID$ (STR$ ((ABS (N))- INT (ABS (N))+ 1.001),3,3)
2300 N$= RIGHT$ (" "+ N$,11):RETURN
2340 END
2342 REM
2343 REM
2344 REM
2400 PLOT 12:PRINT "BILLS FOR XXXXX:"
2410 GOSUB 660:GOSUB 900:GOSUB 1220:GOSUB 1855:GOSUB 1865:GOSUB 1897
2420 T1 = L1+ L2+ A3+ D9+ M1+ M5
2430 PLOT 3,0,30: PRINT TAB( 25)"TOTAL ";
2440 N= T1:L3= N:GOSUB 2220:PRINT TAB( 40)N$
2450 INPUT "";Q:GOTO 100