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