home *** CD-ROM | disk | FTP | other *** search
- 21 PRINT"[147]"
- 31 PRINTCHR$(142)
- 41 PRINT"[155] ";
- 51 PRINT" [169] ";
- 61 PRINT"[155][146] ";
- 71 PRINT" [155][146] AUTO CALC: AUTOMATIC";
- 81 PRINT" [155][146] BILL DIVIDER ";
- 91 PRINT" [155][146] ";
- 101 PRINT" [155][146] ";
- 111 PRINT" [146][169][155] ";
- 121 PRINT" ";
- 131 PRINT" BY [155] ";
- 141 PRINT" MI";
- 151 PRINT"CHAEL J. CREAMER [155] ";
- 161 PRINT" ";
- 171 PRINT" ";
- 181 PRINT" THIS PRO";
- 191 PRINT"GRAM WILL DIVIDE AND ORGANIZE[155] UP TO ";
- 201 PRINT"4 ROOMMATES FOR VARIOUS UTILITY BILLS;";
- 211 PRINT" INCLUDING TELEPHONE, ELECTRIC, CABLE ";
- 221 PRINT"TELEVISION, AND RENT.[155] ";
- 231 PRINT" A PR";
- 241 PRINT"INTED REPORT IS CREATED AT THE END ";
- 251 PRINT"OF THE PROGRAM.[155] ";
- 261 PRINT" ";
- 271 PRINT" PRESS ANY KEY TO CONTINUE [155] ";
- 281 PRINT" ";
- 291 GETA$:IFA$=""THEN291
- 301 REM*******************************
- 311 REM
- 321 REM MAIN LOOP
- 331 REM
- 341 REM*******************************
- 351 PRINTCHR$(14):PRINT""
- 361 PRINT"[147]"
- 371 PRINT"[208]ROGRAM [195]USTOMIZING"
- 381 PRINT"------- -----------"
- 391 PRINT:PRINT"[197]NTER [204][207][195][193][204] PHONE COMPANY: ";:INPUTP1$
- 401 PRINT:PRINT"[197]NTER [208][210][201][205][193][210][217] [204]ONG [196]ISTANCE [195]O.:":INPUTP2$
- 411 PRINT:PRINT"[197]NTER [211][197][195][207][206][196][193][210][217] [204]ONG [196]ISTANCE [195]O.:":INPUTP3$
- 421 PRINT"[197]NTER NUMBER OF ROOMMATES: "
- 431 PRINT" (MAXIMUM OF 4)":INPUTNUM
- 441 IFNUM<1ORNUM>4THEN361
- 451 PRINT"[147]"
- 461 FOR I=1TONUM
- 471 PRINT"[197]NTER [198][201][210][211][212] NAME OF ROOMMATE #"I":"
- 481 INPUTNAME$(I)
- 491 PRINT:PRINT:NEXTI
- 501 PRINT"[147]"
- 511 PRINT"*** [212]ELEPHONE [205]ONTHLY [195]HARGE ***"
- 521 PRINT:PRINT
- 531 PRINT:INPUT"[197]NTER MONTHLY CHARGE: ";C1
- 541 PRINT"[147]"
- 551 PRINT"*** [204]OCAL [211]UBSCRIBER [198]EE ***"
- 561 PRINT:PRINT
- 571 PRINT:INPUT"[197]NTER [212][207][212][193][204] [211]UBSCRIBER [198]EE: ";C2
- 581 PRINT"[147]"
- 591 PRINT"*** ";P1$;" [204]ONG [196]ISTANCE ***"
- 601 PRINT:PRINT
- 611 FORI=1TONUM
- 621 PRINT
- 631 PRINT"[197]NTER [204]ONG [196]ISTANCE FOR ";NAME$(I);":"
- 641 PRINT" ==> [197]NTER 0 TO END <==":PRINT
- 651 INPUTHOLD
- 661 C3(I)=C3(I)+HOLD
- 671 IFHOLD=0THEN691
- 681 PRINT"[145]":GOTO651
- 691 NEXTI
- 701 PRINT"[147]"
- 711 PRINT"*** ";P1$;" [212]AX-- [204]OCAL ***"
- 721 PRINT:PRINT:INPUT"[197]NTER TOTAL TAX: ";C4
- 731 PRINT"[147]"
- 741 PRINT"*** ";P1$;" [212]AX-- [213].[211]. ***"
- 751 PRINT:PRINT:INPUT"[197]NTER TOTAL TAX: ";C5
- 761 PRINT"[147]"
- 771 PRINT"*** ";P2$;" [204]ONG [196]ISTANCE ***"
- 781 PRINT
- 791 FOR I=1TONUM
- 801 PRINT:PRINT"[197]NTER [204]ONG [196]ISTANCE FOR ";NAME$(I)":"
- 811 PRINT" ==> [197]NTER 0 TO END <=="
- 821 INPUTHOLD
- 831 M1(I)=M1(I)+HOLD
- 841 IFHOLD=0THEN861
- 851 PRINT"[145]":GOTO821
- 861 PRINT:NEXTI
- 871 PRINT"[147]"
- 881 PRINT"*** ";P2$;" [211]URCHARGE ***"
- 891 PRINT:PRINT:INPUT"[197]NTER TOTAL [211]URCHARGE:";M2
- 901 PRINT"[147]"
- 911 PRINT"*** ";P2$;" [198]EDERAL [212]AX ***"
- 921 PRINT:PRINT:INPUT"[197]NTER TOTAL TAX: ";M3
- 931 PRINT"[147]"
- 941 PRINT"*** ";P2$;" [194]ONUS [196]ISCOUNTS ***"
- 951 PRINT:PRINT:INPUT"[197]NTER TOTAL DISCOUNT:";M4
- 961 PRINT"[147]"
- 971 PRINT"*** ";P3$;" [204]ONG [196]ISTANCE ***"
- 981 PRINT
- 991 FOR I=1TONUM
- 1001 PRINT:PRINT"[197]NTER [204]ONG [196]ISTANCE FOR ";NAME$(I);":"
- 1011 PRINT" ==> [197]NTER 0 TO END <=="
- 1021 INPUTHOLD
- 1031 A1(I)=A1(I)+HOLD
- 1041 IFHOLD=0THEN1061
- 1051 PRINT"[145]":GOTO1021
- 1061 PRINT:NEXTI
- 1071 PRINT"[147]"
- 1081 PRINT"*** ";P3$;" [212]AX [211]URCHARGE ***"
- 1091 PRINT:INPUT"[197]NTER TOTAL [211]URCHARGE:";A2
- 1101 PRINT"[147]"
- 1111 PRINT"*** ";P3$;" [212]AX-- [213].[211]. ***"
- 1121 PRINT
- 1131 PRINT:INPUT"[197]NTER TOTAL [212]AX: ";A3
- 1141 PRINT"[147]"
- 1151 PRINT"*** [205]ONTHLY [197]LECTRIC [213]SE ***"
- 1161 PRINT:INPUT"[197]NTER TOTAL BILL AMOUNT: ";EL
- 1171 PRINT"[147]"
- 1181 PRINT"*** [195]ABLE [212]ELEVISION [194]ILL ***"
- 1191 PRINT:INPUT"[197]NTER TOTAL BILL AMOUNT: ";TV
- 1201 PRINT"[147]"
- 1211 PRINT"*** [205]ONTHLY [210]ENT ***"
- 1221 PRINT:INPUT"[197]NTER [212][207][212][193][204] MONTHLY RENT: ";RT
- 1231 PRINT"[147]"
- 1241 PRINT"********** [197]NTRY [195]OMPLETE **********"
- 1251 REM ************************
- 1261 REM *
- 1271 REM *
- 1281 REM * CALCULATION ROUTINE
- 1291 REM *
- 1301 REM ************************
- 1311 REM
- 1321 REM C & P CALCULATIONS
- 1331 REM
- 1341 N=C1/NUM:GOSUB4551
- 1351 FORI=1TONUM
- 1361 C1(I)=N
- 1371 NEXTI
- 1381 :
- 1391 N=C2/NUM:GOSUB4551
- 1401 FORI=1TONUM
- 1411 C2(I)=N
- 1421 NEXTI
- 1431 :
- 1441 FORI=1TONUM
- 1451 LD=LD+C3(I)
- 1461 NEXTI
- 1471 :
- 1481 REM DETERMINING PERCENTAGE OF BILL
- 1491 IF LD=0 THEN1701
- 1501 FORI=1TONUM
- 1511 N=(C3(I)/LD)
- 1521 GOSUB4551
- 1531 P(I)=N
- 1541 NEXTI
- 1551 :
- 1561 REM TAX-- LOCAL
- 1571 FORI=1TONUM
- 1581 N=(P(I)*C4)
- 1591 GOSUB4551
- 1601 C4(I)=N
- 1611 NEXTI
- 1621 :
- 1631 REM TAX-- U.S.
- 1641 FORI=1TONUM
- 1651 N=(P(I)*C5)
- 1661 GOSUB4551
- 1671 C5(I)=N
- 1681 NEXTI
- 1691 :
- 1701 REM MCI LONG DISTANCE
- 1711 FORI=1TONUM
- 1721 MD=MD+M1(I)
- 1731 NEXTI
- 1741 :
- 1751 REM DETERMINING PERCENTAGE OF BILL
- 1761 IF MD=0 THEN2041
- 1771 FORI=1TONUM
- 1781 N=(M1(I)/MD)
- 1791 GOSUB4551
- 1801 P(I)=N
- 1811 NEXTI
- 1821 :
- 1831 REM MCI SURCHARGE
- 1841 FORI=1TONUM
- 1851 N=(P(I)*M2)
- 1861 GOSUB4551
- 1871 M2(I)=N
- 1881 NEXTI
- 1891 :
- 1901 REM MCI FEDERAL TAX
- 1911 FORI=1TONUM
- 1921 N=(P(I)*M3)
- 1931 GOSUB4551
- 1941 M3(I)=N
- 1951 NEXTI
- 1961 :
- 1971 REM MCI BONUS DISCOUNTS
- 1981 FORI=1TONUM
- 1991 N=(P(I)*M4)
- 2001 GOSUB4551
- 2011 M4(I)=N
- 2021 NEXTI
- 2031 :
- 2041 REM AT&T LONG DISTANCE
- 2051 FORI=1TONUM
- 2061 AD=AD+A1(I)
- 2071 NEXTI
- 2081 :
- 2091 REM DETERMINING PERCENTAGE
- 2101 IF AD=0 THEN2311
- 2111 FORI=1TONUM
- 2121 N=(A1(I)/AD)
- 2131 GOSUB4551
- 2141 P(I)=N
- 2151 NEXTI
- 2161 :
- 2171 REM TAX SURCHARGE
- 2181 FORI=1TONUM
- 2191 N=(P(I)*A2)
- 2201 GOSUB4551
- 2211 A2(I)=N
- 2221 NEXTI
- 2231 :
- 2241 REM TAX U.S.
- 2251 FORI=1TONUM
- 2261 N=(P(I)*A3)
- 2271 GOSUB4551
- 2281 A3(I)=N
- 2291 NEXTI
- 2301 :
- 2311 REM ELECTRICITY
- 2321 N=(EL/NUM)
- 2331 GOSUB4551
- 2341 FORI=1TONUM
- 2351 EL(I)=N
- 2361 NEXTI
- 2371 :
- 2381 REM CABLE TELEVISION
- 2391 N=(TV/NUM)
- 2401 GOSUB4551
- 2411 FORI=1TONUM
- 2421 TV(I)=N
- 2431 NEXTI
- 2441 :
- 2451 REM MONTHLY RENT
- 2461 N=(RT/NUM)
- 2471 GOSUB4551
- 2481 FORI=1TONUM
- 2491 RT(I)=N
- 2501 NEXTI
- 2511 :
- 2521 REM TOTALS FOR EACH ROOMMATE
- 2531 FORI=1TONUM
- 2541 TT(I)=(C1(I)+C2(I)+C3(I)+C4(I)+C5(I)+M1(I)+M2(I)+M3(I)+A1(I)+A2(I))-M4(I)
- 2551 SUB(I)=TT(I)+A3(I)
- 2561 TT(I)=SUB(I)+EL(I)+TV(I)+RT(I)
- 2571 NEXTI
- 2581 :
- 2591 REM TOTAL CHARGES (ALL COMBINED)
- 2601 TT=C1+C2+LD+C4+C5+MD+M2+M3-M4+AD+A2+A3
- 2611 SUB=TT
- 2621 TT=SUB+EL+TV+RT
- 2631 REM CHECK FOR PRINTER AVAILABILITY
- 2641 A$=""
- 2651 PRINT"[147]"
- 2661 PRINT"****************************************"
- 2671 PRINT"[145]"
- 2681 PRINT" [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [208][210][201][206][212]"
- 2691 PRINT
- 2701 PRINT"****************************************"
- 2711 GETA$:IFA$=""THEN2711
- 2721 PRINT:INPUT"[197]NTER MONTH...";MO$
- 2731 PRINT:PRINT:PRINT:PRINT" [208][210][201][206][212][201][206][199]."
- 2741 REM *********************
- 2751 REM *
- 2761 REM * PRINT ROUTINE
- 2771 REM *
- 2781 REM *********************
- 2791 OPEN4,4,7
- 2801 PRINT#4,CHR$(14);" ";MO$;" BILLS"
- 2811 PRINT#4,CHR$(129)
- 2821 PRINT#4
- 2831 PRINT#4,CHR$(28);
- 2841 PRINT#4,"[194]ILL [196]ESCRIPTION";
- 2851 PRINT#4,CHR$(16);"30";"[212][207][212] [195]HARGE";
- 2861 PRINT#4,CHR$(16);"42";NAME$(1);
- 2871 PRINT#4,CHR$(16);"54";NAME$(2);
- 2881 PRINT#4,CHR$(16);"66";NAME$(3);
- 2891 PRINT#4,CHR$(16);"78";NAME$(4)
- 2901 PRINT#4,"--------------------------------------------------";
- 2911 PRINT#4,"----------------------------------------------";
- 2921 PRINT#4:PRINT#4,P1$
- 2931 PRINT#4," [205]ONTHLY [195]HARGE";
- 2941 PRINT#4,CHR$(16);"30";C1;
- 2951 PRINT#4,CHR$(16);"42";C1(1);
- 2961 PRINT#4,CHR$(16);"54";C1(2);
- 2971 PRINT#4,CHR$(16);"66";C1(3);
- 2981 PRINT#4,CHR$(16);"78";C1(4)
- 2991 :
- 3001 PRINT#4," [204]INE [211]UBSCRIBER";
- 3011 PRINT#4,CHR$(16);"30";C2;
- 3021 PRINT#4,CHR$(16);"42";C2(1);
- 3031 PRINT#4,CHR$(16);"54";C2(2);
- 3041 PRINT#4,CHR$(16);"66";C2(3);
- 3051 PRINT#4,CHR$(16);"78";C2(4)
- 3061 :
- 3071 PRINT#4," [204]ONG [196]ISTANCE";
- 3081 PRINT#4,CHR$(16);"30";LD;
- 3091 PRINT#4,CHR$(16);"42";C3(1);
- 3101 PRINT#4,CHR$(16);"54";C3(2);
- 3111 PRINT#4,CHR$(16);"66";C3(3);
- 3121 PRINT#4,CHR$(16);"78";C3(4)
- 3131 :
- 3141 PRINT#4," [212]AX-- [213].[211].";
- 3151 PRINT#4,CHR$(16);"30";C5;
- 3161 PRINT#4,CHR$(16);"42";C5(1);
- 3171 PRINT#4,CHR$(16);"54";C5(2);
- 3181 PRINT#4,CHR$(16);"66";C5(3);
- 3191 PRINT#4,CHR$(16);"78";C5(4)
- 3201 :
- 3211 PRINT#4," [212]AX-- [204]OCAL";
- 3221 PRINT#4,CHR$(16);"30";C4;
- 3231 PRINT#4,CHR$(16);"42";C4(1);
- 3241 PRINT#4,CHR$(16);"54";C4(2);
- 3251 PRINT#4,CHR$(16);"66";C4(3);
- 3261 PRINT#4,CHR$(16);"78";C4(4)
- 3271 :
- 3281 PRINT#4:PRINT#4,P2$
- 3291 :
- 3301 PRINT#4," [204]ONG [196]ISTANCE";
- 3311 PRINT#4,CHR$(16);"30";MD;
- 3321 PRINT#4,CHR$(16);"42";M1(1);
- 3331 PRINT#4,CHR$(16);"54";M1(2);
- 3341 PRINT#4,CHR$(16);"66";M1(3);
- 3351 PRINT#4,CHR$(16);"78";M1(4)
- 3361 :
- 3371 PRINT#4," [211]URCHARGE";
- 3381 PRINT#4,CHR$(16);"30";M2;
- 3391 PRINT#4,CHR$(16);"42";M2(1);
- 3401 PRINT#4,CHR$(16);"54";M2(2);
- 3411 PRINT#4,CHR$(16);"66";M2(3);
- 3421 PRINT#4,CHR$(16);"78";M2(4)
- 3431 :
- 3441 PRINT#4," [198]EDERAL [212]AX";
- 3451 PRINT#4,CHR$(16);"30";M3;
- 3461 PRINT#4,CHR$(16);"42";M3(1);
- 3471 PRINT#4,CHR$(16);"54";M3(2);
- 3481 PRINT#4,CHR$(16);"66";M3(3);
- 3491 PRINT#4,CHR$(16);"78";M3(4)
- 3501 :
- 3511 PRINT#4," -[196]ISCOUNTS";
- 3521 PRINT#4,CHR$(16);"30";M4;
- 3531 PRINT#4,CHR$(16);"42";M4(1);
- 3541 PRINT#4,CHR$(16);"54";M4(2);
- 3551 PRINT#4,CHR$(16);"66";M4(3);
- 3561 PRINT#4,CHR$(16);"78";M4(4)
- 3571 :
- 3581 PRINT#4:PRINT#4,P3$
- 3591 :
- 3601 PRINT#4," [204]ONG [196]ISTANCE";
- 3611 PRINT#4,CHR$(16);"30";AD;
- 3621 PRINT#4,CHR$(16);"42";A1(1);
- 3631 PRINT#4,CHR$(16);"54";A1(2);
- 3641 PRINT#4,CHR$(16);"66";A1(3);
- 3651 PRINT#4,CHR$(16);"78";A1(4)
- 3661 :
- 3671 PRINT#4," [212]AX [211]URCHARGE";
- 3681 PRINT#4,CHR$(16);"30";A2;
- 3691 PRINT#4,CHR$(16);"42";A2(1);
- 3701 PRINT#4,CHR$(16);"54";A2(2);
- 3711 PRINT#4,CHR$(16);"66";A2(3);
- 3721 PRINT#4,CHR$(16);"78";A2(4)
- 3731 :
- 3741 PRINT#4," [212]AX-- [213].[211].";
- 3751 PRINT#4,CHR$(16);"30";A3;
- 3761 PRINT#4,CHR$(16);"42";A3(1);
- 3771 PRINT#4,CHR$(16);"54";A3(2);
- 3781 PRINT#4,CHR$(16);"66";A3(3);
- 3791 PRINT#4,CHR$(16);"78";A3(4)
- 3801 :
- 3811 PRINT#4
- 3821 PRINT#4,CHR$(27);CHR$(84);
- 3831 PRINT#4,"[212]ELEPHONE [212][207][212][193][204]";
- 3841 PRINT#4,CHR$(16);"30";SUB;
- 3851 PRINT#4,CHR$(16);"42";SUB(1);
- 3861 PRINT#4,CHR$(16);"54";SUB(2);
- 3871 PRINT#4,CHR$(16);"66";SUB(3);
- 3881 PRINT#4,CHR$(16);"78";SUB(4)
- 3891 PRINT#4,CHR$(27);CHR$(73);
- 3901 :
- 3911 PRINT#4
- 3921 :
- 3931 PRINT#4,"[197]LECTRICITY [213]SE";
- 3941 PRINT#4,CHR$(16);"30";EL;
- 3951 PRINT#4,CHR$(16);"42";EL(1);
- 3961 PRINT#4,CHR$(16);"54";EL(2);
- 3971 PRINT#4,CHR$(16);"66";EL(3);
- 3981 PRINT#4,CHR$(16);"78";EL(4)
- 3991 :
- 4001 PRINT#4
- 4011 :
- 4021 PRINT#4,"[195]ABLE [212]ELEVISION";
- 4031 PRINT#4,CHR$(16);"30";TV;
- 4041 PRINT#4,CHR$(16);"42";TV(1);
- 4051 PRINT#4,CHR$(16);"54";TV(2);
- 4061 PRINT#4,CHR$(16);"66";TV(3);
- 4071 PRINT#4,CHR$(16);"78";TV(4)
- 4081 :
- 4091 PRINT#4
- 4101 :
- 4111 PRINT#4,"[205]ONTHLY [210]ENT";
- 4121 PRINT#4,CHR$(16);"30";RT;
- 4131 PRINT#4,CHR$(16);"42";RT(1);
- 4141 PRINT#4,CHR$(16);"54";RT(2);
- 4151 PRINT#4,CHR$(16);"66";RT(3);
- 4161 PRINT#4,CHR$(16);"78";RT(4)
- 4171 :
- 4181 PRINT#4,CHR$(16);"30";"-----------";
- 4191 PRINT#4,CHR$(16);"42";"-----------";
- 4201 PRINT#4,CHR$(16);"54";"-----------";
- 4211 PRINT#4,CHR$(16);"66";"-----------";
- 4221 PRINT#4,CHR$(16);"78";"-----------"
- 4231 ::
- 4241 PRINT#4,CHR$(27);CHR$(84);
- 4251 PRINT#4,"[212][160][207][160][212][160][193][160][204][160][211]";
- 4261 PRINT#4,CHR$(16);"30";TT;
- 4271 PRINT#4,CHR$(16);"42";TT(1);
- 4281 PRINT#4,CHR$(16);"54";TT(2);
- 4291 PRINT#4,CHR$(16);"66";TT(3);
- 4301 PRINT#4,CHR$(16);"78";TT(4)
- 4311 PRINT#4,CHR$(27);CHR$(73);
- 4321 :
- 4331 PRINT#4,CHR$(12);CHR$(24)
- 4341 CLOSE4
- 4351 REM **** PRINT ANOTHER COPY? ****
- 4361 :
- 4371 PRINT"[147]"
- 4381 PRINT:PRINT:PRINT" [208]RINT ANOTHER COPY? ([217]/[206])"
- 4391 GETA$:IFA$=""THEN4391
- 4401 IFA$="Y"ORA$="[217]"THEN2651
- 4411 PRINT"[147]"
- 4421 PRINT"[201]F YOU HAVE SUGGESTIONS FOR ADDITIONS"
- 4431 PRINT"TO THIS PROGRAM, LET ME KNOW!"
- 4441 PRINT
- 4451 PRINT"[211]END THEM TO ME ON [209]-[204]INK AT "
- 4461 PRINT"[205]ICHAEL[195]39, OR ON THE [203]EG"
- 4471 PRINT"TO [205]ICHAEL [202]. [195]REAMER (#188)."
- 4472 PRINT:PRINT"[207]R TO:"
- 4481 PRINT"[205]ICHAEL [195]REAMER"
- 4491 PRINT"2305 [205]OUNTAIN [214]IEW [197]STATES"
- 4501 PRINT"[194]LACKSBURG, [214][193] 24060-2917"
- 4511 PRINT:PRINT:PRINT
- 4521 PRINT"[201] HOPE THIS PROGRAM PROVES USEFUL!"
- 4531 PRINT
- 4541 END
- 4551 REM ****************************
- 4561 REM *
- 4571 REM * NUMBER FORMATTING ROUTINE
- 4581 REM *
- 4591 REM ****************************
- 4601 K=2
- 4611 REM
- 4621 REM
- 4631 X=INT(N*10^(K+1)):X$=STR$(X)
- 4641 IFVAL(RIGHT$(X$,1))>4THENX=X+10
- 4651 X$=STR$(X):L=LEN(X$):IFL>K+2THEN4691
- 4661 N$="0.":IFL=K+2THEN4681
- 4671 FORJ=1TO(K+2-L):N$=N$+"0":NEXT
- 4681 N$=N$+MID$(X$,2,L-2):GOTO4701
- 4691 N$=MID$(X$,2,L-K-2)+"."+MID$(X$,L-K,K)
- 4701 REM
- 4711 REM
- 4721 N=VAL(N$):RETURN
-