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`&AA1:A(A$)9920-&(A$,A,1)"."9905D&A$(A$,A2):9925[&A$(A$,A3)".00"k&A$(A$,10)&(A$,4,1)" "A$(A$,2,3)","(A$,6)&A2$(A$,7): BT21v XT2(1F)T31x T2(LF)(11X):T3T2R T2100(T2100)T3T2.01i P1((T3100))100o4!!(12C1N)(12C1N)8800"S5S1(12C1N)"8200`"M$"CAN'T DO IT !!!":2500& MASK&A$" "(A)"00":A0(A72)A72A72@:22:" ";::A7:M$;::40:" ";:FQ@ CALCJS1CR12001:S2(CN12):S3S12:S4S21TS408700S5(S4S3S1S3S4)S2((S5S3)S3)1E88200S3S58100 S6S51:S7S6 FS7l T3T:R:9900:(A$,6);, JAP1:9900:" ";A$;9 LAP1TLN N9900:" ";A$` RRR012500r \RR.25:VV1| f2110 M$"PRESS ANY KEY":5000 22:30:A7$ 90  22:2:" "A740(M$):A7S...12 = 1 YEAR":5000) n7:24:" ";T$: pT$"B"1300P vT(T$):T0T12l (T2)T2T2551900| T5101900 AT:9900:7:25:" ";A2$  9:" RATE";:11:"MTHLY PYMT";:23:"COST OF LOAN" 4RR01:V11 >8000 HV:A I$""I$"M"- I$"M"C1:I$"MONTHLY"L "I$"Q"C3:I$"QUARTERLY"o $I$"S"C6:I$"SEMI-ANNUALLY" &I$"A"C12:I$"ANNUALLY" (C01300 F6:25:X$;:40(I$):I$ N12: PYMTS/YR l7:25:"--- (RET = 12) ":M$"EG. 300 = 25 YRE(%)":5000 5:24:" ";R1$1 R1$"B"1100Q R(R1$):R0R99.991200Z R0Rw AR:9900:5:25:A$;"%" 6:25:"- (RETURN = M) ":M$"M=MTHLY..Q=QTRLY..S=SEMI-ANN..A=ANNUAL":5000 6:24:" ";I$ I$"B"1200 C0 X$I$ B (RETURN) - TO CORRECT PREVIOUS LINE ";:1 O L4:25:"---------- "y VM$"ENTER LOAN OR MORTGAGE AMT":5000 `4:24:" ";L$ tL(L$):L0L9999991100 ~AL:9900:4:25:A$ 5:25:"------ ":M$"APPROX YRLY INTEREST RAT LOAN PROGRAM6 G.JONAS/TIME PROVEN SYSTEMS>Z:dd"LOAN ADVISOR: BY G.JONAS / TPS"x4:"AMT OF LOAN":"APPROX. INTEREST":"COMPOUNDED"7:"AMORTIZATION PERIOD"21:Z140:" ";:Z22:" ";:22:40:" "+ 23:"        ER,2228 MONTCLAIR PL.,CARROLLTON TX 75006,H/245-5058 B/233-6000/4691,W5USJ^L' END,*,*,*,*,*E OF DALLAS,THE CORNER #912 WALNUT/CENTRAL,DALLAS,363-2223,zKz S,THE BYTE SHOP,1490 W.SPRING VALLEY RD.,DALLAS,234-5955,K S,KA ELECTRONIC,1220 MAJESTY,DALLAS,634-7870,K S,THE MICRO STORE,634 S. CENTRAL,RICHARDSON,231-1096,JL A,CHUCK CARPENTDALLAS 75227,381-0340,+ WD5HZCgJR 2130,JIM MCCARTER,3300 ROCKNE LN.,MESQUITE 75150,270-0707,WD5DFQJ\ SA,COMPUTER IMAGINEERING,2825 VALLEY VIEW LN,FARMERS BRANCH TX,247-6393,Jf S,COMPUSHOP,13929 N. CENTRAL,DALLAS,234-3412,:Kp SA,COMPUTERLAND1517 CHRUCHILL DR.,DENTON 76201,817-387-1897,+ W5UBTI42100,KEN WINTERS,5307 MARSHFIELD CT.,ARLINGTON 76016,817-457-5307,+ NN5AUXI>2110,CORKEY YANT,3537 BEVERLY DR.,FT. WORTH 76117,817-834-6824,+ WB5SKI JH2120,PAUL ZETTLER,8237 NORVELL DR.,-3097,+ K5DMVH 2060,ROB TUBBS,7831 BLACKBIRD LN.,DALLAS 75238,349-0293,+ WB5OQGH2070,GORDON TURNER,BOX 2694,DALLAS 75221,350-9939,+ WB5QYLH 2080,BRITTON VINCENT JR.,3338 DARBYSHIRE,DALLAS 75229,351-6867,+ W5UPV6I*2090,ROBERT VINCENT, BOX 212-E,MCKINNEY 75069,442-2149,+ WD5EWWxG2030,JOSE SANCHO,1000 SUMMIT CIR.,CARROLTON 75206,242-2997,+ WB5YFUG2040,RON SHIPMAN,722 LONGBEACH DR.,GARLAND 75043,271-2129,+ N5AAPH2050,CARROLL SMITH,831 NORTHLAKE DR.,RICHARDSON 75080,23581,+ K5VXMVF1970,BARRY MERRILL,10717 CROMWELL DR.,DALLAS 75229,351-1966,+ W5GNF1980,BOB MONNAGHAN,SMU P.O.BOX 2182,DALLAS 75275,692-2749,+ W5VCF2000,TIM OLMSTEAD,1623 ROSEMONT,MESQUITE 75149,288-0371,+ WB5PFJ-G2010,DON PORTCH,RT.2S,1604 WILLIAMSBURG,PLANO 75074,423-0407,+ WD5GIKsE1940,FRANK KAMP,907 DUMONT,RICHARDSON 75080,235-0610,K5DKZE1950,PAT KUYKENDALL,6529 SUMMIT RIDGE,WATAUGA 76148,817-485-2771,+ WB4SFY F1960,HANK LEVINE,10617 MARSH LN.,DALLAS 75229,350-71G 75060,*,+XDl1900,STEVE HEIMS,249 SUNNYDALE DR.,HEWITT 76643,817-662-4583,+ WD4PAADv1910,ALLEN JACOBSON,P.O. BOX 15,PARAMUS NJ. 07652,201-261-6800,+ WA2WSBD1920,JOHN JOHNSON,RT.2 BOX 260,MCKINNEY 75069,442-1664,+ K5AXH3E1930,REX JONED1860,DOUG GIBSON,3616 WEEBURN,DALLAS 75229,357-2717,+ W5PDCN1870,PETE GOUDREAU,13555 KIT LN. APT.#138,DALLAS 75240,783-4982,+ WB5RKCCX1880,BILL GUNDERSON,BOX 1432,DALLAS 75221,526-1813,+ W5PSN Db1890,DAVID HASTINGS,651 FRANCINE DR.,IRVIN76118,817-498-2785,+ W5SGXcB&1830,PETE FISHER,7253 EDGERTON DR.,DALLAS 75231,341-1120,+ KA5CRTB01840,RON FRANKLIN,6125 FORREST EDGE,FT. WORTH 76119,817-536-9467,+ WD5GICB:1850,ERNEST GAW,3714 LEGENDARY #137,DALLAS 75224,357-7106,+ W5MXC?CRRY DREWS,3705 WALTON AVE.,FT. WORTH 76133,817-292-5932,+ W5VDCA1800,CLIFF ELSTON,2826 WASKOM ST.,DALLAS 75228,327-3757,+A1810,ALLEN ERICKSON,13868 FAR HILLS LN.,DALLAS 75240,661-2293,+ WD5CGBB1820,CURLY FIELDS,4116 MORGAN CIR.,FT.WORTH -2058,+ WB5YPSZ@1760,LUKE DAVIS,1333 CEDAR KEYS,LEWISVILLE 75067,436-7409,+ KA5CXM@1770,GLEN DEEN,629 WINCHESTER DR.,RICHARDSON 75081,235-4391,+ AG5L@1780,BURTON DENMAN,1008 BLUE RIDGE PL.,RICHARDSON 75080,235-4359,+ W5YAKAA1790,JEAMYG?1720,STEVE CORDER,800 GRUBB,MESQUITE 75149,288-7889,+ WB5LHL?1730,JAMES COSBY,312 ISLAND DR.,RICHARDSON 75081,235-2255,+ WD5FYU?1740,JIM COUNTS,1715 BROOKS DR.,ARLINGTON 75012,*,+@ 1750,BILL DALLIN,984 PEAVY RD.,DALLAS 75218,321ND 75042,278-3858,+ A5EQXh>1690,GARY CARIKER,313 E. HARVARD DR.,GARLAND 75041,271-1954,+ WA5QWQ >1700,PHIL CLEMENTS,1313 APPLEGATE LN.,LEWISVILLE 75067,221-2222,+ K5PC?1710,JIM COKER,5350 AMESBURY DR. #1913,DALLAS 75206,696-2326,+ WA5r 1650,DON ALFONSO,1711 AUBURN DR.,RICHARDSON 75081,238-8883,+ W6KCN=|1660,JIM BENNETT,732 PARKHURST DR.,DALLAS 75218,324-1651,+ N5ABZ=1670,HERB BLAIR,4213 TYNES DR.,GARLAND 75041,494-6191,+ WA5YKO>1680,WAYNE CAMP,2526 LIVENSHIRE,GARLAJ 1610,JERRY DUNN,2713 MANOR DR.,GARLAND 75041,271-5720,WB5ULNr(^ A,OTTO D TX 75042,H/495-1757 B/658-2971,t&R A,TOMMY R. RODGERS,6631 ROUND ROCK RD,DALLAS TX 75248,H/233-2920 B/748-9421,&T A,WILLIAM P. SMITH,2032 HAYMEADOW,CARROLLION TX 75006,H/242-4308 B/238-5065, 'V 1110,EDDIE HILL,1704 WESTLAKE,PLANO 75075,423-6300JOHN L. SNIDER,5001 BOWSER #116,DALLAS TX 75209,H/528-8689,%L *M,PAUL EVANS,340 WILLOW WOOD DR.,PLANO 75074,424-8365,K5AT%N A,HAROLD WESTERHEIM,1905 WEST WAY,GARLAND TX 75042,H/276-4730 B/276-8382,!&P A,KENT A. KOEHLER,3110 TEAKWOOD DR,GARLANB5ABGW$D A,JACK P. MORGAN,P.O. BOX 35887,DALLAS TX 75235,H/351-6261 B/358-2431,W5LQR$F A,EARL BORN,4326 PINERIDGE DR,GARLAND TX 75042,H/276-2716 B/387-2755,$H A,BOB MATZINGER,P.O. BOX 13446,ARLINGTON TX 76013,H/817/275-2910 B/2665-8122,;%J A,75209,H/357-9708 B/689-2833,W5GITs#> A,JIM & DONNA HOLLOWAY,2419 WINTHROP,DALLAS TX 75228,H/328-1217 B/996-5952,#@ A,BOB R. PEEPLES,1604 DRAKE DR.,RICHARDSON TX 75081,H/690-4667 B/241-5182,$B *M,RANDY NORTHCUTT,BOX 254,ROXTON 75477,742-8438,W SANDER-CEDERLOF,2519 KLONDIKE,DALLAS TX 75228,H/327-3444 B/238-5051,"8 *M,SKIP BYNUM,6219 MARTEL,DALLAS 75214,821-4933,WD5AAZ": A,MIKE LAUMER,1832 SCHOOL RD.,CARROLLTON TX 75006,H/245-3927,!#< A,R.R. REMBER M.D.,4254 SHORECREST DR,DALLAS TX B]!0 A,RAY M. THOMPSON,1206 CHEROKEE PLACE,RICHARDSON TX 75080,H/231-0765 B/996-6337,W5OUS!2 A,TOM BONFIELD,7411 CARTA VALLEY DR.,DALLAS TX 75248,H/661-9530 B/573-2313,!4 A,N.C. DEALEY,3000 HOOD ST.,DALLAS TX 75219,H/528-8909 B/SAME,E"6 A,BOBH/522-6790,f * A,DR. J.H. NICHOLSON II,9230 CORAL COVE DRIVE,DALLAS TX 75231,H/341-3681 B/327-4375, , A,JOHN BRODERICK,8635 SHAGROCK,DALLAS TX 75238,H/341-8567 B/341-1635,!. *M,JOHN DASHNER,11621 DENNIS RD. APT.103,DALLAS 75229,243-2427,WA4CYIR.,DALLAS TX 75234,H/241-4696 B/631-5560,q$ *M,ROBERT W. FLATT,2610 PROVINCE LANE,DALLAS 75228,328-5510,*& A,FRANK A ST.CLAIRE,12123 SHIREMONT,DALLAS TX 75230,H/233-9639 B/651-1645, ( A,CAROL GLITSCH BURNETT,3525 PRINCETON,DALLAS TX 75205,966 B/892-9101,s A,PATRICIA & JOE ENTESARI,4004 RIDGLEA C/C DR. #203,FT. WORTH TX 76126,H/738-0118 B/266-4372,  A,ROBERT D. WHITTINGTON,7373 VALLEY VIEW LN #1014,DALLAS TX 75240,H/233-4504 B/243-6721,*" A,PAUL E ATKINSON,14223 CORAL HARBOVR CS TX 75275,B/692-2749,W5VCl A,MICHAEL SANTOVEC,3747 BROOKHAVEN CLUB DR #449,DALLAS TX 75234,H/247-6991, A*R,GREG GRAHAM,2014 BAMBOO,MESQUITE TX 75150,H-279-7453,WB5WGA A,DR. ANTHONY E. STEPHENS,AUSTIN COLLEGE,SHERMAN TX 75090,H/214/892-4TE ALLAN,2115 BAMBOO,MESQUITE 75150,H-279-9419,K5PD A,MITCH MAYBORN,4703 W. LOVERS LN,DALLAS TX 75209,H/351-1263 B/358-3456, A,DON RAY WILLIAMS,7830 GLENNEAGLE DR,DALLAS TX 75248,H/661-0415 B/661-6469, A,BOB MONAGHAN,PO BOX 2182 SMU,DALLA690-0847,\  A,RUDI OTTO,2111 COLUMBIAN CL DR.,CARROLLTON TX 75006,H/242-4956 B/369-0181,  A,CID NEWBERRY,3206 KNIGHTS HAVEN LN,GARLAND TX 75042,H/495-5493 B/634-4230, A,????? G. FRANK,1814 VILLANOVA,RICHARDSON TX 75081,H/234-5600,3 *,PE,H/363-1117 B/742-4411,j A,CURTIS IRWIN,1505 MEADOWVIEW DR,RICHARDSON TX 75080,H/238-9547 B/748-8511, *,SARA GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,279-7453,WB5UJU  A,HOWARD L. STROKES,2913 WHITEMARSH CIRCLE,RICHARDSON TX 75080,H/235-2227 B/Y GRAHAM,2014 BAMBOO,MESQUITE TX. 75150,H/279-7453 B/634-4463,WB5TRY A,ROD LEHMAN,7185 KENDALLWOOD,DALLAS TX 75240,H/239-2966, A,THOMAS ROELKE,6814 PRESTONSHIRE,DALLAS TX 75251,H/369-9449, A,DAVID BOCK,5210 ROYAL CREST DR.,DALLAS TX 75229H/357-5904 B/357-1555,Z A,EDWARD KUEMIERZ,1405 HOMESTEAD,GARLAND TX 75042,H/495-8596, A,BOBBIE FERRELL,13551 CHALLABURTON,DALLAS TX 75234,H/243-6347 B/661-1211, A,DAVID LEMONS,1900 SAM BASS APT. H-6,DENTON TX 76201,382-1792,D AM,JOHNNROBERT D. BOWSER,1029 FORESTGROVE,DALLAS TX 75218,H/327-3274 B/350-8821, A,DAVE KNIGHT,5746 ENSIGN DR.,FT. WORTH TX 76119,H/478-9356,  A,BART GRAHAM,2014 BAMBOO,MESQUITE TX 75150,279-7453, A,JIM J. MAYS,3651 MID PINES DR.,DALLAS TX 75229,":"SAVE ADDRESS LIST"31023,0::"RUN HELLO"J DATA STATEMENTS A,ROBERT F. ZANT,906 LYNHURST,DENTON TX 76201,H 817/382-6353 B 788-2311, A,DAVID H. HARLOWE,8567 SOUTHWESTERN BLVD. #2226,DALLAS TX 75206,H/369-5022 B/651-5528,H A, THE DATA STATEMENT, THEN RUN.":17:\ :810:" SEARCH FOR >> ";M$;" <<":L1:810:u*I139:"-";:I:: LIST ALL ENTRIESM$"ALL"800120:A$"END"İ200:900140970:(1023)1Ģ10:" DATA BEING SAVED...$X$""B$X$$8P:16:X$6X$""C$X$H10P:16:X$ZX$""D$X$l 12P:16:X$~ X$""E$X$14P:16:X$X$""A$X$18:" ";M;" DATA ";A$;",";N$;",";B$;",";C$;",";D$;",";E$1023,1%22:"COPY OVERR THE FOLLOWING."/4:"NAME : ";N$M6:"ADDRESS : ";B$k8:"CITY / STATE : ";C$10:"PHONE # : ";D$12:"CALL : : ";E$14:"LOOK UP CODE : ";A$:7204P:16:X$X$""N$X$6P:16:X120(M((123))((124)256)744M((123))((124)256)ĺ:"  **** ";M$;" ENTRY NOT FOUND ****"::200:700:1:"ENTER CHANGES UNDER THE OLD DATA. OR RETURN IF DATA IS NOT TO BE CHANGED.":752:1:"ENTER DATA OR RETURN FO(124))256)!N2MMN2:715.NM:7109MM10aN$"":B$"":C$"":D$"":E$"":A$""j750s79022:"'A'=APPLE CORPS, 'S'=STORE, 'M'=MARCS"::810::"ENTER THE ENTRY NUMBER TO BE CHANGED."::810::MM$(M):L0140662H:810::"CHANGES OR ADDS MADE BY DATA STATEMENTS"S:300:"1 TO ADD AN ENTRY."::"2 TO CHANGE AN ENTRY.":810:I$:I$"2"P1:740P0I$"1"700N1000120:A$"END"714 M((123))((T LETTERS)"Z:810$\:16:M$-b800Jl120:A$"END"İ200:600cvM$(E$,(M$))İ140l620} LIST MARCSM$"MICRO USERS"800120:A$"END"İ200:650FD1(A$)(A$,FD,1)"M"668FD(E$,1)"+"662:A$"END"İ200:450$FD1(A$)<(A$,FD,1)"A"460IFD:454W140:454:810::" ENTER LAST NAME."::810::M$800120:A$"END"İ200:500M$(N$,(M$))İ140520 X:810::" ENTER CALL (ALL OR LASFD1(A$)# d(A$,FD,1)"S"3600 fFD:354> h140:354} :810::" ENTER FIRST OR FULL NAME."::810::M$ 800 120:A$"END"İ200:400 M$(N$,(M$))İ140 420  APPLE CORPS LIST M$"APPLE CORPS":800120 RESTORE :A$"1000"P "+++++ END OF SEARCH. ";E1;" ENTRIES. +++++":E0X 23 "PRESS M FOR MENU, SPACE FOR NEXT SEARCH";:M$:M$"M"ġ:10 ,I139:".";:I:: ^ STORE LIST `M$"STORE":800 b120:A$"END"İ200:350 cX(B$):39X);B$" C$"*"1809 X(C$):39X);C$} 5);"# ";((123))(((124))256);:E$"*"ĺ39(E$));E$:191 300 LL6:L16ı 300 23:"PRESS M FOR MENU, SPACE FOR NEXT PAGE.";:R$:R$"M"Į:10 800 TO END PROGRAM.") Z:M$:M$"1"4009 [M$"2"500I \M$"3"600Y ]M$"4"700i ^M$"5"900y _M$"6"350 `M$"7"450 aM$"8"650 cM$"9"998 d90 xA$,N$,B$,C$,D$,E$ yEE1 z PRINT LINE :N$;", ";D$ Y FIRST OR FULL NAME."::"2 LOOK UP BY LAST NAME.":Y T"3 LOOK UP BY HAM CALL.": U"4 TO ADD OR CHANGE AN ENTRY." V:"5 TO LIST ENTRIES." W:"6 TO LIST STORES." X:"7 TO LIST APPLE CORPS." Y:"8 TO LIST 'MARCS'."::"9_D *************************?* PHONE DIRECTORY III *^* *}* BY: JOHNNY GRAHAM ************************** :E0:81011);"PHONE DIRECTORY"R11);">> SELECT ONE <<":8107 S:"1 LOOK UP B                                     )TT1:)::) PRINTER ON)54,0:55,198 *"K";*"80N";*"*::4* PRINTER OFFH*54,240:55,253N* ITION"({15)"......$";WE;"=";((WETT)100)"%")|I140:".";:I)~XX1İ710I)"#1=REPORTS:#2=LIST ACC'TS:#3=INPUT"])"WHICH ONE:";Qm)Q0Q4Āz)Q1500)Q3647)Q2İ40)640)154)500)::) ERROR ROUTINEBEING"'s8)"1.CLOTHING":8)"2.TRANSPORTATION"((t15)"......$";EB;"=";((EBTT)100)"%".(uL(v5)"C.PERSONAL EXPENSES"x(w15)"......$";ME;"=";((METT)100)"%"~(x(y5)"D.SOCIAL-PERSONAL IMPROVEMENT"(z8)"1.RECREATION":8)"2.EDUCAIMPROVEMENTS"'k15)"......$";AH;"=";((AHTT)100)"%" 'lANS$::I140:".";:IC'n:7)"HOME-LIFE MAMAGEMENT":h'o5)"A.VITAL NEEDS":8)"1.FOOD"'p8)"2.MEDICAL/DENTAL"'q25)"......$";IB"=";((IBTT)100)"%"'r:5)"B.PHYSICAL WELL-8)"2.TELEPHONE"&c15)"......$";KH;"=";((KHTT)100)"%"&d@&e5)"C.MAINTENANCE":8)"1.CLEANING/SUPPLIES"\&f8)"2.REPAIR/MAINTAIN"&g15)"......$";KH;"=";((KHTT)100)"%"&h&i5)"D.IMPROVE/ADDITIONS"&j8)"1.FURNITURE":8)"2.\ANS$::I140:".";:I %]7)"HOUSE OPERATION EXPENSES":7%^5)"A.BASIC NEEDS":8)"1.RENT-MORTGAGE"\%_8)"2.INSURANCE":8)"3.TAXES":%`15)"......$";OM;"=";((OMTT)100)"%":%a5)"B.NEEDED TO RUN":8)"1.UTILITIES-GAS,WATER,ELECT"%bB):32);(((NHEB)TT)100)"%"#R"'MAINTAIN'"/$T7)"5.HOUSEKEEPING +":7)"6.PERSONAL NEEDS=$"Y$V(KHME):32);(((KHME)TT)100)"%"i$W"'EXTRAS'"$X7)"7.ADD-TO-HOUSE +":7)"8.LEISURE-EDUC==$";$Z(AHWE):32);(((AHWE)TT)100)"%"$TY=$";PT"D7)"2.INCOME =$";IT"F"GTTIT#H5)"EXPENSES:"#I"'BASIC'"S#J7)"1.BASIC HOUSE +":7)"2.INTERNAL BODY==$";}#L(OMIB):32);(((OMIB)TT)100)"%"#M"UPKEEP"#N7)"3.HOUSE NEEDS +":7)"4.EXTERNAL BODY==$";#P(NHET!."2.INCOME =$";IT!0"3.BUILDING-HOUSE =$";BT"5"4.LIFE MAMAGEMENT=$";MT2"7I140:"-";:I<"8ANS$C"9::W": REPORT PAGE 2l"<I140:"^";:I">10)"CATEGORY REPORTS":10)"............""@5)"ASSETS:""A680"B7)"1.PROPER)"=$";ST(I) I:ANS$ ::T140:"=";:T:!"TOTAL # OF INPUTS=";IN !5!"DATE:";M$","Y%;!D!490J! `!C(PTIT)(BTMT)v!" CAPITAL=$";C!:15)"......"!& REPORTS!(15)"REPORTS":!*"1.PROPERTY ASSETS=$";P"PRINTER:1-TV:2--)WHICH ONE?""1/2?";XX XX1İ700 :: :(5)N "DO YOU WANT A LIST OF INDIVIDUAL ACCOUNTS?"b "Y/N";NY$:N52t NY$"N"ī514 ::N:I1N:I0$(I),TY$(I),KN$(I),N%(I),AC$(I):I I1N N%(I)"."AC$(IST(I):489WEWEST(I):: SUB-TOTAL PRINT GOSUB/15)"....................."P15)"INCOME/ASSETS=$";PTITq15)"EXPENSES =$";BTMT15)"......................":: FINAL PRINTING ROUTINE:(10)485M1H4341342N%H4486H4 W3441454N%W3487$W3-489BOMOMST(I):489WOMOMST(I):489lIBIBST(I):489NHNHST(I):489EBEBST(I):489KHKHST(I):489MEMEST(I):489AHAHFOR REPORT TALLIESST(I)ST(I)OX311313 N%OX479OX#B24114142N%B2481:B2JH1321324YN%H1482aH1qB3421424N%B3483B3H2331333N%H2484H2M1431436N%M1K101108N%K432KL211215 N%L434LU300350-N%U4364UCG411454QN%G438XGa440vPTPTST(I):440ITITST(I):440BTBTST(I):440MTMTST(I):: GOSUB TS TO THIS ACCOUNT=?"6"#:";Z;Z0350@::J1Z$D"ENTER'-1' TO START OVER"9E"INPUT#";J;"=";HG"$";AN(J)ZHAN(J)1303jJSTSTAN(J)sT::JYST(I)ST[ININZ^_:: TALLY REPORTS SUBROUTINEST(I)ST(I)8,CONTRIBUTIONS EXPENSE,LIFE,WE,451,EDUC-FEES" EXPENSE,LIFE,WE,452,EDUC-BOOKSF EXPENSE,LIFE,WE,453,MAGS-NEWSl EXPENSE,LIFE,WE,454,CONFERENCES  EXPENSES,LIFE,WE,455,OTHER"::, INPUT TO ACCOUNTS/ST01"NUMBER OF INPU EXPENSE,LIFE,WE,441,MOVIES  EXPENSE,LIFE,WE,442,SPORTS* EXPENSE,LIFE,WE,443,DRUGSL EXPENSE,LIFE,WE,444,ALCOHOLn EXPENSE,LIFE,WE,445,TOBACCO EXPENSE,LIFE,WE,446,MISTRESS EXPENSE,LIFE,WE,447,GIFTS EXPENSE,LIFE,WE,44XI-AIR EXPENSE,LIFE,BODY,424,OTHER EXPENSE,LIFE,ME,431,WRITING NEEDS=  EXPENSE,LIFE,ME,432,LIFE INSb  EXPENSE,LIFE,ME,433,LEGAL FEES  EXPENSE,LIFE,ME,434,BANK FEES  EXPENSE,LIFE,ME,435,ALIMONY  EXPENSE,LIFE,ME,436,OTHERPENSE,LIFE,VITAL,412,FOOD(AWAY) EXPENSE,LIFE,VITAL,413,MEDICAL2 EXPENSE,LIFE,VITAL,414,DENTALk EXPENSE,LIFE,BODY,421,CLOTHING(NEW-CLEAN-FIX-BAGS) EXPENSE,LIFE,BODY,422,CAR(GAS-OIL-PARK-INSURE-REPAIR) EXPENSE,LIFE,BODY,423,BUS-TANEEDS,324,TELEPHONE EXPENSES,HOUSE,KEEP,331,CLEAN( EXPENSES,HOUSE,KEEP,332,SUPPLIESM EXPENSES,HOUSE,KEEP,333,REPAIRt EXPENSES,HOUSE,ADD,341,FURNITURE EXPENSES,HOUSE,ADD,342,IMPROVE EXPENSE,LIFE,VITAL,411,FOOD(HOME) EX EXPENSE,HOUSE,BASIC,311,RENT(MORTGAGE) EXPENSE,HOUSE,BASIC,312,INSURANCE@ EXPENSE,HOUSE,BASIC,313,TAXESd EXPENSES,HOUSE, NEEDS,321,GAS EXPENSES,HOUSE,NEEDS,322,WATER EXPENSES,HOUSE,NEEDS,323,ELECTRICITY EXPENSES,HOUSE,,LAND ASSET,PROPERTY,EXTRA,108,STOCKS AND BONDS( ASSET,INCOME,CASH,211,CASH ON HANDQ ASSET,INCOME,CASH,212,CASH IN BANKu ASSET,INCOME,CASH,213,SAVINGS ASSET,INCOME,CREDIT,214,PAYCHECK ASSET,INCOME,CREDIT,215,OTHER INCOMEHOUSE ASSET , PROPERTY,BASIC,102,FURNITURE" ASSET,PROPERTY,MECHANICAL,103,CARL ASSET,PROPERTY,MECHANICAL,104,TOOLS{ ASSET,PROPERTY,ELECTRONIC,105,RECREATION ASSET,PROPERTY,ELECTRONIC,106,ELECTRONICS ASSET,PROPERTY,EXTRA,107' FOR REPORTS)"WHWH1640WH0195 N::I1N/IO$,TY$,KN$,N%,AC$>N%WH176G::IP154cI"."N%"::"AC$l300u400~450490170500:: 52 ASSET, PROPERTY,BASIC,101,490::I::"FORGOT SOME??WANT RANDOM INPUT?"(Y/N)";NY$)NY$"Y"İ15425009::V RANDOM INPUT TO ACCT'SsAM0:PT0:IT0:BT0:MT013)"RANDOM INPUTS":13)".............""WHAT ACCOUNTS WANTED?":"(ENTER '0UYVXY1100ZY2150_::d SEQUENTIAL INPUT,eAM0:PT0:IT0:BT0:MT05f(5)gg11)"SEQUENTIAL INPUT":11)"............":mhtiNk::I1NlIO$,TY$,KN$,N%,AC$oI"."N%"::"AC$s300x400}4505$40&75'::(:*N,I1N.IO$,TY$,KN$,N%,AC$70N%":"AC$"--"TY$"--"KN$"--"IO$A1ANS$H2I[4"THAT'S ALL!"e7ANS$k<rA::xKN(15):"INPUT CHOICE:":P"1.ACCOUNTS IN ORDER?":"2.ACCOUNTS AT RANDOM?" BH(30),IB(30),NH(30),EB(30),KH(30),AH(30),WE(30) :: (8)"I140:"X";:I(O6)"'LIFE MANAGEMENT & FINANCES'"dI140:"^";:I{3)"MONTH,YEAR:";M$,Y%"DO YOU WANT A LIST OF ACCOUNTS?(Y/N)" YY$"YY$"N"7 :  AM=AMT,AN=SUBAMT,ST=SUBTOTAL6 AM(55),N(55),N%(55),I0$(55),TY$(55),KN$(55),AC$(55),N$(55)Q AN(55),ST(55),IN(200)r PT(50),IT(50),BT(50),MT(50)  PT=PROPERTY,IT=INCOME,BT=HOUSE,MT=LIFE MANAGEMENT U(50),K(50),L(50),G(50)         00),2);:$GENERAL INPUT CONTROL30(Q$));Q$;:"";A$:A(A$):ALOAHIĞ:" VALUE MUST BE BETWEEN "LO" AND "HI" ";::I12500::1:868:(37):1210 PRINT THE PROGRAM D$(4):D$"PR#1":(9)"72N" 1,2999 D$"PR#0" WILL FORMAT INTO DOLLARS AND CENTS1A(A.5)ZZ1ĺ10)(" "((A100)),W3)"."("0"(A(A100)100),2);:1060(" "((A100)),W3)"."("0"(A(A100)100),2);$ZZ0: L((R100))"."("0"(R(R100)1A(16384):A128655216368,0:A141ĉ:1BA160655YYRYR1:PNNP380e36,10::10)"LAST PAYMENT WAS $";:1100:PRĺ(4)"PR#0"1 FORMAT SUBROUTINE A = VALUE TO BE FORMATTED W = WIDTH OF FIELD#z #X±     ̠Ӡ Š٠F ŠΠ  ˠ  Ӡ̠ԠΠҠ ɮŠ ŠӠ ̠Ӡ"ŠŠ ̠Ϡ ̠Ϯà!٠Ԡ( ӠҠK̠Πˠˠ ˠҠ@@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~9O9fpd#:"DISCOUNT RATE: ";Dpn#:"MONTHS TO MATURITY ON DISCOUNT DATE: ";MMx#PF(1IM1200)(1DMM1200)#DMP:100:P$DM$i#:"A ";M;"-MONTH NOTE HAVING A":"FACE VALUE OF $";F$:"AND BEARING AN INTEREST RA$";F$20000=(#PROCEEDS OF DISCOUNTED COMMERCIAL PAPER2#::" ***";::"PROCEEDS OF DISCOUNTED";::"***":" ***";::" COMMERCIAL PAPER ";::"***"<#::"FACE VALUE OF NOTE: ";FF#DMF:100:F$DM$P#:"INTEREST RATE: ";I# NOTE (IN MONTHS): ";M1|:"DISCOUNT RATE: ";DUFP((1IM1200)(1DM1200))jDMF:100:F$DM$:"A ";M;"-MONTH NOTE BEARING":I;"% INTEREST WILL YIELD $";P$:"WHEN DISCOUNTED BY ";D;"% ON THE":"DAY OF MAKING IF IT HAS":"A FACE VALUE OF @PROCEEDS OF DISCOUNTED COMMERCIAL PAPERJ::" ***";::"FACE VALUE OF DISCOUNTED";::"***":" ***";::" COMMERCIAL PAPER ";::"***"T::"PROCEEDS AT MATURITY: ";P^DMP:100:P$DM$h:"INTEREST RATE: ";Ir:"TERM OFNTS PER YEAR: ";NP>N(R(RPI(NP100)))(1I(NP100))VDMNNP:100:N$DM$:"AN ANNUITY OF $";R$;" PAID ";NP;" TIMES":"PER YEAR AT AN INTEREST RATE OF ";I;"%":"WILL RETIRE A DEBT OF $";P$:"AFTER A PERIOD OF ";N$;" YEARS."20000*0000)XTERM OF ANNUITY TO PAY OFF DEBTgb::"***";::"TERM REQUIRED TO RETIRE A DEBT";::"***"l::"AMOUNT OF DEBT: ";PvDMP:100:P$DM$:"PERIODIC PAYMENT: ";RDMR:100:R$DM$:"INTEREST RATE: ";I:"NUMBER OF PAYME"NUMBER OF PAYMENTS PER YEAR: ";NPLN(SI(RNP100)1)(1I(NP100))dDMNNP:100:N$DM$:"AN ANNUITY OF $";R$;" PAID ";NP;" TIMES":"PER YEAR AT AN INTEREST RATE OF ";I;"%":"WILL AMOUNT TO $";S$:"AFTER A PERIOD OF ";N$;" YEARS."2I;"%."200008pTERM OF ANNUITY FROM FUTURE VALUEyz::"***";::"TERM OF ANNUITY FROM FUTURE VALUE";::"***"::"FUTURE VALUE: ";SDMS:100:S$DM$:"PERIODIC PAYMENT: ";RDMR:100:R$DM$:"INTEREST RATE: ";I":PER YEAR: ";NP;RSI(NP100)((1I(NP100))(NPN)1)PDMR:100:R$DM$:"AN ANNUITY HAVING A FUTURE":"VALUE OF $";S$;" CAN BE CREATED":"BY MAKING PAYMENTS OF $";R$:NP;" TIMES PER YEAR FOR ";N;" YEARS":"INVESTED AT AN INTEREST RATE OF ";LUE{::" ***";::"PERIODIC PAYMENTS REQUIRED TO";::"***":" ***";::" PRODUCE A FUTURE VALUE ";::"***"::"FUTURE VALUE: ";SDMS:100:S$DM$:"INTEREST RATE: ";I:"NUMBER OF YEARS: ";N:"NUMBER OF PAYMENTS NP100)(1(1I(NP100))(NPN))7DMR:100:R$DM$:"A DEBT OF $";P$;" CAN BE RETIRED":"BY MAKING PAYMENTS OF $";R$:NP;" TIMES PER YEAR FOR ";N;" YEARS":"INVESTED AT AN INTEREST RATE OF ";I;"%."20000PERIODIC PAYMENTS FOR FUTURE VAERIODIC PAYMENTS REQUIRED TO";::"***":" ***";::" RETIRE A DEBT ";::"***"}::"AMOUNT OF DEBT: ";PDMP:100:P$DM$:"INTEREST RATE: ";I:"NUMBER OF YEARS: ";N:"NUMBER OF PAYMENTS PER YEAR: ";NP"RPI(P:100:P$DM$ :"THE PRESENT VALUE FOR AN ANNUITY":"WITH A PERIODIC PAYMENT OF $";R$:"MADE ";NP;" TIMES PER YEAR FOR ";N;" YEARS":"AT AN INTEREST RATE OF ";I;"%":"IS $";P$ 20000PERIODIC PAYMENTS TO PAY OFF DEBT_::" ***";::"P"*";::"PRESENT VALUE OF AN ORDINARY ANNUITY";::"*"V ::"PERIODIC PAYMENT: ";Rk DMR:100:R$DM$ :"INTEREST RATE: ";I :"NUMBER OF YEARS: ";N :"NUMBER OF PAYMENTS PER YEAR: ";NP PR(1(1I(NP100))(NNP))INP100 DMI(NP100))(NPN)1)I(NP100)5*DMS:100:S$DM$4:"PAYMENTS OF $";R$;" MADE":NP;" TIMES PER YEAR FOR ";N;" YEARS":"HAVE A FUTURE VALUE OF $";S$:"IF INVESTED AT AN INTEREST":"RATE OF ";I;"%.">20000 PRESENT VALUE OF ANNUITY6 ::ITYD ::"**";::"FUTURE VALUE OF AN ORDINARY ANNUITY";::"**"d ::"PERIODIC PAYMENT: ";Ry DMR:100:R$DM$ :"INTEREST RATE: ";I :"NUMBER OF YEARS: ";N :"NUMBER OF PAYMENTS PER YEAR: ";NP I0SRNNP:2090  SR((1Ⱥ"8. FACE VALUE OF DISCOUNTED PAPER"M,N"9. PROCEEDS OF DISCOUNTED PAPER"o,N"10. INCOME FROM INVESTMENT",N"11. EFFECTIVE ANNUAL INTEREST RATE",N"12. INTEREST ON INVESTMENT",N"13. PRESENT VALUE OF A FIXED DEBT" -N"14. TERM REQUIRED TO RE VALUE OF ORDINARY ANNUITY"J+HN"3. PRESENT VALUE OF ORDINARY ANNUITY"w+RN"4. PAYMENTS REQUIRED TO PAY OFF DEBT"+\N"5. PAYMENTS REQUIRED FOR FUTURE VALUE"+fN"6. TERM OF ANNUITY FOR FUTURE VALUE"+pN"7. TERM OF ANNUITY TO RETIRE DEBT"%,zNNUE":"(OR ENTER 'S' TO STOP): ";A$5*;A$"S"20010;*;F*;15160* N:"<<>>":"PRESS 'RETURN' TO SEE THE MENU: ";A$**N::10);::"FINANCIAL PROGRAMS"::" BY GARY B. LITTLE":5*4N"1. AMORTIZATION SCHEDULE"+>N"2. FUTU,5).;J0:DF0:DC0:BVC.)8;JJ1:JN20000>)B;DCIBV100K)L;BVBVDCX)V;DFDFDC)`;DMDC:100:DC$DM$:DMBV:100:BV$DM$:DMDF:100:DF$DM$)j;J;16(BV$));BV$;27(DC$));DC$;38(DF$));DF$)t;(37)2015160#*~;:"PRESS 'RETURN' TO CONTI"PRESS 'RETURN' TO SEE":"THE DEPRECIATION TABLE":"(OR ENTER 'S' TO STOP): ";A$c(;A$"S"20010(;:"DEPRECIATION RATE = ";D$;"%":"PURCHASE PRICE = $";C$:(;" BOOK DEPREC DEPREC":"YEAR VALUE CHARGE FUND")$;34ON";::"***"*':::"ORIGINAL COST: ";C?':DMC:100:C$DM$Y'::"SCRAP VALUE: ";SVp':DMSV:100:SV$DM$'::"DEPRECIATION PERIOD (IN YEARS): ";N':D1(SVC)(1N):D100D':DMD:100:D$DM$'::"THE DEPRECIATION RATE IS ";D$;"%."Q(::NNP:100:N$DM$&7:"A SUM OF $";P$;" WHICH IS":"INVESTED AT ";I;"% INTEREST":"COMPOUNDED ";NP;" TIMES PER YEAR":"WILL BE WORTH $";S$:"IN ";N$;" YEARS."&720000&:DECLINING-BALANCE DEPRECIATION ':::"***";::"DECLINING-BALANCE DEPRECIATI**";::" TO REACH A CERTAIN AMOUNT ";::"***"J%6::"INVESTMENT: ";P_%6DMP:100:P$DM$y%6:"FINAL AMOUNT: ";S%6DMS:100:S$DM$%6:"INTEREST RATE: ";I%6:"COMPOUNDING PERIODS PER YEAR: ";NP%7N((S)(P))((1I(NP100)))& 7DM0:P$DM$$"3:"THE PRESENT VALUE OF A DEBT":"OF $";S$;" PAYABLE IN ";N;" YEARS":"AT ";I;"% INTEREST COMPOUNDED":NP;" TIMES PER YEAR IS $";P$$,320000$6TIME TO ACCUMULATE VALUE0%6::" ***";::"TERM REQUIRED FOR INVESTMENT";::"***":" *#2::" ***";::"PRESENT VALUE OF A FIXED DEBT";::"***"[#2::"AMOUNT OF DEBT: ";Sp#2DMS:100:S$DM$#2:"INTEREST RATE: ";I#2:"NUMBER OF YEARS: ";N#3:"COMPOUNDING PERIODS PER YEAR: ";NP#3PS((1I(NP100))(NPN))$3DMP:10(NNP))1)4"0/DMI:100:I$DM$:DMFVP:100:PR$DM$":/:"A PROFIT OF $";PR$;" AFTER ";N;" YEARS":"ON AN INVESTMENT OF $";P$;" IS":"EQUIVALENT TO AN INTEREST":"RATE OF ";I$;"% COMPOUNDED":NP;" TIMES ANNUALLY.""D/20000"2PRESENT VALUE OF DEBT=**";::"INTEREST ON INVESTMENT";::"***"L!.::"INITIAL INVESTMENT: ";Pa!.DMP:100:P$DM$!/:"FINAL VALUE OF INVESTMENT: ";FV!/:"LENGTH OF INVESTMENT (IN YEARS): ";N!/:"COMPOUNDING PERIODS PER YEAR: ";NP "&/I100NP((1(FVP)P)(1 +EF(1I(NP100))NP14 *+DMEF100:100:EF$DM$ 4+:"A NOMINAL INTEREST RATE OF ";I;"%":"COMPOUNDED ";NP;" TIMES PER YEAR":"CORRESPONDS TO AN EFFECTIVE ANNUAL":"RATE OF ";EF$;"%." >+20000 .EFFECTIVE INTEREST ON INVESTMENT*!.::" *RATE OF ";I;"%":"COMPOUNDED ";NP;" TIMES ANNUALLY":"IS $";ID$Jt'20000n*EFFECTIVE ANNUAL INTEREST RATE+::" ***";::"EFFECTIVE ANNUAL INTEREST RATE";::"***" +::"NOMINAL INTEREST RATE: ";I+:"COMPOUNDING PERIODS PER YEAR: ";NP"INTEREST RATE: ";I?B':"COMPOUNDING PERIODS PER YEAR: ";NPlL':"LENGTH OF INVESTMENT (IN YEARS): ";NV'IDP((1I(NP100))(NPN)1)`'DMID:100:ID$DM$?j':"THE INCOME FROM THE SUM":"OF $";P$;" INVESTED FOR ";N;" YEARS":"AT AN INTEREST TE OF ";I;"%":"WILL GENERATE PROCEEDS OF $";P$:"IF DISCOUNTED BY ";D;"%":MM;" MONTHS BEFORE MATURITY."t#20000'EXACT SIMPLE INTEREST'::" ***";::"INCOME FROM INVESTMENT";::"***"$'::"INVESTMENT: ";P.'DMP:100:P$DM$8':N$7243007248 >> FIND BY CITY/STATE <<a:10:"CITY OR CITY & STATE ? ";NN$kL2:t200(N$,5)"_____"744(N$,3)"END"800(CS$,((NN$)))NN$744300744 >> FINE BY PHONE << :10:"TELEL2:200'(N$,5)"_____"704>(N$,3)"END"800[(N$,((NN$)))NN$704d300m704 >> FIND BY ADDRESS <<:10:"ADDRESS ? ";NN$L2:200(N$,5)"_____"724(N$,3)"END"800(A$,((NN$)))NIND BY NAME (FIRST OR FIRST & LAST)"Al"2. FIND BY ADDRESS":kv"3. FIND BY CITY OR CITY & STATE":"4. FIND BY TELEPHONE NUMBER":"? ";:C$:C$(C$)700,720,740,760610 >> FIND BY NAME <<:10:"NAME ? ";NN$00:RN(RN$)514$RN(RN$)8001L0:300m:"IS THIS DATA TO BE DELETED Y/N? ";RN$:RN$"Y"900 C$(UL$,25):NNN:3000 NNA:3000NNCS:3000C$(UL$,20):NNT:3000S$"Y"900X >> FIND DATA <<$b:8:"1. F$)āI1((CS$)(C$)):C$C$" ":2NNCS:3000Q15:12:"";C$:C$""500(C$)(T$)āI1((T$)(C$)):C$C$" ":NNT:3000S$"Y" >> DELETE DATA <<::::"ENTER DATA NUMBER TO BE DELETED: ";RN$::2:I1(T$):(95);::56:12:"";C$:C$""470e(C$)(N$)āI1((N$)(C$)):C$C$" ":tNNN:30009:12:"";C$:C$""480(C$)(A$)āI1((A$)(C$)):C$C$" ":NNA:300012:12:"";C$:C$""490"(C$)(CS:"BE CHANGED."'5:"NAME:";12);N$L6:12);:I1(N$):(95);::g8:"ADDRESS:";12);A$9:12);:I1(A$):(95);::11:"CITY/STATE:";12);CS$12:12);:I1(CS$):(95);::14:"TELEPHONE:";12);T$15:12); :CS$ <T$ @LL6) BL20ī360g J:"PRESS SPACE FOR NEXT LINE, ESC FOR MENU";:I$:I$:L0z TI$(27)ī900 ^ h  >> PRINT DATA FOR CHANGE <<:"ENTER CHANGE UNDER DATA TO BE CHANGED.":"PRESS RETURN IF THAT DATA IS NOT TO "ME) A$=ADDRESS, A=ADDRESS OF ADDRESSX CS$=CITY/STATA, CS=ADDRESS OF CITY/STATE T$=TELEPHONE, T=ADDRESS OF TELEPHONE 1:" " 37,CV: , >> PRINT DATA << . 6N$;" ";::" # ";RN: 8A$7):1:" :: READING DATA ::"M N$:N(((125)((126))256)(N$))u A$:A(((125)((126))256)(N$)) CS$:CS(((125)((126))256)(CS$)) T$:T(((125)((126))256)(T$)) RN(123)(124)256 N$=NAME, N=ADDRESS OF NA? d:34,1 m:? n6:7:"A D D R E S S L E D G E R"E pb r12:13:"PROGRAM HOLDS"h s{ t14:18:"130" u v16:12:"ADDRESS ENTRIES" x22:6:"(HIT SPACE BAR TO CONTINUE) ";:I$ 900 >> READ DATA <<% CV(3**" T **** IS CHANGED ****B U *************************| ZD$(4):UL$"_______________________________________" \PG$"ADDRESS LEDGER": CHANGE THIS STRING IF YOU CHANGE PROGRAM NAME ^(994)(1001)192DOS1: DOES THIS SYSTEM HAVE DISK$I PROGRAM TO CHANGE DATA3 STATEMENTS BY:N JOHNNY GRAHAMm( THE DATA CHANGES CAN NOT2 BE LONGER THAN THE ORIGIONAL< DATA.FP **** CHANGE LINE 980 ****R **** IF PROGRAM **** S **** N A M E **                        T 1979.GARY B. LITTLE5.#101-2044 W. 3RD AVE.Q.VANCOUVER,B.C. V6J 1L5REACH AMOUNT"7-N"15. DECLINING-BALANCE DEPRECIATION"T-N"16. <<>>"-N22:958:"WHAT NUMBER ?";A$:I(A$):I1I1620180-NI1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000-N:.(C) COPYRIGH_____,_________________________,_________________________,____________________$2 _________________________,_________________________,_________________________,____________________ %< _________________________,_________________________,_________________________________|# _________________________,_________________________,_________________________,____________________# _________________________,_________________________,_________________________,____________________N$( ______________________________________,_________________________,____________________" _________________________,_________________________,_________________________,____________________# _________________________,_________________________,_________________________,_______o! _________________________,_________________________,_________________________,____________________! _________________________,_________________________,_________________________,____________________A" _________________________,____________,_________________________,____________________ _________________________,_________________________,_________________________,____________________! _________________________,_________________________,_________________________,______________________________________,_________________________,_________________________,____________________ _________________________,_________________________,_________________________,____________________ 4 _________________________,____________________ ,____________________ _________________________,_________________________,_________________________,____________________ _________________________,_________________________,_________________________,____________________a _ k~ BUDGET SOFTWARE,P.O. BOX 7791,SAN JOSE CA 95150,  BUDGET SOFTWARE,P.O. BOX 7791,SAN JOSE CA 95150, & BUDGET SOFTWARE ,P.O. BOX 7791 ,SAN JOSENI1),((C$,I,I))  q` BUDGET SOFTWARE,P.O. BOX 7791,SAN JOSE CA 95150, j BUDGET SOFTWARE,P.O. BOX 7791,SAN JOSE CA 95150, t BUDGET SOFTWARE,P.O. BOX 7791,SAN JOSE CA 95150, 12:"";C$:C$""2260H(C$)(CS$)āI1((CS$)(C$)):C$C$" ":XNNCS:3000w14:12:"";C$:C$""2290(C$)(T$)āI1((T$)(C$)):C$C$" ":NNT:3000S$"Y":900 >> CHANGE DATA STATEMENT << I1(C$) (Nf11:"CITY/STATE:";12);CS$=p14:"TELEPHONE:";12);T$[z5:12:"";C$:C$""2200(C$)(N$)āI1((N$)(C$)):C$C$" ":NNN:30008:12:"";C$:C$""2230(C$)(A$)āI1((A$)(C$)):C$C$" ":NNA:300011:,20)"____________________"2070+S$"Y"4400= 900m::DN;" NOT FOUND. PRESS KEY FOR MENU."; NN$:NN$:9004 >> ADD DATA STATEMENTS <<>200H(N$,5)"_____"ī2110JR5:"NAME:";12);N$\8:"ADDRESS:";12);A$"END OF FILE--PRESS SPACE FOR MENU. ";:C$:C$8V900Q >> CHANGE DATA <<Z:5"ENTER NUMBER OF THE DATA TO BE CHANGED.":"NUMBER? ";DNDN613002070200N$"END"ī2070DNRNī2030DNRNī2070 (N$AVED.....":D$;"SAVE ";PG$:990k:"TO SAVE THE NEW DATA YOU WILL NEED TO SAVE THIS PROGRAM TO TAPE.":" B Y E":::N0::L0200(N$,5)"_____"1010(N$,3)"END"1100300NN11010/L23:"1. PRINT ALL."/:"2. CHANGE DATA."F:"3. ADD DATA."^:"4. FIND DATA."x:"5. DELETE DATA.":"6. END.":"? ";:C$:C$(C$)1000,2000,2100,600,510,980900216,0:S$"Y"990DOSĺ:"FILE BEING SPHONE ? ";NN$L2: 2009(N$,5)"_____"764P(N$,3)"END"800m(T$,((NN$)))NN$764v300744 :"END OF DATA. PRESS ANY KEY FOR MENU. ";:NN$*900 >> MENU << ::" A D D R E S S L E D G E R":5____,_________________________,_________________________,____________________4 _________________________,_________________________,_________________________,____________________5 _________________________,_________________________,_________________________________{3 _________________________,_________________________,_________________________,____________________3 _________________________,_________________________,_________________________,____________________M4 ______________________________________,_________________________,____________________2 _________________________,_________________________,_________________________,____________________3 _________________________,_________________________,_________________________,_______n1h _________________________,_________________________,_________________________,____________________1r _________________________,_________________________,_________________________,____________________@2| _________________________,____________,_________________________,____________________0T _________________________,_________________________,_________________________,____________________1^ _________________________,_________________________,_________________________,_______________________________________,_________________________,_________________________,____________________/@ _________________________,_________________________,_________________________,____________________30J _________________________,______________________________________,____________________." _________________________,_________________________,_________________________,____________________., _________________________,_________________________,_________________________,____________________a/6 ____________,_________________________,_________________________,____________________- _________________________,_________________________,_________________________,____________________&. _________________________,_________________________,____________,____________________, _________________________,_________________________,_________________________,____________________, _________________________,_________________________,_________________________,____________________T- ______________________________________,_________________________,____________________+ _________________________,_________________________,_________________________,____________________, _________________________,_________________________,_________________________________u* _________________________,_________________________,_________________________,____________________* _________________________,_________________________,_________________________,____________________G+ _________________________,____________,_________________________,____________________) _________________________,_________________________,_________________________,____________________ * _________________________,_________________________,_________________________,________h( _________________________,_________________________,_________________________,____________________( _________________________,_________________________,_________________________,____________________:) _________________________,______________________________________,____________________'x _________________________,_________________________,_________________________,____________________' _________________________,_________________________,_________________________,______________________________________,_________________________,_________________________,____________________&d _________________________,_________________________,_________________________,____________________-'n _________________________,_________________________,____________,____________________%F _________________________,_________________________,_________________________,____________________%P _________________________,_________________________,_________________________,____________________[&Z __________,_________________________,_________________________,____________________D> _________________________,_________________________,_________________________,____________________EH _________________________,_________________________,_________________________________zC _________________________,_________________________,_________________________,____________________C* _________________________,_________________________,_________________________,____________________LD4 ______________________________________,_________________________,____________________B _________________________,_________________________,_________________________,____________________C _________________________,_________________________,_________________________,_______mA _________________________,_________________________,_________________________,____________________A _________________________,_________________________,_________________________,____________________?B _________________________,____________,_________________________,____________________@ _________________________,_________________________,_________________________,____________________A _________________________,_________________________,_________________________,_______________________________________,_________________________,_________________________,____________________? _________________________,_________________________,_________________________,____________________2@ _________________________,______________________________________,____________________> _________________________,_________________________,_________________________,____________________> _________________________,_________________________,_________________________,____________________`? ____________,_________________________,_________________________,____________________= _________________________,_________________________,_________________________,____________________%> _________________________,_________________________,____________,____________________ F$"END"790Z "LAST NAME OF PAYEE ";b L$h "AMOUNT OF CHECK "; A "TURN ON PRINTER" PAUSE13000 "HIT RETURN TO BEGIN PRINTING";X$ D1(D10000) D2(,"FORTY"9 <"FIFTY","SIXTY","SEVENTY","EIGHTY","NINETY"x F "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" P "AUGUST","SUPTEMBER","OCTOBER","NOVEMBER","DECEMBER" d"DATE (MMDDYY) ";D m n" (TO STOP PROGRAM TYPE 'END')" s  ( 2:14:"CHECK WRITER". :::: "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE"( "TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN" 2"SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY","THIRTY"CHECK , LISTED ON STATEMENT...# ";B$1(140);H,(27)"F";:(147)W@D$;"PR#0"]TGCORRECT,THEN:":>x:"ADD $ ";I;" TO Y O U R BALANCE AND"Q"DEDUCT $ ";SWnB(B1000.5)100}BADIS"UNLESS THE BANK MADE A MISTAKE, YOUR""CHECK BOOK BALANCE SHOULD NOW BE":18)::(14)"$ ";B$::::"LAST I B(B1000.5)100J "CHECK BOOK BALANCE SHOULD BE ";::"$";BP s "CHECK BOOK BALANCE IS $";A~ DBA D(D1000.5)100 (D01400 <(7);(7);(7)::"DISCREPANCY IS"::18::(14)"$ ";D: P:d"TRACK DOWN AND TATEMENT CLOSING DATE ? ";Z& \Y1Z4 pZ11000I "DEPOSIT $";DT BBDk B(B1000.5)100r Yx  "BALANCE $";B  "SERVICE CHARGES $";S $BBS 8 L"BALANCE $";B ` t"INTEREST $";I  BB D:* X"BANK STATEMENT BALANCE $";BA lB(B1000.5)100G o "HOW MANY OUTSTANDING CHECKS ? ";Nz K1N N1840 "CHECK #";B$:20):"$";C BBC K  "BALANCE $";B 4 H"HOW MANY DEPOSITS AFTER" M"S::"TURN ON YOUR PRINTER !!!"& |: D$"": CTRL-DI D$;"PR#1"Q :W  (27)"E":"ATTACH TO YOUR BANK STATEMENT FOR EASY REFERENCE, NEXT MONTH." : 15):(14)"CHECK BOOK RECONCILIATION"  15):"DATE...";A$ 0ETURN>."8 :"IF A PROMPT DOES NOT APPLY, INPUT '0'." :"IN 'PRINT-OUT' MODE, CORRECT ERRORS AF- TER TYPING CTRL-X.": "CHOOSE :" :9)"<1> CRT ONLY" ,:9)"<2> PRINT-OUT" @:"WHICH : 1 OR 2 ? ";G TG1560:G2360 h^( CHECK BOOK BALANCING PRO GRAM1( BYC< LOUIS REENSbP-------------------------jd:x13)"CHECK CHECK"34,4:5"I N S T R U C T I O N S" :" IN 'CRT ONLY' MODE, YOU MAY IGNORE THE 'CHECK#' PROMPT BY TYPING ";:R$:: <24:1::"";::X$::: d::40:::13:"DECISION MAKER"::: n34,5: x6:"DO YOU WANT INSTRUCTIONS (Y/N) ";:R$:R$(R$,1) R$"N" VALUE J., CR(I) = CRITERIA. J  CH$(I) = CHOICE NAMES. j  CR$(I) = CRITERIA NAMES.  CHANGE IF PRINTER  IS IN ANOTHER SLOT SLOT1:PRINTER SLOT R(X)(10X.5)10 I110:CV(I)0:I 100 (0,9: DECISION MAKER , A PROGRAM TO> AID YOU INQ MAKING HARDe DECISIONS. y WRITTEN BY:  DALE SALYER, THORNTON, CO.  FEB 25, 1982  CH(10),CH$(10),CR(10),CR$(10),CV(10) CH(I,J) = CHOICE I, ,000"X" 4. $20,000 TO $25,000"b" 5. $25,000 TO $30,000"/l" 6. $30,000 TO $35,000"Ov" 7. $35,000 TO $40,000"~:"TYPE IN THE NUMBER OF THE BRACKET YOU""ARE IN ";Z1:"DO YOU FILE SINGLE(1) OR JOINTLY(2)? ";Z2Z2" YOUR INTEREST PAID IS: $";I61650:1660%&"PLEASE SELECT YOUR APPROXIMATE "S0"ADJUSTED GROSS INCOME FOR TAX PURPOSES"o5"FROM THE FOLLOWING: ":" 1. $ 5,000 TO $10,000"D" 2. $10,000 TO $15,000"N" 3. $15,000 TO $20T: ";T2:"WHAT IS THE INTEREST RATE ON YOUR ""MORTGAGE? ";I0I112100:Y1(Y12):L5LGQ11(1I)(12Y3)ZQ2LSI(1Q1)rQ2(Q2100.5)100X51Y1U2(L5I100.5)100U3Q2U2L5L5U3:I6I6U2:I9I6YORIGINAL PRICE"^" MINUS SELLING PRICE) IS: $";Gh1650:1660;r"NOW WE WILL DETERMINE WHAT IT COST TO"W|"OWN THAT PROPERTY.":"PROPERTY TAX: EITHER PROVIDE A YEARLY""AVERAGE FROM YOUR RECORDS OR ESTIMATE""YOUR YEARLY PAYMENNT? ";D:"HOW MANY YEARS AND MONTHS DID YOU" "OWN? (Y,M) ";Y,M/Y(Y12M)12:S0ī290ES((SA)Y)(LD)O"1660q,"YOUR SELLING PRICE IS :$";S6 DOLLAR AMOUNTS NEED TO BE FORMATTED@GS(LD)JT" YOUR CAPITAL GAIN (ING PRICE DEPENDS UPON MANY""FACTORS, BUT IF YOU ARE PROJECTING ">"INTO THE FUTURE, YOU MUST ASSUME SOME"l"ANNUAL APPRECIATION RATE. WHAT PERCENT""PER YEAR WILL YOUR PROPERTY APPRECIATE?";AAA100:"WHAT WAS YOUR DOWN PAYMEROPERTY"x"FOR? (ENTER 0 FOR HELP) ";S!:"WHAT WAS THE AMOUNT OF THE ORIGINAL"="MORTGAGE OR LOAN? ";Lg:"HOW MANY YEARS WAS THE ORIGINAL ""MORTGAGE OR LOAN FOR? ";Y3S0ī2401660:" SELLING PRICE""THE SELL <"THE SALE OF A HOUSE OR PROPERTY. IT ""A"WILL ASK YOU MANY DIFFERENT QUESTIONS."KF"IN SOME CASES IT WILL HELP YOU TO"vP"COMPUTE THE INFORMATION REQUESTED. "Z"HOPE YOU MADE A BUNDLE!":1650d1660n"WHAT PRICE DID YOU SELL YOUR P   A REAL PROPERTY PROFIT GUIDE  BY FRANK J. DERFLER JR.  1979:  KILOBAUD,NOV.'79, PP.112,113@ g 7);"BOY, DID I MAKE A KILLING!!"o : ("THIS PROGRAM WILL HELP YOU TO DETER-" 2"MINE YOUR ACTUAL PROFIT OR LOSS FROM "         Šɍ "WILL PRINT OUT ON THE SCREEN OR":"PRINTER IF YOU SAID YES TO THE LAST":"QUESTION."':"THE PRINTER IS SETUP TO SLOT 1 IN LINE":"19, WHICH CAN BE CHANGED TO SUIT YOUR":"NEEDS."'60:$ICES ACCORDING":"TO THE CRITERIA PRESENTED."':" THE PROGRAM WILL THEN CALCULATE YOUR":"BEST CHOICE BASED UPON THE ANSWERS":"YOU GAVE. YOU WILL BE ASKED IF YOU":"WANT A HARD COPY OF THE RESULTS."'60V'" AT THIS TIME A LIST OF THE RESULTS":'" NEXT, EACH CRITERIA WILL BE PRESENTED":"AND YOU WILL BE ASKED TO GIVE EACH A":"WEIGHTING VALUE TO SHOW HOW IMPORTANT":"EACH ONE IS TO YOU."-':" THEN THE CRITERIA WILL BE PRESENTED":"AGAIN, BUT THIS TIME YOU WILL B