""(142)G)" ";x3"  ";="  ";G"  AUTO CALC: AUTOMATIC"; Q"  BILL DIVIDER ";< ["  ";m e"  "; o" "; y" "; " BY ";1 "  MI";b "CHAEL J. CREAMER "; " "; " "; " THIS PRO";& "GRAM WILL DIVIDE AND ORGANIZE  UP TO ";W "4 ROOMMATES FOR VARIOUS UTILITY BILLS;"; " INCLUDING TELEPHONE, ELECTRIC, CABLE "; "TELEVISION, AND RENT. "; "  A PR"; "INTED REPORT IS CREATED AT THE END ";L "OF THE PROGRAM. ";} "  "; " PRESS ANY KEY TO CONTINUE "; " "; #A$:A$""291 -******************************* 7- A MAIN LOOP3 KX U*******************************h _(14):""q i"" s"ROGRAM USTOMIZING" }"------- -----------" :"NTER PHONE COMPANY: ";:P1$:"NTER ONG ISTANCE O.:":P2$2:"NTER ONG ISTANCE O.:":P3$U"NTER NUMBER OF ROOMMATES: "q" (MAXIMUM OF 4)":NUMNUM1NUM4361"" I1NUM"NTER NAME OF ROOMMATE #"I":"NAME$(I)::I"""*** ELEPHONE ONTHLY HARGE ***" :<:"NTER MONTHLY CHARGE: ";C1E""i'"*** OCAL UBSCRIBER EE ***"q1:;:"NTER UBSCRIBER EE: ";C2E""O"*** ";P1$;" ONG ISTANCE ***"Y:cI1NUMmw"NTER ONG ISTANCE FOR ";NAME$(I);":"2" ==> NTER 0 TO END <==":<HOLDQC3(I)C3(I)HOLDaHOLD0691o"":651vI"""*** ";P1$;" AX-- OCAL ***"::"NTER TOTAL TAX: ";C4"""*** ";P1$;" AX-- .. ***" ::"NTER TOTAL TAX: ";C5"";"*** ";P2$;" ONG ISTANCE ***"A O I1NUM}!:"NTER ONG ISTANCE FOR ";NAME$(I)":"+" ==> NTER 0 TO END <=="5HOLD?M1(I)M1(I)HOLDIHOLD0861S"":821]:Ig"" q"*** ";P2$;" URCHARGE ***"1{::"NTER TOTAL URCHARGE:";M2:""]"*** ";P2$;" EDERAL AX ***"}::"NTER TOTAL TAX: ";M3"""*** ";P2$;" ONUS ISCOUNTS ***"::"NTER TOTAL DISCOUNT:";M4"""*** ";P3$;" ONG ISTANCE ***" I1NUMB:"NTER ONG ISTANCE FOR ";NAME$(I);":"a" ==> NTER 0 TO END <=="kHOLDA1(I)A1(I)HOLDHOLD01061"":1021%:I/""9"*** ";P3$;" AX URCHARGE ***"C:"NTER TOTAL URCHARGE:";A2M""%W"*** ";P3$;" AX-- .. ***"+aIk:"NTER TOTAL AX: ";A3Ru""v"*** ONTHLY LECTRIC SE ***":"NTER TOTAL BILL AMOUNT: ";EL"""*** ABLE ELEVISION ILL ***":"NTER TOTAL BILL AMOUNT: ";TV"""*** ONTHLY ENT ***"<:"NTER MONTHLY RENT: ";RTE""q"********** NTRY OMPLETE **********" ************************ * * * CALCULATION ROUTINE  * ************************) C & P CALCULATIONS3=NC1NUM:4551(GI1NUM4QC1(I)N;[IAe:ToNC2NUM:4551ayI1NUMmC2(I)NtIz:I1NUMLDLDC3(I)I: DETERMINING PERCENTAGE OF BILL LD0 1701I1NUMN(C3(I)LD)4551 P(I)NI:, TAX-- LOCAL9#I1NUMI-N(P(I)C4)S74551_AC4(I)NfKIlU:}_ TAX-- U.S.iI1NUMsN(P(I)C5)}4551C5(I)NI: MCI LONG DISTANCEI1NUMMDMDM1(I)I:$ DETERMINING PERCENTAGE OF BILL5 MD0 2041BI1NUMSN(M1(I)MD)]4551h P(I)NoIu:' MCI SURCHARGE1I1NUM;N(P(I)M2)E4551OM2(I)NYIc:m MCI FEDERAL TAXwI1NUMN(P(I)M3)4551M3(I)NI:9 MCI BONUS DISCOUNTSFI1NUMVN(P(I)M4)`4551lM4(I)NsIy: AT&T LONG DISTANCEI1NUM ADADA1(I)I!:+ DETERMINING PERCENTAGE5 AD0 2311?I1NUMIN(A1(I)AD)S4551]P(I)N$gI*q:>{ TAX SURCHARGEKI1NUM[N(P(I)A2)e4551qA2(I)NxI~: TAX U.S.I1NUMN(P(I)A3)4551A3(I)NI: ELECTRICITY N(ELNUM) 4551% I1NUM/ EL(I)N9 IC :5M CABLE TELEVISIONDW N(TVNUM)Na 4551[k I1NUMgu TV(I)Nn It : MONTHLY RENT N(RTNUM) 4551 I1NUM RT(I)N I : TOTALS FOR EACH ROOMMATE I1NUM@ TT(I)(C1(I)C2(I)C3(I)C4(I)C5(I)M1(I)M2(I)M3(I)A1(I)A2(I))M4(I)W SUB(I)TT(I)A3(I)z TT(I)SUB(I)EL(I)TV(I)RT(I) I : TOTAL CHARGES (ALL COMBINED)) TTC1C2LDC4C5MDM2M3M4ADA2A33 SUBTT= TTSUBELTVRTG CHECK FOR PRINTER AVAILABILITY#Q A$"",[ ""\e "****************************************"eo ""y " "  "****************************************" A$:A$""2711 :"NTER MONTH...";MO$ :::"  ."0 *********************8 *N * PRINT ROUTINEV *r *********************} 4,4,7 4,(14);" ";MO$;" BILLS" 4,(129) 4 4,(28); 4,"ILL ESCRIPTION";# 4,(16);"30";" HARGE";!- 4,(16);"42";NAME$(1);=7 4,(16);"54";NAME$(2);YA 4,(16);"66";NAME$(3);tK 4,(16);"78";NAME$(4)U 4,"--------------------------------------------------";_ 4,"----------------------------------------------";i 4:4,P1$ s 4," ONTHLY HARGE";+ } 4,(16);"30";C1;D 4,(16);"42";C1(1);] 4,(16);"54";C1(2);v 4,(16);"66";C1(3); 4,(16);"78";C1(4) : 4," INE UBSCRIBER"; 4,(16);"30";C2; 4,(16);"42";C2(1); 4,(16);"54";C2(2);! 4,(16);"66";C2(3);+! 4,(16);"78";C2(4)1! :M! 4," ONG ISTANCE";c! 4,(16);"30";LD;|! 4,(16);"42";C3(1);! 4,(16);"54";C3(2);!' 4,(16);"66";C3(3);!1 4,(16);"78";C3(4)!; :!E 4," AX-- ..";!O 4,(16);"30";C5;"Y 4,(16);"42";C5(1);-"c 4,(16);"54";C5(2);F"m 4,(16);"66";C5(3);^"w 4,(16);"78";C5(4)d" :~" 4," AX-- OCAL";" 4,(16);"30";C4;" 4,(16);"42";C4(1);" 4,(16);"54";C4(2);" 4,(16);"66";C4(3);" 4,(16);"78";C4(4)" : # 4:4,P2$# :-# 4," ONG ISTANCE";C# 4,(16);"30";MD;\# 4,(16);"42";M1(1);u# 4,(16);"54";M1(2);# 4,(16);"66";M1(3);# 4,(16);"78";M1(4)#! :#+ 4," URCHARGE";#5 4,(16);"30";M2;#? 4,(16);"42";M2(1); $I 4,(16);"54";M2(2);%$S 4,(16);"66";M2(3);=$] 4,(16);"78";M2(4)C$g :]$q 4," EDERAL AX";s${ 4,(16);"30";M3;$ 4,(16);"42";M3(1);$ 4,(16);"54";M3(2);$ 4,(16);"66";M3(3);$ 4,(16);"78";M3(4)$ :$ 4," -ISCOUNTS"; % 4,(16);"30";M4;#% 4,(16);"42";M4(1);<% 4,(16);"54";M4(2);U% 4,(16);"66";M4(3);m% 4,(16);"78";M4(4)s% :% 4:4,P3$%:%4," ONG ISTANCE";%4,(16);"30";AD;%%4,(16);"42";A1(1);%/4,(16);"54";A1(2);&94,(16);"66";A1(3);&C4,(16);"78";A1(4)"&M:>&W4," AX URCHARGE";T&a4,(16);"30";A2;m&k4,(16);"42";A2(1);&u4,(16);"54";A2(2);&4,(16);"66";A2(3);&4,(16);"78";A2(4)&:&4," AX-- ..";&4,(16);"30";A3;'4,(16);"42";A3(1);'4,(16);"54";A3(2);7'4,(16);"66";A3(3);O'4,(16);"78";A3(4)U':\'4p'4,(27);(84);'4,"ELEPHONE ";'4,(16);"30";SUB;' 4,(16);"42";SUB(1);'4,(16);"54";SUB(2);'4,(16);"66";SUB(3);()4,(16);"78";SUB(4)(34,(27);(73);"(=:)(G4/(Q:I([4,"LECTRICITY SE";_(e4,(16);"30";EL;x(o4,(16);"42";EL(1);(y4,(16);"54";EL(2);(4,(16);"66";EL(3);(4,(16);"78";EL(4)(:(4(:(4,"ABLE ELEVISION";)4,(16);"30";TV;)4,(16);"42";TV(1);8)4,(16);"54";TV(2);Q)4,(16);"66";TV(3);i)4,(16);"78";TV(4)o):v)4|):)4,"ONTHLY ENT";)4,(16);"30";RT;)#4,(16);"42";RT(1);)-4,(16);"54";RT(2);)74,(16);"66";RT(3); *A4,(16);"78";RT(4)*K:3*U4,(16);"30";"-----------";T*_4,(16);"42";"-----------";u*i4,(16);"54";"-----------";*s4,(16);"66";"-----------";*}4,(16);"78";"-----------"*::*4,(27);(84);*4,"ԠϠԠ̠";*4,(16);"30";TT;+4,(16);"42";TT(1);/+4,(16);"54";TT(2);H+4,(16);"66";TT(3);`+4,(16);"78";TT(4)t+4,(27);(73);z+:+4,(12);(24)+4+ **** PRINT ANOTHER COPY? ****+ :+""+::" RINT ANOTHER COPY? (/)",'A$:A$""4391,1A$"Y"A$""2651#,;""P,E"F YOU HAVE SUGGESTIONS FOR ADDITIONS"u,O"TO THIS PROGRAM, LET ME KNOW!"{,Y,c"END THEM TO ME ON -INK AT ",m"ICHAEL39, OR ON THE EG",w"TO ICHAEL . REAMER (#188).",x:"R TO:" -"ICHAEL REAMER"/-"2305 OUNTAIN IEW STATES"P-"LACKSBURG, 24060-2917"Z-::-" HOPE THIS PROGRAM PROVES USEFUL!"--- ****************************- *- * NUMBER FORMATTING ROUTINE- *. ****************************.K2.. 8.X(N10(K1)):X$(X)Q.!((X$,1))4XX10q.+X$(X):L(X$):LK24691.5N$"0.":LK24681.?J1(K2L):N$N$"0":.IN$N$(X$,2,L2):4701.SN$(X$,2,LK2)"."(X$,LK,K).].g/qN(N$):