' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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- (  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`N"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" *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'':::"****************************************"$'::" ** FILE PRINT **#:"#X%.#J1X%7#300A#::L#@4:20X#AP11Ğk#B"A. PRINTER"q#Cw#E#JP1(P1)#O6230"GG%(J)"L6240$"VN2(J)7"[N3(J)N2(J)1B"`G$(J)H"eN"jT"X:l"Y ** OUTPUT FILE **"Z ** REORGANIZED **"[:"]:"NEW FILE NAME = ";M$"bR%3:TE$N$:N$M$"g6000"l6100"qN$TE$:":" ** REORGANIZED **# ** !r:!s !u"OPEN ";N$2!z"WRITE ";N$I!R%6100,6200,7100[!"CLOSE ";N$a!g!:! ** WRITE RECORD **!:!X%!J1X%!A$(J):!!8:!9 ** WRITE HEADER **!::!;Q!=J1Q!BN1$(J)"DN2(J)0 6000:1100 N$M$:3100& :?  ** READ RECORD **E :V "OPEN ";N$g "READ ";N$y R%5100,1000 "CLOSE ";N$  :  ** READ RECORD ** : X% J1X% A$(J):  : p:!q ** WRITE FILE 5 "FILE NAME = ";M$" 7; "HEADER NAME = ";N$C 10e "IS THIS A NEW FILE (Y/N) ";o Q$: Q$"Y"Q$"N"3225 Q$"Y"3300 R%2:5000:1100 L(1)L% L%39L(1)39 N$M$ R%1:5000 3100 1000:R%2] 922b "9. STOP"(g 922:922Gl "NUMBER OF RECORDS = ";X%Qq 922[v 8000j{ K2:900:| L1200,750,1900,2100,2200,2550,1800,7000,3198,8010} 3100~ R%1:6000: : ** FILE QUESTION ** :  "FILE MANAGER"(1)L% N%2:V%23 3200% :; ** MAIN MENU **A :I! :\& " MAIN MENU "e+ :4t0 "1. ADD"5 "2. LIST": "3. SORT"? "4. SELECT"D "5. DESELECT"I 922N "6. TOTAL"S "7. FORMAT"X "8. FILE OUTPUT"00 L2550  :. ** INITIAL **4 :A A$(300)N SE(300)Z MAX300t B$(1)(8)(21)"./" B$(2)"123456789A" B$(3)"DC/" B$(4)"./" B$(5)"X9" B$(6)"1234567890" Y$" " U%1:S(1)1:L)N3(J) 1070 :) ** TOTAL **/ :; J1X%M SE(J)12525q I((A$(J),C%(1),D%(1)C%(1))){ KKI  5:1:K  I1:: " TOTAL ";: " /= MENU .= CONTINUE " 220:2500 12:"TOTAL = ";K K4:991Q J11I1V W$W$"0":-W W$W$" "3X ?[ X0:W$E\ U] C$W$:2030[` :oa ** PICTURE **ub :e VK1:H7:K5:900j N1$(J)Q$:Q$;o L11065t H15:K6:900y N2(J)L:L;".";~ H17:900 L:N3(J)LN2(J)1 G%(J340:2380 X3462330* 2340:2360? W$W$C$:X2X21L X2:W$;V 2315f$ I1X5(W$)u% I102355) J11I1. W$" "W$:3 W$W$".":8 X0:W$;= C$:X3(C$)B X3132380G W$W$C$:2360L I1X6(W$)M I1023XX$2125IKYKY1:SE(KY)J&M:,:C ** DESELECT ** I:USEL0:c:10:20rX610:X56x: ** NUMBER INPUT **:X6N3(I):X5N2(I) W$"" X0(36)1 X2X0X5:X2 C$:X3(C$) X3132325  2%(I)LN)C$C$E$,JJG%(I):B$B$C$:KKG%(I)QJG%(I1)412045aM%M%4:J1gms4:5 ** SELECT **6:9:"STARTING POSITION = ";XX>"STRING = ";XX$?YX(XX$)@KY0:SEL1CJ1X% H(A$(J),XX,YX):$ "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$17):G328::::.D(15)D(17)ī20708 2150@A$F p*"********* REFUND DUE YOU *********"z4::>5100H12);"$";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?";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 $";IES-------".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 EXPENSM 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) :   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 % CAROLINA APPLE CORE5 BOX 31424O RALEIGH, NC 27612U[ag| DISTRIBUTED BY CAROLINA APPLE CORE AND CHIP ANDERSON16368,0^$JH1:583:JH0Gc$:"HIT 'RETURN' FOR NEXT PAGE";:A$:Mh$rr$8:"*** INVENTORY REPORT ***":|$:"ITEM";:15:"QTY";:23:"COST";:32:"TOTAL":$X1: "INVENTATOR" CAC PAC 2#QQ(I):CC(I):TQC"#Q$(Q)6#CR(C):TR(T)B#C$(C)\#UC:B$C$:9200:C$B$x#UT:B$(T):9200:T$B$~##U(U)B$B$".0"#((B$,3),1)"."B$B$"0"$V1(B$):(B$,V,1)"."Ă$B$(B$,V2)$T$ PAGING Y$)."1Z#4);"'L'-LIST. PRINTS A RANGE OF ITEMS."I_#4);"'C'-CATALOG."md#4);"'S'-SAVES ITEMS TO DISK."n#4);"'R'-READS ITEMS FROM DISK."s#4);"'O'-OPTIONS."x#4);"'(ITEM#)'-LISTS A SINGLE ITEM."}#4);"'(ESC)'-ENDS PROGRAM."#: (Y/N)?";:A$:A$!\A$"N"210*f400O(#::2:10:"*** INVENTATOR ***"U2#n<#"THE COMMANDS ARE:"F#4);"'U'-UPDATES (ADDS) ITEMS."P#4);"'P'-PRINTS ALL NON-ZERO ITEMS."S#4);"'N'-NEW. ERASES ALL ITEMS."U#4);"'D'-DELETES ITEM(S(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"OTHE : ";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.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 NEGATI     X1IM36,1:X;'R36,9:W$(X,6);IW36,(31(W$(X,1))):W$(X,1);k\36,(41(W$(X,2))):W$(X,2);a36,(46(W$(X,3))):W$(X,3);f36,(52(W$(X,4))):W$(X,4);kW(W$(X,5)) lTTW:FL1CC(W$(X,2)):CC(CC)CC(CC)W: GRAND TOTAL AND 100 N$425)F$;" SUMMARY REPORT"L927)"TODAY'S DATE ";MT;"/";D;"/";Yh;OM3ĺ27)"SORTED ";A$>:36,1:"SEQ";:36,12:"** PAID TO **";:36,28:"ACCT";:36,36:F$;:36,44:"MO";:36,50:"DAY";@36,56:"AMOUNT"CX170:"=";:X:H23:"NOT A NUMBER..PLEASE REENTER":240i :"LAST ACCT=";W$(I,1);" MONTH=";W$(I,3);" AMT= $";W$(I,5)r 203 23:868: 23:"INVALID ENTRY...PLEASE REENTER":  ** PRINT SUMMARY ** %54,0:55,193 *(2);(30)/" 100N": CTRL I 270? WM(W$(I,3)):WD(W$(I,4)):WM12WD31İ280:230b 22:868:"PAID TO :";W$(I,6)k 270 (W$(I,6))14Ģ23:"MAX 14 CHARS ALLOWED..PLEASE REENTER":235 22:25:868:"AMOUNT :";W$(I,5) 270( (W$(I,5))48(W$(I,5))57Č868::"ACCOUNT # ";W$(I,1)& 270C W$(I,1)"END"ĝ:II1:b W$(I,1)"REDO"II1:204 W(W$(I,1)):W24İ280:205 21:868:F$;:W$(I,2) 270 W(W$(I,2)):FL2W5İ280:225 21:25:868:"MONTH,DAY :";W$(I,3),W$(I,4)20:N$(N12) N) N039:"*";:NV :"1=MC 2=VSA 3=AMEX 4=GAS 5=OTHER" "TYPE 'END' TO END..OR 'REDO' TO REENTER": N039:"*";:N 34,(37): ** INPUT DATA ** 100 II1: 19:868:"SEQ #";I 20:" * * * * * * 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 = ";SFDV1$","(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     W$(N,1)" "W$(N,2)" "2090:X16:W$(S,X)W$(N,X):XD2088p *** WRITE COMPRESSED FILE TO DISK ***IS1:R0:SW11:1050:SW0 *** READ YEAR TO DATE BAL ***2500:"READING YTD FILES":D$;"OPEN BALANCES" D$;"REA:868:"AMOUNT :$";W$(DL,5)d ZZ1:X15:W(Z,X)(W$(DL,X)):X: *** TRANSFER TO WORK AREA ***!W$(DL,1)" ":W$(DL,2)" ": ***FLAG FOR LATER COMPRESSING ***#2070% *** COMPRESS FILE ***'N0:S0(SS1*NN1.NR2205/WARD FOR TREND REPORTING"w15:"WHICH RECORD # DO YOU WANT TO DELETE?":868::"ENTER RECORD # OR TYPE 'END':";DL$DL$"END"ĝ:2085DL(DL$):DL$"":DLRĺ"NO SUCH RECORD. HIGHEST RECORD IS ";R:207017:868:"DELETING :";W$(DL,6):18D$;"READ";F$;",R0"R%X1R>D$;"READ";F$;",R";XsW$(X,1),W$(X,2),W$(X,3),W$(X,4),W$(X,5),W$(X,6)zXD$;"CLOSE";F$SW1ı 93610:"DELETING A RECORD WILL AUTOMATICALLY":"ADD IT TO THE BALANCES BEING CARRIED":"FO1998D$;"CLOSE";F$&R0:1040"CHECK APPLESOFT MANUAL PG. 136 FOR ERR":" THE ERROR IS #";(222):"LOCATED IN LINE #;PEEK (218) + PEEK (219) * 256 *** DELETE RECORDS ***:"READING ";F$;" FILE":D$;"OPEN";F$;",L40"D$;"OPEN";F$;",L40"-$D$;"WRITE";F$;",R0"4)IA.XR1I[8D$;"WRITE";F$;",R";X=W$(X,1):W$(X,2):W$(X,3):W$(X,4):W$(X,5):W$(X,6)BXGD$;"CLOSE";F$LSW1ıQ:BU1:10002: ** RETURN TO MENU **ER(222):216,0:ER5C(P10)(P100)(P1000)(P10000):1" 40N"=SW1ıb:BU1:10002: ** RT TO MENU ** ** ADD TO CURRENT FILE **1950D$;"OPEN";F$;",L40"D$;"READ";F$;",R0"R D$;"CLOSE";F$IR:200: *** INPUT *** CR CD TOTALSpPW:9800u36,(52BC1):W7zXN|X170:"-";:X:[PT:98036,1:"*** TOTAL ***";:36,(52BC1):TFL1990: SKIP CR CD SUMMARY:X15:PCC(X):980:CD$(X);:36,(15BC1):CC(X):X990%B9:)'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 NEGATI  D BALANCES"X124:N112-BAL(X,N)6N,XOD$;"CLOSE BALANCES"[SW1ıy *** UPDATE YTD BALS *** X1Z:BAL(W(X,1),W(X,3))BAL(W(X,1),W(X,3))W(X,5) X D$;"OPEN BALANCES" D$;"WRITE BALANCES" X124:N112 CN,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(B (Y/N) ";QU$:(QU$,1)"Y"2000C bCX1NCd l"CASHFLOW #"CX" = ";C(CX):{ vCX6(CX6)650 " ANY KEY TO CONTINUE ":GA$  10000  10000 :::" CHANGE ANY OTHER INPUTS ? (Y/N) ";A$ A$"NCX) CFNPV . NPV(NPV100.5)100U ::" NET PRESENT VALUE = $ ";NPV] : " WOULD YOU LIKE I.R.R. BASED ON" :" THE CURRENT NUMBERS ? (Y/N) ";RR$ RR$"Y"7000 :6 X"WOULD YOU LIKE TO REVIEW THE CASHFLOWS NPVCF(C(CX)(1I)CX)" ,CFNPV( TB wNPV(NPV100.5)100i |::" NET PRESENT VALUE = $ ";NPV :::" WANT TO RUN I.R.R. ? (Y/N) ";IR$ IR$"Y"7000 ::600 : START BACK THRU DISCOUNTING CX1NC NPVCF(C(CX)(1I)A NEGATIVE NUMBER: ";:C :G :" ENTER DISCOUNT RATE (.00) ";Ir ::::" ENTER NUMBER OF SUBSEQUENT" :" CASH FLOWS, INCLUDING RESALE : ";NC CFC :" CASH FLOW # 0 = ";C CX1NC ::" CASH FLOW # "CX" ";:C(CX) Y C(255) =23:" NET PRESENT VALUE"j<:" USER ENTERS CASH FLOWS":A"* * * * * * * * * * * * * * * * * * * *":::d" ENTER COST OF INVESTMENT,"x:" WHICH IS CASH FLOW # 0 "y }:" ENTER AS          BAL(X,N)$ N,X-) D$;"CLOSE BALANCES"F` 800: *** PRINT ***c *** INITIAL RECORD *** ER(222):216,0:ER51998 D$;"CLOSE BALANCES" 2300 *** SORT SETUP *** SW1:2000:SW0: *** READ FILE ***  936CN,NV%8'" VERIFY ?? (Y OR N) ";VF$>B'(VF$,1)"Y"10010KL'C(CN)NVVV'10010CT TWO PASSES ON THE SCREEN"H^:" YOU DO THE FINAL INTERPOLATION !!!"Uh::600g' * EDITING *'"DO YOU WANT TO CHANGE ANY OF THESE (Y/N)";ED$$'(ED$,1)"Y"ĺ:.'"ENTER AS CASHFLOW# ',' NEW VALUE";:.5)100f:" NPV = ";NPV>g" IRR = ";I20)"PASS # ";NLFpCCXzXXNPV7000gXX0:8000x::" INTERNAL RATE OF RETURN = ";I::600@::" THAT WAS A TOUGH ONE !!!"J:" INTERNAL RATE OF RETURN IS BETWEEN"T:" THE LAS5:7200II.0001:7200/II.0001:7200DII.00001:7200YII.00001:7200oII.000001:7200 II.000001:7200 : START BACK THRU DISCOUNTING*CFC4CX1NC>NPVCF(C(CX)(1I)CX)HCFNPVRCX\NPV(NPV100bNPV307100$lNPV3071106qNPV157150IrNPV157160ZvNPV57170l{NPV57180}NPV17800NPV17800II.001:7200II.001:7200II.0002:7200II.0002:7200II.00015:7200II.00014)D$"RUN HELLO"p<W * * I.R.R ROUTINE * * XX * * I.R.R ROUTINE * *sYXXNPV:CC12:NLNL1ZNPV30007046[NPV30007045\NPV30007046]NPV5007050^NPV5007060_NPV2007070`NPV2007080THING ELSE ? ";C$"C$"Y"2040(l :" 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 "k:" REMEMBER THAT IT IS NEGATIVE $ ";Cw:2280::" ENTER NEW DISCOUNT RATE (.00) ";I2280::" ENTER NEW RESALE PRICE $ ";C(CX)2280:" WANT TO CHANGE ANY2320' :" WHICH WOULD YOU LIKE ? "F " YOU CAN CHANGE ALL 3 !"i ::" CASH FLOW # 0 = 1 " 4:" DISCOUNT RATE = 2 " H:" RESALE PRICE = 3 " \:" WHICH ? ";B$ aB$"1"2140 fB$"3"2140kB(B$ (Y/N) ";QU$:(QU$,1)"Y"2000B bCX1NCc l"CASHFLOW #"CX" = ";C(CX):z vCX6(CX6)650 " ANY KEY TO CONTINUE ":GA$  10000  10000 :::" CHANGE ANY OTHER INPUTS ? (Y/N) ";A$ A$"N"X) CFNPV - NPV(NPV100.5)100T ::" NET PRESENT VALUE = $ ";NPV\ : " WOULD YOU LIKE I.R.R. BASED ON" :" THE CURRENT NUMBERS ? (Y/N) ";RR$ RR$"Y"7000 :5 X"WOULD YOU LIKE TO REVIEW THE CASHFLOWS PVCF(C(CX)(1I)CX)! ,CFNPV' TA wNPV(NPV100.5)100h |::" NET PRESENT VALUE = $ ";NPV :::" WANT TO RUN I.R.R. ? (Y/N) ";IR$ IR$"Y"7000 ::600 : START BACK THRU DISCOUNTING CX1NC NPVCF(C(CX)(1I)C NEGATIVE NUMBER: ";:C :F :" ENTER DISCOUNT RATE (.00) ";Iq ::::" ENTER NUMBER OF SUBSEQUENT" :" CASH FLOWS, INCLUDING RESALE : ";NC CFC :" CASH FLOW # 0 = ";C CX1NC ::" CASH FLOW # "CX" ";:C(CX) NX C(255) <23:" NET PRESENT VALUE"i<:" USER ENTERS CASH FLOWS":A"* * * * * * * * * * * * * * * * * * * *":::d" ENTER COST OF INVESTMENT,"x:" WHICH IS CASH FLOW # 0 "y }:" ENTER AS A          CARD/CHECK NUMBER"+ SR3A$"BY MONTH"P SR4A$"BY DOLLAR AMOUNT":SR5_ SR53010 X1R:N15:WK(X,N)(W$(X,N)):N,X: *** CONVERT STRIN G S TO DIGITS ***  :"SORT IN PROGRESS"::10 X1R:N15:W$(X,N)(WK(X,N)):N,X`:X039:"*";:X? :"WHICH FIELD DO YOU WANT TO SORT ON ?" 10:"1 = ACCOUNT NUMBER":10:"2 = CR CARD/CHECK NUMBER":10:"3 = MONTH":10:"4 = DOLLAR AMOUNT" ::"ENTER YOUR SELECTION: ";SR: SR1A$"BY ACCOUNT NUMBER" SR2A$"BY ROSTER"H3ıH4ı'150= RETRIEVE ROSTERWD$(4): CTRL-D mD$;"OPEN ROSTER" D$;"READ ROSTER"I1A(1)L$(I)(I2D$;"CLOSE ROSTER"<0.I". ";L$(I),8I B8L:10);I". ";L$(I)?VIE`Wj MAKE ROSTERotD$(4): CTRL-D ~D$;"OPEN ROSTER"D$;"DELETE ROSTER"D$;"OPEN ROSTER"D$;"WRITE ROSTER"I1(A(1)N(1))L$(I)ID$;"CLOSE0% PRINTS ALL INFO ON THAT LINE.6:10)L$(M)KD14500:D:::"WANT THE LOCATION OF ANOTHER NAME ? (Y OR N) ";X$X$"N"160600 LOOP FOR PRINTING INFO EITHER IN ROWS OR IN COLUMNSI1(A(1)N(1))$R111030zC$(M)LOOK$LEM1:910*REM1:LERE820i"NAME DOES NOT EXIST ":J11500:J:10005)"THAT INFORMATION IS AT LOCATION":"-----> ";M DELETES LINE.H4L$(M)"":A(1)(A(1)1):::"THAT LINE HAS BEEN DELETED":60O USING THE HALF-SPLIT METHOD._ ::"ENTER THE NAME YOU ARE SEARCHING FOR ?"::5)"---->";p*(10):LOOK$4M((LERE)2)::>A(LOOK$)HA10LOOK$(LOOK$,10)RC$(M)L$(M)\B(C$(M))fB10C$(M)(C$(M),10)pC$(M)LOOK$91780N(A(1)N(1))&LE1:REN4P21130AH1780SH2ľQ$:160aH3ī740uH4PP1:800H5800 ADDS NEW NAMESI(A(1)1)(A(1)N(1))I". ";:L$(I)IH3410 1130:160 SEARCHES FOR INFL$(I)L$(J)540T$L$(I)/L$(I)L$(J)<L$(J)T$CJJ&IY0H3GG1f:H3620xDH3ė:N(1)1NP1İ1130:P0:150XP1ī410b PRINT ALPHABETIZED LISTl:::10)"------- LISTING -------":::v1050H3G5801  INPUT INFO AND IT WILL BE ALPHABETIZED.N "INPUT ";A(1);" ITEMS "n I1(A(1)N(1))::H2440w 430 I". ";:L$(I) C$(I)L$(I) A(C$(I)) A10C$(I)(C$(I),10) I I1(A(1)N(1))1 J(I1)(A(1)N(1))" 1. IN ROWS (IE.)"; 6" A. -------"Y @" B. -------"w J" C. -------" T:" 2. IN COLUMNS (IE)" ^:" A. ------- B. ------- C. -------" h5)"(1 OR 2)" rR::: |H1İ1260:. "NEW READ ADD DELETE SEARCH END"I :" (1-6)--------> ";P H[ H6Āh H3G0 ::::"HOW MANY ENTRIES WILL THERE BE ? ";A(1)  ASK HOW LIST IS TO BE DISPLAYED. "::::"HOW DO YOU WISH THE LIST DISPLAYED ?" ,:RCHING FOR INFO ONLY THE FIRST 10 LETTERS ARE NECESSARY. THE COMPUTER WILL PROVIDE ALL THE INFO ON THE LINE."u Q${ " CHOOSE THE OPERATION YOU WANT" PRINT MENU TO SELECT FROM. ::: "1 2 3 4 5 6" ::n x" THIS PROGRAM WILL MAKE A ROSTER OF NAMES AND ADDRESSES. UP TO 255 ENTRIES PER LINE ARE ALLOWED." :" THERE ARE PROVISIONS TO CHANGE(DELETE), ADD, READ EXISTING LIST, AND SEARCH FOR ANY OF THE NAMES WITHIN THE LIST."m :" WHEN SEA  ,10)"*******************"K(10)"* SEARCH *"j210)"* BY AL LAST *"<10)"* CS-28 *"F10)"* 06/16/80 *"P10)"*******************"ZJ11000:JdA(45):I(45):L$(45):C$(45) n        )X:)%4395U)&X1R:WK(X,1)(W$(X,1)):WK(X,2)(W$(X,3)):WK(X,3(W$(X,5)))(BAL(WK(X,1),WK(X,2))BAL(WK(X,1),WK(X,2))WK(X,3):X:)+" 40N")-54,240:55,253).:BU1:10002: ** RT TO MENU **B*0936:"THIS IS THE UNWRITTEN GRAPHICSX124:NM$(X);-(N112:BAL(X,N)04362B(PBAL(X,N):4295h(B14:36,((N9)BC1):BAL(X,N);( TL(N)TL(N)BAL(X,N)( N:( X(X1130:"-";:X:("** TOTALS **";(X112(PTL(X):4295(B14:36,((X9)BC1):TL(X);ODAY'S DATE: ";M;"/";D;"/";Y+'XN7:XJ10'1)"EXPENSE DESCR'";:XJ)MO$(1);:XN)MO$(2);:XN)MO$(3);:XN)MO$(4);:XN)MO$(5);:XN)MO$(6);'XN)MO$(7);:XN)MO$(11);:XN)MO$(12)'X1130:"=";:X':L0'X124:NM$(X)N$(X):X( *** ADD CURRENT CARDS TO BALANCE ***/&4390`&F$"CHECK #":2000: *** READ CHECK FILE ***j&4390&SW0: *** SHUT OFF SWITCH **&54,0:55,193&(2);(31)&" 130N" CNTL I 130N'36,50:"YEAR-TO DATE SPENDING ANALYSIS":36,55:"T5:B5:36,36BC1:TL(MT1);A%PTA:4295:B5:36,51BC1:TAf%4395: *** SHUT OFF PRINTER ***%C(P10)(P100)(P1000)(P10000):% *** YTD SPENDING ***%SW1:2250: ***READ YTD FILE***%F$"CARD #":2000: READ CARD FILE%&:PC(X,3);"%";2$BAL(X,MT)AV(X)X$"ABOVE AVG"V$BAL(X,MT)AV(X)X$"BELOW AVG"{$BAL(X,MT)AV(X)X$"EQUALS AVG"$36,70:X$$X$X185:"-";:X:$"*** TOTALS ***";$PTL(MT):4295:B5:36,20BC1:TL(MT);%PTL(MT1):429;#BAL(X,MT1)042555#PBAL(X,MT1):4295:B5V#36,(36BC1):BAL(X,MT1);n#PPC(X,2):4295:B3#36,(46BC1):PC(X,2);"%";#AV(X)0ĺ:4270#PAV(X):4295:B5#36,(51BC1):AV(X);#PPC(X,3):4295:B3$36,(61BC1)ST MO";:XP)"% TOT";:XM)"AVG MO";:XP)"% TOT";I"XM)"CUR VS. AVG"`"X185:"=";:X:l"X124y"NM$(X);"BAL(X,MT)04247"PBAL(X,MT):4295:B5"36,(20BC1):BAL(X,MT):"PPC(X,1):4295:B3#36,(30BC1):PC(X,1);"%")!{X124:PC(X,3)((AV(X)100)TA):XE!|X124:NM$(X)N$(X):XW!~54,0:55,193g!(2);(30)t!" 90N":!36,24:"TREND ANALYSIS FOR THE MONTH OF ** ";MO(MT);" **":!XM4:XP22""ACCOUNT DESCR'";:8)"CURR MO";:XP)"% TOT";:XM)"LASHUT OFF SWITCH ***p wX124:N1MT:AV(X)AV(X)BAL(X,N):TL(N)TL(N)BAL(X,N):N,X: *** CROSSFOOT & SUM *** yX124:AV(X)AV(X)MT:AV(X)(AV(X)100.5)100:TATAAV(X):PC(X,1)((BAL(X,MT)100)TL(MT)):PC(X,2)((BAL(X,MT1)100)TL(MT1))!zX TREND ANALYSIS ***:jSW1:2250: *** READ YTD FILE ***ilF$"CARD #":2000: *** READ CARD FILE ***n4390: *** ADD CR CDS TO BALANCES ***pF$"CHECK #":2000: *** READ CHECK FILE ***r4390: *** ADD CHECKS TO BALANCES *** tSW0: *** AR GRAPH OF SPENDING PROFILE"A15::"ENTER SELECTION :";RP:J270_RP4İ280:4030{RP4100,4200,4300,4400 *** LIST FILE *** SW1:2000:SW0: *** READ FILE ***IR:SW1:800::BU1:10002: *** RETURN TO MENU ***h ***U1:10002:*** RETRUN TO MENU ***> *** RPORT OPTIONS ***F:[X139:"*";:X|12:"*** REPORT OPTIONS ***:"1 = LIST AND TOTAL CURRENT FILE""2 = TREND ANALYSIS & AVERAGE MONTH""3 = YEAR TO DATE SPENDING PROFILE":"4 = B IR:"PRINT SORTED LIST ON THE PRINTER ?"::"ENTER 'Y' OR 'N' :";X$::X$"Y"SW1:800:SW0h R0p 13 "SAVE SORTED LIST ON DISK? :"::"ENTER 'Y' OR 'N' :";X$::X$"Y"SW1:1050:SW0 270 X$"Y"X$"N"3055 280:3048" :BŠɠӠˍ֠ōˠɠčΠظįˠɠčŠčӍ )2005LTLĺW$;%LL1:2005> SP(0)A$B$:2095JY(37)[XSP(0)1y P1024X128Y984(Y8)%A$A$((P)128)*/4:12:>INNN1:AAN:2120CAAIHC(AA)C:Q(AA)Q:A$(AA)A$(I)M1105R"MOREjQ(H)Q(X):C(H)C(X):A$(H)A$(X)+oHH12tX8~NA$"":L0:SP(0)VW$bA(W$)qA132060A21ĺW$;:(0)2:2050A82040LL1:L0L0:2005W$;:20052005A272100F1(A46A32(A48A57)A$"Y"2001100."MORE?";:A$:A$>A$"Y"900G210Mg"ITEM #";A;"-";A$(A)10);"QTY ON HAND=";Q17);"COST= $";C$16);"TOTAL= $";T$LA$(I)"":A(I)0:NN1QH1VX1N1`Q(X)01140!(I),A$(I):\D$;"CLOSE"?f"DATA READ IN...":I01500:Hp120S650:eN1A1:925"PRINT THERE ARE ";N;" ITEMS ENTERED.""ENTRY TO DELETE (1-";N;")";:AA1AN120IA9100:1000"ARE YOU SURE?";:A$:A$DO YOU WISH TO APPEND DATA TO CURRENT SET (Y/N)?";:B$:B$^*(A$,4)".INV"A$A$".INV"u/"READING DATA..."4D$;"OPEN";A$>D$;"READ";A$HQ:B$"N"NQ:850JN0N1MINNQ1:C(I),Q(I),A$(I)::NNQ1:860 RI1N:C(I),Q"D$;"OPEN";A$&D$;"WRITE";A$-NMI1N:C(I):Q(I):A$(I):]D$;"CLOSE""DATA SAVED...":I02000:120 :"WHICH FILE DO YOU WISH TO USE?";A$%(A$)1(A$)30ĺ"ILLEGAL FILE NAME":800'N0B$"N":810<("D (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 ** * ******     "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$RE THAN ONE ENTRY." A$} :8:" *** BUSINESS CALCULATIONS ARE ALSO INCLUDED IN THIS PROGRAM IF YOU WISH IT. ***" I11500:IQ " TO CUSTOMIZE THIS PROGRAM FOR YOUR PERSONAL NEEDS, JUST CHANGE THE LINES THAT DON'T APPLY.LINE NUMBERSWITH YOUR 1040 FORM AND ENTER THE CALCULATED AMOUNTS IN THEIR CORRECT LINE LOCATIONS."g I11500:Io : " THERE ARE SEVERAL LOOPS PROVIDED TO FULLY UTILIZE THE COMPUTER'S ADDING ABILITIES. THESE LOOPS ARE USED WHEN A SECTION MIGHT REQUIRE MO1040 FORM. THIS IS A GENERAL PURPOSE PROGRAM"d " FOR USE WITH THE APPLE II PLUS COMPUTER SYSTEM.n :: " THERE IS WIDE USE OF THE PAUSE COMMAND, WHICH WILL PAUSE UNTIL ANY KEY IS PUSHED." A$V :8:" PLEASE FOLLOW THIS PROGRAM *"8 P8)"* *"c Z8)"********************************"t dI11500:I n:10:"DO YOU WANT INSTRUCTIONS ? (Y OR N) ";I$:I$"N"270 x- 8:" THIS IS AN INCOME TAX PROGRAM FOR USE WITH THE I.R.S. !/ 610:8)"********* INCOME TAX ***********"a8)"* *"(8)"* BY ALBERT G. LAST *"28)"* P.O. BOX 843 SAN ANDREAS *"<8)"* CALIF 95249 *" F8)"* 1/25/80                 RECORDS"_.L'10:"3 = SORT RECORDS":10:"4 = REPORT/LIST OPTIONS":10:"5 = END THE SESSION"g.N'10.Q'::"ENTER YOUR SELECTION :";OM:.R'270.S'OM410070.T'OM5ĺ"ALL DONE":.U'OM5İ280:10062.V'13I/X'"NOW ENTER THE NUMBER FOR SELTO DATE DATA"[-8':"FROM THAT POINT,SIMPLY FOLLOW THE ":"INSTRUCTIONS FROM THE SCREEN":-=':"HIT RETURN TO CONTINUE ";X$:-B'936:I139:"*";:I: .G'"ENTER THE NUMBER OF THE OPTION YOU WANT":"TO USE.":10:"1 = ADD RECORDS":10:"2 = DELETE:"HOME FINANCES."L,$':"YOU'LL BE ASKED TO SELECT FROM THESE":"OPTIONS:",)'10:"ADD":10:"DELETE":10:"SORT":10:"REPORT/LIST":10:"END OF SESSION"::"THEN YOU'LL BE ASKED WHETHER TO USE...",.'10:"CREDIT CARDS":10:"CHECKS" -3'10:"YEAR ;X$+D:BU1:10002+'936b+'H0:K0:J0:V0:R0:CM0:F0:WK(150,5): ** SORT VARIABLES **r+'BU110050+'7:"HOME FINANCE MANAGEMENT"+'I039:"=";:I,'"THIS IS YOUR PERSONAL SYSTEM FOR MANAG-":"ING CREDIT CARDS, CHECKS, AND OVERLL" OPTION":"FOR TRAC."::"YOU CAN WIN A PROGRAMMA JOYSTICK AND AN"*5"EXPANDA-PORT FOR THE BEST PROGRAM."::"SEND YOUR ENTRIES TO:":10)"MICRO SPARC":10)"P.O. BOX 325"*:10)"LINCOLN, MASS. 01773"+?:"HIT RETURN TO RETURN TO MENU OF OPTIONS"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 NEW %";V +4"MANAGEM" INDICATED PROPERTY VALUE =$";PV- 3 _ " WANT TO CHANGE ANYTHING ?(Y/N): ";A$q A$"Y"ī2000 A$"N"ī1500  (30):(12):"ADIOS" T1600:T D$(4): CNTRL"D" D$"RUN HELLO"   "* * ENTRY RESS 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     z#??  ̠ŠΠ ԠŠ  ؠΠŠàŠŠԠ- ӠȠ ԠԠŠ ԠԠŠҠ ֠ŠŠ֠ŠŠҠ֠ŠŠҠ̠ŠĠ  ŠǠ!ŠȠĠ "ŠȠŠĠŠȠΠ Šؠ1Ҡ Ү֠ ˮƠЮ֠ĠԠӠ ĠȠӠĠȠӠĠ ŠҠŠҮؠϠ ӠŠŠӠŠ ΠŠĠ ΠŠΠ ˮ֠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 #(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     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    RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P xAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA AX-FEDERAL,23.VACATION,24. WATERV3 + JAN,FEB,MAR,APR,MAY,JUN,JLY,AUG,SPE,OCT,NOV,DEC3+ MASTERCHARGE = $,VISA CARD =$,AM EXPRESS "$,GASOLINE =$,OTHER CARDS =$3 +" 40N"3*+1998 ULT,5. CLOTHES KIDS,6. DONATIONS,7. ELECTRICITY,8. ENTERTAINMENT2* 9. FOOD,10.GIFTS,11. HOBBY-ADULT,12. HOBBY-KIDS,13. HOME-GAS,14. HOME-MAINT,15. INSURANCE,16. INVESTEMENTS,17.LIQ/CIG'S,18. MORTGAGE 3+ 19. TELEPHONE,20. TAX-LOCAL,21. TAX-STATE,22.TM$(24),AV(24),PC(24,3),MO$(13):I0M1*868::"HIT RETURN TO CONTINUE";X$:c1*X124:N$(X):Xz1*X112:MO$(X):X1*D$;"NOMONI,O,C"1*X15:CD$(X):X:OM1000,2000,3000,4000@2* 1. AUTO EXPENSE,2. BOOKS/MAGS.,3. BUSINESS EXP,4. CLOTHES ADL3İ280:100700h'18J0j'::"NOW ENTER THE DATE..MO,DAY,YR:";MT,D,Y:S0k'270o0l'MT12D31İ280:100880t'FL1F$"CARD #"0y'FL2F$"CHECK #"0)N$(24),BAL(24,12)0 )D$"": CONTROL D0 )D$;"NOMONI,O,C""1)W$(100,6),W(24,13),TL(12),NECTING THE":"FILE TO BE USED.":10:"1 = CREDIT CARDS":10:"2 = CHECKS"j/['10:"3 = YEAR-TO-DATE DATA"/`':"ENTER YOUR SELECTION :";FL:/b'FL3OM4ĺ"YEAR TO DATE FILES ARE ONLY ACCESSIBLE":"FOR REPORTS..PLEASE REENTER.":10070/c'2700e'F 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  WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    2F15, 7TKWK(H,F):WK(H,F)WK(V,F)TK3 FF] HT$W$(H,6):W$(H,6)W$(V,6):W$(V,6)T$g KHHMo U30y WJJ1 YJK12 [25 _54,240:55,253 a d ** WRITE ACCOUNTS ON SCREEN ** i936:N039:"*";:N nN112:N$(N); x+ "") ** APPLE T.R.A.C. **I ** MICRO-SPARC **i ************************* 10000: ** HEADER ROUTINE ** MR: ** SORT ROUTINE ** M(M2):M095J1:KRMHJVHM:CMCM1(WK(H,SR)WK(V,SR)87                 S A METHOD FOR KEEPING TRACK OF NAMES AND ADDRESSES ON A DISK FILE."JUp::4]rG0vu" OPEN NAMES, L20"zI1100I" WRITE NAMES,B0,R"I" """I" CLOSE NAMES"'R$(H), +h" OPEN NAMES , L20"8rI1100Sw" READ NAMES, B0,R"I^yG$(I)eIn""t0A1100:" WRITE NAMES,B0,R"A?G$(A)DN" CLOSE NAMES"X" CLOSE PAYERS"b80D:5:"THIS PROGRAM PROVIDEQQ(B$(I)))B$(I1)2 C$(I)QQ(C$(I)))C$(I1); " "D " "K IR 0Z 80:"IT IS NECESSARY TO NUMBER AND NAME EACH ADDRESS RECORD. EACH NUMBER AND NAME MUST BE DIFFERENT. BELOW ARE THE NAMES AND NUMBERS USED"H135H1)GlE$q""5v"ENTER ANOTHER ADDRES? Y/N":A$F{A$"Y"ī500P4400 ::8:"BE SURE THE PRINTER IS TURNED ON" :"ENTER ANY LETTER TO CONTINUE":Z$ QQ40 1 " 80N" ISNEN2 A$(I)QQ(A$(I)))A$(I1) B$(I)! &E$)4000@+:::"ENTER FILE RECORD NUMBER"::Fh,::"ENTER FILE RECORD NAME"::F$u.G$(F)F$0" OPEN ADDRESS,L120":" WRITE ADDRESS,R"F",B0"DC$N" WRITE ADDRESS,R"F",B40"XD$b" WRITE ADDRESS,R"F",B80"I ""6""DO YOU WISH A PRINTED RECORD? Y/N";Z$H6Z$"Y"ī3000P@80:5::"INPUT NAME LINE. LIMIT 40 SPACES"C$::::"INPUT STREET LINE. LIMIT 40 SPACES" D$::::"INPUT TOWN LINE. LIMIT 40 SPACES"R":SN "END NUMBER":EN7 " OPEN ADDRESS,L120"D ISNEN` " READ ADDRESS,B0,R"Ih K$ " READ ADDRESS, B40,R"I L$ " READ ADDRESS,B80,R"I M$ A$(I)K$ B$(I)L$ C$(I)M$ K$ L$ M$ : dB$"R"200 nB$"W"5001 xB$"0"100009 80 :"TO READ A RECORD IT IS NECESSARY TO KNOW THE RECORD NUMBER. THESE ARE LISTED BELOW" 4010 "TO SEE ANY RECORDS ENTER THE FIRST AND LAST NUMBER OF THE GROUP DESIRED" "START NUMBE (:"MAY, 1979"2 *"REVISED NOVEMBER 6, 1979"? -A$(100)L 2B$(100)Y 7C$(100)a 920~ <:15:"ENTERING DATA": AG$(100) B4200 F5000 P:"DO YOU WISH TO READ OR WRITE TO THE FILE? R/W" U:"TO EXIT PROGRAM ENTER 0" ZB$ ::7~ THIS PROGRAM USES TWO FILES ON DISK ONE AS AN INDEX IS JUST NAMES AND THE OTHER IS COMPLETE NAME AND ADDRESS "ADDRESS FILE" :"WRITTEN BY" :"NELSON GOTHIE" #"BOX 42 BREEZEWOOD, PENNA., 15533" %"PHONE 814-735-4553"LOCATE THE RIGHT HAND NAME PRINT  THIS PROGRAM IS SET UP FOR A PRINTER IN SLOT #1. THE PRINT OUTPUT FORMAT IS 2 ADDRESSES WIDE SPACED FOR STICKY LABLES. CHANGE PRINTER SLOT AT LINE 3010. CHANGE PRINT FORMAT AT LINE 3020 ET SEQ. " NOMON C,I,O" v THIS IS A SIMPLE ADDRESS FILE. IT REQUIRES A DISK IN SLOT 7 TO RUN AND IS LIMITED TO 100 NAMES AND ADDRESSES. THERE IS A ROUTINE AT 6000 TO START THE NAMES FILE SO THAT THIS PROGRAM WILL RUN  AT 3005 THERE IS A VARIABLE QQ WHICH WILL RE     E DIPAL 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"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     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(3P(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     ōύōҍō؍Ӎ ˩ˠŠӍԠӍӨ̍àˍӍŠԧĠӨ˩Ө˩Ө˩ˠӍӍԠӍΠŠӍàЍŠōҍӍӨ 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 =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      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     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 |560OD 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     ROL" {200JI1%100::+:D ** ENTER RECORD **J:RK1eJ1:M%4:B$""pI1Q{M%:J(A$(LX%),K,G%(I))M%:JN1$(I)"9"2300"";C$LN(C$)LNG%(I)2015LNG%(I)2030E$(Y$,G"NUMBER OF LINES PER PAGE = ";V%,'922S("NUMBER OF LINES PER ENTRY = ";N%e+Q%(V%N%)1o,9220"NUMBER ENTRIES ? .=YES, /=NO "5K4:900:L2P01?L1P00Dl:m ** SORT CONTROL **n:qv"SORT CONTB:E: J" CHANGE ":0O1300:2000AT400:X%X%1OYA$(X%)B$g^J1:C(1)1:D%(1)L%rc100:x:  ** PRINT CONTROL ** : :"PRINT CONTROL"200J1IS(J)C%(J)L(J)D%(J)C%(J)!:U%I"::"&:M%G$(L);:" ";:3IOI:JK:M%M%4<1:B:[ ** PRINT DETAIL **a:rK1:J1:M%4}I1QM%:J(A$(LX%),K,G%(I))JJG%(I):KKG%(I)JG%(I1)411570M%M%4:J1":@:A ** CHANGE **J1:C%(1)1:D%(1)L%!100*""7K4:900HL1200,1245NT:m ** PRINT HEADER **s:J1:M%3:IO1I1Q#KG%(I)(G%(I)39K39-JJK2J41İ14007<J41İ1400Ax:}LIOI10oE$(Y$,L)&tG$(J)E$G$(J)E$Jy(G$(J))G%(J)G$(J)G$(J)" "\~G%(J)G%(J)1cJio: ** ENTER **::" ADD ";:" /= MENU .= CONTINUE "X%X%1:LX%X%1300:2000X%MAXijA$(X%)B$8L%I 9=L:-M ** REFORMAT **BN ** HEADER **HO:SQJ1QlV(G$(J))G%(J)1125[G$(J)(G$(J),G%(J))`1150eY$" "fYZG%(J):G%(J)39YZ39jL(YZ(G$(J)))2kL1115G%(Q1),G$(Q)3:126"FIELD DESCRIPTION"?:5P "START";:7d "PICTURE";:15w"LENGTH";:23" CAPTION ":I1J1Q$K1J6:K1:I;%2400)15:"";G%(J).K1:23:"";G$(J)3IIG%(J)1:";LX%M500:700O(R:"PR#0"0\:6:J ** CONTROL **P:]K4905iH1:VH{L0:H:V:Q$LL1L(B$(K))905Q$(B$(K),L,1)910: ** DEFINE HEADER **:"NUMBER FIELDS ";Qİ1800 700:P%1 600:% :; ! ** DIRECTORY **A ":X %L810,820,830,850d *P%P%1t /P%0P%1z 0 4P%P%1 5E(X%Q%) 6E(X%Q%)EE1 9P%E1P%1 : >1:8:868 C:" DETAIL OF RECORD NUMBER? ";:H" OFFSET lEX%627# qJQ%:655) s:2 v3008 F P01655Q :E:[ :K1i 900:800r 605x :  ** LIST HEADER ** : : " LIST ";: " <- -> .= DETAIL"; " /=MENU PAGE=1" M%23  : Q%0=LIST" 1300:1500# K3:9007 L400,1600,540A L1:G X:^ Y ** LIST PRINT **d Z:w [P11ĺ"PR#1" ]1:38:958 _OFFSET(Q%(P%1)) bP%:3 cJ1Q% dSEL0619 hESE(JOFFSET) iJOFFSETKY630 j625 kEJTRY ** .: 6I1U%4 ;(A$(E),S(I),L(I));Z$;< @:B :U  ** DELETE **[ :k A$(LX%)"^" J1:C%(1)1:D%(1)L% 100 X%X%1  :  ** DETAIL ** : : " DETAIL "; :" D=DELET"; "E C=CHANGE /"NUMBER OF FIELDS = ";I( I102103 8:15T "START FIELD STOP FIELD"_ J1Ii 10J{ "FIELD ";J; 20:"";C%(J) 10J 35:"";D%(J) D%(J)C%(J)C%(J)0D%(J)256235 IIII1  ,: - ** PRINT EN115,00:116,150! 38143?" BLOAD FILE MANAGER.X"I3000Od:ge ** SORT DRIVER **mf:|i0,C%(J)1j1,D%(J)1n:M%(X%256)o:s2,X%(M%256)x3,M%}38144: ** FIELD SELECT **:5           INkiliiiTc YVȱZW3]p<< i i  L$`iiL<ʈʈФ <=`@ L