(NOTE Typed submitted an ver slightl modifie fo a Osborn Compute b Jo Janules Sterlin Heights Michigan December 1984 Th enclose verbag i EXACTL a th autho documente [eve thoug th autho doe no mentio th Osborn compatibility i work fine Th apparen chang wa lin 20 fo Clea Screen]) UTILIT BIL AUDIT B Larr L Bihlmeyer A utilit bill continu t rise it' goo ide t chec the fo accuracy Here' practica progra enablin yo t verif you electric gas water an phon bills Writte fo al Commodores TI Apple IB PC PCj an Colo Computer a Atar versio i als included. [Th Atar versio i NO include i thi submissio -- Joe] "Utilit Bil Audit i versatil progra tha let yo chec you electric gas water an phon bill fo accuracy o spli th cost o thes bill amon peopl livin i you household Also i yo ar intereste i energ saving (an wh isn' thes days?) yo ca monito you dail electri an ga consumptio wit thi program. Progra wil ru o al Commodor machines TI Appl an Colo Computer On mino modification however i require i yo hav TI-99/4A Apple o Colo Computer Lin 20 contain statemen t clea th scree an curso home Substitut th appropriat comman fo you machin i thi lin (CAL CLEA fo TI HOM fo Apple CL fo th Colo Computer IB PC an PCjr). Personalizin Th Program Befor yo RU thi program i i necessar t hav thoroug understandin o ho eac bil i calculate i th program First particula bil i spli u accordin t th value (2,1,2,4 give i th DAT statement i lin 1640 Thes value ar assigne t th variabl N(X an represen th numbe o individual wh mus pa fo eac bill I it presen form th progra assume tha th electri an wate bill wil b pai b tw individuals th phon bil b four an th ga bil b on individual However it' unlikel tha thes number wil correspon t th financia arrangement i you household So b sur t substitut th appropriat value i thi lin befor yo continue O course i th bill ar pai b on individua i th house simpl replac al fou number i lin 164 wit 1,1,1,1. [Th 1' ar i th submitte progra -- Joe] Sinc th progra work o th actua cost o you utilit bill base o loca rates certai informatio abou thes rate mus b provide befor yo ca ru th program Thi informatio i REA i line 38 an 40 fro th DAT statement i line 1650-1680. Notic tha th firs thre DAT statement i thi sequenc hav nin entrie an appl t th electric gas an wate bill respectively Let' conside lin 165 a a example Th firs entr i thi lin i th nam o th utilit (ELECTRIC fo whic th rate tha follo apply Th secon entr i th uni o measuremen fo tha particula utilit (KW fo kilowat hours) Th nex entr i th minimu servic charg fo th utilit ($5.4 fo electricity) Th fourt entr i th ta rat base o th su o th servic charg an th rat charg ( percen fo electri use) Thes firs fou DAT entrie ar REA i a A$(1) B$(1) M(1) an Z(1) respectively. A thi point th number begi t ge littl confusing s rea carefully Th nex tw number ar cutof limit fo eac electri rat an ar represente i th progra b L1(1 an L2(1) Th las thre number ar th actua rate charge pe KW us fo eac leve o usag R1(1) R2(1) an R2(1 i th program Thus th progra i presentl se u s tha th rat charge fo electricit i $.049 fo th firs 35 KWH $.056 fo th nex 95 KW (i.e. 130 minu 350) an $.054 fo an usag exceedin 130 KWH. Th DAT statemen i lin 168 i easie t follow th utilit (PHONE) th minimu servic charg ($13.50) an th ta rat o th servic charg an lon distanc call ( percent). So ge ou you mos recen bill an rea of th variou rate (pe KW fo electric pe CC o hundre cubi fee fo ga an water) I th rate ar no give o bill contac th utilit compan t ge schedul o th lates rates The jus substitut you loca rate fo thos i th DAT statement i line 165 t 1680. Progra Operation Afte insertin th correc rates RU th program Yo wil the b aske whic utilit bil yo wis t check Th firs thre men choice ar electric gas an water Bill fo thes thre utilitie ar al calculate i th routin beginnin a lin 560 Let' loo a a electri bil a a example. Whe th routin a lin 56 i executed yo wil b require t INPU th presen an previou mete readings Thes value ca b rea directl fro you lates electri bill Next yo mus INPU th numbe o day i th billin period The yo wil b aske t INPU an adjustment t th bill eithe positiv (fo example connectio fees previou balances o negativ (credits). Th progra wil nex calculat th amoun o electricit consume fo th give perio (define a i lin 720) Then dependin o th valu o relativ t th tw rat limits L1(1 an L2(X (line 74 an 750) a amoun owe (T befor ta an adjustment wil b calculate (line 760 780 an 800) Next th ta o thi amoun wil b determine (T1) An finall tota electri bil -- th su o th minimu charge usag cost tax an adjustment -- wil b calculate (T3 i lin 830. Th result ar the PRINTe o th scree wit provision fo formattin th outpu t tw place pas th decimal An number i thir plac pas th decima ar simpl dropped I yo prefe rounde numbers yo coul easil modif th progra t achiev that. Th routin beginnin a lin 560 a mentioned als calculate th ga an wate bills Thes ar base o th rate REA fro th DAT statement i line 166 an 1670 Notic th set o larg numbe (precisely 99999 i lin 1660 Th rate fo ga wher liv ar th same regardles o th amoun used B usin larg number her fo th cutof limits L1(2 an L2(2) fo thi utility it' unlikel tha th actua usag wil excee thes amoun (se line 74 an 750) Thus th charg fo thi commodit wil alway b base o th firs rate o R1. Th rate fo water a REA fro th DAT statemen i lin 1670 ar base o singl cutof limi (L1(3) o 100 CCF Fo les tha this usag rat (R1(3) o $.14 pe CC i charged I wate usag exceed 100 CCF secon rat (R2(3) o $.16 i charged Again usin ver larg numbe (99999 fo th secon cutof limi (L2(3) assure tha th overal usag cos i base onl o tw rates. Analyzin Th Phon Bill Phon bill ar checke i separat routin i th progra beginnin a lin 1110 I thi routine adjustment t th bil ar initiall INPU i th sam manne a the ar wit th electric gas an wate bills Next th perso responsibl fo eac lon distanc charg i require t INPU th amoun o eac lon distanc call separat routin (line 1260-1360 allow th individua t correc an typin mistakes Finally th amoun owe b on individua i displayed. Th portio o th phon bil tha eac perso mus pa i th su o thei lon distanc tolls proportiona amoun o bot th servic charg an th billin adjustments an proportiona amoun o th ta levie o th servic an lon distanc calls Again i onl on perso i th househol foot th bills th las numbe i lin 164 shoul b 1. I additio t enablin yo t catc billin error an helpin yo t easil divid u househol bills thi progra ca hel yo monito you costs I yo ad a energy-savin devic tha i suppose t save say 1 percen o you tota electri bill tak mete readin whe i i installe an verif th saving wit late reading Yo ca als projec weekly monthly an yearl saving fo an utilit i thi manner. [En o origina author' document] Fo som reason th author' progra lin 33 wa no o th origina copy therefore inserte RE lin 33 s tha th author' origina progra lin numbers an min co-incided. Fo yo aggressiv programmers yo ma wan t includ secon ta bracke fo th Phon ta rate Her i Michigan ther i percen stat ta an percen federa tax. Good Luck & Good Billing, Joe