L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u` METHOD ";M100;"%" v> "YEAR","DEPREC","BALANCE"[ R1((RMY)100.5)100f RRR1r I,R1,R| NN1 I  "MORE DATA? (1=YES,0=NO)"; X X120 "RUN HELLO" N66 RD  I1Y. N55650; I1N66A I &I1Q 0N8~ :" DECLINING BALANCE TAX DEPRECIATION" D" PRICE $";V N" SALVAGE VALUE $";S X" NET DEPRECIATED $";D b" LIFE ";Y;" YEARS" l" LIFE ";Y;" YEARS" 6= @"YEAR","DEPREC","BALANCE"Y JR2D(YI1)((Y1)Y)o TR(R100.5)100{ ^R1R1R hBDR1 rB0410 |R1R1B RRB B0 I,R,B NN1 I 700 "METHOD IN %"; M MM1002450 X1120 R10% N66+ 1 < I1YJ N55330W I1N66] e I1m N7 " SUM OF DIGITS TAX DEPRECIATION" " PRICE $";V " SALVAGE VALUE $2;S "" NET DEPRECIATED $2;V-S ," " "TAX DEPRECIATION SCHEDULE"(?"PURCHASE PRICE";F(V\2V(V100.5)100r<"SALVAGE VALUE";yFSPS(S100.5)100ZDVSd"LIFE IN YEARS";nYx"ENTER 1 FOR SUM OF DIGITS, 2 FOR DECLINING BALANCE";X X CIPAL-INTEREST TABLE? Y/N":Q$1Q$"N"70AQ$"Y"452 :"IF YOU WISH A HEADIND FOR THIS SCHEDULE ENTER THE HEADING. IF NOT ENTER 'N'":HEAD$:HEAD$"N"HEAD$""*MENT IS NOT LARGE ENOUGH TO REDUCE THE LOAN"EAF(AIR12)MP610aKMP(MP(AF(AIR12)))rC1(AIR12)X(AFMP)1000YCX1000Y1000K730X"THE LOAN WILL REDUCE IN "X" PAYMENTS"":"WOULD YOU LIKE A PRIN8Pb"THIS SECTION CALCULATES THE NUMBER OF MONTHS REQUIRED TO PAY OFF A LOAN"zl:"ENTER THE AMOUNT OF THE LOAN":AFv:"ENTER THE RATE OF INTEREST EG .08":AIR:"ENTER THE DESIRED MONTHLY PAYMENT":MP,AF(AIR12)MPĺ"THE MONTHLY PAY ENTER ANY LETTER":Q$:70!01E5"PRINCIPAL AND INTEREST TABLE"R7:HEAD$::"THIS TABLE REDUCES $"AF1)"AT"1)AIR100;"% PER YEAR"1)"PAYABLE AT $";MP1)"PER MONTH."?N::"THE MONTHLY PAYMENT WILL NOT REDUCE THE LOAN"::410X:PJ((I100).5)100.R(AF100)1008NN1KQ(P100)100ZN3)J,Q,RiAF0ī545AF(AIR12)AFMPī510460IAF(AIR12)PAFAF0482!:"THE LAST PAYMENT IS.."JQ#0&:"TO RETURN TO INDEXINTEREST RATE EG .08":AIRA:"ENTER THE MONTHLY PAYMENT":MP[AF(AIR12)MPī590d800:"DO YOU WANT A PRINTED RECOED? Y/N":P$:P$"Y"İ560:"NO"2)"INTEREST","PRINCIPAL"7)"BALANCE"N0IAF(AIR12)PMPIAFAF@ ":"WOULD YOU LIKE A PRINCIPAL-INTERST TABLE? Y/N":Q$O ,Q$"N"70Z 1MPPAYe 3AFTAFu 6Q$"Y"452~ :8 "THIS PORTION PREPARES PRINCIPAL AND INTEREST TABLES" :"ENTER THE AMOUNT TO BE FINANCED":AF:"ENTER THE ANNUAL R OF MONTHS OF THE LOAN":NM PAYMENT=PRINCIPAL TIMES INTEREST PER MONTH DIVIDED BY 1-(1+MONTHLY INT)RAISED TO THE -NM POWER MIAIR12 C(1MI)NM PAYTAF(MI(1C)) PAY(PAY100.5)(100.5) :"THE MONTHLY PAYMENT IS ...$";PAYB2400 B3600# B41000\ ::"YOU MUST ENTER A NUMBER BETWEEN 1 AND 3"::80 :8:"CALCULATION OF MONTHLY PAYMENT" :"ENTER THE ANNUAL INTEREST RATE":AIR :"ENTER THE TOTAL AMOUNT TO BE FINANCED":TAF :"ENTER THE NUMBEHE AMOUNT OF THE MONTHLY PAYMENT":U Z"2. PREPARE PRINCIPAL INTEREST TABLES": d"3. CALCULATE THE NUMBER OF MONTHS TO PAY OFF THE DEBT." i:"TO EXIT PROGRAM ENTER 4" n:"ENTER THE NUMBER OF THE PORTION DESIRED":B xB1200 DECIMALS THAT IS 10% IS ENTERED AS .10 AND 6% IS ENTERED AS .06. INTEREST RATES ARE ANNUAL.g ::8~ "PAYMENT PROGRAM" "WRITTEN BY NELSON GOTHIE" ("MAY 1979" 2A1500 <A F:8:"THIS PROGRAM WILL..." K' P:"1. CALCULATE T  THIS PROGRAM USES A PRINTER IN SLOT #1. THERE IS PROVISION TO ENTER A HEADING FOR THE TABLES WHICH WILL BE PRINTED ON THE TABLE. IF YOUR PRINTER IS IN A DIFFERENT SLOT CHANGE SLOT # AT LINE 560.\  ALL INTEREST AMOUNTS MUST BE ENTERED AS          ATION (.XX)";AP:210FC$"6"Ą"6. EQUITY YIELD RATE (.XX)";EQ:210L R q"WANT TO START OVER ?";A$A$"Y"5.A$"N"ė8(10):(32):"ADIOS !"BT1600:TLD$(4)QD$"RUN HELLO"V ICH ITEM NUMBER ??";C$J >C$"1"Ą"1. LOAN TO VALUE RATIO (.XX)";LR:210~ \C$"2"Ą"2. PROJECTION PERIOD (YEARS)";N2:210 zC$"3"Ą"3. MORTGAGE INTEREST RATE (.XX)";MR:210 C$"4"Ą"4. MORTGAGE TERM (YEARS)";N1:210C$"5"Ą"5. % APPRECIS21EQ SFEQ(S2N21)= "" SFF PROJECT PERIOD = ";SFI ,ER1LRq 6X(LRM1)(EREQ)(LRPSF)(APSF)w @} J T:" OVERALL RATE = ";X U ^ h " ANY CHANGES ??(Y OR N)";B$ B$"N"3600 B$"Y"2100 4" WH/ DEP IS -)(.XX) :";AP M "6. EQUITY YIELD RATE (.XX) :";EQS Y j S11(MR12) M1MR(1(1S1(12N1))) " FULL TERM CONSTANT = ";M1 M2MR(1(1S1(12N2))) " PROJ PER. CONSTANT = ";M2 P(M1MR)(M2MR) "1. LOAN TO VALUE RATIO (.XX) :";LR0 n^ x"2. PROJECTION PERIOD (YEARS) :";N2d "3. MORTGAGE INTEREST RATE (.XX) :";MR "4. MORTGAGE TERM (YEARS) :";N1 "5. % APPREC. OR DEPREC." " (APP IS + MAY SPECIFY APPREC. OR DEPREC."% )+ *1 +7 ,[ -"IF YOU ARE READY TYPE 'Y'";F$k 2F$"Y"ī90| 7F$"Y"60 <::(10):"WELL, WHAT THE HELL DID YOU WANT TO DO?" = >W11500:W::10 A F K P Z [ \* d BY JERRY L. COOPER, SRA4 231 S. TERRACEL WICHITA, KS 67218RX " THIS PROGRAM WILL CALCULATE":" 'R' AN OVERALL CAPITALIZATION RATE ":" MORTGAGE EQUITY PREMISE"# (" YOU    " * * * * * * OVERALL CAPITALIZATION RATE = ";X" * * * * * *"" -------------"0:(10):(32):"ADIOS !" T1600:TD$(4)D$"RUN HELLO"EC. OR DEPREC. : ";AP(1)" % ";CH$0jAnEQ(1)EQ100vo"6. EQUITY YIELD RATE : ";EQ(1)" %"|ty~" FULL TERM CONSTANT = ";M1" PROJ PER. CONSTANT = ";M2" SFF PROJECT PERIOD = ";SFD : ";LR(1)" %"BPG"2. PROJECTION PERIOD : ";N2" YEARS"VLgPMR(1)MR100Q"3. MORTGAGE INTEREST RATE : ";MR(1);" %"V["4. MORTGAGE TERM : ";N1" YEARS"`cAP(1)AP100*e"5. % APPRR ?";A$A$"Y"5! H$" WANT A HARD COPY ? (Y/N) : ";P$Y)P$"N"5640d.:1:j/p0v18" * * * * * OVERALL CALITALIZATION RATE - MORTGAGE EQUITY PREMISE * * * * *"9<LR(1)LR100="1. LOAN TO VALUE RATIO IOD (YEARS)";N2:210KzC$"3"Ą"3. MORTGAGE INTEREST RATE (.XX)";MR:210{C$"4"Ą"4. MORTGAGE TERM (YEARS)";N1:210C$"5"Ą"5. % APPRECIATION (.XX)";AP:210C$"6"Ą"6. EQUITY YIELD RATE (.XX)";EQ:210  "WANT TO START OVE CH$"NO CHANGE PROJECTED"' 1500> CH$"APPRECIATION"H 1500j " ANY CHANGES ??(Y OR N)";B${ B$"N"3600 B$"Y"2100 4" WHICH ITEM NUMBER ??";C$ >C$"1"Ą"1. LOAN TO VALUE RATIO (.XX)";LR:210\C$"2"Ą"2. PROJECTION PEREQ SFEQ(S2N21)8 "" SFF PROJECT PERIOD = ";SFD ,ER1LRl 6X(LRM1)(EREQ)(LRPSF)(APSF)r @x J T:" OVERALL RATE = ";X U ^ h rAP.01400 wAP0420 |AP.01440 CH$"DEPRECIATION" 1500 IS -)(.XX) :";AP H "6. EQUITY YIELD RATE (.XX) :";EQN T e S11(MR12) M1MR(1(1S1(12N1))) " FULL TERM CONSTANT = ";M1 M2MR(1(1S1(12N2))) " PROJ PER. CONSTANT = ";M2 P(M1MR)(M2MR) S21 LOAN TO VALUE RATIO (.XX) :";LR+ nY x"2. PROJECTION PERIOD (YEARS) :";N2_ "3. MORTGAGE INTEREST RATE (.XX) :";MR "4. MORTGAGE TERM (YEARS) :";N1 "5. % APPREC. OR DEPREC." " (APP IS + / DEPPECIFY APPREC. OR DEPREC." )& *, +2 ,V -"IF YOU ARE READY TYPE 'Y'";F$f 2F$"Y"ī90w 7F$"Y"60 <::(10):"WELL, WHAT THE HELL DID YOU WANT TO DO?" = >W11500:W::10 A F K P Z [ \% d"1.  BY JERRY L. COOPER/ 231 S. TERRACEG WICHITA, KS 67218MS} " THIS PROGRAM WILL CALCULATE":" 'R' AN OVERALL CAPITALIZATION RATE ":" MORTGAGE EQUITY PREMISE"# (" YOU MAY S     0~'V$V$V1$"."((V),2,2)3'NF1V$"-"V$?'L(V$)M'(35L2)S'!" T1600:T D$(4)1 D$"RUN HELLO"7 pY ' *****DOLLAR FORMATER*******_ 'o $'V1$"":NF0 .'V0V(V):NF1 8'V1(V):V$(V1) B'V((VV1)1.001)100 L'L(V$) V'L410110 `'V1$","(V$,3)V1$ j'V$(V$,L3)t'1006(SP(1I)CX) VNPV# F10000I x::" NET PRESENT VALUE = $ ";V$y " -------------"::: 0 :  ::" PRESS 'ESC' TO EXIT, ANY OTHER" :" KEY TO START OVER" W$:W$(27)50 :(10):(32):"ADIOS L INCOME INCREASE = ";(AI100)" %". AI1AI; CX1NCF VC(1)Q R10000t :" CASH FLOW # "CX" = $ ";V$ NPVCF(C(1)(1I)CX) CFNPV C(1)C(1)AI L ~VSP:10000 :" PROJECTED SALE PRICE WAS $ ";V$ CFNPV NPVCFINCREASE (.00) : ";AI@ :" ENTER PROJECTED SALE PRICE $ ";SPT VC(1):10000[ 1 ::" NET PRESENT VALUE - CONSTANTLY INCREASING INCOME" :::" INVESTMENT COST WAS $ ";V$ :" DISCOUNT RATE = "(I100)" %"" :" ANNUAVE NUMBER: ";:C ,:? ^:" ENTER DISCOUNT RATE (.00) ";Ij ::::" ENTER NUMBER OF SUBSEQUENT" :" CASH FLOWS, EXCLUDING RESALE : ";NC CFC &:" CASH FLOW # 0 = ";C X:" ENTER INITIAL CASH FLOW $ ";C(1) :" ENTER ANNUAL % V217::" NET PRESENT VALUE"d<:" INCOME INCREASING AT CONSTANT ANNUAL %":A"* * * * * * * * * * * * * * * * * * * *"::d" ENTER COST OF INVESTMENT,":" WHICH IS CASH FLOW # 0 " :" ENTER AS A NEGATIV1$","(V$,3)V1$$j'V$(V$,L3)/t'10060M~'V$V$V1$"."((V),2,2)a'NF1V$"-"V$m'L(V$){'(35L2)'" W$:W$(27)500 :(10):(32):"ADIOS !"@ T1600:TL D$(4)_ D$"RUN HELLO"e p ' *****DOLLAR FORMATER******* ' $'V1$"":NF0 .'V0V(V):NF1 8'V1(V):V$(V1) B'V((VV1)1.001)100 L'L(V$) V'L410110`'0000- :" PROJECTED SALE PRICE WAS $ ";V$8 CFNPVQ NPVCF(SP(1I)CX)[ VNPVf F10000 x::" NET PRESENT VALUE = $ ";V$ " -------------"  ::" PRESS 'ESC' TO EXIT, ANY OTHER" :" KEY TO START OVER" " ANNUAL INCOME INCREASE = ";(AI100)" %"5 AI1AIB CX1NCM VC(1)X R10000{ :" CASH FLOW # "CX" = $ ";V$ NPVCF(C(1)(1I)CX) CFNPV C(1)C(1)AI $CX6(CX6)1100 .:"ANY KEY TO CONTINUE":GA$ LCX ~VSP:1# 0 = ";C3 X:" ENTER INITIAL CASH FLOW $ ";C(1)a :" ENTER ANNUAL % INCREASE (.00) : ";AI :" ENTER PROJECTED SALE PRICE $ ";SP VC(1):10000 :::" INVESTMENT COST WAS $ ";V$ :" DISCOUNT RATE = "(I100)" %") :ENT,") :" WHICH IS CASH FLOW # 0 "/ \ :" ENTER AS A NEGATIVE NUMBER: ";:Cd ,: ^:" ENTER DISCOUNT RATE (.00) ";I ::::" ENTER NUMBER OF SUBSEQUENT" :" CASH FLOWS, EXCLUDING RESALE : ";NC CFC &:" CASH FLOW ( BY JERRY L. COOPER/) 231 S. TERRACEG* WICHITA, KS 67218M+S2}7::" NET PRESENT VALUE"<:" INCOME INCREASING AT CONSTANT ANNUAL %":A"* * * * * * * * * * * * * * * * * * * *":: d" ENTER COST OF INVESTM     )'NF1V$"-"V$!'L(V$)/'(35L2)5'L2)E'L D$"RUN HELLO" p; ' *****DOLLAR FORMATER*******A 'Q $'V1$"":NF0f .'V0V(V):NF1{ 8'V1(V):V$(V1) B'V((VV1)1.001)100 L'L(V$) V'L410110 `'V1$","(V$,3)V1$ j'V$(V$,L3) t'10060~'V$V$V1$"."((V),2,2)CX) VNPV F10000@ x::" NET PRESENT VALUE = $ ";V$j " -------------"  ::" PRESS 'ESC' TO EXIT, ANY OTHER" :" KEY TO START OVER" W$:W$(27)50 :(10):(32):"ADIOS !" T1600:T D$(4)) R10000/ :" CASH FLOW # "CX" = $ ";V$J NPVCF(C(1)(1I)CX)U CFNPVf C(1)C(1)AI~ $CX6(CX6)1100 .:"ANY KEY TO CONTINUE":GA$ LCX ~VSP:10000 :" PROJECTED SALE PRICE WAS $ ";V$ CFNPV NPVCF(SP(1IINCREASE (.00) : ";AI@ :" ENTER PROJECTED SALE PRICE $ ";SPT VC(1):10000| :::" INVESTMENT COST WAS $ ";V$ :" DISCOUNT RATE = "(I100)" %" :" ANNUAL INCOME INCREASE = ";(AI100)" %" AI1AI CX1NC VC(1VE NUMBER: ";:C ,:? ^:" ENTER DISCOUNT RATE (.00) ";Ij ::::" ENTER NUMBER OF SUBSEQUENT" :" CASH FLOWS, EXCLUDING RESALE : ";NC CFC &:" CASH FLOW # 0 = ";C X:" ENTER INITIAL CASH FLOW $ ";C(1) :" ENTER ANNUAL % 8217::" NET PRESENT VALUE"d<:" INCOME INCREASING AT CONSTANT ANNUAL %":A"* * * * * * * * * * * * * * * * * * * *"::d" ENTER COST OF INVESTMENT,":" WHICH IS CASH FLOW # 0 " :" ENTER AS A NEGATICN,NV&8'" VERIFY ?? (Y OR N) ";VF$?B'(VF$,1)"Y"10010LL'C(CN)NVWV'10010CST TWO PASSES ON THE SCREEN"I^:" YOU DO THE FINAL INTERPOLATION !!!"Vh::600h' * EDITING *'"DO YOU WANT TO CHANGE ANY OF THESE (Y/N)";ED$$'(ED$,1)"Y"ĺ:.'"ENTER AS CASHFLOW# ',' NEW VALUE";:0.5)100f:" NPV = ";NPV?g" IRR = ";I20)"PASS # ";NLGpCCYzXXNPV7000hXX0:8000x::" INTERNAL RATE OF RETURN = ";I::600@::" THAT WAS A TOUGH ONE !!!"J:" INTERNAL RATE OF RETURN IS BETWEEN"T:" THE LA15:7200II.0001:72000II.0001:7200EII.00001:7200ZII.00001:7200pII.000001:7200 II.000001:7200 : START BACK THRU DISCOUNTING*CFC4CX1NC>NPVCF(C(CX)(1I)CX)HCFNPVRCX \NPV(NPV10bNPV307100%lNPV3071107qNPV157150JrNPV157160[vNPV57170m{NPV57180~NPV17800NPV17800II.001:7200II.001:7200II.0002:7200II.0002:7200II.00015:7200II.000(4)D$"RUN HELLO"p=W * * I.R.R ROUTINE * * YX * * I.R.R ROUTINE * *tYXXNPV:CC12:NLNL1ZNPV30007046[NPV30007045\NPV30007046]NPV5007050^NPV5007060_NPV2007070`NPV2007080YTHING ELSE ? ";C$#C$"Y"2040)m :" PRESS 'Y' TO RUN AGAIN , ANY OTHER KEY TO END ";EN$ EN$"Y"5000$ CFC:400:(10):(32):"ADIOS !"::"DO YOU WANT TO GOTO THE MENU ";GM$:(GM$,1)"Y"5020D$$)pB2220,2240,2260,2040@:" ENTER NEW CASH FLOW # 0 "l:" REMEMBER THAT IT IS NEGATIVE $ ";Cx:2280::" ENTER NEW DISCOUNT RATE (.00) ";I2280::" ENTER NEW RESALE PRICE $ ";C(CX)2280:" WANT TO CHANGE AN"2320( :" WHICH WOULD YOU LIKE ? "G " YOU CAN CHANGE ALL 3 !"j ::" CASH FLOW # 0 = 1 " 4:" DISCOUNT RATE = 2 " H:" RESALE PRICE = 3 " \:" WHICH ? ";B$ aB$"1"2140 fB$"3"2140kB(Bz #X±   ֠ŠŠҠ֠ŠŠҠ̠ŠĠ ̠ŠΠ ԠŠ ؠΠŠ ŠȠΠ  Ҡ Ү֠ ӠȠ!ԠԠŠ"ԠԠŠҠ֠ŠŠ Ю֠ĠԠӠ  ĠȠӠĠȠӠĠ  ŠǠŠȠĠ  ŠȠŠĠ̠Ϡ ̠Ϯà!Šؠ1ΠŠĠ ΠŠΠ  ˮ֠ ˮƠ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp5100H12);"$";D(18)R5140\2180f"************ BALANCE DUE IRS ************"p::z16);"OWED $";D(18))vD(17)D(16)D(12)'::H$::P"------------ PAYMENTS -----------"X:"TOTAL FEDERAL INCOME TAX WITHHELD";D$5080D(13)::H$::"OTHER PAYMENTS";D$5080D(14)D(15)D(14)D(13) D(18)D(15)D(:: "ADDITIONAL TAXES?";D$*50804D(9)D::H$::XD(10)D(9)D(8)&"CREDITS (RESIDENTIAL ENERGY, POLITICAL CONTRIBUTIONS, ETC."05080::D(11)DD(16)D(10)D(11)N::H$::X"OTHER TAXES";D$b5080lD(12M4);"* *"125);"$";D(7)PM4);"* *"oM4);"******************"PAUSE11500:PAUSE::H$::"FIND YOUR TAX FROM TAX TABLE AND ENTER THAT AMOUNT HERE.":5080D(8)::H$U DO NOT ITEMIZE DEDUCTIONS, ENTER ZERO (0)"7@A(31)RJD(7)A(16)A(31):1640gTD(7)A(16)A(33)q^::h"USE THIS AMOUNT TO FIND YOUR TAX FROM THE TAX TABLES"r"OR TO FIGURE YOUR TAX ON SCHEDULE TC PART I"|M4);"******************" A(32)!A(33)A(38)A(32)):^"----- TOTAL ITEMIZED DEDUCTION ALLOWED-------"f:A(33)(.5100A(33))100G$;M3);A(33)A(33)0ĺ"THIS IS A NEGATIVE NUMBER- CHECK IRS INFO!"A$"::::,:1620,6"IF YO"DO YOU WANT TO ITEMIZE DEDUCTIONS (Y OR N) ? ";A2$HA2$"Y"ī3280R1580"IF YOU CHECKED FORM 1040, FILING STATUS BOX:"" 2 OR 5 ENTER $3400......"" 1 OR 4 ENTER $2300...... "" 3 ENTER $1700......"5080"ADJUSTMENTS TO INCOME";D$)50804A(15)JA(16)A(14)A(15)h A(16)(.5100A(16))100pA$v~(H$2<8)"ADJUSTED GROSS INCOME"F:8);G$;M3);"$";A(16)P:Z:H$dPAUSE11500:PAUSEn:::::5x%"OTHER INCOME NOT LISTED ABOVE"/5080:C(15)A(14)A(1)A(3)D(1)D(45)A(5)A(6)C(10)C(11)C(12)C(13)C(14)C(15)D(6)A(14)(.5100A(14))100:A32::12);"TOTAL INCOME":8);G$;M3);"$";A(14)::H$::IES, PARTNERSHIPS, ESTATES OR TRUSTS"/5080:C(12)J$::H$::k."FARM INCOME OR(LOSSES)";D$u85080BC(13)L::H$::V"UNEMPLOYMENT COMPENSATION- SEE WORKSHEET FOR TAXABLE PART"`5080jC(14)tA$:~::H$::5080A(5) ::H$::]"TAXABLE PART OF CAPITAL GAINS NOT REPORTED ON SCHED D"g5080rC(10)::H$::"SUPPLEMENTAL GAINS OR (LOSSES)"5080C(11)A$:::H$::%"PENTIONS, ANNUITIES, RENTS ROYALIT AND LOCAL TAX";C$;M3);D(45)3 A$::::H$::O*"ALIMONY RECEIVED ";D$Y45080c>A(6)kHA$qR\::H$::f"DO YOU WANT TO DO BUSINESS CALCULATIONS? (Y OR N) ";A1$pA1$"Y"İ2190z"CAPITAL GAINS OR LOSS(ES)";D$D(0)D(0)0ī680(D(1)D(1)D(0)16307["TOTAL DIVIDENDS";G$;M3);D(1)i::::uH$::"STATE AND LOCAL TAX REFUND(LAST YEAR)"::5080A(4)A(4)0780D(45)D(45)A(4)730 "TOTAL STATE);A(1):::: H$::V"INTEREST INCOME ( IF OVER $400 ATTACH SCHED B )`5080jA(2){&A(2)0ī5800A(3)A(3)A(2):530DN"TOTAL INTEREST INCOME";C$;M3);A(3)XA$b::H$::l"DIVIDENDS"v5080"---------------------------------------"ChG$"-----------> $"NrM227Y|M331dM420r::::~H$::"WAGES, SALARIES, TIPS $"5080A(0)A(0)0ī480A(1)A(1)A(0)430"TOTAL WAGES";G$;M3 ARE NOT SHOWN IN THE PROGRAM TO MATCH THE 1040 FORM BECAUSE THEY CHANGE YEARLY."Y A$_ i 5100 "" INCOME TAX -1040-" ,5140 6A(50):B(50):C(50):D(50) @D$".............." JC$"--------> $" TF$"========="*^H$M IRS---",d:H$::8,n"STATE AND LOCAL INCOME";D$B,x5080M,A(44)],::H$::s,"REAL ESTATE";D$},5080,A(45),::H$::,"GENERAL SALES(SEE SALES TAX TABLES)";D$,5080,A(46),A$::::H$:: -"PERSONALL EXPENSES";M2);C7#+A(43)C1C7A+A(43)(.5100A(43))100Q+(::H$::+2"TOTAL MEDICAL DEDUCTIONS";C$;M2);A(43)::+<H$:A$:+F"-------------- TAXES --------------"+P: ,Z"--- NOTE- GASOLINE TAXES ARE NO LONGER DEDUCTABLE FROB(2)B(3)B(4)B(5)C3$*::::1*M2);F$K*"TOTAL";G$;M2);B(1)S*:*C6A(16).03:"3%OF ADJ. GROSS $";M2);C6*C7B(1)C6*C70C70*PAUSE11500:PAUSE*:*"SUBTRACT 3% ADJ. GROSS FROM";M2);F$+ "TOTAL MEDICA )8" B. HOSPITALS......."*)B50804)LB(3)>)V::m)`" C.OTHER (ITEMIZE- TO INCLUDE).....")j" 1. GLASSES...........")t" 2. TRANSPORTATION....")~" 3. ETC...............")5080)B(4)*B(1)M2);C3( ::"( B(5)A(40)C1G( "BALANCE OF INSURANCE PREMIUMS"m( "ALREADY CALCULATED $";M2);B(5)}( ::H$::( A$:( "...... OTHER MEDICAL EXPENSES....."(::(" A. DOCTORS, DENTISTS, ETC."(5080($B(2)).::(25)(.5100D(25))100%'f M2);F$T'p :"TOTAL MEDICINE AND DRUGS $";M2);D(25)e'z C2A(16).01s' A$:::' "1% OF ADJ. GROSS";M2);C2:' C3D(25)C2' C30C30' "SUBTRACT 1% OF ADJ. GROSS";M2);F$( " FROM MEDICINES AND DRUGS"; & A(40)K& A(40)300C1A(40)2:"MEDICAL INSURANCE ALLOWANCE";M2);C1& A(40)300C1150::"MAX MEDICAL ALLOWED";C$;M2);C1& ::H$::& "MEDICINE AND DRUGS";D$&* 5080&4 A(41)&> A(41)03440&H D(25)D(25)A(41)&R 3370'\ D %v H$% ::I% " NET PROFIT OR LOSS FROM BUSINESS OR PROFESSION"Q% :e% 8);G$;(D(6))% D(4)D(5)ĺ8)"====== YOU HAVE A LOSS ====="% ::% H$% A$:% % ::H$::% "TOTAL MEDICAL INSURANCE PAID $"::;% 5080E THE TOTAL AMOUNT ";L$ "ENTER 0 WHEN THROUGH AND CONTINUE WITH PROGRAM."T$ :^$ 5080e$ Ao$ TTA~$ A0ī3120$& 3070$0 $: "TOTAL BUSINESS DEDUCTIONS";C$;M2);T$D D(4)T$N D(6)D(5)D(4)$X D(6)(.5100D(6))100$b A$%l C$;M3);A(35)# # A$!# )# H$P# " PART II BUSINESS DEDUCTIONS"# " SEE SCHED 'C' FOR COMPLETE LIST OF ITEMS"# H$# ::::$ "TO ASSIST YOU IN ADDING THE COLUMNS OF NUMBERS- THE COMPUTER IS NOW IN AN ADDING 'LOOP.' TO RECEIV " 5080"" C(7)6", C(8)C(1)C(4)C(5)C(6)C(7)Y"6 :10:"SUBTOTAL";G$;M3);C(8)i"@ ::H$::"J "INVENTORY AT END OF YEAR";D$"T 5080"^ C(9)"h A(35)C(8)C(9)"r ::H$::"| "COST OF GOODS";M3);F$ # "SOLD AND/OR OPERATIONS";! "BALANCE";G$;M3);C(4)2! A$::::H$::s! "COST OF LABOR(DO NOT INCLUDE SALARY PAID TO YOURSELF)...."}! 5080! C(5)! ::H$::! "MATERIALS AND SUPPLIES";D$! 5080! C(6)! ::H$::" "OTHER COSTS(ATTACH SCHED)";D$2970  ::H$::= ( "INVENTORY AT BEGINNING OF YEAR";D$G 2 5080Q < C(1)a F ::H$::u P "PURCHASES";D$ Z 5080 d C(2) n ::H$:: x "COST OF ITEMS WITHDRAWN FOR PERSONAL USE" 5080 C(3) C(4)C(2)C(3)! ::H$::-1)" 2590 ::. A(36)A(34)A(35)6 A$< ^ "GROSS PROFIT";G$;M3);A(36)n ::H$:: "ANY OTHER INCOME (ATTCH SCHED)";D$ 5080 D(4) D(5)A(36)D(4): ::H$:: "TOTAL INCOME";G$;M3);D(5) :  :$ "GROSS RECEIPTS OR SALES";D$. 50808 D(2)H$ ::H$::i. "RETURNS AND ALLOWANCES";D$s8 5080}B D(3)L A(34)D(2)D(3)V ` "BALANCE";G$;M3);A(34)j A$t ::H$::~ "COST OF GOODS SOLD AND/OR OPERATIONS (SCHED C:::H$::D"******* BUSINESS CALCULATIONS*******"L:TH$\:" PART I BUSINESS INCOME":H$::::"PROFIT OR (LOSS) FROM BUSINESS OR PROFESSION - FILL OUT SCHED 'C'"::H$::A$"615 lF$"1"630% nF$"2"6355 pF$"3"640E rF$"4"643X vP$" MONTHLY"a wT12j x646~ {P$" QUARTERLY" |T4 }646 P$"SEMI-ANNUAL" T2 646 P$" ANNUAL" T1 646 : (15):P$ " A"3"350 EF$"4"360$ JNN212- O4008 TNN24A Y410L ^NN22U c420^ hNN2g r430w S1(IR12) 600 S1(IR4) 600 S1(IR2) 600 S1IR XMCIR(1(1S(N))) b" PRESS ANY KEY TO RUN" gA$:A$"MI-ANNUAL = 3"0 A" ANNUAL = 4"X B" :";F$^ F d"MORTGAGE INTEREST RATE (.00)";IR i "MORTGAGE TERM (YEARS)";N2 ,"PRINCIPAL AMOUNT ($$) ";A 1 6F$"1"330 ;F$"2"340 @F$ TP0:IP0(-H2" PRINTED AMORTIZATION SCHEDULE"v3" -------------------------------"|789<" CHOOSE A PAYMENT FREQUENCY "=>" MONTHLY = 1"?" QUARTERLY = 2" @" SE     (8)"******************" 72:PAUSE6::6H$26PAUSE11500:PAUSE<61430`6:6)"ENTER AMOUNT -----> $ ";f668)"******************"68)"* *"68)"* *"6 68)"* *"68)"* *"7M3);A(23)?5`"TOTAL CASUALTY OR THEFT LOSS=====>";M3);A(37)t5j"TOTAL MISC.======================>";M3);A(29)5tA(38)A(43)A(49)A(20)A(23)A(37)A(29):A$:5~::::5H$5::5"TOTAL DEDUCTIONS";G$;M3);A(38)6PAUSE11500PAUSE4::::::::A$:+4$H$:H$64.:::k48"TOTAL MEDICAL AND DENTAL=========>";M3);A(43)4B"TOTAL TAXES======================>";M3);A(49)4L"TOTAL INTEREST ==================>";M3);A(20) 5V"TOTAL CONTRIBUTIONS==============>";--- MISCELLANEOUS DEDUCTIONS ------"43::H$::I3"UNION DUES";D$S35080^3A(27)n3::H$::3"OTHER (ITEMIZE)";D$350803A(28)3A(29)A(27)A(28)3M3);F$3"TOTAL MISC. DEDUCTIONS";C$;M3);A(29)4PAUSE11500:2>"SUBTRACT DIFFERENCE";M3);F$G2H"OF REIMBURSEMENT";G$;M3);A(26)e2RA(26)100A(37)0:47102\A(26)100A(39)100:A(37)A(26)A(39)2f:2p"TOTAL CASUALTY";M3);F$2z"OR THEFT LOSS";C$;M3);A(37)2A$:2::H$:H$::$3"--ANY LOSSES ? (Y OR N) ";A3$.1A3$"N"ī4750>1::H$::l1"LOSS BEFORE INSURANCE REIMBURSEMENT";D$v150801A(24)1:H$::1 "INSURANCE REIMBURSEMENT";D$150801 A(25)1*:::L94314A(26)A(24)A(25):A(26)0A(26)0!R CASH CONTRIBUTIONS (SHOW WHO AND HOW MUCH ON FORM)-------"F0v5080Q0A(22)g0A(23)A(21)A(22)t0M3);F$0"TOTAL CONTRIBUTIONS";C$;M3);A(23)0::H$:H$::0A$:0"------ CASUALTY OR THEFT LOSS(ES) ------"1:"DO YOU HAVE 19)/M3);F$=/"TOTAL INTEREST EXPENSES";C$;M2);A(20)Q/::H$:H$::[/&A$:/0"----------- CONTRIBUTIONS------------"/::::/D"CASH CONTRIBUTIONS WITH RECEIPTS OR CANCELLED CHECKS"/N5080/XA(21)/b::H$::<0l"OTHEES-------".r::H$::1.|"HOME MORGAGE";D$;.5080F.A(17)V.::H$::y."CREDIT AND CHARGE CARDS ";D$.5080.A(18).::H$::."OTHER (ITEMIZE)";D$.5080.A(19).A$:.::H$::/A(20)A(17)A(18)A( PROPERTY";D$-5080"-A(47)2-::H$::L-"OTHER (ITEMIZE)";D$V-5080a-"A(48)m-,:::z-6M3);F$-@A(49)A(44)A(45)A(46)A(47)A(48)-J"TOTAL TAXES";G$;M3);A(49)-T::H$:H$::-^A$: .h"-------- INTEREST EXPENSP(1)32)LBX91(T1)$II1=4PP(2)MP((LBIR)T)[5PP(2)(PP(2)100.5)100nIP(2)MPPP(2). IP(2)(IP(2)100.5)100 LBLB1PP(2) LB(LB100.5)100 IP(2).0029902 I;10)IP(2)21)PP(2)32)LB< TPTPPP(2) F TxPP(1)MP((AIR)T)3yPP(1)(PP(1)100.5)100F@IP(1)MPPP(1)erIP(1)(IP(1)100.05)100tLBAPP(1)TPTPPP(1):TITIIP(1)" PMT # INTEREST PRINCIPAL LOAN"" PAYMENT PAYMENT BALANCE" lI;10)IP(1)21)PRVICE =$";AP! F$"1"10202 F$"2"1025C F$"3"1030T F$"4"1035a MPAP12k 1150w MPAP4 1150 MPAP2 1150 MPAP ~MP(MP100.05)100  " ";P$;" PAYMENT = $ ";MPR    II1IZATION SCHEDULE" :I " MORTGAGE INTEREST RATE = ";IR100;"%"x " MORTGAGE TERM = ";N2;"YEARS" " PRINCIPAL AMOUNT =$";A " ANNUAL CONSTANT = ";MC APMCA RAP(AP100.5)100 " ANNUAL DEBT SE5 lF$"1"630! nF$"2"6351 pF$"3"640A rF$"4"643T vP$" MONTHLY"] wT12f x646z {P$" QUARTERLY" |T4 }646 P$"SEMI-ANNUAL" T2 646 P$" ANNUAL" T1 646 : (15):P$ " AMORT350 EF$"4"360 JNN212) O4004 TNN24= Y410H ^NN22Q c420Z hNN2c r430s S1(IR12)| 600 S1(IR4) 600 S1(IR2) 600 S1IR XMCIR(1(1S(N))) b" PRESS ANY KEY TO RUN" gA$:A$""61NNUAL = 3", A" ANNUAL = 4"T B" :";F$Z F d"MORTGAGE INTEREST RATE (.00)";IR i "MORTGAGE TERM (YEARS)";N2 ,"PRINCIPAL AMOUNT ($$) ";A 1 6F$"1"330 ;F$"2"340 @F$"3" TP0:IP0(-D2" AMORTIZATION SCHEDULE"r3" -------------------------------"x7~89<" CHOOSE A PAYMENT FREQUENCY "=>" MONTHLY = 1"?" QUARTERLY = 2" @" SEMI-A  IPAL PAYBACK = $";TPC" WANT TO RUN ANOTHER ?(Y/N) : ";B$RB$"Y"40X(15):" ADIOS !"T1600:TD$(4)D$"RUN HELLO"TPP(3) LB(LB100.5)1002 IP(3).004000R I;10)IP(3)21)PP(3)32)LBb TPTPPP(3)r TITIIP(3)z X9 2850:TI(TI100.05)100" TOTAL INTEREST PAYMENTS = $";TITP(TP100.05)100:" TOTAL PRINCF TITIIP(2) X9" H, " PMT # INTEREST PRINCIPAL LOAN"v6 " PAYMENT PAYMENT BALANCE"@ X91TJ II1T PP(3)MP((LBIR)T)^ PP(3)(PP(3)100.5)100h IP(3)MPPP(3)r IP(3)(IP(3)100.5)100| LBLB121)PP(1)32)LBX91(T1)(II1A4PP(2)MP((LBIR)T)_5PP(2)(PP(2)100.5)100rIP(2)MPPP(2). IP(2)(IP(2)100.5)100 LBLB1PP(2) LB(LB100.5)100 IP(2).0029902 I;10)IP(2)21)PP(2)32)LB< TPTPPP(2)1xPP(1)MP((AIR)T)7yPP(1)(PP(1)100.5)100J@IP(1)MPPP(1)irIP(1)(IP(1)100.05)100xLBAPP(1)TPTPPP(1):TITIIP(1)" PMT # INTEREST PRINCIPAL LOAN"" PAYMENT PAYMENT BALANCE"lI;10)IP(1)T SERVICE =$";AP% F$"1"10206 F$"2"1025G F$"3"1030X F$"4"1035e MPAP12o 1150{ MPAP4 1150 MPAP2 1150 MPAP ~MP(MP100.05)100  " ";P$;" PAYMENT = $ ";MPR   IIMORTIZATION SCHEDULE" :M " MORTGAGE INTEREST RATE = ";IR100;"%"| " MORTGAGE TERM = ";N2;"YEARS" " PRINCIPAL AMOUNT =$";A " ANNUAL CONSTANT = ";MC APMCA RAP(AP100.5)100 " ANNUAL DEB=4" 31:"WHICH ? ";C* C1C440R " CHOOSE A PAYMENT FREQUENCY ":q " MONTHLY = 1" " QUARTERLY = 2" " SEMI-ANNUAL = 3" ," ANNUAL = 4" ^" ";F _ =1"? :" ACCUMULATION OF $1 PER PERIOD =2"p :" SINKING FUND FACTOR =2" :" ANNUITY FACTOR =3" :" MORTGAGE PAYMENT FACTOR =3" :" ANNUAL MORTGAGE CONSTANT (,d::(11):" THE INFINITE":Qn(11):"COMPOUND INTEREST TABLE"x:"========================================":"WHICH FUNCTION WOULD YOU LIKE ?":" AMT. OF $1 AT COMPOUND INTEREST =1" :" REVERSION FACTOR    ˩ˠŠӍԠӍӨ̍àˍӍŠԧĠӨ˩Ө˩Ө˩ˠӍӍԠӍΠŠӍàЍŠōҍӍӨӍōύōҍō؍ AS PAYBACK = $";TP?" WANT TO RUN ANOTHER ?(Y/N) : ";B$NB$"Y"40T(15):" ADIOS !"T1600:TD$(4)D$"RUN HELLO": PROGRAM BY: JERRY L. COOPER, SRA: WICHITA,KANS) LB(LB100.5)100. IP(3).004000N I;10)IP(3)21)PP(3)32)LB^ TPTPPP(3)n TITIIP(3)v X9 2850:TI(TI100.05)100" TOTAL INTEREST PAYMENTS = $";TITP(TP100.05)100:" TOTAL PRINCIPALITIIP(2) X9" D, " PMT # INTEREST PRINCIPAL LOAN"r6 " PAYMENT PAYMENT BALANCE"~@ X91TJ II1T PP(3)MP((LBIR)T)^ PP(3)(PP(3)100.5)100h IP(3)MPPP(3)r IP(3)(IP(3)100.5)100| LBLB1PP(3OD GRAPH'" 3 "PR#1":- CONTAINS CNTRL 'D'b :" ENTER CONTROL 'T', PLEASE ":QP$(9):h n t "LOAN TO VALUE RATIO(.00) :";LR "MORTGAGE INTEREST RATE(.00) :";RM  "MORTGAGE TERM :";N1 )dn2559x" ELLWOOD GRAPH-TABULAR LISTING"?Es"THIS PROGRAM WILL CALCULATE CHANGES IN""VALUE WHICH WILL OCCUR AT VARIOUS""CAPITALIZATION RATES""IT PROVIDES THE INFORMATION NEEDED" "TO DRAW AN 'ELLWO    P(M1RM)(M2RM)ER1LR(S1RE=SFRE((S10)1)^R1(LRM1)(ERRE)(LRPSF)pCH(R1R2)SF CH(CH10000.0005)100(30):;CH" % " *: PROGRAM BY: JERRY L. COOPER,SRA: WICHITA, KANSAS)R1(LRM1)(ERRE)(LRPSF)/ CH(R1R2)SFL CH(CH10000.0005)100_ (20):;CH" %" --- CALCULATE SFF & BASIC RATE AT EQUITY YIELD RATE *** 10 YEAR FACTORS *** S11(RM12) M1RM(1(1S1(12N1))) M2RM(1(1S1(1210))) W11000:W: &q 0 CALCULATE SFF & BASI C RATE @EQUITY YIELD RATE - **5 YEAR FACTORS*** :S11(RM12) DM1RM(1(1S1(12N1))) NM2RM(1(1S1(125))) XP(M1RM)(M2RM) bER1LR lS1RE vSFRE((S5)1) ATE = ";RE5 560A "WANT TO TRY A DIFFERENT OVERALL RATE?"X "IF YES TYPE 'Y'"y "HIT ANY OTHER KEY TO EXIT" B$:B$""500 B$"Y"290 B$"Y"530 :(25):(18):"ADIOS !" T1600:T D$(4) D$"RUN HELLO" RATES (.00)" J TG ^" EQUITY RATES % CHANGE IN VALUE IN "t h" 5 YEARS 10 YEARS" r"1ST RATE = ";RE1 |560 "2ND RATE = ";RE2 560 "3RD RATE = ";RE3 560 "4TH RATE = ";RE4 560 "5TH ROD GRAPH'"  ? "LOAN TO VALUE RATIO(.00) :";LRE n "MORTGAGE INTEREST RATE(.00) :";RMt  "MORTGAGE TERM :";N1  ""ENTER TEST OVERALL RATE :";R2 , 6 @:" YOU MAY ENTER 5 EQUITY TEST dn2559x" ELLWOOD GRAPH-TABULAR LISTING"?Es"THIS PROGRAM WILL CALCULATE CHANGES IN""VALUE WHICH WILL OCCUR AT VARIOUS""CAPITALIZATION RATES""IT PROVIDES THE INFORMATION NEEDED" "TO DRAW AN 'ELLWO T34,0W>X * * MORTGAGE CONSTANT * * DYT]S1(IR12)_bT1NzlMCIR(1(1S(T12)))(2):T13)MCT28)SFFT 34,0 $o]p** P.W. OF 1 PER YR AND MORTGAGE PAYMENT FACTORS **cqr:3:"PERIOD"13)"ANNUITY"28)"MORT. PMT."s2:P$t34,5y" "zT1NPW(1(1(ST)))(S1)PMT1PW(2):T13)PW;28)PMT) A11P1& (2):T13)A1;28)P1- T7 #34,0= $C a **AMT OF 1/YR & S.F.F.**g  :3:"PERIOD"12)"AMT. $1/PRD"27)"SINKING FUND" 2:P$ 34,5 " " T1N AMT(ST1)(S1) SFF1AMT(2):T13)AMT;` P$"SEMI ANNUAL"! S1(IR2)+ 2700; P$"ANNUAL"F ( S1IRa C4000,5000,6000,7000g   * * AMT OF 1 & P.W. OF 1 PER PERIOD * * :3:"PERIOD"13)"AMT. OF $1"28)"REVERSION" 2:P$ 34,5 " " T1N P11(STF1F4ė:50 2 " INTEREST RATE (.00)";IR8 X &"NUMBER OF PERIODS ";N^ Xd  " PRESS ANY KEY TO RUN" :A$ lF2100,2250,2400,2550 4P$"MONTHLY" fS1(IR12) 2700 P$"QUARTERLY" S1(IR4) . 2700 ";A$)"IS THIS THE CORRCT FILE Y/N?"1B$CB$"N"İ6500UD$;"OPEN";A$tD$;"POSITION ";A$;" ,R";PD$;"READ ";A$5700DA$SBALCSTPAIDFCHGTAX D$;"CLOSE";A$PP6D0ī6550(BALAPPEND ";A$D$;"WRITE ";A$(DA$2SBAL;CSTEPAIDOFCHGXTAXkD$;"CLOSE";A$qw::"WHAT IS THE NAME OF THE ACCOUNT YOU WANT TO UPDATE?"A$3030A$""İ6500P0:D0:"YOU ARE DISPLAYINGRETURN",TAX6 @::KTA1$8)B1$16)C1$24)D1$30)E1$34)F1$j^BALSBALCSTPAIDFCHGTAXhSBAL;8);CST;16);PAID;24);FCHG;30);TAX;34)BALr::"ARE YOUR ENTRIES CORRECT? Y/N"|B$B$"N"ī3000D$"OPEN ";A$ D$;" 5 :"ENTER THE STARTING BALANCE -PUSH RETURN"? SBALE j :"ENTER THE COST -PUSH RETURN"s CSTy  :"ENTER PAID -PUSH RETURN" PAID  :"ENTER FINANCE CHARGE --PUSH RETURN" FCHG ":"ENTER TAX --PUSH A$ D$;"OPEN";A$' $D$;"CLOSE";A$N 8"ACCOUNT ";A$;" HAS BEEN CREATED"T BZ k A$""ī4510 "YOU ARE UPDATING AN ACCOUNT ";A$ "IS THIS THE RIGHT ACCOUNT? Y/N" B$ B$"N"4500  :"ENTER THE DATE-M/D/Y"  DA$NT."$ :"7. TERMINATE SESSION."+ AV A1000,3000,5000,7000,9000,9500,10000\ i A6230r 100 "**** NOT A VALID MENU SELECTION ****" 110  :::"ENTER NAME OF NEW ACCOUNT" A$ D$;"OPEN";A$ D$;"DELETE";:"1. CREATE A NEW ACCOUNT."O :"2. ENTER A NEW RECORD TO AN ACCOUNT."} :"3. DISPLAY ACCOUNT ON VIDEO SCREEN." :"4. PRINT A COPY OF THE ACCOUNT." :"5. DISPLAY A LIST OF ACCOUNTS ON VIDEO SCREEN." :"6. DELETE AN ACCOU**********" <I11000:I( FD$(4)m ZA1$"SBAL":B1$"COST":C1$"PAID":D1$"F CHG":E1$"TAX":F1$"BAL"s d n::::"SELECT ONE OF THE FOLLOWING PROCEDURES BY ENTERING THE APPROPIATE NUMBER." x"****************************************" WF THIS PROGRAM IS DESIGNED TO CREATE AND UPDATE ACCOUNT LEDGERS.m THIS SECTION IS THE MENU SECTIONs:::::::"****************************************"(:07)"THE HOME ACCOUNTING SYSTEM" 2:"******************************     05)100(30):;CH" % "" (*4 EQUITY YIELD RATE *** 10 YEAR FACTORS ***;S11(RM12)XM1RM(1(1S1(12N1)))uM2RM(1(1S1(1210)))P(M1RM)(M2RM)ER1LRS1RESFRE((S10)1)R1(LRM1)(ERRE)(LRPSF)CH(R1R2)SF CH(CH10000.00M1RM(1(1S1(12N1)))5 NM2RM(1(1S1(125)))K XP(M1RM)(M2RM)W bER1LRb lS1REv vSFRE((S5)1) R1(LRM1)(ERRE)(LRPSF) CH(R1R2)SF CH(CH10000.0005)100 (20):;CH" %"*--- CALCULATE SFF & BASIC RATE AT B$"Y"290 B$"Y"530' 0D :(25):(18):"ADIOS !"T T1600:T` D$(4)s D$"RUN HELLO"y  W11000:W: & 0 CALCULATE SFF & BASI C RATE @EQUITY YIELD RATE - **5 YEAR FACTORS*** :S11(RM12) D "2ND RATE = ";RE2 5607 "3RD RATE = ";RE3@ 560W "4TH RATE = ";RE4` 560w "5TH RATE = ";RE5 560 0 "WANT TO TRY A DIFFERENT OVERALL RATE?" "IF YES TYPE 'Y'" "HIT ANY OTHER KEY TO EXIT" B$:B$""500, ""ENTER TEST OVERALL RATE :";R23 '09 ,? 6q @:" YOU MAY ENTER 5 EQUITY TEST RATES (.00)"w J~ O1 T ^" EQUITY RATES % CHANGE IN VALUE IN " h" 5 YEARS 10 YEARS" r"1ST RATE = ";RE1 |560NAGEMENT =%";M:"O.K.?";T$)5:>T$"Y"2140PR" ENTER NEW %";MVS\"TAXES =$";T:"O.K.?";E$]fE$"Y"2180z" ENTER NEW $";T{"INSURANCE =$";I:"O.K.?";F$F$"Y"2220" UN HELLO"  1 "* * ENTRY REVIEW * *"7 d "GROSS MONTHLY INCOME=$";MI:"O.K.?";B$j { B$"Y"2060 " ENTER NEW $";MI  "VAVANCY & COLL LOSS =%";V:"O.K.?";C$  C$"Y"2100 *" ENTER NEW %";V +#4"MA" ENTER OVERALL CAP RATE(.00) ";R2 PVOIR8 E PV(PV)K u " INDICATED PROPERTY VALUE =$";PV{   " WANT TO CHANGE ANYTHING ?(Y/N): ";A$ A$"Y"2000  (30):(12):"ADIOS" "PR#0" D$(4) D$"R ---------"= " EFFECTIVE GROSS INCOME = $";EIC n $" LESS OPERATING EXPENSES - ";E ." ---------" 8 B" NET OPERATING INCOME $";OI L V"* * CAPITALIZATION * *" W X& ";O GIMI12& L(V100)GI(1)1 L(L)= EIGILO MG(M100)EI\ MG(MG)w EMGTIMARUO(1) OIEIE   " GROSS ANNUAL INCOME = $";GI " LESS V&C LOSS ";L " EXPENSES:"* n" 3.MANAGEMENT %";M0 xN " 4.TAXES $";TT r " 5.INSURANCE $";Ix " 6.MAINTENANCE $";MA " 7.RESERVES $";R " 8.UTILITIES $";U  " 9.OTHER COSTS $"PR#1"D10::"PRESS CONTROL 'T' PLEASE"::QP$(9)JT " "a"PR#1""* * * * * * INCOME APPROACH * * * * * * "("1.GROSS MONTHLY INCOME $ ";MI-2GIMI12<"2.VACANCY & LOSS %";VZ d"SESSION IS TERMINATING NOW"O.'::"****************************************"U8'E DELETED."%I1750:I %V%:::"****************************************"%::"EXIT DELETE ROUTINE OR TRY AGAIN E/T?"%B$&B$"E"ı &B$"T"ī9500&9700'':::"****************************************"$'::"S THE CORRECT ACCOUNT?? Y/N?"%N%B$6X%B$"N"9700Sb%"I AM DELETING ";A$;"!"{l%"LAST CHANCE TO CHANGE YOUR MIND."v%"DELETE ";A$;" Y/N"%B$%B$"Y"ī9630%%D$"OPEN ";A$%D$"OPEN ";A$%D$;"DELETE ";A$ %A$;" HAS BEEN****"<#I1750:I&F#D$"CATALOG"OP#" TO RETURN TO MENU PRESS ANY KEY."WZ#B$]d#%:::"****************************************"&%::"WHAT FILE DO YOU WANT TO DELETE?"0%A$:%:"YOU ARE DELETING ACCOUNT ";A$;"!"D%:"IS THIHG$11(FCHG$))TAX$12(TAX$))BAL2%D$;"PR#0"<*7060L"DATE"06)"COST"06)"PAID IN"03)"F CHARGE"03)"SALES TAX"03)"BALANCE DUE"VD1`@D$;"CLOSE ";A$JD$;"PR#0"T100(#2#::::"******** LIST ACCOUNTS ON RECORD ,R";PD$"READ ";A$#8000,DA$7SBAL$ACST$LPAID$WFCHG$aTAX$uD$;"CLOSE ";A$PP6D$;"PR#1" D0İ7500BAL(SBAL$)(CST$)(PAID$)(FCHG$)(TAX$)# DA$2)CST$10(CST$))PAID$10(PAID$))FC;:A1$;8);B1$;16);C1$;24);D1$;30);E1$;34);F1$CD1M5160^XA$""İ6500b"YOU ARE PRINTING ACCOUNT ";A$;"."l"IS THIS THE CORRECT ACCOUNT Y/N?"vB$B$"N"İ6500P0:D0D$;"OPEN ";A$D$;"POSITION ";A$;"SBALCSTPAIDFCHGTAXN2SBAL;8);CST;16);PAID;24);FCHG;30);TAX;34);BALX<5060kD"END OF DATA"~ND$;"CLOSE";A$X"TO RETURN TO MENU PRESS ANY KEY"bB$l120dn:"WHAT IS THE NAME OF THE FILE YOU WANT TODISPLAY?"xA$MG(MG)&EMGTIMARUO(1)2OIEIE8>i" GROSS ANNUAL INCOME = $";GI"" LESS V&C LOSS ";L," ---------"6" EFFECTIVE GROSS INCOME = $";EI@J" LESSP!Z" 5.INSURANCE $";I'dFn" 6.MAINTENANCE $";MALxj" 7.RESERVES $";Rp" 8.UTILITIES $";U" 9.OTHER COSTS $";OGIMI12L(V100)GI(1)L(L)EIGILMG(M100)EI ::::0@"* * * * * * INCOME APPROACH * * * * * * "k"1.GROSS MONTHLY INCOME $ ";MIq~ GIMI12"2.VACANCY & LOSS %";V(" EXPENSES:"2" 3.MANAGEMENT %";M<F" 4.TAXES $";T" %" +." FULL TERM CONSTANT = ";M1MB" PROJ PER. CONSTANT = ";M2nV" SFF PROJECT PERIOD = ";SFt`t" * * * * * * OVERALL CAPITALIZATION RATE = ";X" * * * * * *"~" -------------"MR100="3. MORTGAGE INTEREST RATE : ";MR(1);" %"s"4. MORTGAGE TERM : ";N1" YEARS"AP(1)AP100"5. % APPREC. OR DEPREC. : ";AP(1)" % ";CH$EQ(1)EQ100"6. EQUITY YIELD RATE : ";EQ(1)  1:*R\"ftp" * * * * * OVERALL CALITALIZATION RATE - MORTGAGE EQUITY PREMISE * * * * *"zzLR(1)LR100"1. LOAN TO VALUE RATIO : ";LR(1)" %""2. PROJECTION PERIOD : ";N2" YEARS"MR(1)/C$"4"Ą"4. MORTGAGE TERM (YEARS)";N1:400^C$"5"Ą"5. % APPRECIATION (.XX)";AP:400C$"6"Ą"6. EQUITY YIELD RATE (.XX)";EQ:400 "WANT TO START OVER ?";A$A$"Y"10A$"N"1200: - INCOME APPROACH " ANY CHANGES ??(Y OR N)";B$0 B$"N"780@ B$"Y"690` " WHICH ITEM NUMBER ??";C$ C$"1"Ą"1. LOAN TO VALUE RATIO (.XX)";LR:400 C$"2"Ą"2. PROJECTION PERIOD (YEARS)";N2:400 C$"3"Ą"3. MORTGAGE INTEREST RATE (.XX)";MR:400 RATE = ";X  & 01 :AP.01600? DAP0620P NAP.01640g XCH$"DEPRECIATION"p b651 lCH$"NO CHANGE PROJECTED" v651 CH$"APPRECIATION" 651 " WANT A HARD COPY ? (Y/N) : ";P$ P$"N"660 P$"Y"800 TERM CONSTANT = ";M12 M2MR(1(1S1(12N2)))S " PROJ PER. CONSTANT = ";M2i P(M1MR)(M2MR)u S21EQ SFEQ(S2N21) " SFF PROJECT PERIOD = ";SF ER1LR X(LRM1)(EREQ)(LRPSF)(APSF)   :" OVERALL 63 @"4. MORTGAGE TERM (YEARS) :";N19 JX T"5. % APPREC. OR DEPREC." ^" (APP IS + / DEP IS -)(.XX) :";AP h r"6. EQUITY YIELD RATE (.XX) :";EQ |  S11(MR12) M1MR(1(1S1(12N1))) " FULL APPREC. OR DEPREC." Z d& n, x? W11500:W:E K Q W ] c i "1. LOAN TO VALUE RATIO (.XX) :";LR  "2. PROJECTION PERIOD (YEARS) :";N2 " ,"3. MORTGAGE INTEREST RATE (.XX) :";MR BY JERRY L. COOPER/ 231 S. TERRACEG WICHITA, KS 67218M w" THIS PROGRAM WILL CALCULATE"}(:" 'R' AN OVERALL CAPITALIZATION RATE "2:<" MORTGAGE EQUITY PREMISE"F P" YOU MAY SPECIFY          J$"Y"2340- " ENTER NEW $";U3 _$ "OTHER EXPENSE =$";O:"O.K.?";K$e% v. K$"Y"2380B " ENTER NEW $";OC L 231RENTER NEW $";IA"MAINTENANCE =$";MA:"O.K.?";G$GXG$"Y"2260o" ENTER NEW $";MAu"RESERVES =$";R:"O.K.?";H$H$"Y"2300" ENTER NEW $";R"UTILITIES =$";U:"O.K.?";J$ESS OPERATING EXPENSES - ";EN ." ---------"T 8 B" NET OPERATING INCOME $";OI L V"* * CAPITALIZATION * *" W X " ENTER OVERALL CAP RATE(.00) ";R PVOIR  PV(PV) ' I MG(MG)) EMGTIMARUO(1)5 OIEIE; A l " GROSS ANNUAL INCOME = $";GI " LESS V&C LOSS ";L " ---------" " EFFECTIVE GROSS INCOME = $";EI  $" L $ " 5.INSURANCE $";I* I " 6.MAINTENANCE $";MAO m " 7.RESERVES $";Rs " 8.UTILITIES $";U " 9.OTHER COSTS $";O GIMI12 L(V100)GI(1) L(L) EIGIL MG(M100)E   C"* * * * * * INCOME APPROACH * * * * * * "n("1.GROSS MONTHLY INCOME $ ";MIt-2GIMI12<"2.VACANCY & LOSS %";VZd" EXPENSES:"n" 3.MANAGEMENT %";Mx " 4.TAXES $";T    ?";H$   H$"Y"33802 " ENTER NEW $";R8* d4 "UTILITIES =$";U:"O.K.?";J$j> {H J$"Y"3430R " ENTER NEW $";U\ f "OTHER EXPENSE =$";O:"O.K.?";K$p z K$"Y"3480 " ENTER NEW $";O  1460 " ENTER NEW $";T E "INSURANCE =$";I:"O.K.?";F$K \ F$"Y"3280r " ENTER NEW $";Ix  "MAINTENANCE =$";MA:"O.K.?";G$  G$"Y"3330 " ENTER NEW $";MA  "RESERVES =$";R:"O.K. "VACANCY & COLL LOSS=%";V:"O.K.?";C$. ? C$"Y"3130U& " ENTER NEW %";V[0 : "MANAGEMENT =%";M:"O.K.?";T$D N T$"Y"3180X " ENTER NEW %";Mb l "TAXES =$";T:"O.K.?";E$v  E$"Y"3230" "OI" / "X" ="[" * * * INDICATED PROPERTY VALUE = $ ";PV;" * * * "j::::0t1790z  "* * ENTRY REVIEW * *"  "GROSS MONTHLY INCOME=$";MI:"O.K.?";B$  B$"Y"3080 " ENTER NEW $";MI (-"-p" EFFECTIVE GROSS INCOME = $";EIXz" LESS OPERATING EXPENSES - ";E" ---------"" NET OPERATING INCOME $";OI"* * CAPITALIZATION * *""OVERALL RATE = ";X*" 6.MAINTENANCE $";MA=4" 7.RESERVES $";R[>" 8.UTILITIES $";UyH" 9.OTHER COSTS $";OMR" GROSS ANNUAL INCOME = $";GI\" LESS V&C LOSS ";Lf" -------- * * * * * * * INCOME APPROACH * * * * * * * * "8c"1.GROSS MONTHLY INCOME $ ";MIi"2.VACANCY & LOSS %";V" EXPENSES:" " 3.MANAGEMENT %";M" 4.TAXES $";T " 5.INSURANCE $";IN"1790(" WANT TO START OVER ? ";E$9E$"Y"1200?X(30):(12):"ADIOS"_0(23):"PRESS 'ESC' TO EXIT----ANY OTHER KEY TO START OVER"W$:W$(27)10:" ENTER 'R' :";XD:12" *RALL RATE = ";XPVOIX!.PV(PV)4^" INDICATED PROPERTY VALUE =$";PVf:" DO YOU WANT A HARD COPY ?";H$H$"Y"2000H$"N"1750" WANT TO CHANGE ANYTHING ?(Y/N): ";D$D$"Y"3000D$" OPERATING EXPENSES - ";EKT" ---------"Q^|h" NET OPERATING INCOME $";OIr|"* * CAPITALIZATION * *"" USE 'R' FIGURED ABOVE ?";Q$Q$"N"167416801850" OVED (START,END)?";B,E7gB1BEĺ"INVALID START":610YlEBENĺ"INVALID END":610bv520h:"WHAT DO YOU WISH TO CALL THIS FILE?";A$(A$)1(A$)30ĺ"ILLEGAL FILE NAME":700(A$,4)".INV"A$A$".INV""SAVING DATA...";(A$(I),12((I)));15);Q;23);C$;32);T$<D:16368,0[GUTT:B$(TT):9200:TT$B$zHUCT:B$(CT):9200:CT$B$I7);"TOTALS:";15);QT;23);CT$;32);TT$KJH1ıN:200X LISTZQT0:CT0:TT0]650b:"RANGE TO BE PRINTE0:C(A$):UC::B$(C):9200:C$B$@9:13:C$;8(C$));"]"I460V REPORT_650zB1:EN:QT0:CT0:TT09320IBEQ(I)0Ă:16368,0:582&X16(16384)127İ930009100:XX15QTQTQ:CTCTC:TTTTT,:I;"-:"COST: ";P$;C$;8(C$));"]"H 11:10:"HIT 'ESCAPE' TO EXIT"q 5:13:TL20:B$A$(I):2000:A$(I)A$ 5:13:A$(I);20(A$(I)));"]" 7:13:TL5:F1:B$Q$:2000:Q(A$):Q$(Q) 7:13:Q$;5(Q$));"]"#9:13:TL8:B$C$:2000:FF0:"THERE ARE ";N;" ITEMS ENTERED."G "NUMBER OF ITEM?";I:I0140h I200ĺ"INVALID ITEM#":405 :2:13:"UPDATE ROUTINE": "ITEM # ";I "NAME: ";P$;A$(I);20(A$(I)));"]" 9100 :"QUANTITY: ";P$;Q$;5(Q$));"]"$ 0 ;A$;:A(A10)(A$):310J @:A1ANĺ"ITEM# OUT OF RANGE!":200X BIA:9100b J1000k ^200 h"ARE YOU SURE YOU WANT TO ERASE YOUR CURRENT DATA SET (Y/N)?";:A$:A$ rA$"Y"120 |N0:"DATA ERASED...":I02000: 120% 300  A$"U"4009 A$"C"ĺD$;"CATALOG":200I A$"P"500Y A$"D"900i A$"N"360y A$"L"600 A$"S"700 A$"R"800 9000 "200 'D$;"MON I,O,C":: ,A(A$) 6A$:(A$)13320 8B(A$):B48B5731***************2 A$(200),C(200),Q(200):D$(4)? P$(91)^ R(X)(((X100).5)100)t (D$;"NOMON I,O,C" d *** INVENTATOR *** nN0:U0:R1:L2:P3:G4 x9000 MAINLINE "COMMAND?";:A$:A$; (A$)27295 (A$)0*********************7* *R* INVENTATOR 3.1 *m* CHIP ANDERSON ** (10/5/79) ** ** CAROLINA APPLE ** CORE-RALEIGH,NC ** * ******      C L 231"N"2290" ENTER NEW $";R$P"UTILITIES =$";U:"O.K.?";J$Vg J$"Y"2340x J$"N"2330 " ENTER NEW $";U $ "OTHER EXPENSE =$";O:"O.K.?";K$% . K$"Y"23808 K$"N"2370B " ENTER NEW $";OF$"Y"2220&F$"N"2210<" ENTER NEW $";IBo"MAINTENANCE =$";MA:"O.K.?";G$uG$"Y"2260G$"N"2250" ENTER NEW $";MA"RESERVES =$";R:"O.K.?";H$H$"Y"2300H$ENT =%";M:"O.K.?";T$$55>T$"Y"2140FHT$"N"2130\R" ENTER NEW %";MbS\"TAXES =$";T:"O.K.?";E$]fE$"Y"2180pE$"N"2170z" ENTER NEW $";T{"INSURANCE =$";I:"O.K.?";F$EVIEW * *" = "GROSS MONTHLY INCOME=$";MI:"O.K.?";B$C T B$"Y"2060e B$"N"2050| " ENTER NEW $";MI  "VAVANCY & COLL LOSS =%";V:"O.K.?";C$  C$"Y"2100 C$"N"2090 *" ENTER