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` \.......................................Z\.......................................\.......................................\.......................................\.......................................\.............................................F\.......................................t \....................................... \....................................... \....................................... \.......................................,....2\.......................................`\.......................................\.......................................\.......................................\.......................................\.............................................L\.......................................z\.......................................\.......................................\.......................................\.............................................8\.......................................f\.......................................\.......................................\.......................................\.......................................\.............................................R\.......................................\.......................................\.......................................\....................................... \.............................................>\.......................................l\.......................................\.......................................\.......................................\.......................................$\...\.......................................X\.......................................\.......................................\.......................................\.......................................\.............................................D\.......................................r\.......................................\.......................................\.......................................\.......................................*..0 \.......................................^ \....................................... \....................................... \....................................... \.......................................\.............................................J \.......................................x \....................................... \....................................... \....................................... \.............................................6 \.......................................d \....................................... \....................................... \....................................... \....................................... \...........WALLACE...............303 776 9992P AUGUSTA HARDY...............303 388 8252~ VIVIAN REED.................303 356 7389 CHERYL WILLEY...............303 351 6264 SIMPSON.....588 567 8909 \...............................SS *# m* THAN 400!! *@ n* *] o* PROGRAM WILL *z p* SELF-DESTRUCT! * q* * r*********************** s 1006 APPLE COMPUTER INC..........408 996 1010" RANDY 1d***********************;e* *Xf* W A R N I N G *ug* - - - - - - - *h* *i* DO NOT MODIFY *j* ANY LINE IN THIS *k* PROGRAM WITH A * l* LINE NUMBER LE            'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0ESS SPACE TO CONTINUE, ESC TO END...";J5ZFIN$:IN$" "(IN$)2718010_5dF(IN$)2731111e5nF5yI12000:::10:"WOULD YOU LIKE TO PLAY AGAIN ";5yIN$:IN$"Y"1505y(994)(1001)192Č9765y:::15,54:13946,96:13947,0:4?+4hBSC5ıa4iB10:7,929:30,319:9,1432:33,3414:14,25354mB5,88:9,8:8,1310:11,13:13,17124rBRPT154|B138244B7:138274B138244B9:138274BRPT4B138244B5:138274B&5PF24:" PR173:13923,162:}3>13924,48:13925,133:13926,36:13927,173:13928,163:13929,54:13930,133:13931,37:13932,165:13933,48:3>13934,41:13935,15:13936,141:13937,164:13938,54:13939,165:13940,48:13941,41:13942,240:13943,141:4>13944,165:139499,161:13900,54:13901,145:13902,40:13903,200:2>13904,192:13905,40:13906,144:13907,213:13908,160:13909,0:13910,104:13911,105:13912,0:13913,197:3>13914,34:13915,144:13916,196:13917,32:13918,193:13919,251:13920,133:13921,40:13922,:13876,41:13877,240:13878,24:13879,109:13880,160:13881,54:13882,145:13883,40:1>13884,177:13885,40:13886,41:13887,240:13888,205:13889,165:13890,54:13891,208:13892,10:13893,177:12>13894,40:13895,41:13896,15:13897,24:13898,109:138:13853,133:z0>13854,36:13855,133:13856,37:13857,72:13858,32:13859,193:13860,251:13861,133:13862,40:13863,164:0>13864,36:13865,177:13866,40:13867,41:13868,15:13869,205:13870,164:13871,54:13872,208:13873,10:U1>13874,177:13875,409,41:13830,15:13831,141:13832,160:13833,54:/>13834,165:13835,48:13836,41:13837,240:13838,141:13839,161:13840,54:13841,165:13842,36:13843,141: 0>13844,162:13845,54:13846,165:13847,37:13848,141:13849,163:13850,54:13851,169:13852,0;I,J:J015320#.;SC10154008.;I,J:J015340L.(13824,76:13825,108:13826,54:13827,165:13828,48:1382SC7Ė15:" HOT AND DRY ";7-P;SC10Ė17:" CLOUDY ";a-R;SC5Ė14:" THUNDERSTORMS! ";:17000g-`;~-j;A$:A$"*"15210-t;SC215300-~;I,J:J015500-;K1J:768,I:769,10:770-;LKJ:::15230-;I,J:J015300-;SC715400.Ġ0J,6;6,102:4,143:7,124:22,304:20,365:23,336:::17000:15170W,8;SC7Ġ9,:;3,51:2,62:I36:1,7I::2,67:3,58,B;22:8:" LEMONSVILLE WEATHER REPORT ":,G;22:8:" LEMONSVILLE WEATHER REPORT ":,L;SC2Ė18:" SUNNY ";-N;+8:(7):"...READY TO BEGIN? ";A$;+8(A$,1)"N"13000A+8X+: WEATHER DISPLAY`+::{+;SC:I025:0,39I:I+;12:I2639:0,39I:I+;8:I2432:15,25I:I+.;13:I17232:22,23I:I+/;SC2SC715160+0;SC10Ġ15,5;SC5*@8I1N::@*J8"PLAYER NO. ";I;", HOW MUCH MONEY (ASSETS)":W*T8"DID YOU HAVE? ";l*^8"";A$:A(A$):*h8A2ĺ"O.K. - WE'LL START YOU OUT WITH $2.00":A2:14490*r8A40ĺ"JUST TO BE FAIR, LET'S MAKE THAT $10.00":A10*8A(I)(A100.5)100:$BER IT WAS? ";/)F7"";A$:A(A$)::A014200p)P7A$(A$,1):A$"Y"ĺ"GOOD! WHAT DAY WAS IT? ";:II1:14150)Z7A$"N"I014300)d7(7);"YES OR NO? ";:II1:14150)x7A1A99A(A)14300)7DA)7"OKAY - WE'LL START WITH DAY NO. ";D1: MONEY THAN YOU HAVE! ":%(318000-(3:F(6 CONTINUE OLD GAME[(7936:(7);:I0(7"HI AGAIN! WELCOME BACK TO LEMONSVILLE! ":((7"LET'S CONTINUE YOUR LAST GAME FROM WHERE"(27"YOU LEFT IT LAST TIME. DO YOU REMEMBER ")<7"WHAT DAY NUMNCOME FROM SALES AND YOUR EXPENSES.":V'3"THE NUMBER OF GLASSES YOU SELL EACH DAY "'3"DEPENDS ON THE PRICE YOU CHARGE, AND ON "'3"THE NUMBER OF ADVERTISING SIGNS YOU USE.":'3"KEEP TRACK OF YOUR ASSETS, BECAUSE YOU "(3"CAN'T SPEND MORE TO MAKE LEMONADE IS TWO CENTS "Q&3"A GLASS (THIS MAY CHANGE IN THE FUTURE).":\&318000b&3&3"YOUR EXPENSES ARE THE SUM OF THE COST OF"&3"THE LEMONADE AND THE COST OF THE SIGNS. ":&3"YOUR PROFITS ARE THE DIFFERENCE BETWEEN "&'3"THE IING)"]%T3"2. HOW MANY ADVERTISING SIGNS TO MAKE (THE SIGNS COST FIFTEEN CENTS EACH) "%^3"3. WHAT PRICE TO CHARGE FOR EACH GLASS ":%h3"YOU WILL BEGIN WITH $2.00 CASH (ASSETS)."%r3"BECAUSE YOUR MOTHER GAVE YOU SOME SUGAR,"&|3"YOUR COST => ";N$+$/N(N$):N1N30ĺ(7);:122201$/E$2 NEW BUSINESSK$,3{$63"TO MANAGE YOUR LEMONADE STAND, YOU WILL "$@3"NEED TO MAKE THESE DECISIONS EVERY DAY: ":%J3"1. HOW MANY GLASSES OF LEMONADE TO MAKE (ONLY ONE BATCH IS MADE EACH MORN YOU"7#/"MAKE THE MOST MONEY, YOU'RE THE WINNER!!":g#/"ARE YOU STARTING A NEW GAME? (YES OR NO)"#/21:958:"TYPE YOUR ANSWER AND HIT RETURN ==> ";A$#/A$(A$,1):A$"Y"A$"N"ĺ(7);:12200$/23:958:"HOW MANY PEOPLE WILL BE PLAYING =YOU ARE IN CHARGE OF"E"b/"RUNNING YOUR OWN LEMONADE STAND. YOU CAN"u"l/"COMPETE WITH AS MANY OTHER PEOPLE AS YOU""v/"WISH, BUT HOW MUCH PROFIT YOU MAKE IS UP""/"TO YOU (THE OTHER STANDS' SALES WILL NOT"#/"AFFECT YOUR BUSINESS IN ANY WAY). IF55,152,40,171,80,192,40,228,255,1,40,0,160,192,255,192,40,171,80,152,40,128,255,0,0`!- MUSICp!-I,J:J0ı!-768,I:769,J:770!-11710!. TITLE PAGE!D/::(7);!N/"HI! WELCOME TO LEMONSVILLE, CALIFORNIA!":"X/"IN THIS SMALL TOWN, L;LL;,;L;LL;,;;;LL;,,,,,*J - 96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0 - 114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,255,0,0 - 152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0S!(- 0,160,128,212%,32,0:33,40:34,20:35,23:22<,I14000::I(0)B,N, DATA, 96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102,60,114,120,102,60,96,255,0,0 - ,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;5,1958,I3971:15:18,37I:12:I39ď18,36I1OB,15:I30ď18,36I10L,12:I29ď18,37I11:32,I11:11:I12::A$:A$;V,J14II:::I11000:`,13:14,3612:I36201:8,16Ij,J150::768,I312:769,12:770::12:14,19;L;LL;LLLLLLLL";A+"LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";r+"LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";,"LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";,23:" COPYRIGHT 1979 APPLE COMPUTER INC."$,11700:I12000:.,33,1:34,9:3L;L;LL;L;LL;L;LLL";D+";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;";L+11}+"LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL";+"LLLLLLLL;;;;;LL;LLLLL;L;LLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";Op+";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";z+";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;";+";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;";+";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;";+";LLLL;LLLL;L;L;L;LL;L;L71,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202~'782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0'* INTRODUCTION\+:::12:I039:0,39I::2f+";LLLLLLLLLLL::" ";L(I);7);"GLASSES MADE":hSTIE:4000:" ";S(I);7);"SIGNS MADE";25);"EXPENSES ";STI$::STIP1:4000:16);"PROFIT ";STI$:STIA(I):4000:16);"ASSETS ";STI$18000 :' INITIALIZE'0:0Wt'770,173:7(STI)&STI(STI)STI$STI$".0"MSTI(STI10.5)10STI$STI$"0"S`6:34,5" DAY ";D;30);"STAND ";I::" ";N2;7);"GLASSES SOLD":STIP(I)100:4000:STI$;7);"PER GLASS";STIM:4000:27);"INCOME ";STI$"NDS WERE BEING SET UP."E8 "UNFORTUNATELY, EVERYTHING WAS RUINED!!"YB J1N:G(J)0:cL 1185q` X41805zj X41~ "A HEAT WAVE IS PREDICTED FOR TODAY!" R12 805  STI => DOLLARS.CENTSSTI(STI100.5)100STI$"$"805-"THE STREET CREWS BOUGHT ALL YOUR"L"LEMONADE AT LUNCHTIME!!"V1185k THUNDERSTORM!y X31:R30 SC5:15000:: "WEATHER REPORT: A SEVERE THUNDERSTORM"$ "HIT LEMONSVILLE EARLIER TODAY, JUST AS". "THE LEMONADE STA LIGHT RAIN,"5C"AND THE WEATHER IS COOLER TODAY."DHR11J100MRX11V\805dX21805"THE STREET DEPARTMENT IS WORKING TODAY.""THERE WILL BE NO TRAFFIC ON YOUR STREET."(1).52233R222250R1.1X21USINESS YOU'RE BANKRUPT!"%dB(I)12f18000:HiN1B(1)131111OnIXsR11atR20jx400 RANDOM EVENTSSC102110SC72410(1).2522108054X11805>J30((1)5)10 @"THERE IS A ";J;"% CHANCE OF01ES(I)S3L(I)C1# P1ME4A(I)A(I)P1EH(I)12300K(])B(I)11330."STAND ";I;:" BANKRUPT":18000/139025000FA(I)C1001390P"STAND ";IU:" ...YOU DON'T HAVE ENOUGH MONEY LEFT"Z" TO STAY IN B32350I1N%A(I)0A(I)04R221260GP(I)P91220dN1(P9P(I))P9.8S2S2n1230N1((P92)S2P(I)2)WS(I)C9V1((W)C2)N2R1(N1(N1V))N2(N2G(I))N2L(I)1270N2L(I)MN2P(I).:SC10(1).252300Fj"$$ LEMONSVILLE DAILY FINANCIAL REPORT $$"Loft768,152:769,80:770v768,128:769,160:770x768,152:769,40:770z768,144:769,80:770|768,128:769,200:770 CALCULATE PROFITSR222290R3ONADE ";P(I),P(I)0P(I)100102261024b"COME ON, BE REASONABLE!!! TRY AGAIN."l1010P(I)(P(I))1022C51105023:"WOULD YOU LIKE TO CHANGE ANYTHING?";A$$(A$,1)"Y"ė:C51:810LMIVC50::`950S(I)(S(I))963;S(I)S3A(I)L(I)C11010A\STIA(I)L(I)C1:4000"THINK AGAIN, YOU HAVE ONLY ";STI$"IN CASH LEFT AFTER MAKING YOUR LEMONADE."950:"WHAT PRICE (IN CENTS) DO YOU WISH TO""CHARGE FOR LEM);" GLASSES OF">"LEMONADE YOU NEED $";L(I)C1;" IN CASH."G890M"HOW MANY ADVERTISING SIGNS (";S3100;" CENTS""EACH) DO YOU WANT TO MAKE ";S(I)S(I)0S(I)50963965"COME ON, BE REASONABLE!!! TRY AGAIN." "WISH TO MAKE "; L(I)9 L(I)0L(I)1000903B 906m "COME ON, LET'S BE REASONABLE NOW!!!"~ "TRY AGAIN" 890 L(I)(L(I))903 L(I)C1A(I)950 "THINK AGAIN!!! YOU HAVE ONLY ";STI$"IN CASH AND TO MAKE ";L(II)A(I).000000001$ 4G(I)1:H(I)0` RSTIA(I):4000:"LEMONADE STAND ";I;26);"ASSETS ";STI$f Wv \B(I)0890 f"YOU ARE BANKRUPT, NO DECISIONS" k"FOR YOU TO MAKE." lN1A(1)C31111 p1050 z"HOW MANY GLASSES OF LEMONADE DO YOU"R11 X CURRENT EVENTS( bD3650X l"(YOUR MOTHER QUIT GIVING YOU FREE SUGAR)"f D7700 "(THE PRICE OF LEMONADE MIX JUST WENT UP)"  AFTER 2 DAYS THINGS CAN HAPPEN D22000  INPUT VALUES %:34,(37) *I1N /A( WEATHER REPORT SC(1)0 SC.6SC2:460F SC.8SC10:460O SC7] D3SC2h 15000p :  START OF NEW DAY DD1 "ON DAY ";D;", THE COST OF LEMONADE IS "; C2:D2C4 &D6C5 0"$.0";C: :C1C.01 D FEBRUARY, 19791 Z BY CHARLIE KELLNER` A(30),L(30),H(30),B(30),S(30),P(30),G(30)j P910u S3.15 S230 A22.00 C9.5 C21 , START OF GAME 612000:I1N:B(I)0:A(I)A2: @A$"Y"İ13000:400 J14000  - 14080*10000:11000:16000:135H <<< LEMONADE STAND >>>O n FROM AN ORIGINAL PROGRAM BY BOB JAMISON, OF THE( MINNESOTA EDUCATIONAL2 COMPUTING CONSORTIUM< * * *F MODIFIED FOR THE APPLE P               ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OO줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  ~:J"4. EOQ FOR TIME VARYING DEMAND IN THE": " FUTURE. NO SHORTAGES ALLOWED":V"5. DECISION TO STOCK AN INVENTORY ITEM":: " WHICH OPTION DO YOU CHOOSE "; G%: G%: G% 1 1c G% 2 101d G% 3 201f G% 4 301h G% 5 401 SELECT ONE OF THE FOLLOWING OPTIONS:":::"1. EOQ, CONSTANT DEMAND, NO SHORTAGES":" TOLERATED."::"2. EOQ, CONSTANT DEMAND, SHORTAGES TO BE": " ALLOWED.":NB"3. E0Q FOR SPARE PARTS REQUIRED TO AVOID":" SHORTAGES. USAGE HISTORY ASSUMED."::UICK & DIRTY MANUAL'"::" BY ROBERT E. D. WOOLSEY":" & HUNTINGTON S. SWANSON"::" (HARPER & ROW PUBLISHERS, 1975)"::" TRANSLATED FROM FORTRAN TO BASIC "::" BY F. PAUL WYMAN, FEB., 1978"::"HIT SPACE BAR AND RETURN TO CONTINUE";A936:" IS A COLLECTION OF INVENTORY"::"CONTROL PROGRAMS FOR ORDER QUANTITY"::"AND STOCKING DECISIONS"::"THE USER IS REFERRED TO CHAPTER 2"3:"AND APPENDICES 2.1-2.5 OF THE TEXTBOOK:" :: "'OPERATIONS RESEARCH FOR IMMEDIATE":"APPLICATION: A Q:"THIS ITEM SHOULD NOT BE STOCKED"::"STOCK IT IF DEMAND RISES TO ";IQ%,"ITEMS": 599U"THIS ITEM SHOULD BE STOCKED"::"DON'T STOCK IT IF DEMAND FALLS AS LOW AS",IQ%;" ITEMS PER YEAR":::" DO ANOTHER (Y/N):";Q$:Q$"Y" 500:1050936:"THIS"ENTER ORDERING COST PER ORDER= $";CSETUP:936:"OK, LET'S SEE HERE..."::"I GUESS I'D SAY THAT":Q (PCTLOS100.(PRICECPROD)OSETUPAVG (1PCTLOS100.))2 : Q$"M" QQ2.SETUPSETUPCHOLDRATEWNQ2.CSETUPCHOLDQ:IQ%Q.5: Q DEMND 597R ORDER = "; AVG: : "ESTIMATE PERCENT OF SALES LOST IF ITEM IS NOT STOCKED";PCTLOS::" IS ITEM MANUFACTURED OR PURCHASED(M/P)";Q$::Q$"P" 570:"SETUP COST PER PRODUCTION RUN = $";CSETUP:5"ANNUAL PRODUCTION(NO.ITEMS)";RATE:: 580:EN ITEM"::"SHOULD BE STOCKED OR NOT BE STOCKED"::"PLEASE INPUT THE FOLLOWING DATA:"::"HOLDING COST PER ITEM PER YEAR=$";CHOLD:"SELLING PRICE PER ITEM = $";PRICE::"ANNUAL DEMAND(NUMBER OF ITEMS) =";DEMND : !"NUMBER OF ITEMS PURCHASED PE(1P(L1))C1:B%P(L)(1P(L))C1:"STOCK ";L;" SPARES WHEN THE SHORTAGE COST":"IS GREATER THAN $";B%:"BUT LESS THAN $";A%: 245-"SORRY, THAT PROGRAM ISN'T TRANSLATED YET":I11000:I:1050 936:500"THIS PROGRAM TESTS WHETHER A GIV I::"DO YOU WANT THE RANGE OF SHORTAGE COSTS FOR A SPECIFIC STOCKING LEVEL(Y/N)";A$ : A$"Y" "WHAT IS THE GIVEN STOCK LEVEL(PER ASSY)";L: L PMAX 270 "FOR THIS ANALYSIS, STOCK LEVEL CAN BE NO GREATER THAN",PMAX: 255A%P(L1): PMAX: P(PMAX1):SUM0.0 : IPMAX 0 1:"HOW MANY ASSY'S HAVE REQ'D ";I;" PARTS":P(I1):SUMSUMP(I1): IP(1)P(1)SUM: I2 PMAX1:P(I)P(I)SUMP(I1): (C2(C1C2)) P(I1) (C2(C2C1)) P(I) "OPTIMAL STOCK LEVEL IS ";I d01  1050936:"STOCKING OF STRATEGIC SPARE PARTS"::"FOR COSTLY ASSEMBLIES"::"PLEASE INPUT COST PER SPARE PART";C1:s"INPUT COST OF BEING SHORT THIS PART";C2::"WHAT IS THE MAXIMUM NUMBER OF SPARE":"PARTS EVER REQUIRED FOR AN ASSEMBLY""TC (C1T(IQIS)2)2IQISISC2T(2IQ) CSRIQ:TC1 ((2.RTC1CSC2)(C1C2)) :TC(TC100.5)100:TC1(TC1100.5)100::"HOLDING+ORDERING+SHORTAGE COSTS OVER":"THE DEMAND PERIOD = $";TC,TC1::"DO ANOTHER(Y/N)";A$: A$"Y" 1))(TC1C2)):ISIQ((2.RCSC2)(C1T(C1C2))):ITS(ITS .5):IQ(IQ.5)IS (IS.5):936:"OPTIMAL INTERVAL BEWTEEN ORDERS IS":;ITS;" DAYS"::"OPTIMAL ORDER QUANTITY IS ";IQ;" UNITS"::"AVERAGE SHORTAGE AT ENDOF ORDER CYCLE IS":: IS,"UNITS "OF THE ITEM'S SELLING PRICE:$";C1 r:"PLEASE INPUT SETUP COST PER ORDER:$";CS::"HOW MANY ITEMS ARE NEEDED:";R::"OVER HOW MANY DAYS:";T::"WHAT IS SHORTAGAE COST PER ITEM PER DAY";C2M ITS(((2.TCS)(C1C2))(RC1C2)):IQ ((2.RCS(C1C2 + ORDERING COST OVER THE ":"DEMAND PERIOD = $"; TEC : : :: "DO ANOTHER?": A$: A$ "Y" 1 ~ d 1050# e936:"INVENTORY MODEL WITH SHORTAGES"::"PLEASE INPUT HOLDING COST PER ITEM PER DAY":"AS A DECIMAL FRACTION PERCENTAGE":REM STMT 91 SHOWS HOW F.P. UES CAN BE TCATED AN ARBITRARY NUMBER OF DECIMAL PLACES(1002 PLACES).::" THE OPTIMAL INTERVAL BETWEEN","BATCH ORDERS ="; ITSTAR%;"DAYS." s a:: "THE OPTIMAL ORDER QUANTITY IS",IQSTAR% ;"UNITS.":::"INVENTORYER " : CS: : " HOW MANY ITEMS ARE NEEDED ?": R: :: " OVER HOW MANY DAYS?": T : 7936:::" OK, I'LL THINK ABOUT IT...":ITSTAR% (2.CSTC1R):IQSTAR% (2.CSRC1T):TEC (2.C1TCSR):TEC (TEC100 .5)100 : 95 \  1000936: ,"INVENTORY MODEL"::"FOR ECONOMIC ORDER QUANTITY(EOQ)"::"WITH CONSTANT DEMAND AND NO SHORTAGES ALLOWED.":h : "INPUT THE COST OF HOLDING ONE UNIT IN INVENTORY FOR ONE DAY:";C1:: :: "PLEASE INPUT SETUP COST PER ORD        $:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQr T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `O ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 .5)1005 :"MORE DATA?(1=YES, 0=NO)";:X:X120C6:"INITIAL INVESTMENT":"TOTAL VALUE AFTER Y YEARS";:T:"NUMBER OF COMPOUNDING PERIODS PER YEAR";:N:"NUMBER OF YEARS, MONTHS";:Y0,M UY(12Y0M)12:"NOMINAL INTEREST RATE";:I:IIN100:PT(1I)(NY):"INITIAL INVESTMENT = $";(P100  àύ̍+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿI1 JB"MORTGAGE ";I;"=";"OVER ";N(I):"MOS AT ";O(I);"%"I IO Y 1870k$ "THANK YOU!":\"BUILDING HAS ";N1;" UNITS AND ";F1:"SQUARE FEET ":"BUILDING ALLOCATION= "A1;"%""PERSONAL PROPERTY= ";A2;"%":"BLDG TAKEN UNDER ";D$;" DEPRECIATION":"OVER ";Y1;" YEARS""PERSONAL PROP. TAKEN UNDER ";H$;:"DEPR OVER ";Y2;" YEARS." ION" Z Z1180%Z22102 Z3240?*Z4310L/Z5340Y0Z6550H"PLEASE INPUT A NUMBER BETWEEN 1 AND 6"R2050\"PLEASE INPUT 'SL','DDB',OR '125%"f600p"PLEASE INPUT 'DDB','SL','125%'":"OR '150%'z650K121800"PLEASE INPUT 1,2,3,OR 4":18906T"DO YOU WISH TO CHANGE:"u"1- SCHEDULED GROSS INCOME""2- VACANCY ALLOWANCE""3- EXPENSE RATIO""4- PURCHASE PRICE""5- MORTGAGE INFORMATION""6- DEPRECIATION INFORMAT BASED ON PRICE =";P2;"%"`"GROSS MULTIPLIER =";P6:"PRICE/UNIT =";P3;"PRICE PER SQR FT=";P4j0::N"DO YOU WANT TO 1-DISPLAY VALUES":"2-CHANGE A VALUE":"3-RERUN PROGRAM"S"4-DONE"bKlYKvK42340K360K21970 ));C&"PRINCIPAL";40((P8)));P8R"EQUITY RTN(";P9;"%)";40((T1)));T1w"DEPRECIATION";40((A7)));A7"TAXABLE";40((T)));T"ENTER 1 TO CONTINUE";AA:"PURCHASE PRICE =";P1:"LOAN AMOUNT =";L;"EQUITY =";P5"CAP RATE 1 2"VT"INTEREST ";24((T(1))));T(1);34((T(2))));T(2)h"PRINCIPAL ";24((U(1))));U(1);34((U(2))));U(2)|"TOTAL ";24((V(1))));V(1);34((V(2))));V(2):"CASH FLOW (";P7;"%)";40((C)CHEDULED GROSS";32((G1)));G1J"VACANCY (";V1;"%)";32((V2)));V2p" GOI";32((G2)));G2"EXPENSE RATIO (";E1;"%)";32((E2)));E2"" NOI";32((G3)));G36:"FINANCING NOI";32((G3)));G3J"MORTGAGE P1(P1100.5)100eL(L100.5)100:P5(P5100.5)100:P2(P2100.5)100:P6(P6100.5)100P3(P3100.5)100:P4(P4100.5)100T1(T1100.5)100:C(C100.5)100:P7(P7102.5)(102.5):P9(P9102.5)(102.5) "S)100:G2(G2100.5)100:E2(E2100.5)100G3(G3100.5)100:T(1)(T(1)100.5)100:T(2)(T(2)100.5)100:U(1)(U(1)100.5)100V(1)(V(1)100.5)100:V(2)(V(2)100.5)100:P8(P8100.5)100A7(A7100.5)100:T(T100.5)100:(R(I)T2):K:I@I1J:V(I)R(I)12:U(I)V(I)T(I):CCV(I)T N(I)9001340_U(I)0f<IxFP7(CP5)100PP80:P90:T10xI1J:P8P8U(I):IT1P8C:P9(T1P5)100TT1A7936::-G1(G1100.5)100:V2(V2100.5)2:1080H$"125%"10608A6(A4Y2)1.25:1080MH$"150%"2160`.A6(A4Y2)1.5m8A7A5A6|BZ51280`I1J:Q(I)O(I)1200:T(1Q(I))N(I):R(I)(M(I)Q(I)T)(T1):II1J:T10:T3M(I):K112:T2T3Q(I):T(I)T(I)T2:T3T3P5P1L)HA3(A1100)P1:A4(A2100)P1;fD$"SL"900NpA5A3Y1:1080Wz960jD$"DDB"930A5(A3Y1)2:1080960D$"125%"2140A5(A3Y1)1.25:1080H$"SL"990A6A4Y2:1080H$"DDB"1020 A6(A4Y25%)";:D$6v:"BUILDING DEPRECIATION IN YEARS";:Y1j:"PERSONAL PROP. DEPR -(DDB,SL,125%,150%":H$:"PP PERIOD IN YEARS";:Y2Y2710V2(V1100)G1:G2G1V2P6P1G2:E2(E1100)G2:G3G2E2:CG3:P2(G3100)P1:P3P1N1:P4P1F1:O(I) LLM(I) I% Y2710~ &:"FOR DEPRECIATION PURPOSES WHAT IS THE":"PERCENTAGE ALLOCATION TO THE BUILDING"; :A1 D:"PERCENTAGE ALLOCATION TO PERSONAL":"PROPERTY";:A2 X:"WHAT METHOD IS TO BE USED ON THE BLDG":"(DDB ,SL, 12OW MANY MORTGAGES WILL BE AGAINST THE":"PROPERTY";:Z5:J:L0 |:"FOR BALLOON OR INTEREST ONLY MORTGAGES":"SET MONTHS=10000" I1J::"WHAT IS THE AMOUNT ($),TERM (MONTHS),":"AND INTEREST RATE (%) OF MORTGAGE " "NUMBER ";I; M(I),N(I),:"WHAT IS THE EXPENSE RATIO (%) RELATIVE":"TO THE GOI";:E1J Y2710~ :"HOW MANY UNITS DOES THE BUILDING HAVE";:N1 ":"HOW MANY SQ FEET DOES THE BUILDING":"HAVE";:F1 6:"WHAT IS THE PROPOSED PURCHASE PRICE";:P1 JY2710> T:"HMETERS, SUCH AS MORTGAGE INTEREST":"RATES CAN BE VARIED TO SEE THEIR"n "EFFECT ON THE PROFIT COMPONENTS."v : "WHAT IS THE YEARLY SCHEDULED GROSS":"INCOME";:G1 Y2710 :"WHAT IS THE VACANCY ALLOWANCE IN %";:V1 Y2710= THE COMPONENTS OF":"PROFIT ARE GOI-GROSS OPERATING INCOME," n"NOI-NET OPERATING INCOME, CASH FLOW":"OR SPENDABLE INCOME, EQUITY INCOME, " x"AND TAXABLE INCOME.":"IN ADDITION, CAP RATE IS COMPUTED, AS":"WELL AS PRICE PER SQ FOOT. "F "PARAmM(5),N(5),O(5)3Q(5),R(5),T(5),U(5),V(5)=2936<"DO YOU NEED HELP WITH THIS PROGRAM":"('Y'=YES,'N'=NO)":C$PC$"N"180Z"THIS PROGRAM COMPUTES THE COMPONENTS OF":"PROFIT RELATED TO THE PURCHASE OF AN"> d"APARTMENT BUILDING.            THIS PROGRAM WILL HELP YOU TO"::"DO SOME FORECASTING OF ACCOUNTS.."20:" PRESS 'ESC' TO END":" PRESS THE SPACE BAR TO CONTINUE...":(16384)1556080(16384)1606050936::10:10:"* * * THE END * * *":T"AUGUST", xI9ĺ"SEPTEMBER",6yI10ĺ"OCTOBER",MzI11ĺ"NOVEMBER",d{I12ĺ"DECEMBER",j|E5:"* * * FORECASTING * * * "::"* * * BY STAN TESHLER * * *"::"* MODIFIED FOR APPLE II BY *":"* KEN SLINGSBY WELCH, MN *":::" I22I34I46ĺ"OCTOBER ";CI11I23I35I47ĺ"NOVEMBER ";jI12I24I36I48ĺ"DECEMBER ";ppI1ĺ"JANUARY",qI2ĺ"FEBUARY",rI3ĺ"MARCH",sI4ĺ"APRIL",tI5ĺ"MAY",uI6ĺ"JUNE",vI7ĺ"JULY", wI8ĺ39ĺ"MARCH ";7I4I16I28I40ĺ"APRIL ";]I5I17I29I41ĺ"MAY ";I6I18I30I42ĺ"JUNE ";I7I19I31I43ĺ"JULY ";I8I20I32I44ĺ"AUGUST ";I9I21I33I45ĺ"SEPTEMBER";I10V0:"TO SAVE DATA ENTER '1' ";V:V19208936:650"OPEN ";A$:"WRITE ";A$:I172:A(I)::R:S:P:936:I1500::650~" MON C,I,O":6050I1I13I25I37ĺ"JANUARY ";I2I14I26I38ĺ"FEBUARY ";I3I15I27I 1979 DATA."::SSB:ISB37S36:5000:"1979 ";A(I):PPA(I)::I6160S:UUA(I)::WPU:I60S72 A(I12)A(I)W::936:8);"THE MONTHLY ESTIMATES ARE:"::"MONTH","ESTIMATE":"1ST. ";S;" MONTHS",P:IS112:6000:A(I72):)p:"TOTAL",W::"FILE NAME TO UPDATE? ";A$:"OPEN ";A$:"READ ";A$:I172:A(I)::R:S:P:" CLOSE ";A$:936:"ITEM NUMBER. . .";R;" . . .";S;" MONTHS ALREADY ENTERED.""HOW MANY ADDITIONAL MONTHS ARE YOU ENTERING? ";B:(B1BS12)690i"ENTER ADDITIONAL::"YOU WILL BE RECALLING R (ITEM #), S (# OF1979 MONTHS), P (THE CUMULATIVE TOTAL OF1979 DATA ENTERED), AND A(61-A(72) (THE MONTHLY PERCENTAGES).":654"TO ENTER DATA FOR A NEW ITEM TYPE 'NEW'":A$:A$"NEW"12R0:S0:U0:W0:I184:A(I)0::S;" MONTHS ",P:IS112:6000:A(I72):d:"TOTAL",W:V0:"TO SAVE DATA ENTER '1' ";V:V112"FILE NAME ";Z$:"OPEN ";Z$:"WRITE ";Z$:I172:A(I)::R:S:P:"CLOSE ";Z$:"DONE":I15000::936:12X936:5);"UPDATE OF 1% FILES.":24)A(36):QLMN:I4960:A(I12)A(I)Q::I6172:TTA(I)::(T.997)(T1.003)ĺ"ERROR 310"z ;(T.997)(T1.003)ij)@I6160S:UUA(I)::WPU:I(60S)72:A(I12)A(I)W::936:8);"THE MONTHLY ESTIMATES ARE:"::"MONTH","ESTIMATE":"1ST. ";A(25):A(50)A(2)A(14)A(26):A(51)A(3)A(15)A(27):A(52)A(4)A(16)A(28):A(53)A(5)A(17)A(29):A(54)A(6)A(18)A(30):A(55)A(7)A(19)A(31):A(56)A(8)A(20)A(32)` A(57)A(9)A(21)A(33):A(58)A(10)A(22)A(34):A(59)A(11)A(23)A(35):A(60)A(12)A(0:110 dMMA(I):W n"ENTER 1978 DATA "::I2536:5000:"1978 ";A(I):NNA(I): "NUMBER OF MONTHS FOR WHICH YOU HAVE 1979 DATA ";S:S12140 S1140 :"ENTER 79 DATA "::I37S36:5000:"1979 ";A(I):PPA(I): A(49)A(1)A(13)L0:M0:N0:P0:T0:U0:Q0:W0:I184:A(I)0::"IF NO ENTRY OF 76 ENTER A NEGATIVE NUMBER.":I112:5000:"1976 ";:A(I):A(I)0A(I)0:65 2LLA(I):I A"IF NO ENTRY FOR 77 ENTER A NEGATIVE NUMBER.":I1324:5000:"1977 ";:A(I):A(I)0A(I)ST ONE 'HISTORY' YEAR FOR THIS FORECASTING METHOD TO" "WORK. YOU WILL ALSO NEED THE CURRENT YEAR DATA.":::"TO UPDATE THE STORED FILES ENTER 'U' ":UU$:UU$"U"600 "TO STOP ENTER A NEGATIVE ITEM NUMBER"::"ITEM NUMBER ";R:R04990 A(84):" NOMON C,I,O":936:6020:936:8);"1% FORECASTING PROGRAM":::"ENTER ACCOUNTS BY MONTH FOR THE YEARS OF 1976, 1977, 1978."8 "IF THERE ARE NO ACCOUNTS FOR 76 OR 77 ENTER A NEGATIVE NUMBER TO GO TO 1978.":"YOU WILL NEED AT LEA          " CHOOSE PROGRAM BY NUMBER...";CHOICE6 $CHOICE0ĀP .D$;"RUN ";A$(CHOICE)DN ";A$(CHOICE)D$;"RUN ";A$(CHOICE).CASTING,INCOME PROPERTY ANALYSIS_  INITIAL INVESTMENT,INVENTORY CONTROL PROGRAM, PHONE LISTp (NN1:A$(N) 2A$(N)"9"NN1:1010 <40  9 15::"DISC MENU":: " ";0;". EXIT" X1N:X10ĺ" "; X;". ";A$(X):& 23::Q A$(80):D$"",D$;"NOMON C,I,O": BILLING - A/R, BUSINESS PROPERTY ANALYSIS,CASH FLOW DATA,DECISION HELPER,DEPRECIATION AMOUNT DEPRECIATION RATE,DIRECT REDUCTION ON LOANS, DISCONTINUOUS OPTION PRICING, FINANCE,FINANCIAL PROGRAMS,FORE ":17:"ED AVELAR":I13000:I:85I3:10,133:15,183:25,2737zN6,76:11,126:16,176:26,276:30,316:3,85:3,88:3,810:3,613:3,815:3,618:3,820:3,825:3,833:3,835:21,228:26,278:13:2,3939:2,390:0,392:0,3939#8N8:"BUSINESS (FINANCIAL) SERIES":20:"BYE66N13,2917:12,3018:9:11,3119:11,3120:9:11,3121:12,30226FN1:13,2923:13,2924:14,2825:14,2826:15,2727:2:16,26286TN16,2629:2:17,2030:22,2530:12:21,14:16,1814:24,26147bN22,13:23,12:24,11:21,15:21,16:14:5,8100))100::"PRESS (RETURN) TO CONTINUE..";A$::B5=J0Y15720`5"=I30:A20:J0:YJ0157205J=N1((Y(Y))12)12N:J0J01:151445h=9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"905w=151005 N:12:15,1915:14,2016:23,2715:22,2816:142A:J0X15570h42030^ :9000:15);"((( LOANS )))"::9000:::7);"1. PRINCIPAL ON A LOAN": 7);"2. REGULAR PAYMENT ON A LOAN"::7);"3. LAST PAYMENT ON A LOAN"::7);"4. REMAINING BALANCE ON A LOAN"::7);"5. TERM OF A LOAN": 7);"6.ESTMENTS": "2. EFFECTIVE INTEREST RATES ON ''"::"3. EARNED INTEREST TABLE"::"4. ANNUAL INTEREST RATE ON A LOAN"::"5. RETURN TO MENU":: "WHICH (1-5) ? ";A$:A$"1"11100 6A$"2"11200 8A$"3"11300 :A$"4"11420 ;A$"AMOUNT"::10);"3. SALVAGE VALUE"::10);"4. RETURN TO MENU"::::o "WHICH (1-4) ? ";A$:A$"1"10000 A$"2"10100 A$"3"10200 A$"4"90 1030 :9000:13);"((( INTEREST )))"::9000:::"1. NOMINAL INTEREST RATE ON INVION" 0 "WHICH (A-F) ? ";A$:A$"A"1000A A$"B"2000R A$"C"3000c A$"D"4050t A$"E"5000 A$"F"6000 140 :9000:11);"((( DEPRECIATION )))"::9000:::10);"1. DEPRECIATION RATE":H 10);"2. DEPRECIATION $0::20000!UA$(5):I(5)Z::9000:7);"BUSINESS ( FINANCIAL ) SERIES"::9000:" MENU... (A) DEPRECIATION"::" (B) INTEREST" t:13);"(C) LOANS"::13);"(D) INVESTMENTS"::13);"(E) DEPOSITS"::13);"(F) AMORTIZAT                 z#Xò   Ġ ٮʰ Ԡ ҠΠ Ǡ Š٠Ӡ ̠Ԡ٠̠͠ƠŠԠ3Ҡà ΠҠ ΠԠΠŠԠΠΠӠӠΠǠ!Š̠Ӡ2Ϡ ՠǠҠԠӠ٠ӠȠנĠԠ ........6"P\.......................................d"Q\......................................."R\......................................."S\......................................."T\.......................................#U\.............................................P!K\.......................................~!L\.......................................!M\.......................................!N\......................................."O\.............................................< E\.......................................j F\....................................... G\....................................... H\....................................... I\......................................."!J\.....\.......................................V@\.......................................A\.......................................B\.......................................C\....................................... D\.............................................B:\.......................................p;\.......................................<\.......................................=\.......................................>\.......................................(?.4\.......................................\5\.......................................6\.......................................7\.......................................8\.......................................9\.............................................H/\.......................................v0\.......................................1\.......................................2\.......................................3\.............................................4)\.......................................b*\.......................................+\.......................................,\.......................................-\........................................\.............................................N$\.......................................|%\.......................................&\.......................................'\.......................................(\.............................................:\.......................................h\....................................... \.......................................!\......................................."\....................................... #\.............................................T\.......................................\.......................................\.......................................\....................................... \.............................................@\.......................................n\.......................................\.......................................\.......................................\.......................................&\."";"RUN MENU" n" :::O " NEBRASKA DEPARTMENT OF EDUCATION"| " DIVISION OF VOCATIONAL EDUCATION" " 301 CENTENNAIL MALL SOUTH" " LINCOLN NEBRASKA" ,************" ?200' AI13000:I- C9 F:::C H:: K"THESE PUBLIC DOMAIN PROGRAMS HAVE BEEN MADE AVAILABLE THROUGH"; L:" VEMSEN ": P"THIS DISTRIBUTION DOES NOT IMPLY THE INDORSEMENT OF THESE PROGRAMS." ZI14000: d2 " ";::"GREETINGS":F18)"FROM THE"LT:y9)"**************************"9)"* VOCATIONAL EDUCATION *"(9)"* MICROCOMPUTER SOFTWARE *"29)"* EXCHANGE NETWORK *" <9)"**************  ";::"NAME";::" ENTRY:":10:14:NN$d/12:"AND THE ";::"PHONE NUMBER";::":":14:14:NP$/,18:8:868:"ARE THEY CORRECT (Y/N) ";S$:(S$,1)"Y"4180/6(S$,1)"Y"S5ġ:6000/@(S$,1)"N"ĺ"":4100/J4000/OS542000TSЫ4020^.10:958:"ENTER NEW NUMBER THEN PRESS 'RETURN'.":"(USE THE FORMAT: XXX XXX XXXX)".13:"-> ";A$:6100:NP$B$:NP$""S5Ĺ32,0::25000.NP$""Ĺ32,0:25000.(NP$)12ĺ"":4050. IS ENTRY CORRECT? (/::8:"HERE IS THE":I12000::25000-32,3:10:958:"ENTER NEW NAME AND PRESS 'RETURN'.":"(USE NO COMMAS, COLONS OR QUOTES.":"TWENTY-FIVE CHARACTERS, MAXIMUM.)"-14:"-> ";A$:6100:NN$B$:NN$""S5Ĺ32,0::25000-NN$""Ĺ32,0:25000.(NN$)25ĺ"":(NA$,1)(92)INR2540$, 1100>, VT22VT2:3:958E, IO, 1200l, IS DATA FILE EMPTY? , ::NR0Ģ12:9::"<< NO NAMES ON FILE >>"::I12000:I::25000, , ENTER LISTINGS -:NR150Ģ12:12:"DATA TABLE FULL!++ GOT A FULL PAGE [+22:958:"ENTER 'RTN' TO CONT - 'ESC' FOR MENU ";:T$r+(T$(27)ġ:25000+2T$(13)Ģ3:1:958:VT3:+<(7):1300+ + LIST EVERYTHING + 3000+ 1012+ :Z+ VT2:FO0:I1NR, NA$:1500:I:25000*K'*L GOT ONE! H*NVTVT1:VT21PR1İ1300\*PFO1Ģ12:868i*QPRİ700z*VVT:1:NA$;*`PRİ750*tINRı*PRİ700:" ":" ":" ":" ":750+22:868:"THAT'S ALL OF THEM! - PRESS 'RETURN' ";:"";S$:25000Z)FO0:I1NR1)NA$:(NA$,1)(92)1040W)SK0SK1ĭ(NA$,(S$))S$1075h)II1(NA$))$(NA$,II,(S$))S$FOFO1:1100:1075).II)3I:FO1200)812:868:12::"<< NOT FOUND >>"::PRİ700:S14:" "::750*B(7):I1PLEASE ENTER THE SEARCH KEY:":13:5:"";S$:S$""25000O(PRİ700:" ":" "(:1:" NAME PHONE NUMBER":"----------------------------------------"(PRİ750(S22510(12:868:12::"<< SEARCHING >>"::VT2):N SAVED!!":22:'z::22:/' SEARCH D'3000:OP11010':9:5:"WOULD YOU LIKE TO SEARCH BY"::10:"1 WORD (FAST)":7:"OR 2 CHARACTER (SLOW)"'14:868:20:"WHICH: ";SK$:SK(SK$):SK1SK2(SK$)1ĺ"":10078(:11:5:":&  END ROUTINE %&*MF0890U&4DISKĺ(4)"SAVE PHONE LIST":::22:976:&>:11:"INSERT A NEW TAPE INTO THE RECORDER, SET";:"ON RECORD, AND PRESS 'RETURN' ";:"";S$&HI11500:::I12000::'R:12:"THE PROGRAM AND DATA HAVE BEE)(1001)192DISK13%DISKĺ(4)"NOMON C,I,O":`% GET ADDRESS OF FIRST DATA STATEMENT %START((103)(104)256458)%& SET FAST/SLOW SEARCH %0OP0%:25000% ACTIVATE PRINTER %SL:% DE-ACTIVATE PRINTER &0..0$[\.......................................^$\\.......................................$]\.......................................$^\.......................................$ SET PRINTER SLOT $SL1$ DISK SYSTEM?? %(994............................J#V\.......................................x#W\.......................................#X\.......................................#Y\.......................................$Z\.....................................CASTING,INCOME PROPERTY ANALYSISq INITIAL INVESTMENT,INVENTORY CONTROL PROGRAM, LEMONADE (SIMUL), PHONE LIST (NN1:A$(N) 2A$(N)"9"NN1:1010 <40  9 15::"DISC MENU":: " ";0;". EXIT" X1N:X10ĺ" "; X;". ";c A$(80):D$"",D$;"NOMON C,I,O": BILLING - A/R, BUSINESS PROPERTY ANALYSIS,CASH FLOW DATA,DECISION HELPER,DEPRECIATION AMOUNT DEPRECIATION RATE,DIRECT REDUCTION ON LOANS, DISCONTINUOUS OPTION PRICING, FINANCE,FINANCIAL PROGRAMS,FORE6512,"12/11/75",50,4.25:"ADJ. WRENCH",136928,"12/13/75",20,9.98'"HAND SAW",221679,"1/7/76",14,7.98: 45686,"REMINGTON CAN","2314 SHERWOOD AVE.","LAKESIDE TX 45217": 21.76,"2/17/76": 2("ADJ. WRENCH",136928,"1/16/76",2,9.98:"PLASTIC ROD",234561(.5100B1)100:X5İ1220:1060:1060W5)"TOTAL LAST SALES $ ";B1:1280:30040@X"7000":: 37116,"WESTMAIN SALES CO.","327 W. CHERRY STREET. ","MELROSE IL 37215": 711.26,"12/17/75": 4:"ADJ. PULLEY",556178,"11/10/75",25,28.50:"WIRE MESH",87E P O R T ":30)D$:1060:10)"CUSTOMERS NAME":" ACC #";10)"ITEM #";21)"QUAN";31)"DATE"::1060:I1N1:XX1:1080:B(I)0ĂI I11B(I):1100:S(I)0ĂI(I1:10)N$(I):A(I);9)N(I);21)S(I);31)A$(I):B1B1S(I)P(I):I:1060:B1B1(1S):B1ES TAX THIS DATE :$";T2:T2T2B2:3)"TOTAL RECEIPTS THIS DATE :$";T2:T20:1240d1040:1060:1060::"WOULD YOU LIKE TO CHECK THE SALES FOR":"ANOTHER DATE (Y OR N) ?":Y$:Y$"Y"5000x30040p1200:1040:X0:" L A S T P U R C H A S E R 1(.5100S1)100:A(I);9)N(I);21)S(I);30)S1:B1B1S(I):B2B2S1:I1(Q$A$(I)ĂI1:B10ĂI:1060:"THERE WAS NO ACTIVITY FOR THAT DATE --":1240:5220U<I:1060:3)"TOTAL PIECES SOLD THIS DATE : ";B1:T2B2S:T2(.5100T2)100:3)"TOTAL SAL:"THEN TYPE THE RETURN BUTTON":Q$1040:1060:"S A L E S R E P O R T F O R ";Q$::18)" TODAYS DATE ";D$::1060:" ACC #";10)"ITEM #";21)"QUAN";31)"SALES $"::1060:I1N1:XX1:1080:B(I)0ĂIHI11B(I):1100::Q$A$(I)S1S(I)P(I):S40:1200:1060:1060:5)"THIS ROUTINE GENERATES A SALES":6)"REPORT FOR THE DATE SELECTED":1060:1060:"WOULD YOU LIKE THE SALES REPORT TO COVERA DATE OTHER THAN TODAY (Y OR N) ?":Y$:Y$"N"Q$D$:5060#1060:"INPUT THE SALES DATE FOR THIS REPORT"):A(I);8)B3U(I);17)U(I),26)U$(I):B30:1240:X5İ1220I:1040:1060:1060:5)"TOTAL PAYMENTS........=$";B2:5)"TOTAL ACCOUNTS/REC....=$";B1:1240:1040:1060:1060:"END OF ACCOUNTS RECEIVABLE REPORT":1280:30040$D$"12/22/78"X0:10$:1060:X0::10)"CUSTOMER NAME":" ACC #";9)" A/R $";17)" PAYMENTS ",26)"LAST PMT ":I1N1:XX1:1080:B(I)0ĂI;I11B(I):1100:T2S(I)P(I):T2T2(1S):T2(.5100T2)100:B3B3T2:I1:B3(.5100B3)100:B1B1B3U(I):B2B2U(I)::10)N$(IB(I):1100:1140:B1B1S(I):B2B2S(I)P(I):I1:1060:B3B2S:B3(.5100B3)100:B2B2B3U(I):B2(.5100B2)100:1160:1200:I:1060:1060:"END OF BILL PRINTING ROUTINE":1240:30040x1200:1040:" C U S T O M E R A / R R E P O R T "::30)DINE GENERATES THE":10)"PRINTING OF BILLS":1060:"WHEN YOU HAVE THE BILLS IN PLACE":"TYPE A LETTER Z":1060:1060:Z$:Z$"Z"3000 :I1N1:1080:B(I)0ĺ30)D$:1120::1260:U(I),U$(I):1240:1040:I 1040:30);D$::1120:1060:1260:I11AILING LABEL ROUTINE":1060:"WHEN YOU HAVE THE LABELS IN PLACE":"TYPE A LETTER Z":1060:1060:Z$:Z$"Z"2000 I1N1:1120:1240:1060:I:1040:1060:1060:"END OF THE MAILING LIST ":1240::30040 1200:1040:1060:1060:1060:6)"THIS ROUTB10:B20:B30:E :"TYPE ANY LETTER TO CONTINUE":Q$:X0:1040:Y  Z13000:Z: "ITEM ";"DESCRIPTION";" QUAN";" DATE";34)"UNIT":"NUMBER";20)"SHIP";" SHIP";34)"PRICE":: Z15000:Z:q 1040:1060:1060:1060:"THIS IS THE MN(I);E$(I);20);S(I);25)A$(I);33)P(I): 4);"TOTAL AMOUNT PAID =$";U(I):4);"DATE OF LAST PAYMENT =";U$(I):4);"TOTAL PIECES SHIPPED = ";B1:4);"TOTAL SALES TAX AMOUNT =$";B3:4);"TOTAL AMOUNT DUE =$";B2:1240:1040: fN(20),E$(20),A(20),N$(20),R$(20),S$(20),S(20),A$(20),B(20),P(20),U(20),U$(20):N15:S.05:30000lx$:::8 A(I),N$(I),R$(I),S$(I),U(I),U$(I),B(I):LE$(I),N(I),A$(I),S(I),P(I): `5);A(I):5);N$(I):5);R$(I):5);S$(I):* t          ":250708a" ";::" ON ":W8a10:"YOU MAY CHOOSE FROM THE FOLLOWING:":32,5::8a"1 SEARCH FOR A LISTING":"2 LIST THE ENTIRE FILE"8b"3 ENTER NEW LISTINGS":"4 DELETE A LISTING"8 b"5 EDIT A LISTING":"6 PRINTER ON/OFF"9b"7 EXINE LIST ";::"----------------------------------------"u7a"PROGRAM CURRENTLY CONTAINS "NR" LISTING";:NR1ĺ"S";7a:"ROOM FOR "(150NR)" ADDITIONAL LISTINGS"7a8:"THE PRINTER IS";:PRĺ" OFF"; 8aPRĢ9:" A$)ı6I1(A$)96((A$,I,1))26B$B$(A$,I,1)@6IF6^6] PRINTER ON/OFF q6]PRPR:25050w6]6a MAIN MENU 6a:NR:NRNR10006a::1:"----------------------------------------";:87a" APPLE COMPUTER, INC. PHO020I513:868:"DO YOU WISH TO EDIT THIS DATA (Y/N) ";S$:S$""25000h5(S$,1)"Y"NN$NA$:60505(S$,1)"N"İ50705"":60205 GO EDIT THE LINE 5:8:NN$:4020:43605250005 REMOVE CONTROL CHARS. 5B$""6(4P OK THEN, KILL IT! -4ZUD1:4250K4dCU(START((LN201)46))\4nCU,((92))m4x4450:250004p EDIT A DATA LINE 4z:30005|:10:"PLEASE ENTER THE NAME OF THE PARTY WHOSE";:"LISTING YOU WISH TO EDIT AND PRESS":"'RETURN'.":5$:(NA$,(K$))K$510063(NA$,1)(92)INR5070E3::25000\3 FOUND A MATCH v3LN(123)(124)2563:11:NA$:S5ı3 13:868:"DO YOU WISH TO DELETE THIS DATA (Y/N) ";S$:(S$,1)"Y"52003(S$,1)"N"ĺ"":513045080 DELETE DATA CONTENTS %2:30002:10:"PLEASE ENTER THE NAME OF THE PARTY YOU":"WISH DELETED FROM THE DIRECTORY AND":"PRESS 'RETURN'."214:"-> ";K$:K$""S5ġ:250002K$""250002 FIND AN EXACT MATCH 2:Z:I1NR3NANE !1T$:(T$,1)(92)4310;1LN(123)(124)256U1 CALCULATE OFFSET s1CU(START((LN201)46))10 POKE DATA LINE 1:ICU(CU39)1DI,((NN$,I1CU,1)):1b SET UPDATE FLAG 1lMFMF1:S4S5ı1v2500012542000^UD1.0h PAD TO 40 CHARACTERS V0rI(NN$)(39(NP$)):NN$NN$".":n0|NN$NN$NP$:S5ı0 UPDATE DATA NUMBER 0:T:TTUD:CU(START11)0T$(T):I1(T$)0(CUI),((T$,I,1)):0S4ı1 FIND EMPTY DATA LI30040<}1040:1060:"YOU HAVE A GOOD DAY NOW !":1280::$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$E6 BY MISTAKE THEN TYPE A LETTER Z TO RETURN TO THE PROGRAM":1060:"IF YOU DO WISH TO EXIT THE PROGRAM THEN TYPE ANY LETTER BUTTON":1060:12)"W A R N I N G"(}"TYPING ANYTHING BUT A 'Z' WILL CAUSE AN EXIT FROM THE PROGRAM":1240:1060:Z$:Z$"Z"Į:;"3. CUSTOMERS A/R REPORT":5);:"4. SALES REPORT":5);"5. LAST PURCHASE REPORT":5);"6. STOP PROGRAM":1060:"WHICH ROUTINE WOULD YOU LIKE TO RUN ":1060:R: R630080uR2000,3000,4000,5000,6000,32000}1040:1060:1060:"IF YOU HAVE TYPED A #luI11B(I):1100:I1:Iu1040:1060:5);"THE FOLLOWING IS A LIST OF":3);"ROUTINES THAT THIS PROGRAM WILL":6);"GENERATE. TO CHOOSE ONE,":3);"TYPE IT'S NUMBER WHEN PROMPTED."u1060:5);"1. PRINT MAILING LABELS":5);"2. PRINT UP BILLS":5)T)"SM. HAND SAW",221679,"1/21/76",1,7.980u1040:1060: 1060:8);"THIS IS THE BILLING AND":5);" ACCOUNTS RECEIVABLE PROGRAM":1060:1060:"TYPE IN TODAYS DATE (EX:1/14/75)":"THEN PRESS THE RETURN BUTTON":1060:D$Xu:I1N1:1080:B(I)0ĂI5.95:"PLASTIC ROD",234561,"2/3/76",5,4.75: 93216,"SUPERIOR ELEC.","BOX 30","READER PA 16804"( 113.35,"2/6/76": 4:"GLOBE",812763,"10/16/75",8,7.49:"FILE",915332,"11/23/75",7,1.98:"PLASTIC ROD",234561,"12/2/76",9,4.75:"7000":"7000"::"7000":*,"1/29/76",1,4.75: 51376,"OMEGA IND. CO.","PO BOX 4045","STANFORD NJ 91268": 0,"PAID UP": 0: 78192,"DIGITRAN CO.","3421 ST. LAWRENCE","PASADENA CA 91105": 213.50,"2/1/76": 3^("ELEC. BOX",723756,"1/13/76",6,29.66:"FUSE BLOCK",745336,"1/13/76",6,1 N4 3700 N5 39000 N6 4100A N7 4300R N8 4500c N9 1800r N106000 N114900 ::::::"MORTGAGE EXPENSES $";M:::"DO YOU WANT TO CHANGE THE AMOUNT" :" Y/N ";N$: N$"Y" 3170 PT STORES"Z " # 6. GROCERIES":" # 7. MISCELLANEOUS":" # 8. SAVINGS ACCOUNTS ":" # 9. COMPLETE PRINTOUT AGAIN":" #10. PERCENTAGE BREAKDOWN":" #11. QUIT"::: "WHICH ( # ) NUMBER DO YOU WANT ";N N1 3100 N2 3300 N3 3500DUAL LIST":" Y/N ";N$: N$"Y" 2500 = N$"YES" 2500H 8000  ::::"WHICH ITEM OR LIST ":"WOULD YOU LIKE TO SEE ":::" # 1. MORTGAGE OR RENT":" # 2. GAS & ELECTRIC":" # 3. TELEPHONE":" # 4. TRANSPORTATION":" # 5. CREDIT CARDS & DE$";S2:"MISCELLANEOUS EXPENSES $";S3:"SAVINGS ACCOUNTS $";S4:S5(((((((MU)T)S)S1)S2)S3)S4)::"---------------------------------------":: 50,127'k"**TOTAL EXPENSES FOR MONTH";: 50,255:" =$";:S5::"DO YOU WANT TO SEE INDIVI**************************************":l"MORTGAGE OR RENT $";M:"GAS AND ELECTRICITY $";U:"TELEPHONE $";T:"TRANSPORTATION EXPENSES $";S"CREDIT CARDS & DEPT STORES $";S1:"GROCERIES ":"WHEN ALL DATA HAS BEEN ENTERED" :N4N41:" ACCOUNT ";N4;: S$(N4): S$(N4)"STOP" 1800" AMOUNT ";S(N4):S4S4S(N4): 1650)::"***************************************"::N$"BUDGET FOR THE MONTH OF": 50:" ";K$;" ";J$::"*3) : I$(N3)"STOP" 1600E" AMOUNT ";I(N3):S3S3I(N3): 1450@::::"DO YOU HAVE  ";: 50,63:"SAVINGS ACCOUNTS";: 50,255:" TO ENTER": " Y/N ";N$ : N$"N" :: 1800]h"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT' 1250zx::::"DO YOU HAVE ";: 50,63:"MISCELLANEOUS";: 50,255:" EXPENSES": " Y/N ";N$ : N$"N" :: 1600"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ENTERED" :N3N31:" ITEM ";N3;: I$(N:" EXPENSES": " Y/N ";N$ : N$"N" :: 1400 "PLEASE ENTER ";: 50,127:"ZERO";: 50,255 :" (0) FOR THE DATE" :"WHEN ALL DATA HAS BEEN ENTERED" :N2N21 :" DAY OF THE MONTH ";D(N2): D(N2) 0 1400" AMOUNT ";G(N2) :S2S2G(N2):"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ENTERED" :N1N11:"ACCOUNT ";N1;: C$(N1): C$(N1)"STOP" 1200 ." AMOUNT ";C1(N1):S1S1C1(N1): 10505::::"DO YOU HAVE ";: 50,63:"GROCERY";:50,255 'ITEM' " :"WHEN ALL DATA HAS BEEN ENTERED" :NN1:"ITEM ";N;: T$(N): T$(N)"STOP" 1000 f" AMOUNT ";T1(N):SST1(N): 850 ::::"DO YOU HAVE ";: 50,63:"CREDIT CARD OR STORE CREDIT": 50,255: " Y/N ";N$ : N$"N" :: 1400 GE OR RENT PAYMENT ";M : :"GAS & ELECTRIC PAYMENT ";U : :"TELEPHONE CHARGES ";T ::::"DO YOU HAVE ";: 50,63:"TRANSPORTATION";: 50,255: " EXPENSES":" Y/N ";N$ : N$"N" :: 1000_ H"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FORS":" 5. CREDIT & DEPARTMENT STORES CARDS":" 6. GROCERY EXPENSES":" 7. MISCELLANEOUS EXPENSES":" 8. SAVINGS ACCOUNTS":"---------------------------------------": ::"MONTH THIS LIST IS FOR ";K$: K$"" 650 "THE CURRENT YEAR ";J$ ::::"MORTGAMARIZE YOUR": 50:N$"MONTHLY BUDGET FOR YOU": 50::"***************************************"::: "THE FOLLOWING CATEGORIES ARE INCLUDED"::" 1. MORTGAGE OR RENT ":" 2. GAS & ELECTRIC ":" 3. TELEPHONE " " 4. TRANSPORTATION EXPENSE:::::::::N$"AN ORIGIONAL PROGRAM BY PAUL A PAGE": 20(N$)2) N$::N$"WRITTEN APRIL 30,1978": 20(N$)2) N$: I1 7000 I: 250 e 2 20(N$)2) N$::::"***************************************"::N$"THIS PROGRAM WILL SUM          h 63,24"#5,35.(0,345:-5,226A23K74,33X<3,4020fA15,3915 AT THIS PROGRAM":32,0:#9 b32,0:K9*b22:20:868:"WHICH: ";S$:S(S$)e94bS1S7ĺ(7):251309>bS1000,2500,4000,5000,6000,24000,8009Hb9 9APPLE COMPUTER, INC.9 COPYRIGHT 4/1/1979S OUS EXPENSES ";((S3S5100.5)100)100:"SAVINGS ACCOUNTS ";((S4S5100.5)100)100;" %"::::""HIT RETURN TO GET BACK TO MENU":U1$:2500"@::::N$"THANK YOU FOR USING THIS PROGRAM": 50 :N$"HAVE A NICE DAY": 50: ";((TS5100.5)100)100;" %"!"TRANSPORTATION EXPENSES ";((SS5100.5)100)100;" %":"CREDIT CARDS & DEPT STORES ";((S1S5100.5)100)100;" %"x""GROCERIES ";((S2S5100.5)100)100;" %":"MISCELLANE PROGRAM"::"***************************************")!:"ITEM % OF INCOME"::"MORTGAGE OR RENT ";((MS5100.5)100)100;" %":"GAS AND ELECTRICITY ";((US5100.5)100)100;" %":"TELEPHONE M ";R;: I$(R):QI(R): "AMOUNT "; I(R) :S3(S3Q)I(R): 4300" WHICH ITEM NUMBER ";R :"ACCOUNT ";R;: S$(R):QS(R): "AMOUNT "; S(R):S4(S4Q)S(R): 45006 p:S51979:M234:"***************************************"::" MONTHLY BUDGETT1(R): 3700 u" WHICH ITEM NUMBER ";R :"ACCOUNT ";R;: C$(R) :QC1(R) : "AMOUNT ";C1(R):S1(S1Q)C1(R): 3900P" WHICH ITEM NUMBER ";R:" DATE ";R;: D(R) :QG(R): "AMOUNT "; G(R) :S2(S2Q)G(R): 4100C" WHICH ITEM NUMBER ";R :" ITE-----------------------------------" : " ** TOTAL EXPENSES **";: 32)"$";S4 :"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ : N$"Y" 5400 * 2500 $ 8000 " WHICH ITEM NUMBER ";R:"ITEM ";R;: T$(R):QT1(R): "AMOUNT ";T1(R):S(SQ)-----------------------" : " ** TOTAL EXPENSES **";: 32)"$";S30:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ : N$"Y" 5300 b 2500 O:" ACCOUNT AMOUNT":: I1 N41 : I;" ";S$(I);: 32)"$";S(I): I:"----------------------": " ** TOTAL EXPENSES **";: 32)"$";S2|h:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ : N$"Y" 5200 2500A:" ITEM AMOUNT": : I1 N31 : I;" ";I$(I);: 32)"$";I(I) : I :"----------------------------------": " ** TOTAL EXPENSES **";: 32)"$";S1|:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ : N$"Y" 5100 2500;:" DATE AMOUNT":: I1 N21: I;" ";D(I);: 32)"$";G(I): I:"-------------------------------------": " ** TOTAL EXPENSES **";: 32)"$";S y:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$: N$"Y" 5000  2500 ;<:" ACCOUNT AMOUNT":: I1 N11: I;" ";C$(I);: 32)"$";C1(I): I:"--------------------- $";T:::"DO YOU WANT TO CHANGE THE AMOUNT":" Y/N ";N$: N$"Y" 3570[ 2500~ "CORRECTED AMOUNT ";T: 25009t:" ITEM AMOUNT": : I1 N1: I;" ";T$(I);: 32)"$";T1(I) : I:"-----------------------X 2500+b "CORRECTED AMOUNT ";M: 2500 ::::::"GAS & ELECTRIC $";U:::"DO YOU WANT TO CHANGE THE AMOUNT":" Y/N ";N$: N$"Y" 3370 2500* "CORRECTED AMOUNT ";U: 2500P ::::::"TELEPHONE EPRECIATION OVER ";Y1;" YEARS""PERSONAL PROPERTY TAKEN UNDER ";H$;" DEPRECIATION OVER ";Y2;"YEARS":I1J:"MORTGAGE ";I;" = ";M(I);" OVER ";N(I);" MONTHS AT ";O(I)"%":I::830"THANK YOU!!!":ABETWEEN 1-6":900="PLEASE INPUT (SL, DDB, OR 125%)":300n"PLEASE INPUT (SL, DDB, 125% OR 150%)":320::"BUILDING HAS ";N1;" UNITS AND ";F1;" SQ FEET":"BUILDING ALLOCATION = ";A1;"% PERSONAL PROPERTY = ";A2;"%":"BLDG TAKEN UNDER ";D$;" D 1 ... SCHEDULED GROSS INCOME":" 2 ... VACANCY ALLOWANCE":" 3 ... EXPENSE RATIO PRINT "4...PURCHASEPRICE" :" 5 ... MORTGAGE INFORMATION":" 6 ... DEPRECIATION INFORMATION"Z:Z90,110,130,170,190,280"PLEASE INPUT A NUMBER ER =$";P6:"PRICE/UNIT =$";P3;" PRICE/SQ FEET =$";P4:34,21>23:"SELECT?(1=CURRENT VALUE) (2=CHANGE A VALUE) (3=RERUN PROGRAM) (4=EXIT PROGRAM)";K:YKRK950,870,50,1000\"PLEASE INPUT 1,2,3 OR 4":850f:"DO YOU WISH TO CHANGE:":" ";V(2);" $";V(3);" $";V(4):"CASH FLOW (";P7;"%) ";C:"PRINCIPAL ";P8="EQUITY RTN(";P9;"%) ";T1:"DEPRECIATION ";A7:"TAXABLE ";T:"PURCHASE PRICE =$";P1;" LOAN AMOUNT =$";L;" EQUITY =$";P5:"CAP RATE BASED ON PRICE =";P2;"% ";"GROSS MULTIPLI";E1;"%) ";E2:" NOI =$";G3"FINANCE NOI =$";G3:"MORTGAGE 1 2 3 4":"INTEREST = $";T(1);" $";T(2);" $";T(3);" $";T(4)I"PRINCIPAL = $";U(1);" $";U(2);" $";U(3);" $";U(4):"TOTAL = $";V(1);" $R(I)12:U(I)V(I)T(I):CCV(I):N(I)900680:U(I)0_I:P7(CP5)80:P80:P90:T10:I1J:P8P8U(I):I:T1P8C:P9(T1P5)80:TT1A7:$:1:1:"SCHEDULED GROSS ";G1:" VACANCY (";V1;"%) ";V2:" GOI =$";G2:"EXPENSE RATIO ("520A6(A4Y2)1.25:5604H$"150%"940:H&A6(A4Y2)1.25a0A7A5A6:Z5650:DI1J:Q(I)O(I)1200:T(1Q(I))N(I):R(I)(M(I)Q(I)T)(T1):I:I1J:T10:T3M(I):K112:T2T3Q(I):T(I)T(I)T2:T3T3(R(I)T2):K,I/I1J:V(I)P4P1F1:P5P1L:A3(A1100)P1:A4(A2100)P1:D$"SL"440NA5A3Y1:560aD$"DDB"460wA5(A3Y1)2:560D$"125%"930A5(A3Y3)1.25:560H$"SL"520A6A4Y2:560H$"DDB"520A6(A4Y2)2:560H$"125%N PERIOD IN YEAR? ";Y1:50 @"PERSONAL PROPERTY DEPRECIATION METHOD? (DDB, SL, 125%, 150%) ";H$:50:"PP PERIOD IN YEARS? ";Y2:50:Y2350 ^V2(V1100)G1:G2G1V2: hP6P1G2: rE2(E1100)G2:G3G2E2:CG3:<P2(G380)P1:P3P1N1:350 "FOR DEPRECIATION PURPOSES, WHAT IS THE PERCENTAGE TO THE BUILDING? ";A1:50:"PERCENTAGE ALLOCATION TO PERSONAL PROPERTY? ";A2:50 ,"WHAT IS THE DEPRECIATION METHOD TO BE USED ON THE BUILDING? (DDB, SL, 125%) ";D$:50:"BUILDING DEPRECIATIOS PROPERTY? ":Z5:J:50:L0::"FOR BALOON OR INTEREST ONLY MORTGAGE SET MONTHS=10000" I14:M(I)0:N(I)0:O(I)0:T(I)0:U(I)0:V(I)0:I:I1J:"AMOUNT($), TERM(MONTH), INTEREST RATE(%) OF MORTGAGE NUMBER ";I:M(I),N(I),O(I):LLM(I):I:50:Y2ELATIVE TO GOI(%)";E:50:Y2350 "HOW MANY UNIT THIS BUILDING HAS? ";N1:50:"HOW MANY SQUARE FEET DOES THIS BUILDING HAVE? ";F1:50 "WHAT IS THE PROPOSED PURCHASE PRICE? ";P1:50:Y2350`Z "HOW MANY MORTGAGE WILL THERE BE AGAINST THIb P:"PLEASE ANSWER TO ALL QUESTION, OTHERWISE, ANSWER ...1..TO AVOID DIVIDED BY ZERO ERROR":50 Z"WHAT IS SCHEDULED ANNUAL GROSS INCOME? ";G1:50:Y2350 n"WHAT IS VACANCY ALLOWANCE IN PERCENT? ";V1:50:Y2350! "WHAT IS EXPENSE RATIO R6 ::M(5),N(5),O(5),Q(5),R(5),T(5),U(5),V(5):60M2I140:"-";:I:<50:" POINT OF PURCHASE INVESTMENT ANALYSIS":50:" BY K U N I H I R O T A N A K A":::"THIS PROGRAM WILL ANSWER YOUR QUESTIONS ABOUT POINT OF PURCHASE IN INVESTMENT"     5:CA(I):CL(I):I:CP:OF%d7D$:+}A" BALANCE SHEET DATA":"RECORDED FOR ";::DT$::I12500:I:E6V6PRR0141006:10:"CASH FLOW NOT POSSIBLE ON ONLY ONE":"PERIOD OF DATA!":15:"FIRST CASH FLOW REPORT WILL BE ":"NEXT PERIOD."::18027D$;"READ CASHDATA,R";PRR:D1$:I1TA,L200":D$;"WRITE CASHDATA,R0":RLN:CP$:NXT:DT$:D$:12060E22D$;"WRITE CASHDATA,R";NXT:DT$:I15:ASSET(I):LIAB(I):I:PPE:FASSETS3E1:IB4TAX:TAX:NXTNXT1:D$;"WRITE CASHDATA,R0":RLN:CP$:NXT:DT$:D$:I13000:I?L3:12:CP$;P$))2);CP$:12:"DATA LAST ENTERED FOR ";::DT$:::"ENTER DATE FOR NEW DATA?";DT$f/216,0:1200D/"TO START YOUR CASH FLOW DATA FILE,":"ENTER COMPANY NAME , DATE":"(E.G., ABC CO , APRIL 1979)":32000?b/CP$,DT$:RLN200:NXT1:D$;"OPEN CASHDA(OFFASSETS)::I15:L$(I);30);LIAB(I)CL(I):CFCF(LIAB(I)CL(I)):I:30);"======":CFIAFTAXCF"NET CASH FLOW";30);CF:X$:.D$(13)(4)::D$;"OPEN CASHDATA,L200":12100U/D$;"READ CASHDATA,R0":RLN,CP$,NXT,DT$:PRRNXT1:D$:(40(C"TAXES";30);TAX::"NET INCOME";30);IAFTAX:30);"------":" CHANGE IN ACCOUNTS:",CF0:I15:A$(I);30);CA(I)ASSET(I):CFCF(CA(I)ASSET(I)):I:"PLANT,PROPERTY & EQPT";30)CPPPE:CFCF(CPPPE):"OTHER FIXED ASSETS";30);OFFASSETSdvCFCF::"TOTAL LIABILITIES AND EQUITY";30);T9E1:30);"======":D::"INCOME BEFORE TAX";:IB4TAX:"TAXES";:TAX:TAXTAX:IAFTAXIB4TAXTAX:1770WX$::(4012(CP$)(DT$))2);"CASH FLOW ";CP$;" ";DT$::"INCOME BEFORE TAXES";30);IB4TAX:IAB(2):"NOTES PAYABLE(SHORT TERM)";30);LIAB(3) $"ACCRUED TAXES";30);LIAB(4):30);"------":" TOTAL CURRENT LIABILITIES";30);TLIAB::"LONG TERM NOTES PAYABLE";30);LIAB(5):30);"======":" TOTAL LIABILITIES";30);T9:>::"EQUITY";30);E1------":" TOTAL CURRENT ASSETS";30);TCASSETS::"PROPERTY PLANT AND EQPT";30);PPE:"OTHER FIXED ASSETS";30);FASSETS::" TOTAL ASSETS";30);TASSETS:30);"======":0 \:" LIABILITIES"::"ACCOUNTS PAYABLE";30);LIAB(1):"ACCRUED EXPENSES";30);LOTES":L$(5)"ACCRUED TAXES":: 936:8);"BALANCE SHEET - PERIOD ";DT$::" ASSETS"::"CASH";30);ASSET(1):"ACCOUNTS RECEIVABLE";30);ASSET(2):"INVENTORY";30);ASSET(3):"PREPAID EXPENSES";30);ASSET(4):"OTHER ASSETS";30);ASSET(5) 0:30);"BLIAB(I)5 I:T9TLIABLIAB(5):E10E1TASSETST9;  H A$(1)"CASH":A$(2)"ACCTS REC.":A$(3)"INVENTORY $":A$(4)"PREPAID EXPENSES":A$(5)"OTHER ASSETS":L$(1)"ACCTS PAYABLE":L$(2)"ACCRUED EXPENSES":L$(3)"SHORT TERM NOTES" L$(4)"LONG TERM NTY, PLANT & EQPT";:PPE::"OTHER FIXED ASSETS";:FASSETS :"NOW LIABILITY INFO"::I15:L$(I);:LIAB(I):I::"EQUITY";:E1:2750 TCASSETS0:I15:TCASSETSTCASSETSASSET(I):I:TASSETSTCASSETSPPEFASSETS:TLIAB0:I14:TLIABTLIA, \d"NOMON C,I,O"::15:"CASH FLOW/BALANCE SHEET INFORMATION":I13000:I:3400:12000:"FOR PERIOD ";DT$:1900:4000:X$::4700:5250rX$:580014000:6300 13000:9 l"ENTER ASSET INFO"::I15:A$(I);:ASSET(I):I::"PROPER     X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m   X16384)160355#|16368,0:::) GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS SEPT. 1979 BY MAX J. NAREFF...  LAST MOD. SEPT.1979 FOR CONVENTIONS UPDATE.& 'COMPOUND INTEREST'0CT$"SEPTEMBER 1979":250K E:CT$"CALCULATES COMPOUND INTEREST ON":250t JCT$"ANY AMOUNT FOR ANY LENGTH":250 OCT$"OF TIME":250 ^21:" PRESS THE 'ESC' TO END" c22:"< PRESS THE SPACE BAR TO CONTINUE...>" h(16384)155230r(6368,0:::10:10:"* * * THE END * * *":[  PRINT CENTER ROUTINE. l 20(CT$)2u CT$ "" " , TITLE PAGE ROUTINE. 63:CT$"* COMPOUND INTEREST *":250 ;CT$"BY MAX J. NAREFF":250 @ INTEREST DESIREDW BP(1(IC))(CY):FORMULA FOR CALCULATION OF COMPOUND INTEREST TBP:LISTS TOTAL INTEREST TO DATE "YEAR=";H(Y);,"INTEREST TO DATE=";H(T) 7);"BALANCE=";H(B) PAUSE11000:PAUSE Y 350 20, 1TWO PH(W)(W100.5)100? Z10:"COMPOUND INTEREST"::X d9:"PRINCIPAL=";P: n9:"INTEREST=";I::ENTER AS A DECIMAL FRACTION x9:"COMPOUNDING PERIOD=";C:: IF DAILY ENTER 365 9:"YEARS=";X:  Y1X:ENTER # OF YEARS OFNPUT MUST BE IN DECIMAL PERCENTAGE.";T ("FOR EXAMPLE,5% MUST BE ENTERED AS .050." 2"COMPOUNDING PERIOD-ENTER AS # OF DAYS," 4"MONTHS,QUARTERS OR YEARS.":: < FOUR INPUTS ARE REQUIRED FINTEGER ROUNDING FUNCTION REDUCES DECIMAL PLACES TO 16368,0:::CT$(40)%300F12:10:"COMPOUND INTEREST"b12:X117:"*";:::5:"PREPARED BY MAX J.NAREFF FOR THE""SAN FRANCISCO'APPLE CORE'LIBRARY.1979" 350" FOUR INPUTS ARE REQUIRED.THE INTER-";% "EST I     U o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,             ST ":"WITH "L$(C1);" GIVEN A VALUE OF 100":"RATING ";S$:J1L0:CZ(J):V(C),L$(C):J:}z" BETWEEN 2 AND 10 PLEASE":" IS THIS CORRECT ?";A$:B$(A$,1): Z(I1)N1:Z(I)N2I:J:C1Z(1):C2Z(2):C100V(C1):J1L0:V(J)CV(J):J::DV(C1)V(C2):"YOUR BEST SEEMS TO BE ";L$(C1):D10ĺ"BUT IT IS CLOSE ">D20D10ĺ"BY A FAIR MARGIN"HD20ĺ"BY A GOOD MARGIN"YR::"HERE IS THE FINAL LIJ,I)0730," NO NEGATIVE NUMBERS":710J::M(1,I)10:I:I1F0:C0:J1L0:CCM(J,I):J:J1L0:M(J,I)M(J,I)C:J:I:J1L0:V(J)0:I1F0:V(J)V(J)M(J,I)F(I):I:J:I110:Z(I)I:I:CL01:J1L0:I1C:N1Z(I):N2Z(I1):V(N1)V(N2)790E EACH ";S$;" BY THAT FACTOR ONLY"::l"IF ";L$(1);" HAS A VALUE OF 10":"SCALE EACH OF THE OTHER ";S$:"THEY CAN BE > OR < 10":"> BETTER < WORSE THAN ;"L$(1):I1F0::"CONSIDERING ";F$(I);" ONLY":"THE VALUE OF ":J2L0 L$(J);:M(J,I):M(F2570/&F$(I);:F(I):F(I)0F(I)10570O0"INPUT NOGOOD RETRY ":550&::F(F2)10:C0:I1F0:CCF(I):I:I1F0:F(I)F(I)C:::" NOW CONSIDER HOW EACH";S$:"RATES WITH RESPECT TO EACH FACTOR":"WE WILL CONSIDER EACH SEPATELY":"AND RATI):d :"BY NUMBER - WHICH IS THE MOST IMPORTANT":"0 IF YOU WISH TO CHANGE LIST ?";F2:F20360x F21F2F0450::" OK ON A SCALE OF 0 TO 10 RATE EACH":"WITH THE MOST IMPORTANT ":F$(F2);" = TO 10":"DECIMAL NUMBERS ARE OK "::I1F0:IY DIFFERENT":"FACTORS ARE IMPORTANT TO YOU ":"IN CHOOSING A ";S$;:F0:F01F010400g 890:360 ::" I NEED A LIST OF THESE":"FACTORS :I1F0:"FACTOR NUMBER ";I;:F$(I):I::" NOW WHICH IS THE MOST IMPORTANT ?"::I1F0:I;5);F$( HOW MANY ARE THERE TOTAL ?";L0:L02L010310? ,890:280 6:I1L0::" NUMBER ";I;" PLEASE ":L$(I):I::::"OK THANK YOU ":"THIS IS THE LIST UNDER ":"CONSIDERATION :"::I1L0:I;5);L$(I):I::900:B$Y$250Y h::" NOW HOW MANCHOOSE TYPE ";C:C1C2160< :C1Ą"THE ITEM IS ? ";S$c C2Ą"THE GENERAL COURSE IS ?";S$ :" I WILL NOW NEED A LIST OF EACH",S$;:" THAT YOU ARE CONSIDERING.":"PLEASE INPUT THEM ONE AT A TIME. ORDER":"IS OF NO IMPORTANCE"1 "FIRST,ALTERNATIVES." " ALL I NEED TO DO IS ORGANIZE":"INFORMATION YOU ALREADY HAVE."::" WHICH OF THESE BEST DESCRIBES THE":"TYPE OF DECISION YOU HAVE TO MAKE?"::"1.....CHOOSE AN ITEM":"2.....CHOOSE A COURSE OF ACTION" :" TYPE 1 OR 2 TO d:xF$(10),L$(10),F(10),M(10,10),V(10),Z(10)::"DECISION MAKER ":" ":"BY P FELDMAN & T RUGG":"FROM PG 90 OF JULY 77 KILOBAUD" }" ":Y$"Y":" I CAN HELP YOU MAKE DECISIONS BY":"CHOOSING THE BEST POSSIBILITY FOR YOU":"OUT OF SEVERAL      `饠 LLL˹Ɂ <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   `LH =<`  DATA (1=YES, 0=NO)";:X:X1201 "RUNHELLO"Z2:"DEPRECIATION AMOUNT":"ORIGINAL PRICE";:P:"DEPRECIATION RATE";:I:II100:"--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--"Z"YEAR";:Y:Y0160xDPI(1I)(Y1):"DEPRECIATION = $";(D100.5)100::90 "MORE ;" DISK AND PRESS RETURN";:" ";DK$-9363CPRESS RETURN";:" ";DK$X936^DK$t936z16368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" 4% ************************C* DISK COPY *a* COPYRIGHT 1980 BY *(* APPLE COMPUTER INC. *2* *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISKETTE DUPLICATI    DATA (1=YES, 0=NO)";:X:X1202 "RUN HELLO"E3:"DEPRECIATION AMOUNT":"ORIGINAL PRICE";:P:"DEPRECIATION RATE";:I:II100:"--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--"Z"YEAR";:Y:Y0160xDPI(1I)(Y1):"DEPRECIATION = $";(D100.5)100::90 "MORE HLY PAYMENT (PMT) = $ ";I(PMT)Ep0"SUM OF PAYMENTS = $ ";I(NPMT)K0Q0N:"ENTER ANNUAL INTEREST RATE (PERCENT)";:IIK II0II100ĺ"";:4100Z hIIII1200` v . PRINT OUT STUFF| . /"PRESENT VALUE (PV) = $ ";I(PV) D/"ANNUAL INTEREST RATE = ";II1200;" %" /"NUMBER OF PAYMENTS (N) = ";I(N) 0"MONT GET PV+ L"ENTER PRINCIPLE (PV)";:PVB VPV0ĺ"";:1100H T  GET N| 4"ENTER NUMBER OF PAYMENTS (N)";:N >N0ĺ"";:2100  GET PMT  "ENTER PAYMENT (PMT)";:PMT & PMT0ĺ"";:3100  GET INTEREST RATE. MULATED INTEREST PAID BY":"PAYMENTS ";C;" THRU ";K;" = $ ";I(ICK)L 820U 500[ % *"FOR REMAINING BALANCE AFTER PAYMENT K,":"ENTER K";:K 4PK(PMTII)(1(1II)(KN)) >"REMAINING PRINCIPLE":"AFTER PAYMENT ";K;" = $ ";I(PK) p X4000:1000:30005 bN(((1IIPVPMT))(1II))E l12000:100N 500 "FOR ACCUMULATED INTEREST PAID BY":"PAYMENTS C THRU K, ENTER C,K";:C,K CKĺ"";:710  JC1 ICKPMT(KJ((1II)(KN))II(1(1II)(JK)))C "ACCU" "CHOOSE DESIRED UNKNOWN:";:AZ A1A5ĺ"ONLY TYPE A NUMBER BETWEEN 1 AND 5":200u ,A400,500,600,700,800 112000 6100 4000:2000:3000 PVPMT((1(1II)N)II)  4000:1000:2000 PMTPV(II(1(1II)N))  S 939: CLEAR SCREEN5I(X)(X100.5)100`"DIRECT REDUCTION LOAN CALCULATIONS."d:"1 PRESENT VALUE (PV)":"2 PAYMENT (PMT)":"3 NUMBER OF PAYMENTS (N)"f"4 ACCUMULATED INTEREST (I(C-K))":"5 REMAINING BALANCE (PV(K))"n     S PART = .25 (25 PERCENT PER YEAR)"::"VARIANCE OF JUMPS = .12 (12 PERCENT PER YEAR)"H$:"EXPECTED NUMBER OF JUMPS = 2 (PER YEAR)"::"THIS IMPLIES A TOTAL VARIANCE = .25 + 2*.12 = .5 (50 PERCENT PER YEAR)"::"ANNUAL INTEREST RATE = .08 (8 CHOLES RESULT EXACTLY."::::#"TO CONTINUE PLEASE PRESS ANY KEY";:A$::::::::"REMEMBER TO USE REASONABLE NUMBERS FOR THE INPUTS(BASED ON YEARLY RETURNS)"X#"SOME EXAMPLES OF REASONABLE VALUES ARE SHOWN BELOW:":"VARIANCE OF CONTINUOUHOLES BECAUSE OF THE PROBABILITY OF JUMPING OUT OF THE MONEY.":"#"PLAY AROUND WITH DIFFERENT STOCK PRICES AND SEE WHAT HAPPENS. NOTE THAT IF WE SET THE EXPECTED NUMBER OF JUMPS EQUAL TO 0 AND THE VARIANCE OF THE JUMPS EQUALTO 0 WE GET THE BLACK-SNS THAT ARE WAY OUT OF THE MONEY ARE WORTH MORE THAN WHAT THE BLACK-SCHOLES MODEL WOULD PREDICT,SINCE THERE IS A CHANCE THAT THEY CAN JUMP INTO THE MONEY."B#"OPTIONS THAT ARE RIGHT ON THE MONEY ARE WORTH LESS THAN THAT PREDICTED BY BLACK-SC THE VALUE OF AN OPTION WHEN IT IS WAY OUT OF THE MONEY(STOCK PRICE BELOW EXERCISE PRICE)? HOW ABOUT WHEN IT IS WAY IN THE MONEY(STOCK PRICE GREATER THAN EXERCISE PRICE)?"::"TO CONTINUE PLEASE PRESS ANY KEY";:A$#::::"IT TURNS OUT THAT OPTIOETURN DISTRIBUTION."#"THE PROGRAM SHOULD NOT BE USED TO PREDICT OPTION PRICES. HOWEVER IT IS USEFUL AS AN AID IN DETERMINING THE SENSITIVITY OF THE BLACK-SCHOLES MODEL TO ITS INHERENT ASSUMPTIONS.":"FOR EXAMPLE:"#:"WHAT HAPPENS TO CHARACTERISTICS. IT ALSO CALCULATES THE VALUE OF THE OPTION ASSUMING THE BLACK-SCHOLES MODEL HOLDS."x#"WHEN THE TWO OPTION VALUES ARE COMPARED,WE CAN DETERMINE THE IMPACT ON OPTION PRICING OF AN ERROR IN THE SPECIFICATION OF THE STOCK'S RTO THE ARRIVAL OF IMPORTANT NEW INFORMATION ABOUT THE STOCK (EARNINGS REPORTS,COURT CASES ETC.)"::"TO CONTINUE PLEASE PRESS ANY KEY";:A$::::pn#"THIS PROGRAM CALCULATES THE VALUE OF AN OPTION WHEN THE STOCK RETURN HAS THE PREVIOUSNS ARE MADE UP OF TWO COMPONENTS:":Z#"(1) A CONTINUOUS PART DUE TO 'NORMAL' VIBRATIONS IN PRICE CAUSED BY A TEMPORARY IMBALANCE BETWEEN SUPPLY AND DEMAND,CHANGES IN CAPITALIZATION RATES ETC. ":d#"(2) A JUMP COMPONENT DUE IF THE UNDERLYING STOCK'S RETURNS DO NOT FOLLOW A CONTINUOUS PROCESS WE CAN NO LONGER USE THE BLACK-SCHOLES FORMULA IN EVALUATING OPTIONS. THIS PROGRAM "'P#"CALCULATES THE VALUE OF A CALL OPTION ON SECURITIES WHICH DO NOT PAY DIVIDENDS AND WHOSE RETURN1EN2(RT):HN1: X bC1.0498673470:C2.0211410061:C3.0032776263:C4.0000380036:C5.0000488906:C6.0000053830:N1.5(1C1XC2X2C3X3C4X4C5X5C6X6)16: (#936:" OPTION PRICING WITH":" DISCONTINUOUS RETURNS"::"= ";(SUMOPT)100OPT:; FACT1:I1NN:FACTFACTI:I:A  D1((SE)(R.5VAR)T)(VART):D2D1(VART):D104035 XD1:7000:N1N:4038 X(D1):7000:N11N D204045 XD2:7000:N2N:4050 X(D2):7000:N21N OPTSPS: ";L:K0:XN25g SUM0:NN0XN:VAR(VNNDT):GAM(1K):RINLKNNGAMT:4000:WOPT:LPL(1K) 3000:TERM((LPT)(LPT)NN)FACT:SUMSUMTERMW:NN:::"OPTION= ";SUM:VAR(VLD):RIN:4000 F :"BLACK-SCHOLES= ";OPT::"PERCENTAGE ERRORAGNITUDE CASE"::"ENTER PARAMATER VALUES: "::"INPUT STOCK PRICE: ";S:"INPUT EXERCISE PRICE: ";E "INPUT INTEREST RATE: ";IN:"INPUT TIME TO MATURITY: ";T:"VARIANCE OF CONTINUOUS PROCESS: ";V:"VARIANCE OF JUMP PROCESS: ";D:"EXPECTED NUMBER OF JUM936:"OPTION PRICING WITH DISCONTINUOUS RETURNS"::::"DO YOU WISH TO RECEIVE BACKGROUND INFORMATION ON THIS TOPIC...(Y OR N)";:A$:::A$"Y"İ9000c d936:" OPTION PRICING WITH":" DISCONTINUOUS RETURNS"::"LOGNORMAL M         ARE DISCONTINUOUS' JOURNAL OF FINANCIAL ECONOMICS"::%"MERTON,R. 1976 'THE IMPACT ON OPTION PRICING OF SPECIFICATION ERROR IN THE UNDERLYING STOCKS RETURNS' JOURNAL OF FINANCE":::::"TO CONTINUE PLEASE PRESS ANY KEY";:A$:::-PERCENT PER YEAR)"::"TIME TO MATURITY = .25 (3 MONTHS OR 1/4 YEARS)"6$:"PERCENTAGE ERROR = (OPT - BS)/BS"::"TO CONTINUE PLEASE PRESS RETURN";:A$:::936::::"REFERENCES"::8%"MERTON,R. 1976 'OPTION PRICING WHEN UNDERLYING RETURNS ZATION SCHEDULE":K$"S":L$(0)"YEARS":L$(1)"QUARTERS":L$(2)"MONTHS":L$(3)"WEEKS":L$(4)"DAYS"L'20000:" THIS PROGRAM CALCULATES ";A$;", ";C$(0);",":C$(2);", INTEREST RATE (APR), ";I$::C$(0);K$;", BALLOON ";C$(0);K$;", AND "::J$;K$;" FOR ";B$(0),P(2),M(2):B$(0)"LOAN":B$(1)"LEASE":B$(2)"SAVINGS":C$(0)"PAYMENT":C$(1)C$(0):C$(2)"DEPOSIT":D$(0)"YEARLY":D$(1)"QUARTERLY":D$(2)"MONTHLY":D$(3)"WEEKLY":D$(4)"DAILY"`'I$"NUMBER OF":A$"AMOUNT":F$" ":G$"APPLE COMPUTER INC":H$"":J$"AMORTI):V(Z)100N(Z)GG:%;7:R21700h@:"COMPOUNDED ";D$(G);:B2ĺ" OVER ";(M100)100;F$;L$(G);^::"BASED ON ";O;" DAYS PER ACCOUNTING YEAR":15000:"# "L$(G);:Z02:V(Z)M(Z)::7:1600'B$(2),C$(2),D$(4),V(2),N(2),C(2),D(2),L$(45R2V(0)(DC)(WM)W:V(1)(CD)(WM)W:1570N(((DMP)C)(WT)W)GG:1:V(0)N:N((CDM)(WT)W)GG:3:V(1)N"MDPCV(2)1:1593,R2V(2)((CP)D)(WM)W:15936N(((CP)(DM))(WT)W)GG:5:V(2)N9Z02:N(Z)V(ZB4V(1)0V(1)W:1440+V(1)0V(1)0tCC(2):DD(2):MM(2):1100:V(2)CX3X5X2:B4V(2)0V(2)W:1445V(2)0V(2)0Z02:P(Z)V(Z):7:"APR %";:B0āZ02:V(Z)F100:N(Z)N::1595MDPCV(0)W:V(1)W:1570D(0)C(0))(X5):V(1)W:V(2)W7PZ02:M(Z)V(Z):ExR21500r:"BALLOON";:B0āZ02:V(Z)P::1450DD(0):CC(0):MM(0):1100:V(0)(CX3)X2:B4V(0)0V(0)W:1430V(0)0V(0)0CC(1):DD(1):MM(1):1100:V(1)(CX3X5)X2:D)(NPD)))(X5):V(1)(((CND(X5))(PND(X5))))(X5):V(2)(((CP)N)(D(X5))W)(X5):Z02:V(Z)(V(Z))::Z02:M(Z)V(Z):(ND1:7:B014002R214007D(0)C(0)1345<V(2)(C(2)D(2))(X5):V(0)W:V(1)W:1360 AV(0)((0)(R1)((CX4)X1.005)(R2)CX2:V(1)(R1)((CX4)(X1X5).005)(R2):V(2)(R1)((CP)X2(X1X5).005)(R2)(CP)X27:Z02:D(Z)V(Z):::"# PMTS";:R2V(0)1:V(1)1:V(2)1:1320B2āZ02:V(Z)M:M(Z)M::1320V(0)(((NCN)M)N:X2(WN)M:X3DX1:X4PX2:X5WN:UV:A$;:B3āZ02:V(Z)C::1130`V(0)(R1)(X3X4)(R2)DX2:V(1)(R1)(X3X5X4)(R2):V(2)(R1)(X3X5X2P)(R2)DX2j7:Z02:C(Z)V(Z):::"PMT/DEP";:BWāZ02:V(Z)D::1220~V2:S2QQ115020z a:11)G$:6)B$(A);F$;"AMORTIZATION SCHEDULE":15:"PMT# INTEREST PRINCIPAL BALANCE":15: dQ0:" ? ";S$:S(S$):SPPSOOĺH$:Q1: n 20000:" ";13)B$(0);23)B$(1);32)B$(2):15:1100:1110.LB0X1(W(W(A0)BA(A1)(P(A)IN)(A2)P(A):BA(A0)0(A1)(BAPR)(A2)(BAP(A)):93X \95 ]"BLN";:V(0)IN:V(1)PR:V(2)BA:7:T3T3IN:T4T4PR:ZW:82 ^LL15(BBM(A)7LL17)ı _"HIT 'RTN' TO CONTINUE, ANY KEY TO EXIT";:S$::LL0:S((S$)13)BBM(A)80 Kw P15:XXXXW:"YR";:TT5:ND1:VXX:10:ND0:V(0)T1:V(1)T2:V(2)BA:7:T3T3T1:T4T4T2:T10:T20 R"CUM";:V(0)T3:V(1)T4:7:LLLL4:15:94:QQ195 UBBM(A)91 Z43P [QQ1:P(A).005IN(A0)0(A1)N(A)BA(A2)0:PR U038:"-";:::/ (QQ0:ZZAA:97:459 +ZZGG -DD1ZZ:INN(A)(BA(BB0)(A1)BA(A2)D(A)):PRD(A)(A2)IN:BABA(A2)PR(A2)(INPR):BBBB1:JJWVBB:NDW:TT4:10:ND0:V(0)IN:V(1)PR:V(2)BA:7:LLLLW:94 FT1T1IN:T2T2PR:1İ10:V(Z)((V(Z).005)100)100:Z::ND0:H TT6)"NO ANS";:::f V1E8V$"*.**":KK2:13 V.005V$".00":KK1:13 V$(V.005):KK1(V$):(V$,KK,1)"."Ă TTKK23ND)(V$,KK23ND);:(V$)KK2ĺ(".00",KK(V$)2);  W1:10000LDTN(CP(WN)M)(W(WN)M):DDT.001NNDDT:1RDT(N(CP(WN)M))((W(WN)M)(WN)):DTD.001NNDDT:3DT(CP)N((WN)(MW)(WN)):DTD.001NNDTD:5- Z02:TT11Z17:VV(Z):V!! ! ! ! ! !!!!!!!!!""" " " " " """""RUN MENU" GGR!:T10:T20:T30:T40:BA0:BB0:IN0:LL0:XX0:Q0:BA(A2)C(A)(A2)0:40!>:"SORRY, YOU'VE PICKED A NONSENSE SCHEDULE":"PLEASE CHOOSE AGAIN.":KK11500::"":15020! N:" BASIC FINANCE I-----------COPYRIGHT 1978":10)G$: "0u:(4);"";:PP1:OO3:100:AS1:Q15030 ::" WOULD YOU LIKE:":" 1 A COMPLETE ";J$;", OR":" 2 A ";D$(0);" SUMMARY ONLY":" WHICH";:PP1:OO2:100:JJS:Q15060 :" FIRST SUBTOTAL AFTER ";C$(0);" NO.";:PP0:OO5000:100:AAS:Q115080!:AAGGAA0AA:" 1 ANOTHER PROBLEM":" 2 ANOTHER SCHEDULE":" 3 BACK TO THE FIRST PAGE":" 4 QUIT":" WHICH";:PP1:OO4:100:Q15020:S10100,15027,1000,30000:R216070 :::J$;" FOR:":" 1 ";B$(0):" 2 ";B$(1);", OR"::" 3 ";B$(2);" ACCOUNT"::"WHICH84KL7:')MHOIO4JO12K7LF*M(M):TMGG:NFGG:1000[::R15010,15015:"ANOTHER ";J$;" (Y/N) ";:"? ";E$:(E$,1)"Y"15030:15020:"LIKE AN ";J$;" (Y/N) ";:E$:(E$,1)"Y"15030:"MORE (Y/N) ?";E$:(E$,1)"N"Ā{::100:CS:Q10550!h)R2107000m)B410700]|)" ENTER BALLOON ";A$;:100:PS:Q10620)G110710,10720,10730,10740,10750:10760)MHI4J12K7OLO:)MH4IJ3KO28L4O:)MH12I3JK84OL12O: )MHO7IO28JO:PP1:OO2:100:RS:Q104651(:::B110520D(R10495,10492("ENTER ";C$(0);"/";C$(2);F$;A$;:PP0:OO1E8:100:DS:Q10492(10520(" ENTER ";D$(G);F$;A$;:PP0:OO1E8:100:DS:Q10495)B3106006)" ENTER TOTAL ";A$;:PP0:OO1E8(G2)12(G3)O7(G4)O:KL0G310465(" HOW MANY ";L$(4);" IN YOUR ":"ACCOUNTING YEAR";:PP0:OO365:100:OS:Q10420(:" WILL YOU BE MAKING:":" 1 ";D$(G);F$;C$(0);"S/";C$(2);"S, OR":" 2 A SINGLE ";C$(0);"/";C$(2);" ONLY...":" WHICH";:OO10E4:100:QKS:I$;F$;L$(4);:OO1E6:100Bs(QLS:10390Mx(10340X(:" "(" WITH INTEREST TO BE COMPOUNDED:":" 1 ";D$(0):" 2 ";D$(1):" 3 ";D$(2):" 4 ";D$(3):" 5 ";D$(4):" WHICH";:PP1:OO5:100:GS1:Q10400-(GG(G0)(G1)4210390d(" TERM OF THE ACCOUNT:":" YOU MAY ENTER ANY COMBINATION OF ";L$(0)",":L$(1);", ";L$(2);", ";L$(3);", OR ";L$(4);"."/n(PP0:OO400::I$;F$;L$(0);:Q0:100:QHS:I$;F$;L$(1);:100:QIS:I$;F$;L$(2);:OO1200:100:QJS:I$;F$;L$(3); ";A$;" OR,":" 5 BALLOON ";C$(0)a'" WHICH (ENTER BY NUMBER PLEASE)";:PP1:OO5:100:Q10140'BS1::10)G$:" OK..NOW I NEED TO KNOW THE FOLLOWING: ":B010310'"ANNUAL INTEREST RATE (APR) IN %";:PP.005:OO1000:100:FS100:Q10220F(B);"S, ";B$(1);K$:"AND ";B$(2);"S ACCOUNTS.":" HIT RETURN WHEN READY...";E$!t'20000:O365:LL0:BB0:Q0:P0::"YOU MAY CALCULATE ANY OF THE FOLLOWING:":" 1 INTEREST RATE (APR)":" 2 ";C$(0);"/";C$(2);F$;A$:" 3 ";I$;F$;C$(0);"S/";C$(2);"S":" 4 TOTAL