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`ESS 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:::*5,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               h 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`  ";A$(CHOICE)HOICE)GXB2:PP3n3:IGX10GX102:I,P10GX,P:J1(1)55:KK(16336)::16336,0::I12500::10I3200 e(XB2)3210+ iX3X276115 l0:I125:BXX3(1)6:BYYY(BX)(1)3:BX,BY:K(16336):16336,0::IX3X3:YY(I)YY(I)3: sP1P1:P19955 x24:25);:"ANG,BG?";AN,BG:BGBG10:ANAN180:PP3:PYP5:56GXB1:PP2:220I0- =II.1:XBGI(ANPI):P199XXB1U ?K(16336):16336,0:P199XB2X AYBGI(ANPI)16I2:XXWINDI2:P199YBGI((ANPI))16I2 D0:PX,PY:X3X276PY0115 FYY(X)PY100 H3:X,PY:PXX:PYPY:61 d(XB1),P2B13,P25:B13,P25:B13,P2:B13,P25:B13,P2B13,P25:2:B23,P3B23,P35:B23,P35:B23,P3:B23,P35:B23,P3B23,P35:P199120 724:"ANG,BG?";AN,BG:BGBG10 8P199PXB1 9PP2:P199PXB2 ;21:17)"WIND:";(WIND)::I113152:HX(((I112)4.5180)PI)HG:YY(I)HXP:I,HXPI,159::WIND((1)10):(1)10050WINDWIND /3:112,10152,10:WIND0ē112,10125,5 121:17)"WIND:";(WIND):WIND0ē152,10139,5 3B1(1)20505WIND:B2(1)20200WIND5:B13HERE (CR)= CARRIAGE RETURN":24:12)"*** STAND BY ***";:I110000::YY(280):P199:PI3.141592654180 :936:P1P1:1:P(1)20139:P2(1)20139:P3(1)20139:I1140:I,P2I,159:YY(I)P2:l I140279:I,P3I,159:YY(I)P3::HG(1)5025o:936:5:7)"*** ARTILLERY SIMULATOR ***":12:"YOUR MISSION IS TO BLOW UP THE OTHER ":"GUY BEFORE HE DOES THE SAME TO YOU."::"YOU INPUT THE DATA IN THIS FORMAT:"::"ANGLE TO FIRE, (COMMA) NO# BAGS POWDER"j :"EXAMPLE: 45,8.6 (CR)"::"W     'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")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   ( DM(DU)DUDUDM-DU.003ī2100;XX$(XX)A AHdedededededededede]&NdedededededededehdeLde'(NdedeLdede*NM,NQH)a(ǠԠҠӠ̠ՠ)+a(ԠǮȠԠҠҮ)_Q 'KM6'a@E(Π)_' N]ЯԠҩT"Ndededede6dededede7de`]$Nde@@p@*#r`@9()%_M6oa()a(ϠǠҠס)UVWY_'oa(ՠĠƠҠ̮)a(ՠŠĠϠ͠ҠǬ)a(ԠŠƠҠŮ)_Ra(ՠנԮէŠΠҠŠĠŠ)-a(ԠҬԠ٠ΧԠ)6a(ĠԠ̮)F88/? rrrE(),a(ĠŠϠŠՠĠԠŠ)(a(ŠҠ̠ŠӮ)K6cS(ϠՠȠϠ٠ο)&ŬɬĠΠ)'a(ĠԠŠŠҡ)_/a(Ҡ٭ĠŠӠƠ)"a(ϠĠΠŠŮ))a(ŠŠǩĠՠ)0a(ԠҠĠŠҠӡ)_'a()q:fa(ՠĠȠӠҠΠĠĠ)kbE(ӠҠή)cp`б!$5r`nL $u`$z`б $|` ı$`б$` $Pa(àšE(ϠՠԠϠſ)5]S(ŠǠϠϠάҠӠϠЮ)&@`@9()$6@^a(ΠҠ)FE(Ҡ͠ƠŬ)FбE(ԠƠŠ)9_a(ΠĠҠҠŠƠҠŮ)``%q,aa(̠Ơ)FıE(Šġa()FE()oPa()FE()oP a()FE() o[ `%[ ] ] [ q/?r![.Rca(ɺɠԠϠԠՠȮ)&Wa(ԠƠҠġ)Xca(ɠԡŠҡ)Y_+\a(Ҡ)F(ĠΠԠƠŠԠՠ)(7a(ϠΠĠ̠ˮ)9_-a(ɺˠάՠŠ)'bE(ӠƠή٠ή)[a(ɺˠή)!a(ՠ٠Š)FE(Ӯ)[oPӬq/?dr &`$(q` $0-)`%q`%qбqıd8r+qıqı_.0ca(ՠĠ)FE(ŠΠŠҡ)I5a(ŠϠŠԠՠŠ)a(Ԡ٠ΠĠ),6a_q8r\ ]̠qqq \  `8r$ ]ŠӠŠǠ `%qq8rq\\ `%q#q888 r rr q]ǠϠԠŠӠΠՠο `$\_]ȠΠҠĿ`8r$\_']ȠŠϠĠŠӿ` $Fa(Ԡՠ٠Š)FE(ŠϠĠŠӮˠ))S(ҠŠ)'`$R-]ǠϠŠŠΠΠՠ`$\_\_qqc\P:a(נ٠ӠϠՠȠϠ)a(ȠĿ)GT`$`$R0]`$RE`$JF\H_@J`$TKqqqL\N_+Ta(נ٠ӠϠՠȠϠ̠)GUT`$R Y`$^Z\\_T^qqqc\c+a(נ٠ӠϠՠȠϠĠ)FE(ӠҠŮ)ca(ӠŠ)FE()c*a(ՠנŠ)FE(ӠΠ) c` $\6q/? rq18a(ĠӠǠԠ)FE(ӠҠŮ)9cc:c*@a(נ٠ӠϠՠȠϠ٠)GATĬ)FE(ŠŠϠŠٮ) q\\`$q8r\Fca(ŠŠ˺)Pa(٠ƠҠŠĮ)ca(ΠӠנ)Fc%a(Š٠נӠ)FE(Ӯ)c,a(ՠŠ)G4o5q;@r<@r9UVWq/?rYZıqбq#dqq_q q q eq/?rnqqqq q`$5cca(ɬɠǠϠԠϠլ)qJa(ΠҠ)FE()FE(ŠŠŠҠź)&@M6oa(źŠŠҠϠΠϠΠծ)UVWY,KM6d"eD-M6oa(ӠΠŠ)a(ӠƠĠ)a(Š).`;@r$+//oa()*"cPa(ҠҠ͠Ơ)#c(cW)a(ӠƠΠ̠Ġ)a(ҠŠҮƠ̠Ҡ)\*a(ӠĠҠĠή)ca(ȠΠΠ͠ԠԠΠӮ)UVWYt+S( @p()N@" rN@"Pra@E(ΠɬϬ) ]ɠ] KM6'oP a(Ƞ͠͠ՠҠ )o /a(ԠéŠҬî) cP!a(٠ҠĠԠ) cP# a(Ԡ        ==========="34,R78TCTDĺ"WRONG/DO AGAIN":>23:"IF YOU WANT YOUR REWARD PRESS ANY KEY AND RETURN KEY":A$:D$(4)D$;"RUN MM"XX$(XX)".00"40304XX$(XX)"0">4030XX(XX)ī2000DU10XXR$uRR$"Y"3402vTDTD(DR$):TCTC(CR$)<w34,RE|330b(23):K038:" ";:K:k(R)23);"-----------------"XXTD4000TD$XX$XXTC4000TC$XX$31(TD$));TD$;40(TC$));TC$ 23);"======ECT?":RR$: RR$"Y"260>TITLE$(I)"FINISHED"ī250DU"TITLE1I1h,TITLE$(TITLE)s6TITLE{@R7JRR1ORI6390TR:15:" ";AN$hR:23:" ";DR$:rR:32:" ";CR$:t(23):"ARE THE LAST ENTRIES CORRECT?":R34,7T1B);BUSNAME$)T2B);BSFM$9T3B);DAY$?t"ACC. TITLE"15)"ACC#"25);"DEBIT";34)"CREDIT"24)"XXXX.XX";33)"XXXX.XX"II1(8I):"WHAT IS ACC. TITLE #"I;:TITLE$(I)  (22):"IS THE LAST TITLE ENTERED CORRA$ {: |TITLE$(50)M }"WHAT IS THE NAME OF THE BUSINESS?":BUSNAME$ "WHAT IS THE NAME OF THE BUSINESS FORM?":BSFM$ "WHAT IS THE DATE?":DAY$ T1B((40(BUSNAME$))2) T2B((40(BSFM$))2) T3B((40(DAY$))2)  r" WHOLE PROBLEM."::L s"4. TO START OVER FOLLOW THIS PROCEDURE:"{ t" PRESS RESET KEY, TYPE THE WORD HOME," u" RETURN, TYPE RUN 120, RETURN.":: v"5. USE RETURN KEY AFTER EACH RESPONSE.": y z"PRESS ANY KEY TO CONTINUE":(17):"NOTES" k l:N m"1. DO NOT USE A COMMA IN THIS PROGRAM."::y n"2. WHEN YOU HAVE ALL ACCOUNT TITLES" o" ENTERED, TYPE THE WORD 'FINISHED'.":: p"3. IF THE PROBLEM DOES NOT BALANCE," q" YOU WILL HAVE TO REENTER THE"OTALS THE SAME?" F:Z P"IF YOUR TOTALS ARE THE SAME, YOUR WORK SHOULD BE CORRECT."b Z: d"IF YOUR TOTALS ARE NOT THE SAME, FIND YOUR ERROR AND DO THE PROBLEM AGAIN." e: f"PRESS ANY KEY TO CONTINUE":A$ g: h(3): i jLANCE HEADING. THE HEADING CONSISTS OF THREE LINES: NAME OF BUSINESS, THE WORDS TRIAL BALANCE, AND DATE."w : ("ENTER ON THE TRIAL BALANCE EACH ACCOUNT IN THE LEDGER, EACH ACCOUNT NUMBER, AND EACH ACCOUNT BALANCE." 2: <"ARE THE TWO TC 93610(9):?(10):"********************"E g (10):"** TRIAL BALANCE **"m  (10):"** BY **" (10):"** TODD/IVERSON **"(10):"********************"255936o "TYPE IN TRIAL BA          S RESUMED.":E(2)11505.Q3Q1505"STRIKE SETTLED. NORMAL PRODUCTION RESUMED.":"NEW VARIABLE COST=$";U;"/UNIT, DUE TO INCREASED WAGE"::E(2)0:::"COMPANY ";1;" HAS BEEN THE VICTIM OF EMBEZZLEMENT BY THE"O. NEGOTIATIONS HAVE BEEN STARTED, BUT HOPE OF ":"A SETTLEMENT LOOKS DIM."::`E(1)11450qQQ121450E(1)2:"THE WAGE-PRICE FREEZE HAS ENDED.":E(2)11475Q2Q1475 E(5)0:"TRANSPORTATION STRIKE SETTLED. NORMAL DELIVERIEE UNITS."::_"A TRANSPORTATION STRIKE HAS OCCURED, AND YOU ARE UNABLE TO":"MOVE YOUR GOODS TO THE DISTRIBUTORS. NEGOTIATIONS HAVE":"BEGUN, BUT HOPE OF A SETTLEMENT LOOKS DIM."::Nx"THERE HAS BEEN A STRIKE AND YOUR PRODUCTION HAS BEEN":"HALTEDLEMENT BY THE":"VICE-PRESIDENT OF THE COMPANY. YOU CASH ON HAND IS NOW $";C(I):: F"COMPANY ";J;" HAS SUFFERED FIRE DAMAGE IN ITS WAREHOUSE":"ALL UNITS WERE DESTROYED. YOUR INSURANCE WILL REINBURSE YOU":"IN THE AMOUNT OF $";(UI(J).75);" FOR THESCT -VARIABLE PRODUCTION COST NOW=$";U;"/UNIT":1425"THE PRESIDENT HAS JUST IMPOSED A WAGE-PRICE FREEZE ON THE ECONOMY,":"AND YOU MAY NOT RAISE THE PRICE OF YOUR PRODUCT OVER THE NEXT 2 QUARTERS."::S-"COMPANY ";I;" HAS BEEN THE VICTIM OF EMBEZZQ:1080E(1)11230+QW421230FW4Q:1375:E(5)1:Q2Qb((Q1)4)4Q11425pQ11425E(1)11425(1).251280Q612801400:E(2)1:U(U(1.1.1(1))):Q3Q:14253U(U(1.05.1(1))):"NEW LABOR CONTRA=1230BE(1)010704G1300:E(1)1:Q10:1070T[I((1)1.5):QW221075eeC(I)01075xjC(I)2001145oC(I).75C(I):1150yC(I)C(I)200~1325:W2Q:1075J((1)1.5):QW3210601350:C(J)C(J)UI(J).75:I(J)0:W32)1015M2:1020M1FG4(P(3M)P(M))P(3M):G4G11055VG4G21040` G4G2G5D(3M)((G4G1)(G2G1))G3:D(3M)D(3M)G5:D(M)D(M)G5$Q61230)(1).11090.(1).111153(1).111658(1).11200);UI(J)C(J):: 50: 2: .001: .05: 5000,5000: 100,100i 250: 20: .05: .2,.4,.4: 12000: 1.57);"**********************************":"COMPANY ";J;" YOU HAVE GONE BANKRUPCY.":7);"**********************************":P417:P(1)P()0:8553MV(1)A(1)A2:V(2)A(2)A2:V(2)A(2)A2PWD1(K2K2(KA2))K4:Xa:k"QUARTER ";Q::" MARKET CASH NUMBER ASSETS":"PROFIT SHARE ON HAND SOLD INVENT.":;UI(J)C(J)B(J);8);W(J);14);C(J);21);T(J);26);I(J);35FL(J)UA(J):E(2)1760-I(J)I(J)L(J)P"UNIT PRICE=$";A:E(1)1800aAP(J)800 :PRITN"YOU MAY NOT RAISE PRICES DURING THE WAGE-PRICE FREEZE."::760 P(J)A:A200760*P(J)0760/J:A2A(1)A(2):A20845>V(1)0:V(2WANT TO PLAY AGAIN (Y/N) ";H$:H$"N"6706::135<h:J12:::"COMPANY ";J:E(2)1715"NO PRODUCTION POSSIBLE DUE TO STRIKE. ":730"PRODUCTION LEVEL ";L(J):L(J)0715"ADVERTISING REVENUE ";A(J):A(J)0730C(J)C(J)B(J)05805:975:(DB(J)M1620GIB(J)C(3J)UI(3J)620NP417::14);"***************************":"COMPANY ";J;" YOU HAVE REACHED ".001M1;" MILLION AND WON.":14);"***************************":lJ::P417410){:"DO YOU )I(J)T(J)(T(J)):C(J)C(J)T(J)P(J):I(J)I(J)T(J):J:J12:C(J)C(J)RI(J)UK3C(J)((C(J)))(C(J)2)2:C(J)(C(J)):E(2)0530W(J)0:540T(1)T(2)0520W(J)(10000T(J)(T(1)T(2)))100 J:J12:900:B(J)C(J)UI(J):OLLARS BELOW ARE IN THOUSANDS "::J12:E(J)0:Ju hP40:875:J12:W(J)0:D(J)0:T(J)0:B(J)UI(J)C(J):900:J QC1:1060:675:865:J12:D(J)(1E(2)).5(K22V(J)D1)(P(J)50)N:J:1000 J12:D(J)I(J)475 T(J)D(J):480T(JTION COST=$";U;"/UNIT.":"WITH NO ADVERTISING AND SELLING PRICE OF $50/UNIT " ""A COMPANY WILL SELL ";K2500;" UNITS (PRINTED AS ";K22;")":"WAREHOUSE CHARGE FOR INVENTORY ="R100;"%":"INTEREST CHARGE ON BORROWED MONEY =";K3100;"%"2 #"UNITS AND DING?(B/C)";A$::A$"B"270 J12:"COMPANY ";J;" ENTER PREVIOUS CASH ON HAND, PREVIOUS INVENTORY ";:C(J),I(J)::J:"ENTER VARIABLE PRODUCTION COST ";U:"ENTER QUARTER NUMBER ";QM :"FIXED PRODUCTION COST=$";F1000;"/ QUARTER.":"VARIABLE PRODUCATED BY BRAND ADVERTISING. THE QUANTITY EACH COMPANY SELLS IS DEPENDENT UPON PRICE AND ADVERTISING" "BUDGET. THIS PROGRAM ENDS WHEN ONE COMPANY GOES BANKRUPT OR REACHES ":.001M1;" MILLION":: "ARE YOU BEGINNING THE GAME OR CONTINU2),V(2),W(2),B(2),E(2) "DO YOU WANT INSTRUCTION?(Y/N)";H$:K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4:Q0:W20:W40:W30:H$"N"200k I15:"":I:"MARKET SIMULATES THE COMPETITION BETWEEN COMPANIES SELLING A PRODUCT DIFFERENTIw 936:S16336::X118:Y1X:SOUND(S)(S)(S)(S):(X3):Y:"KUNIHIRO TANAKA":Y,X:X1811:Y18X1 SOUND(S)(S):(X3):Y:"ROSEMARY TANAKA":Y,X::936:I15:(135):I:R(X).01(100X.5):C(2),I(2),T(2),A(2),L(2),D(2),P(            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"wL"";"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: d( Ĭ.o$A19320.r$A12000F.t$R(SL1)14(SL2)19(SL3)29::.|$510:" THIS PARAGRAPH IS BEING CONSTRUCTED BASED ON YOUR INITIAL LEVEL CHOICE.":5150"(34)"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ???^"-T$936:8:10:510:"1. TYPING TUTOR":11:510:10:"2. PRACTICE PARAGRAPH"-^$15:14:510:"SELECT (1,2)"-h$A(16384):A1289320-j$16368,0:AA12848:A29320.m$A21058:D(I)((KY$,59I,1))R,#F(I)((KY$,I1,1)):I:X58:Y1:Z1:XN50:SP60i,#I0127:S(I)0:Ix,#SL19150,#Z29:X28:SL2Z39:X18,#I0Z:AF(I):S(A)5:I:XNX,#I1160:I141E$E$(13):9154,#E$E$" ",#IF-#E$E$"!42:WD(7)52:WD(8)76:WD(9)141:WD(10)168:WD(11)236Z+s#WD(12)260:WD(13)264:WD(14)267+x#WX$"ABS ASC LEN SGN RND TAB POS SPC FRE VAL STR$ CHR$ LEFT$ RIGHT$MID$ SCRN SIN COS TAN ATN INT SQR EXP LOG ",#HO0:IMEMLOMEMHTAB DEFFN"*Z#WF$WF$"BLACKCALL CAME CAN CARRYCLEANCHAP CHILLCOLD COME COULDCUT MUCH ONCE PICK WHICHCOLORCON CLR TRACECLEAR"*d#WF$WF$"SCALESCANTCONT SIX NEXT TEXT XDRAWZEBRARAZORZOO "5+n#WD(1)4:WD(2)7:WD(3)9:WD(4)12:WD(5)21:WD(6)NDFUNNYKIND KNOW LONG MANY ")F#WE$WE$"NEVERNEW NOT NOW ON ONE ONLY OPEN OWN RAN ROUNDRUN SAW SEVENSING SOON TEN THANKTHEN THINKUNDER"*P#WE$WE$"UPON WANT WENT WHEN GOINGGREENIN INTO END GOSUB":WF$"HLIN INPUTMAN RUN ONERRVLIN VTAB HI GAVE GIVE HAVE HIM "(2#WD$WD$"JUMP LIVE MADE MAKE MAY ME MUST MY OVER SMALLSOME THEM VERY WARM DIM MOD REM SAVE HOME ABOUTAN AND ANY BE ")<#WD$WD$"BEEN PRINTBEST BIG BLUE BOTH BRING":WE$"BROWNBUT BUY BY DONE DOWN DRINKFIND FOUSTARTSTOP TAKE TELL THAT THE "'#WC$WC$"THEIRTHERETHESETHEY THIS THOSETHREETO TODAYTOO TRY TWO WHAT WHY WITH WRITEYES YOU YOUR STRAPSTRIPSPOT "((#WC$WC$"SPAR DRY TREATAUTO GOTO PLOT ":WD$"STEP WAIT STOREDATA HPLOTROT AM EVERYFIVE FROMW DELETIONS FROM/W THE CATAGORY TOTALS5W0JW1 APPLE T.A.R.T.^W2 SOFTWARE BANKeW3 vW4 ENTERED BYW5 WILLIAM DAVISW6 ANDW7 ELUISE MARVINW8W9 AUGUST 19,1979 aFOR A BEDSIDE LAMP"=V "A CENTURY LATER THE NIGHT IS PAST"UV MORE OR DIFFERENTkV DATA STATEMENTSV MAY EASILY BEV ENTEREDV V THE DIMENSIONSV IN LINES 135-139V MUST BE CHANGEDV TO REFLECT ANYW ADDITIONS OR ENSE"4U "MY ATTENTION HAS RECENTLY BEEN FOCUSED"^U "GIRL LOCUSTS DON'T MAKE ANY NOISE"U "WHOSE FLAVOR REEKS OF RANCID BUTTER"U "FIVE STORIES TALL THIS MANTRAP STANDS"U "THEY PASS UNWARY THROUGH ITS PORTALS"V "YOU SEARCH IN VAIN +T "THEIR TOES AND YOURS ARE FAR APART"UT "YOUR WOOLLEN SOCKS CANNOT BE WORN"T "AND WHILE HIS SOCKS ARE HUNG TO DRY"T "AND YET THE IDIOTS KEEP ON LIVING"T "IN WOE AND PAIN THROUGH LIFE THEY GO"U "TO CONFIRM THROUGH SACRIFICE INT "LUCKY ARE THEY WHO RETAIN SOME FRIENDS"WS "THIS IS THE DAY THAT WON'T GET DARK"S "NEVER AGAIN SHALL WE GET TO BED"S "DUSK IS AN EXILE, NIGHT HAS FLED"S "MIDNIGHT LIES WITH THE BURIED CZARS"T "YOU BUY THEM THUS BECAUSE YOU THINK" "EXPERIENCE! IDIOTS DO NOT HEED IT!"OR "I'D TRADE MY LAKE OF EXPERIENCE"yR "FOR JUST ONE DROP OF COMMON SENSE"R "SHE STRUNG HIM UP ON THE NEAREST TREE"R "THE COATS DISPLAY NO WASPISH WAIST"R "TO SURVIVE A DAY OF MEDIUM LENGTH"+S'S LITTLE SUCKERS CHIRP LIKE BIRDS"NQg "WHILE SPENDING THEIR ALL ON LOSING"{Ql "PEOPLE WHOSE INSTINCTS INSTRUCT THEM"Qq "WILL NEVER LEARN BY SUFFERING ONCE"Qv "BUT EVER AND EVER PLAY THE DUNCE"Q{ "EXPERIENCE! WISE MEN DO NOT NEED IT!"'RDLY WAIT TO GET BACK AT THE FIRE"LPI "WHO SAYS THAT HE CAN DRINK OR NOT?"qPN "THE NATION BANKRUPT BY A WAR"PS "THINKS TO RECOUP WITH JUST ONE MORE"PX "THE WRETCHED GOLFER, DIVOT-BOUND"P] "PERSISTS IN DREAMS OF A PERFECT ROUND"#Qb "LIFE "EXPERIENCE IS A FUTILE TEACHER"IO+ "EXPERIENCE IS A PROSY PREACHER"oO0 "DEPEND, MY BOY, ON EXPERIENCE"O5 "MEN STAND IN LINE TO GAMBLE AGAIN"O: "FOR STERILE WEARIENCE AND DREARIENCE"O? "THE BURNT CHILD, URGED BY RANKLING IRE"!PD "HART IS HARROWING, BROWBEATING AND CRUEL"MN  "IS ANOTHER MAN'S REMINISCENCES"{N "DID YOU READ THIS RIGHTLY OR WRONGLY?"N "ORIGINS OF AMERICAN PLACE NAMES"N "EXPERIENCE IS A FRUIT TREE FRUITLESS"N! "EXPERIENCE IS A SHOE-TREE BOOTLESS""O& DRY OUTER COVERING OF FRUITS"MM "A COLLECTION OF WATERY FLUID IN A HOLE"sM "THE SLAIN NINE-HEADED SERPENT"M "ANY ONE OF A NUMBER OF THINGS"M "HE RECENTLY PUBLICLY APOLOGIZED FOR IT"M "A QUARTER-HORSE IS THREE-QUARTERS MULE"&N "I(L "THE BLOWFISH NIBBLE AT YOUR TOES"UL "ALL LADIES THINK THEY WEIGH TOO MUCH"yL "WHEN HIS FACE IS APOPLECTIC"L "BUT JOY IN HEAPING MEASURE COMES"L "WHOSE SOUPS ARE SOUNDLY PEPPERED"L "A SHIVER GOES RIPPLING UP MY BACK"M "THEPE"+K "AND I HOPE TO DO SO NEVER AGAIN"TK "BEING A FATHER IS QUITE A BOTHER"~K "AND THEN ONE MORN A CHILD IS BORN"K "THE FRIENDLY EMBERS WARMER GLEAM"K "MUTTERING SPELLS LIKE AN ANGRY DRUID"K "AND WHEN THEIR ORGY AT LAST ABATES"J "THEY SCATTER ADJECTIVES HITHER AND YON"\J "PRAISE THE SPELLS AND BLESS THE CHARMS"J "APRIL SOFT IN FLOWERED LANGUOR"J "AND OFTEN TRAMPLED ON HIS OWN SHADDER"J "GO SOAK YOUR HEAD IN BOILING ADS"K "I ROAM WHERE MAGIC CASEMENTS ODINING ROOM IN ALABAMA"DIw "I AM ABOUT TO VOLUNTEER A DEFINITION"sI| "SWANS HAVE CYGNETS, SEALS HAVE PUPPIES"I "BUT GUPPIES JUST HAVE LITTLE GUPPIES"I "A MAN WHO CAN'T SLEEP WITH THE WINDOW"I "AND IF YOU WANT TO NAME YOUR OWN RATION"-HT "RISE IN YOUR GOWN OF SHINING BLACK"KHY "AND IT ALSO BAGGED BEHIND"vH^ "HOW FAST HE GOES - HOW MANY WHEELS"Hc "HARK TO THE WHIMPER OF THE SEAGULL"Hh "OR ELSE THE OTHER WAY AROUND"Hm "I HOPE THAT IN MY ELDERING AGE"Ir "IN A HOTEL "THIS WAS MADE POSSIBLE BY A GRANT"SG; "THAT HAS BEEN MANKIND'S MAJOR QUESTION"~G@ "HE OPENED THE DOOR AND LED THE WAY"GE "THE STRANGE CASE OF THE MISSING DOVE"GJ "WITHDRAW, MY DEAR, WHILE YOU CAN"GO "GET UP, I TELL YOU, GIRL, GET UP!")D?"'F "A DIVERSE AND UNIQUE CORNER"NF "SUCH A VARIED EXPANSE OF SPACE"zF" "THE PACIFIC HAS WITHSTOOD EXPLORERS"F' "SUCH AN EXPANSE OF TIME AND DISTANCE"F, "DID PETER PIPER PICK A PECK OF APPLES?"F1 "WHERE IS HE? - I DON'T KNOW"$G6FALL".E "THE RIGHT IDEA AT THE WRONG TIME"\E "WHY DID THE CHICKEN CROSS THE TRACKS?"E "AND MAGGOTS CREEP ABOUT HER EVES"E  "HER HAIR LAY SILKEN AND SHINY BRIGHT"E "DENIED THEIR RIGHTS BY THE GOVERNMENT"F "HOW CAN IT LAST UNSPOILE+D "NO MAN SHALL MARK THE DAY SHE DIES"UD "WHO GROANS BENEATH THE PUNIC DIRT"D "AND STRANGLES IN A STRING OF CURSES"D "HER LIVING MOUTH SHALL SPEAK NO TRUTH"D "AND MAGGOTS CRAWL ABOUT HER EYES"E "HIS RIGHTOUSNESS CAUSED HIS DOWN"THE STYLE WAS SO PECULIARLY MY OWN"OC "WHO GROANS BENEATH THE PUNIC CURSE"}C "AND STRANGLES IN THE STRINGS OF PURSE"C "BEFORE SHE MENDS MUST SICKEN WORSE"C "HER LIVING MOUTH WILL BREED BLUE FLIES"D "AND MAGGOTS CREEP ABOUT HER EYES"CCESS" BB EXPERTBNB "I THOUGHT THAT THAT MOVIE WAS TERRIBLE"}B "THE SUBJECT OF EVERY VARIETY OF MISERY"B "BOTH ARE EXAGGERATED BY POSTERITY"B "THE MOST PRECARIOUS HEARSAYS"B "I MEAN AN EXTREMELY REMOTE POSTERITY"$C ANY FOOD LEFT FOR ME?"7A "THEY MUST HAVE MORE ROOM"[A "THE CHILDREN HAVE MANY PETS"{A "THE PHONE KEEPS RINGING"A "ELEPHANTS DO NOT FEAR MICE"A "HE HAS 3 NIGHT CLASSES"A  "THE SAND WAS PURE AND WHITE"B "THEIR VACATION WAS A SUSHE HAD AN OPERATION RECENTLY"@@ "THE WEDDING WAS POSTPONED"c@ "BLUE IS THE FAVORITE COLOR"@ "THE WEDDING WAS CALLED OFF"@ "HOW MUCH FARM LAND IS LEFT?"@ "POLLUTION CONTROL IS DIFFICULT"@ "A TORNADO TOUCHED DOWN HERE"A "IS "I DIDN'T GET THE RIGHT CHANGE"G? "WHICH ISLAND WILL YOU VISIT?"j? "WHEN WILL IT STOP RAINING?"? "SOME BIRDS MIGRATE EACH YEAR"? "SHE HAD LOTS OF SHOPPING TO DO"? "STARS COME OUT AT NIGHT"? "THE WATERS ARE CALM AGAIN"@ "OR ME"%> "CAN YOU FIND MY WATCH?"H> "SHE WAS A POOR HOUSEKEEPER"l> "LIONS ARE VERY LAZY ANIMALS"> "THE LABEL FELL OFF THE CAN"> "CAN SHE FIND MY WATCH?"> "THEY GOT A BAD SUNBURN TODAY"> "THE MUSEUM WAS ROBBED LAST NIGHT""?ING RIGHT"3=a "THERE IS SNOW ON THE MOUNTAINTOP"R=f "WE HAVE TO GO HOME NOW"v=k "THE WOOD HAS TERMITES IN IT"=p "THIS DOLL WILL BREAK EASILY"=u "HE HAS TO WEAR GLASSES NOW"=z "HE MUST DO HIS HOMEWORK NOW"> "THE WATER IS TOO COLD FE TO TRY?",<> "WE HAVE 2 CATS AND 5 FISH"R6l "THEY HAVE TOO MANY PETS"_6q "WHY DON'T YOU WAIT HERE?"6v "LONG DISTANCE PHONE CALLS"6{ "HOW MANY OF THESE DO YOU HAVE?"6 "ISN'T THIS SEASONING TOO HOT?"6 "MY FAVORITE SHOWS ON TV"7 "WHEN DO YO%5D "I THINK THE INVOICE IS WRONG"J5I "DOES YOUR TV SET STILL WORK?"p5N "HAVE YOU LEARNED SPANISH YET?"5S "THERE'S A HAUNTED HOUSE THERE"5X "HAS YOUR LETTER BEEN RECEIVED?"5] "THE LITTLE GIRL WAS PRETTY"5b "A NIGHT AT THE THEATRE" "WHERE DID YOU PUT THE BOOK?"D4& "THAT STORY WAS VERY AMUSING"n4+ "THIS IS A SET OF VALUABLE CRYSTAL"40 "HE MAKES JEWELRY OF CORAL"45 "ALL THE WALLS WERE PAINTED"4: "SHE CROCHETS AFGHANS ALL DAY"5? "HAS THE SHIPMENT OF PAPER COME?" "SELF-LOVE AND THE LOVE OF GOD"I3 "A REASON TO ABSTAIN FROM TRYING"l3 "MY PLANE LEAVES ANY MINUTE"3 "MY TRAIN IS OVER AN HOUR LATE"3 "WHY DID THE MAILMAN COME LATE?"3 "IT'S TOO LATE TO GO NOW"3 "WHY NOT STAY OVER TONIGHT?" 4! FATHER?"12 "I DON'T UNDERSTAND WHAT HE SAID"W2 "IT WAS A FULL MOON LAST NIGHT"}2 "WHAT ARE WE HAVING FOR LUNCH?"2 "THE ONLY SATISFACTORY ANSWER"2 "LEARNING DEMANDS PRACTICE AND CONCERN"2 "SO SURROUNDED BY FALSE CONCEPTIONS"!3 1 ADVANCED1 71 "DID YOU ENJOY SCHOOL TODAY?"X1 "I HAD A MAGNIFICENT TIME"z1 "REMEMBER TO BUY SOME MILK"1 "LET'S GO OUT FOR A BEER"1 "IT REALLY WAS A GREAT SHOW"1 "I CAN'T FIND MY BLACK SOCKS" 2 "WHY DID GEORGE KILL HIS0 "SHE HAD TWO DOGS"50 "JOHN TAKES MARY OUT"N0 "A FURNITURE SALE"j0 "SHE LOST HER GLOVES"0 "THE CLOCK STRIKES 5"0 "DO MICE LIKE CHEESE?"0 "SHE WAS DAY-DREAMING"0# "THE CLOCK STRIKES 2"0( "TRIMMED WITH SILVER"0 FRAME IS CRACKED"./ "NATIVES SELL CRAFTS"H/ "THE EDGE OF SPACE"_/ "FILLED THE SKY"x/ "A VERY OLD STORY"/ "FLEETS OF WAR SHIPS"/ "A VERY OLD MANSION"/ "A DOG'S RED COLLAR"/ "CAN YOU SEE THEM?"0 "THREE SHADES OF RED" "THE DOOR IS OPEN"-. "MARY EARNS MONEY"C. "SINGING ALONG"]. "TEACH LITTLE KIDS"w. "THE BRIDGE IS OUT". "SIGNS OF SPRING". "THE LIGHT IS BRIGHT". "HOLIDAY MEALS". "MAGAZINES TO READ". "SHE HAD 5 KITTENS"/ "THEMALL WOODEN BOX"+-o "BILL TAKES LESSONS"F-t "CHILDREN IN SCHOOL"a-y "JIM LEARNS DANCING"{-~ "WELL-DRESSED LADY"- "COURTROOM BATTLE"- "TOO MANY CHILDREN"- "RIBBONS WITH LACE"- "FENCE BY THE ROAD"- "LETTERS TO WRITE". "A SHOTGUN WEDDING"+,= "FOUR YARDS LONG"E,B "JIM CARRIES ROCKS"^,G "LEARNING TO SWIM"x,L "THE NIGHT IS DARK",Q "JANE RIDES TO WORK",V "TOO MANY CHAIRS",[ "HORSES TO RIDE",` "TIED UP WITH STRING",e "UP THE STAIRCASE"-j "S"FAMOUS ARTISTS GROUP"2+ "A HEAVY WINTER COAT"J+ "HORSES FOR SALE"b+ "WASH THE DISHES"|+ "WALK IN THE WOODS"+ "THE LION PACES"+$ "THE FIRE CRACKLES"+) "THE LATEST STYLE"+. "EMPTY PACKING BOXES"+3 "RAINBOW COLORS",8 SHION"#* "JOHN AND JANE TRAVEL">* "BILL WEARS GLASSES"Z* "JANE TYPES A LETTER"u* "THE HOLIDAY SEASON"* "AN INSECT BITE"* "ICE CREAM IS COLD"* "UNDER THE ROOFTOPS"* "A FLOCK OF PIGEONS"* "A BALANCED CHECKBOOK"+ N THE RAIN"() "HEAVY TELEPHONE BOOK"E) "THE PHONE IS RINGING"a) "SHE SPILLED PERFUME"z) "A FLOCK OF SHEEP") "TINY SPECKS OF PAINT") "THE ENGLISH TEACHER") "HE MAILS THE LETTERS") "JANE FEEDS THE CAT"* "THE LATEST FA "A BOTTLE OF PERFUME"4( "THE PAINTING IS GOOD"L( "LET THE CAT OUT"h( "ANIMALS IN THE WILD"( "A MUSEUM EXHIBIT"( "MARY VISITS A FRIEND"( "LOOK UNDER THE BED"( "LIVE LONG AND WELL"( "WINE AND CHEESE PARTY" ) "RIDE IINT IS DRY"$'M "THE MEAL IS OVER">'R "SOFT AS A FEATHER"\'W "THE LAMPSHADE IS BENT"u'\ "THE MAIL IS LATE"'a "COLOR TELEVISION SHOW"'f "BABY TAKES A NAP"'k "SATURDAY AT THE PARK"'p "WRITE HIM A NOTE"'u "MARY VISITS JANE"(zTHE DOG HAS FLEAS".&  "I CAN READ QUICKLY"L&% "JOHN READS MAGAZINES"h&* "THE PAGE IS BLURRED"&/ "JANE COOKS DINNER"&4 "HE'S TIRED AFTER WORK"&9 "THE ASHTRAY IS FULL"&> "LOOK AT THE MOUSE"&C "ANIMALS IN THE ZOO" 'H "THE PA WATER IS COLD"+% "LOOK IN THE CLOSET"I% "TRAFFIC IS HEAVY NOW"f% "THE STORE IS CLOSED"% "BILL READ THE BOOK"% "BILL LEADS THE BAND"%  "AN IMPRESSIVE BUILDING"% "HIS CUP IS EMPTY"% "LOOK FOR THE RAINBOW"& "AY"$ "BOB GOT A RIDE"3$ "VERY GOOD ADVICE"K$ "BOB KILLED MARY"Q$d$ INTERMEDIATEj$$ "WE ATE DINNER LATE"$ "WE HATED HER DINNER"$ "SHE LOVED HIS SUIT"$ "LET'S GO HOME EARLY"$ "HERE COMES THE DOG"% "THE "COME DOWN HERE"'#| "HE WAS ABUSED"=# "COME UPSTAIRS"T# "SHE HAD ACCESS"i# "ANN WAS DEAD"# "SHE HAD SUCCESS"# "ANNE WAS PRETTY"# "IT IS MAY"# "JOHN KNEW MARY"# "IT IS MY OWN"# "JILL KISSED JACK"$ "ON HIS W "ABANDON SHIP"'"E "JILL IS PRETTY"@"J "ABANDON ALL HOPE"U"O "JILL IS PINK"k"T "IT WAS ABLAZE""Y "ANN CAME HOME""^ "THEY WENT ABOARD""c "VERY POOR ADVICE""h "THEY WENT ABROAD""m "ANNE CAME HOME""r "HE WAS ABUSIVE"#wES"!  "UP THE HILL".! "A TASTY ORANGE"B! "TO THE MILL"\! "HIS YELLOW STREAK"s! "JOHN FELL DOWN"!" "MONEY IS GREEN"!' "BILL CAME LATE"!, "I AM BLUE"!1 "MARY WAS LATE"!6 "SHE SPOKE QUICKLY"!; "MARY HAD A DATE""@ AGAIN"  "THE GREEN GRASS"7  "HE WALKED SOUTH"L  "THE BLUE SKY"d  "HE WALKED NORTH"{  "THE WHITE SNOW"  "I LOST TRACK"  "DEEP BLACK NIGHT"  "I LOST MY WAY"  "THE BROWN DIRT"  "A GOOD ORANGE"! "HOT RED FLAM "A WHITE SWEATER"' "A YOUNG PONY"< "A BLACK CROW"O "IT IS JUST"d "MY BROWN COW"{ "IT WAS JUSTICE" "HER RED SCARF" "HE WALKED AWAY" "OUR ORANGE RUG" "HE TRIED TO WALK" "A YELLOW SKIRT"  "HE WALKED FAMILY"_ "GO DOWNTOWN"4d "HIS RIGHT WRIST"Ii "TRY IT AGAIN"^n "HER LEFT ARM"ts "TRY IT MY WAY"x "YOUR RIGHT HAND"} "HIS RING FINGER" "MY LEFT LEG" "HER LIMP DRESS" "HE WAS CRUEL" "A DULL SUMMER" ONCE"# "IN THEIR WAY"/( "AT MY WATCH"D- "ON THEIR WAY"Z2 "HE WAS HUNGRY"o7 "BEGIN AT ONE"< "SHE IS TIRED"A "AT MY WALLS"F "THE FOOTBALL GAME"K "HE WAS HARRIED"P "I AM FINE"U "I AM FIRST"Z "YOUR WHOLE" "ONE YEAR TO GO"+ "ON THE WAY"C "DO YOU KNOW HIM"V "I KNOW YOU"k "SIX RAW EGGS" "AN OLD LADY" "SIX RED HENS"  "A PURPLE FINCH" "SIXTEEN YEARS" "THE TENNIS MATCH" "SIXTEEN ACRES" "BEGIN AT"I KNOW THEM"" "A RED TURTLE"7 "A YOUNG GIRL"O "HIS BACK POCKET"h "HER TENNIS DRESS"} "ONE YEAR AGO" "TEN YEARS YOUNGER" "LAST MONTH" "HIS BACK ACHES" "A YELLOW TIE" "ONE YEAR BEFORE" "OF HIS HAT "DURING THE DAY&t "AT THE TIME"<y "NOT THIS TIME"Q~ "IN THE HOUSE"h "TEN DAYS OLDER" "TEN YEARS OLDER" "GO WITH HER" "EXCUSE ME" "COME WITH US" "COME WITH ME" "GO WITH HIM" "THE LAST DAY"  999","6606","3555";8 "7447","2233","8000","4568","3883"k= "60415","436759","10390","91321","19234"B "78132","01654","12065","46751","9183G "98456","46753","98546","89545","38954"LV BEGINNING DATA`j "IN THE NIGHT"o88888","999999","555555"A "5647","5712","8381","9821","7547"n  "76544","8574","87234","36535","26543"$ "8465","8769","9062","2116","8790") "6546","8423","1011","1023","1017". "1019","9909","9969","9960","9099"3 "9009","9999","6"/ "13579","97531","24680","08642","75756"Z "8417","6521","33225","9384","1430" "11111","22222","33333","44444","55555" "47653","89456","46757","49855","75652" "66666","77777","88888","99999","00000" "111111","444444","8675","76407","62345","4675"I "12345","23456","34567","45678","56789"w "01256","02375","01235","87965","34675" "67890","78901","89012","90123","01234" "09876","98765","87654","76543","65432" "54321","43210","32109","21098","109876:10,"--------------------"810:10T"--------------------"Z`s PROGRAM DATAy WARM UP DATA "67354","23655","84561","48796","74865" "63045","7698","87256","14346","6532" "28566","37N KEY TO CONTINUE";#5I1750:I+6C$48950D:I1750:IM<420V?490\} INITIAL TIME DETERMINATIONSP1SP600SP2SP500SP3SP400SP4SP300SP5SP200  SET UP SCREENED MORE PRACTICE."N/SCST6SCST4ĺ"YOU SHOULD TRY SOMETHING EASIER."0SCST4ĺ"THAT WAS WAY BEYOND YOU. WHY NOT TRY SOMETHING A LOT EASIER."1::"DO YOU WANT TO TRY AGAIN? ";2TR$:(TR$,1)"Y"30034::"TYPE THE RETUR$'(ST$,1)"Y"553 (5647)SC((10RAT)ST)T*::"YOUR SCORE IS ";SCZ+,SCST10ĺ"THAT'S PERFECT. TRY SOMETHING HARDER NEXT TIME!"-SCST10SCST8ĺ"THAT'S VERY GOOD!".SCST8SCST6ĺ"YOU DID ALL RIGHT. BUT YOU NEA SLIGHTLY SHORTER LENGTH OF TIME":SPSP10:RARA1KSP20SP20W!TT1:":"YOU HAVE GOTTEN ";RA;" CORRECT OUT OF ";T;"."#T10T20T30T40T50549$564%I120:SOUND(S)(S)(S):I&::"DO YOU WANT TO STOP? ";ST 5  "WHAT WAS IT?"*:A$2:AA$P$540["THAT'S NOT RIGHT":"IT WAS ",P$::"THE NEXT ONE WILL BE DISPLAYED FOR A LITTLE LONGER"SPSP10545:"THAT'S RIGHT"%:"THE NEXT ONE WILL BE DISPLAYED FOR 8)PP$(7):PP$(7)PP$(6):PP$(6)PP$(5)kPP$(5)PP$(4):PP$(4)PP$(3):PP$(3)PP$(2):PP$(2)PP$(1):PP$(1)P$qw BASIC PROCEDURE900950420I1750:I8:(20((P$)2))SP0SP0P$I0SPI1)):P$I$(P)X110+P$PP$(X)4357X:450EPL4444`P(AD(1)):P$AD$(P)lX110P$PP$(X)440X:450PL5450P(EX(1)):P$EX$(P)X110P$PP$(X)445X%PP$(10)PP$(9):PP$(9)PP$(8):PP$( STPLSP 470 .  SELECT PHRASE4 B PL1429a PL1P(W(1)):P$W$(P)m X110 P$PP$(X)425 X:450 PL2434 PL2P(B(1)):P$B$(P) X110 P$PP$(X)430 X:450 PL3439 P(IN(:"1. WARM-UP 1. VERY SLOW"M "2. BEGINNER 2. SLOW"u "3. INTERMEDIATE 3. MEDIUM" "4. ADVANCED 4. FAST" "5. EXPERT 5. VERY FAST"  "PHRASE LENGTH ";PL "DISPLAY SPEED ";SP Y:"A PHRASE WILL BE DISPLAYED FOR A SHORT"Y ^"PERIOD OF TIME, AND YOU WILL TRY TO"i c"READ IT." h:"TYPE WHAT YOU SEE AND YOU WILL BE TOLD" m"IF YOU WERE RIGHT." r:"YOU HAVE A CHOICE OF PHRASE LENGTHS" w"AND DISPLAY TIMES."' |X X1IN I$(X)" X. X1AD: AD$(X)A XM X1EXY EX$(X)` "Xg , z - INTRODUCTION . 6 J"THIS PROGRAM IS DESIGNED TO IMPROVE" O"YOUR READING HABITS, AND AT THE" T"SAME TIME, YOUR READING SPEED.".936 12 14( ("SPEED READING"8 2I1750:I> nS x INITIALIZATIONY c W120m B120x IN120 AD120 EX120 W$(W) B$(B) I$(IN) AD$(AD) EX$(EX) X1W W$(X) X X1B B$(X) O SPEED READING0 BY ELUISE MARVIN H AND WILLIAM DAVISZ AUGUST 1979`f THIS PROGRAM MAY BE  COPIED AND GIVEN AWAY BUT MAY NOT BE USED FOR ANY COMMERCIAL PURPOSES.  S16336                                     z#?Xò         ŠҠՠĠǠQ"Π ӠƠɠ ̠ůɠ ǠҠ( ԠΠΠӠҧӠԠ]Šɠ̠Ӡ2ɠϠ ΠΠ  Ҡ٠  ĪĠ ǠàŠҠà٠Ҡf UVW!gh8rgh8rY ײqײ_Lp]uUVW`ij-r$dYd`ij-r$if`ij-r$ iq nij-rq'xq8ij-rrq8ij-rr}q8rf UVWı-rrq 8ı-rrq8rf UVWghghY_L]UVW`IJ-r$|Y|`IJ-r$~`IJ-r$X q IJ-rq'q8IJ-rrq8IJ-rrq8rij-rrq8ij-rr ij-rq f q UVW ghgh Y f  ghgh ׳q׳ _]UVW`ı-r$Y`ı-r$`ı-r$ q ı-rq'q 8rr IJ-rq f q UVW ghgh Y f  ghgh  ײqײ _ UVW `ij-r$  Y* `ij-r%a(ϠˠΠԠ) a() a() _, qij-r' q8rr ı-rqf q UVWghghYf "g hg h,_UVW`IJ-r$ Y)`IJ-r%a(ϠˠΠԠϮ)a()a() _, qIJ-r' q8IJ-rrq8IJ-ӀŠՀŠ)E@_,$a(ӭՠΠ)E@-a()E()E()E()E()E()E()E()E()E()GUVW`ı-r$Y)`ı-r%a(ϠˠΠԠŮ)a()a()$_, qı-r'q 8ı-rrq 8ı-$`ײ׳$_`ײ׳$`ײ׳$_`ײ׳$`ײ׳$_a()E()E()]a(סϠҠϠĬՠŠԠΠŠ͠ҠƠ)FE(ӠĠ)E@E()a()E()E()E()6*a(ǠǠˠΠҠŠӠϭϡ)4cc>_`ײ׳$`ײ׳$_`ײ׳$`ײ׳$_`ײ׳$`ײ׳$_`ײ׳ǿ)cc ha()_,!a(Ϡ׀ſҭ)GTв`в$`в$`в$p+a(ӀԠ)FвE(ـՀՀӀԠŠǡ)c a()_`ı-r$ _X`IJ-r$ b_`ij-r$ _i a()E(ΠϠҠŠŠ)a(ΠРƠҠŮ)UVWpYUVW(cYײq׳qq_X&,a(͠ȠԿҭ)E@G6Tб@`б$J`б$T`б$ '^a(Ԡ)FбE(ŠՠӀŠـŠΠҠŭ)R@Sca(ӠƠɠӠŠҠ)a(ҮŠԠӠϠŠ̠)[a(ŠӠ͠ԠϠԠ)a(ՠ٠ŠŠӠΠ٠ҠՠȬ)GSa(ԠҠŠΠŠԠŮ)a(ñq8r ı-rqñY<KM6oa()'oa(ӠƠ)2o a(ԠŠҠî)1a()c-a(ɠŬi"]Ӏ͠Ġـ]̠]Ӏԭ]Š]]M6KM6(Oı4 rDIJ4 rDij4 r 2N@" rdUVW!nı-rqIJ-rqij-rqY]ڀUVW        2 " ";::"GREETINGS":F18)"FROM THE"LT:y9)"**************************"9)"* VOCATIONAL EDUCATION *"(9)"* MICROCOMPUTER SOFTWARE *"29)"* EXCHANGE NETWORK *" <9)"**************  I R2NP:X(R)I,Y(R)I:R' 3. I6 ,707  NP5X(NP),Y(NP)'I1NP6(X(I),Y(I)=2I[< 0,0,60,0,60,60,0,60,0,0aFhP3ndznI150sxX(1)2I,Y(1)2IR2NPX(R)2I,Y(R)2IRS1S1300SS1450:S0 X(1)I,Y(1) 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 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL:(E@(a()E()G_,P@a(ՠĠԬԠԠˠՠ)FE()a(ŠӠΠԠĠŮ)'QEj`$t`$~`?$`$`$`ײ׳$@+a(ӀϠҠـՀŠ)FE(րӀ)E@cc_,Ua(ՠĠԠŠԠΠŠ͠)a(ҠƠӠŬɠԠ)a(ԠҠ)hgh*i jki jki jkghg hUVWf*i 8ı-rrj 8ı-rrk.i 8ı-rrj 8ı-rrkYf g hg h _,L] Vq``$ghghY ׳q׳_L XLf  ]qbUVWlg hghqghvY*ij kij kijk$+lmnghghgh*ijkijkijkgANCE/DI  JBDB CREATION, (NN1:A$(N)G 2A$(N)"9"NN1:1010O <40W  9r 15::"DISC MENU":: " ";0;". EXIT" X1N:X10ĺ" "; X;". ";A$(X): 23::" CHOOSE PROGRAM BY NUMBER...";CHOICE $CHOICE0Ā .D$;"RUN  A$(80):D$"",D$;"NOMON C,I,O": DRIVER'S TEST, ALCOHOLIC INTAKE, DIRECT REDUCTION ON LOANS, FINANCE I, FINANCIAL PROGRAMS, TAXMAN SPEED READING, ADVERTISING,ARTILLERY SIMULATOR,TOWERS OF HANOI,HAMMURABI  TYPING TUTOR,TRIAL BAL ԠǮ)>cPa(٠ŠΠӠƠ)PPa(ŠΠӠƠҠ٠̠٠Ҡ)+Pa(٠٠ҠȠ)\U `$\d_\* a(%_\d_b\.a(Š̠٠נ̭),a(ӠΠƠҧӠí)+a(ŠҠŠϠŠ)-a(ϠŠԠƠҠӠȭ)-a(ΠӠΠŠԠƠΠɭ)a():Pa()D\UN`$X\d_X\-ba(ĠĠ ǠӮ)$lcPa(ŠԠ)&vPa(ҠǠ)0Pa(ϠǬǠҠ)\U`Ӡ),Pa(ĠҠĠ)\U`%_\d_\'a(ԠӠ̠ϠˠΠέ))a(ĠŠΠؠ)a(ƠŠԮ)&cPa()0Pa(()Pa()Pa()\U`%_\d_T\'a(ՠԠРҠ),a(ǠΠΠǮ)'cPa(ĠӠ)'Pa(̠РǠ)Pa(̠Ԡ̠)6\U@`%_J\d_J\&Ta(ƠՠŠĠҠ)&^a(ӬՠԠ٠)(ha(ԠƠҠӠƠ)ra(נӠή)|cPaӠ `%w[! ]ΠȠ ]ӠȠM6o >a(ŠǠŠΠàԠӮ)@"cPa(ĠΠǠРӭ)Q,Pa(ĠΠ a(ŠȠӠŮ)P a(ĠŠΠ)P a()\'[]ԠҠ M6 a()M6o P  a(ԧӠ)\ NM6 qq co]`$`$} x\_ }\F_,M6P oa(Ů٠ή)\ Nq-rqM6co[]]ҠǠΠŠkM6oP a(ՠ͠ϠŠ)P[d6?e`$Y`$]]ˠҠˠנĠî@\`<()r<()r$Zq<()rPbG_Z(]`$Z`%[w_ _[b]ǠҠd]i`%\-nqŠҠ)P6WoPqa(ŠҠ)PXa(ӠŠ΢)GYd6?ePgZd8.?)r.?(rr.?$re`P.?$rM6P.?$r]ŠҠϠΠĠŠd[q.?6@r`$\[ ;\N[ <\[ =\[ >\H[ ?\[FM6o P fIa(ՠŠ٠Ġ)P a(Ү٠Ԡ)P a(ΧԠŠԠŮ)K\'P['UcPa(ԠנϠǾ)4VoPqa([ !\ [ "\ [ #\ [ $\[ %\~[ &\[ '\F[ (\[ )\[ *\T[ +\[ ,\[ -\b[ .\[ /\ [ 0\\[ 1\[ 2\[ 3\t[ 4\[ 5\[ 6\[ 7\[ 8\@[ 9\[ : \[]\x[]\[]\@[]\[]\[]\N[]\[] \[ \p[ \[ \ [ \j [ \ [ \2 [ \ [ \ [ \| [ \ [ \: _[0O4>rN@"rqq\_\[]\T[]\[]\[]\b[]έ\[]\ []\[]ɭ \[] \$[] \t[]ͭ \[]                              Š)UPa(٬ӠŠҠӠԠĠĠԠՠԠ)wPa(٠ƠŠӠΠŠŠέϠȠՠŠǠŠŠΠԠ)\U`$ \d_a(ŠҠԠӠŠҭ)a(Π)\U`$\d_N\Ja(ҠǠΠҠ̬ՠ٠ŠӮ)cNPa(٠ƠȠŠΠŠŠȠ$D\d_D\+Na(ΠϠӠȠΠέ).Xa(ĠΠ͠))ba(Ӭԭƭ٠Ԡ)la(ΠϮ)vc#Pa(ŠҠΠŠ)$Pa(ŠҠΠŠ).P)SPa(ӠӠĠ͠)P a(ӠĩҠ)rP a(ŠҬϠנ٠̭)P a(ҠРϠӠ)P a(ԠĠϠŠҭ)&P a(ŠƠ)0\U:`ԠŠ)\U`$\d_\da(ӠҧӠŠ)Pa(ԠՠϠŠ٠)Pa(Ǯ)cPa(ӠҠ);Pa(ӠĠϠנ٠)P a(ǠĠǠŠԭƭ٠ϠӠĠ)G@a(ՠ٠ŠԠΠԠĠ̮)c=Pa(٠ƠĠӠԠȠ)Pa()<Pa(ӠĠӠխΠԠà̮)JcTPa(Ԡ̠)=^Pa(٠ΠĠ٠Ġ)=hPa(ԠΠĠ٠Ġ)r\U|`$\d_@\Xa(ҠϠנΠ̭)'a(ǠҠŠӮ)cPa()Pa().Pa(ŠҠȠҠȠ)a(Ơ)"\U,`$6\d_6\D@a(ԠӠ̠ϠŠנҠԠΠƠŠ٠ҠԠӠ)G8a(ΠؠӠŠǠĮ)cPa()Pa()Pa()\U`$\d_x\-a(ŠŠǠӠΠŠҭ).a(̠ĠƠàՠԠ)(a(ΠŮ)2c<Pa(Ԡ)FPa(Ҡ)PPa(Ԡ)Z\Ud`$n\d_n\fxa(ΠװŠ٠̰`$\d_t\Wa(ŠŠĠԠԠĠĠΠӮ)cPa()Pa()Pa()\U`$ \d_ \,a(ΠŠ)@LPa(ŠԠؠǠ)V\U``$j\d_$j\0ta(Š͠Ġՠ٠ŠӮ)~cPa()Pa()Pa()\UPa()\U`$\d_\O$a(ΠǠԠάՠԠĠŠԭƭ٠Ϯ).c<8Pa(ǠӠΠ)DBPa(̠ǠӠԠa()\U`$\d_\ca(Š͠ҠƠӠԠ٠ŠĠĠҠ)Pa(Ӯ)FcPa(ϠԠƠ̠ȠӠӠΠ)Pa() z\.a(ՠ٠ӠŠŠϠҭ)*a(ŠĠӠҠŮ)1cPa(ΠĠŠӠΠҠ)<Pa(ΠΠŠӠΠҠ)/Pa(Π٠ӠΠӠ)ҠĠΠΠ),*a(ǠΠӠԠ٠),4a(̠ŠҠ)>a(̠ή)HcPa()RPa()\Pa()f\Up`$z\d_$ \d_  \0 ca(ΠՠȠ̠Ӡ)/ Pa(ӠĠΠΠĠ). Pa(ĠӠǠӠĠ̠))* Pa(ŠӠϠ̠Ҡ),4 Pa(ǠìՠԮ) \U `$ \d_:  \- ca(ՠԠŠנԠ)* Pa(ԠԠΠǠ)- Pa(ؠԠƠŠŠĮ) c Pa() Pa() Pa() \U `$0 \d_ 0 \/: ca(ӠĠŬŠ)'D Pa(ԠΠǠ)*N Pa(ŠΠŠǠϠ)%X Pa(ǠȠ̠Ӯ)b cl Pa()v Pa() Pa(`$ \d_|  \. ca(ŠàĠנӠ)) Pa(ՠ٠ԠŠҠ) c Pa(ŠĠ)& Pa(ӠŠĠ)' Pa(Š͠Ġ) \U& ` r \.| ca(ΠǠРΠҠ), Pa(ǠĠ̬ՠԮ) c' Pa(נΠĠР) P a(Ơ)+ Pa(ӠŠŠ)! Pa(ŠĠ) \U  Pa(Į) c/" Pa(ŠŠΠŠҠĠϭ), P a(٠Š).6 Pa(٠ŠҠ٠)@ P a()-J Pa(٠ҠŠ)T P a()^ \Uh `$r \d_). Pa(ԠӠӠ)! P a(ǠӠ)) Pa(ҠӠӠ) \U `$ \d_  \V ca(ƠՠԠĠŠΠĠҠĠΧԠĠŠҬ))n Pa()x \U `$ \d_2  \0 ca(խӠΠӠԠ). a(ϠàӠŠĮ) c. Pa(ŠӠǠӠŠ)" P a(ϠǠ%_( \d_ ( \-2 ca(ǠĠǠ),< a(ĠԠˠҠĭ)F a(ΠӮ)P c>Z Pa(ĠƠĠӠӠΠ)>d Pa(ĠƠĠӠӠΠ, ca(ΠҠŠ٠Šƭ)- a(Ġ٠ԠҠԠά), a(̠ԠŠΠҠԠ)& a(ؠԠŠǮ) c Pa() Pa() Pa() \U `)L \UV `$` \d_ ` \0j ca(Š͠ĠԠҠӭ)+t a(ҠҠǠҠӮ)~ c Pa() Pa() Pa() \U `$ \d_j  \a(ΠŠҠӠĭǠΠĠǠĠԬՠĮ) c $ Pa(Р)/. Pa(ΠĠĠРƠí)8 a()/B Pa(̠ҠϠŠԠĠӮ)c+Pa(ŠŠΠԠ)+Pa(ŠŠΠԠ)pPa(ϠԠŠΠŠĠĠҠԠΠŠŠȠ)\U`$ \d_ \q c)UPa(ӠŠӠ̠ϠŠԠ ҠŠƠ)\U`$\d_p\yca(ҠǠԠРΠՠ٠ĠĠĠԠҠӠΠҠٮ`$f\d_f\tpa(ԠΠ͠ĠǠӠΠŠӠƠàΠŠΠԠŠŮ)zc#Pa(͠ԠĠ)JPa(͠٠ŠԠǠȠҠ \Ra(ΠĠǠ̠ΠԠȠԠӬ)$ a(ԠӠĠŮ)*c)4Pa(Ġ٠͠Š)$>Pa(ĠϠŠ)&HPa(ĠԠ)R\U\(ǠĠ٠)04Pa(ΠǠӠ)>\UH`$R\d_ R\;\ca(Š̠ҠנΠҠ)Pa(Ӯ)fc cH Pa(נϠ)*R Pa(РĠΠĠ)\ P a().f Pa(Р̠ŠǠ)p P a(Ӡ)z \U `$ \d_  \/ ca(ŠΠĠҠĠ٠̠Ҡ)P a(ŠΠԠ)0vPa(̠ǠԠӠ)\U`$\d_N\Tca(ǠӠҠӠ)Pa(ӠƠĠ̠)-Pa(өΠԠӠŠԠŠ)0\U:`$D\d_D\VNca(խΠΠŠŠƠ)Pa(Π̠ԠӮ)Xc$bPa(̠Ԡ̠)rlPa(̠ƠǠӠ)P a(Pa(ΠƠŠ׮)cHPa(ӠՠΠŠԠ)P a(ŠϠŠ)JPa(ӠӠŠ)P a(ҠΠՠŠ)P a(Š)L&Pa(ӠƠҠҠ)P a(ɨΠǠȠ٠)P a()/Pa(ΠǠҠǠέ)P a(Ӡ)\U`$\d_\Tca(ƠՠŠҠΠŠ)Pa(͠ĠԬՠŠ)#a(̠ƠՠŠΠ)P a()r\U|`$\d_@\eca(ԠŠĠҠȭ)Pa(̠ҠǠ)Pa(ŠĮ)c*Pa(ΠǠȠ)=Pa(\i@ca(ǠҠҠΠŠԠ)Pa(ӠҠ̠)Pa(Ӯ)Jc$TPa(̠Ԡ̠)b^Pa(̠ƠŠԠӠ)P a(ȠҠϠҠŠ)P a(Ơ)\d_>\ZHca(ΠǠΠ)Pa(ŠƠӠҠέ)&RPa(̠ԠԠˮ)\cfc/pPa(ΠӠӠǠ)Pa(ҠĠƠĠӠŮ)c' Pa(ĠԠ̠)WPa(Ġ٠Ƞέ)P a(٠ĠҠĠ)i Pa(ĠΠԠӠŠ)P a(ϠĠ٠Ӯ)c$Pa(̠Ԡ̠)>Pa(̠ΠǠ)P a()BPa(̠ΠǠ)P a(٠)\U`$\d_\[ca(խӠP2)(C0)S(A)C11 (L(J)SP)(C5)S(A)C1s J:J110:L(J)0:J:I032(HO0):CK(I):AS(C):CHO190 A0155 XX1:D(X)C:535:JXX:2700:190 A4160 YY1:E(Y)C:190 ZZ1:F(Z)C:535:IZZ:2600 Z58Z58 ";A$:255:$;", AND"-0"ENTER YOUR REAL WEIGHT.":2905:~ "DO YOU WANT TO CHANGE SOME OF THE VARIABLES AND TRY AGAIN?"B$:(B$)02050(B$,1)"Y"500(B$,1)"N"2080:"YES OR NO, PLEASE.";:2010  ::"'BYE FOR NOW,09 "YOU SHOW MILD CHANGE, MAY SEEM SLIGHTLY ELATED."D 1980i "PROBABLY NO VISIBLE EFFECTS.":"YOU MUST WEIGH MORE THAN ";W:"PLEASE ENTER YOUR REAL WEIGHT.":290 &"I DIDN'T KNOW ELEPHANTS COULD OPERATE A COMPUTER! QUIT KIDDING, ";ASERIOUSLY AFFECTED." 1980h: "YOUR JUDGMENT IS SERIOUSLY AFFECTED; COORDINATION IMPAIRED;" "LEGALLY CONSIDERED UNDER THE INFLUENCE. DON'T DRIVE!" 1980 "YOU ARE HESITANT: ALTERNATE FROM 'WHO CARES' TO AGGRESSION." 198>z: "AREN'T YOU GLAD THIS IS JUST A SIMULATION?"I 1980: "YOU ARE UNCONSCIOUS, POSSIBLY ON THE VERGE OF DEATH." 1980: "YOU ARE IN A STUPOR." 1980: "YOU ARE UNMISTAKABLY DRUNK -- ALL FACULTIES BLOOD ALCOHOL IS ABOUT ZERO.". 1050[  "YOUR PER CENT OF BLOOD ALCOHOL IS ";Bn* B.02 10504 B.05 1030> B.1 1010H B.15 980R B.3 960\ B.4 940f B.5 910p: 7) "+++++ REST IN PEACE +++++"194((W100)10.00009): R .765(((W100)10).015)] B (D1000(W16R))(60X)v B ((B40))1000 H1 760 800 H2 790 B B.03  795 B B.03((H2).015) B0 800# "YOUR PER CENT OF "HOW MANY HOURS DO YOU PLAN TO DRINK,":A$;3& Hc0:H24ĺ:"ONE DAY AT A TIME PLEASE.":530:"HOW MANY DRINKS DO YOU PLAN TO HAVE IN ";H;" HOURS";D DNXC4DD.75 "B" IS PER CENT ALCOHOL IN THE BLOOD X .00ARD LIQUOR MIXED WITH WATER OR SOFT DRINKS)"M "B = BEER (12 OZ)"] "W = WINE"c  "KIND OF BOOZE = (S, M, B, OR W)"; C$:(C$)0510 C1:(C$,1)"S"(C$,1)"M"(C$,1)"B"530 (C$,1)"W"C4:530 510 +S ";K;" KILOGRAMS.)":430g "GREAT, ";A$;", I'M GLAD TO SEE":"THAT YOU'RE USING THE METRIC SYSTEM."s WW2.2y   "WHAT KIND OF BOOZE DO YOU PLAN TO DRINK?"  "YOUR CHOICES ARE:" "S = 'STRAIGHT' (STRAIGHT SHOTS)"5 "M = 'MIXED' (H @:"IS THAT ";W;" POUNDS OR ";W;" KILOGRAMS?"E JB$:(B$)0360Z T(B$,1)"P"380o ^(B$,1)"K"410 h"IF ";W;" IS IN POUNDS, ENTER 'POUNDS'.":"IF ";W;" IS IN KILOGRAMS, ENTER 'KILOGRAMS" r:330 |K(W2.2.5) :"(";W;" POUNDS ION. MEDICATIONS,"` "HEALTH, AND PSYCHOLOGICAL CONDITIONS ARE ALSO INFLUENTIAL FACTORS." ::"WHAT IS YOUR NAME? ";A$ : "PLEASE ENTER YOUR WEIGHT. (DON'T WORRY, ";A$;", I WON'T TELL A SOUL.)" " W ,W251800 6W3501830017:"BOOZE" i "THIS PROGRAM SHOWS HOW DRINKING COULD AFFECT YOU. THE FIGURES YOU CALCULATE" "ARE AVERAGES. INDIVIDUALS MAY VARY SOMEWHAT IN THEIR PERSONAL ALCOHOL" "TOLERENCE. FOOD IN THE STOMACH AFFECTS THE RATE OF ABSORPTI  BOOZE 9 A PROGRAM ON THE PHYSIO-R LOGICAL EFFECTS OFm ALCOHOL ON THE HUMANx BODY~ BY DICK CARTER AND JIM HUNGERFORD APPLESOFT VERSION BY JOHN COOKd:70: 5:     368,0 B16384:C16368% 7:19 100:KI03090F KI0::i :3:1:"PARAGRAPH ANALYSIS:"}& H0:L0:K0:N00 I2IX:A((C$,I,1))12:L(I)100003140: M(A)1:KK1:L(I)L(I)10000D LLL(I):L100003160N QL:T10000:7:HHLESSON";:31:"NEW":18:"KEYS";Z0āIZ0Z:2600:IZW4X0āJX0X:2700:JX` 200 R((56XN)2)(X52)(X50):7000( QIZ:T10:7:IN3:MD2:510:(E$,F(IZ)128,1);: QJX:T10:7:IN3:MD28:510:(E$,D(JX)128,1);: 16):530:II1:J:Y1ZJI:I0J:C((1)(Z1)):K(I)F(C):F(C)F(Z):550:ZZ1:I:400 I0:K(0)D(X):540:K(2)K(0):K(1)((HM$,X1,1)):K(3)K(1):XX1:XNX:HOK(1)*I13:535:I:400P(5)32:P(10)13::AV0:AN01:5:"FAST";:17:"2:500:" ";:530EXJ0A:K(I)D(X):540:XX1:II1:J:I0400R]Y0620bJ0Y:K(I)E(J):530:II1:J:Y1:I0400lI0Z:K(I)F(I):570:I:Z1:400Y0730Y3720I03:K(I)E(Y):530:YY1:I:400J0Y:K(I)E(J(KM%):KM%,0:KK:0KK110:KL%(KM%):KK:W510:5:18I:(E$,K(I)128,1);:q510:5:18I:" ";:QX:T10:7:IN3:MD28:500:" ";:530&QC:7:IN3:MD2:500:(E$,F(Z)128,1);:QZ:7:IN3:MD2:" ";:530:QI:7:IN3:MD28,1):J7 IX10:I1IX:(C$,I,1);:510:I:16:100L 1:15:KI0465[ 958:130 ::J0:LL(1)9999:I210:QL(I):T10000:7:JJMD:LLIN:I " ERRORS: ";L;" WORDS PER MINUTE: ";(15360(3J50L10));" ":130KK115:KL%C):550:F(C)F(Z):II1:ZZ1:J:I0400P JI:I0J:K(I)E(Y):530:YY1:I I((1)4):W((1)4):J14:P(J)K(I):P(J5)K(W):II1:WW1:I0I3 W3W0 J:12:16:" ":16:" ":12:16:C$"":J110:C$C$(E$,P(J)1I:HO0:KI1195 LS:25006 KI0:LS9:LS:2500Y LS09:I3:16368,0:X0700f Y3220 I03:K(I)E(Y):530:YY1:I:400 XXN800 K(I)D(X):540:XX1:II1:AYZ:A1600 Y1240) A1Y:J0A:C((1)(Z1)):K(I)F(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     F$" ":G$"APPLE COMPUTER INC":H$"":J$"AMORTIZATION SCHEDULE":K$"S":L$(0)"YEARS":L$(1)"QUARTERS":L$(2)"MONTHS":L$(3)"WEEKS":L$(4)"DAYS"@'20000:" THIS PROGRAM CALCULATES ";A$;", ";C$(0);",":C$(2);", INTEREST RATE (APR), ";I$::C$(0);K$;", B'B$(2),C$(2),D$(4),V(2),N(2),C(2),D(2),L$(4),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":W)GG:5:V(2)N89Z02:N(Z)V(Z):V(Z)100N(Z)GG:?;7M=R21700i@:"COMPOUNDED ";D$(G);TB2ĺ" OVER ";(M100)100;F$;L$(G);^::"BASED ON ";O;" DAYS PER ACCOUNTING YEAR":15000:"# "L$(G);:Z02:V(Z)M(Z)::7:1600bMDPCV(0)W:V(1)W:1570UR2V(0)(DC)(WM)W:V(1)(CD)(WM)W:1570~N(((DMP)C)(WT)W)GG:1:V(0)NN((CDM)(WT)W)GG:3:V(1)N"MDPCV(2)1:1593,R2V(2)((CP)D)(WM)W:15936N(((CP)(DM))(WT)MM(1):1100:V(1)(CX3X5)X2:B4V(1)0V(1)W:1440KV(1)0V(1)0CC(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::1595 (0)W:V(1)W:1360@AV(0)(D(0)C(0))(X5):V(1)W:V(2)WWPZ02:M(Z)V(Z):exR21500:"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)08CC(1):DD(1):1320V(0)(((NCD)(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):VV(Z)D::1220V(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::LB0X1(W(WN)M)N:X2(WN)M:X3DX1:X4PX2:X5WN:eV: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:S$)13)2 `S2QQ115020 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>2)0:PR(A0)BA(A1)(P(A)IN)(A2)P(A):BA(A0)0(A1)(BAPR)(A2)(BAP(A)):93` \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((2T2PR:BBM(A)80 K 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 Z43X [QQ1:P(A).005IN(A0)0(A1)N(A)BA(A U038:"-";:::/ (QQ0:ZZAA:97:459 +ZZGGF -DD1ZZ 2INN(A)(BA(BB0)(A1)BA(A2)D(A)):PRD(A)(A2)IN:BABA(A2)PR(A2)(INPR):BBBB1 AJJWVBB:NDW:TT4:10:ND0:V(0)IN:V(1)PR:V(2)BA:7:LLLLW:94 FT1T1IN:T1İ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); TW1: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          JC((1)JZ)1:4900:4500eK110:A((1)(JYJB))JB1:X$X$(KY$,A,1):K4X$(X$,3)","}K8X$(X$,7)".""(K1)(R20)((1).5)X$"$",K:4500JJC(((1)WX)1)6:X$(WX$,JC5,5):K(X$):JCK1TLK11:" "(X$,L((3L5IXK10)128H(10000128)))S:"YOUR RATE IS ";W;" WORDS PER MINUTE."[:rC$"":I1:J1:JRRR15JZWD(R)R14JZWD(14)R154050JB30:JY40:R17JY2R2X$"":JX((1)JR)1:JX224170JX144120(20)0ĺ" SPACE "; :)H N03710vR "YOU WERE SLOWER ON THESE KEYS:"::I2182:N(I)1ĺ(E$,I140,1);" ";W N(I)0\ I:N(1)1ĺ"RETURN ";a N(20)1ĺ"SPACE ";f ~:"YOUR ACCURACY IS ";((IXK)100IX);" PERCENT."%W(12IXIN:LMDX L(I)SPN(A)1#b N1T I:L(1)10000A(C$)12:M(A)M(A)1:KK1d :K03400 "YOU MISSED ";K;" KEY STROKES ON THE":"FOLLOWING LETTERS:": I2182:M(I)0ĺ(E$,I140,1);" ";:M(I)0 I M(1)0ĺ" RETURN "; M:"":15020J" N:" BASIC FINANCE I-----------COPYRIGHT 1978":10)G$:R"0u:SUBTOTAL AFTER ";C$(0);" NO.";:PP0:OO5000:100:AAS:Q115080W!:AAGGAA0AAGG!: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::::J$;" FOR:":" 1 ";B$(0):" 2 ";B$(1);", OR"::" 3 ";B$(2);" ACCOUNT"::"WHICH";: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 AN ";J$;" (Y/N) ";:E$:(E$,1)"Y"15030O:"MORE (Y/N) ?";E$:(E$,1)"N"Ā::" 1 ANOTHER PROBLEM":" 2 ANOTHER SCHEDULE":" 3 BACK TO THE FIRST PAGE":" 4 QUIT":" WHICH";:PP1:OO4:100:Q15020:S10100,15027,1000,30000:R216070t 4IJ3KO28L4O:8)MH12I3JK84OL12O:Z)MHO7IO28JO84KL7:w)MHOIO4JO12K7L*M(M):TMGG:NFGG0*1000::R15010,15015:"ANOTHER ";J$;" (Y/N) ";:"? ";E$:(E$,1)"Y"15030:15020):"LIKE P0:OO1E8:100:DS:Q10495+)B310600b6)" ENTER TOTAL ";A$;:PP0:OO1E8:100:CS:Q10550qh)R210700m)B410700|)" ENTER BALLOON ";A$;:100:PS:Q10620)G110710,10720,10730,10740,10750:10760)MHI4J12K7OLO:)MH(0);"S/";C$(2);"S, OR":" 2 A SINGLE ";C$(0);"/";C$(2);" ONLY...":" WHICH";:PP1:OO2:100:RS:Q10465r(::(B110520(R10495,10492("ENTER ";C$(0);"/";C$(2);F$;A$;:PP0:OO1E8:100:DS:Q10492(10520(" ENTER ";D$(G);F$;A$;:P5 ";D$(4):" WHICH";:PP1:OO5:100:GS1:Q10400b(GG(G0)(G1)4(G2)12(G3)O7(G4)Oy(KL0G310465(" HOW MANY ";L$(4);" IN YOUR ":"ACCOUNTING YEAR";:PP0:OO365:100:OS:Q10420h(:" WILL YOU BE MAKING:":" 1 ";D$(G);F$;C$;F$;L$(1);:100:QIS:I$;F$;L$(2);:OO1200:100:QJS:I$;F$;L$(3);:OO10E4:100:QKS:I$;F$;L$(4);:OO1E6:100s(QLS:10390x(10340(:" "2(" WITH INTEREST TO BE COMPOUNDED:":" 1 ";D$(0):" 2 ";D$(1):" 3 ";D$(2):" 4 ";D$(3):" INTEREST RATE (APR) IN %";:PP.005:OO1000:100:FS100:Q10220PF(B210390d(" TERM OF THE ACCOUNT:":" YOU MAY ENTER ANY COMBINATION OF ";L$(0)",":L$(1);", ";L$(2);", ";L$(3);", OR ";L$(4);"."wn(PP0:OO400::I$;F$;L$(0);:Q0:100:QHS:I$(0);"/";C$(2);F$;A$:" 3 ";I$;F$;C$(0);"S/";C$(2);"S":" 4 TOTAL ";A$;" OR,":" 5 BALLOON ";C$(0)'" WHICH (ENTER BY NUMBER PLEASE)";:PP1:OO5:100:Q10140'BS1':10)G$:" OK..NOW I NEED TO KNOW THE FOLLOWING: "'B010310A'"ANNUALALLOON ";C$(0);K$;", AND "::J$;K$;" FOR ";B$(0);"S, ";B$(1);K$`$'"AND ";B$(2);"S ACCOUNTS."['" HIT RETURN WHEN READY...";E$t'20000y'O365:LL0:BB0:Q0:P0:a~'"YOU MAY CALCULATE ANY OF THE FOLLOWING:":" 1 INTEREST RATE (APR)":" 2 ";C$11104z+90+34,8::"(EFFECTIVE INTEREST RATE ON INVESTMENTS)":"ENTER INITIAL INVESTMENT..........$";P::"TOTAL VALUE AFTER (X) # OF YEARS $ ";T::"ENTER NUMBER OF YEARS.............#";Y:N+9900:100:7)"ANNUAL INTEREST RATE = ";((TP)AL VALUE AT MATURITY.....";T::"ENTER NUMBER OF YEARS.............";Y::"COMPOUNDING PERIODS PER YEAR ?....";N:p+I2N((TP)(1(NY))1)100::9900:100:"THE NOMINAL INTEREST RATE= ";I2;" %":255::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"Y" YEARS...........#";Y::9900'100:10);"SALVAGE VALUE = $";(100P(1I5100)Y.5)100:255::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"10222'10200'90[+\+34,10:::t`+:"ENTER PRINCIPAL AMT OF INVESTMENT ";P::"ENTER TOT100h'12);"DEPRECIATION= $";(D100.5)100:255::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90s'10100'34,8::11);"*** SALVAGE VALUE ***":::"ENTER ORIGINAL PRICE.........$";P::"ENTER DEPRECIATION RATE......%";I5::"ENTER NUMBER;A$:A$"Y"10004-'90~t':9000:7);"((( DEPRECIATION AMOUNT )))"::9000::"ENTER ORIGINAL PRICE..............$";P:'"WHATS THE DEPRECIATION RATE.......%";I5::I5I5100:"ENTER NUMBER OF YEARS.............#";Y::DPI5(1I5)(Y1):9900: THE ORIGINAL VALUE.........$";P::"ENTER THE RESALE PRICE...........$";T::"DEPRECIATE OVER HOW MANY YEARS...#";Y:D100(1(TP)(1Y))::9900:100:" THE DEPRECIATION RATE IS = ";(1000D.5)1000;"%"''255::9900:"WANT ANOTHER RUN (Y/N) ? "0:11);"((( AMORTIZATION )))"::9000:::6);"1. MORTGAGE AMORTIZATION TABLE":6);"2. RETURN TO MENU...":::"WHICH (1-2) ? ";A$:A$"1"15100A$"2"90(#I139:"*";:I:"*":&I139:"-";:I:"-":'34,10:::'"ENTERl:9000:13);"((( DEPOSITS )))"::9000:::"  1. FUTURE VALUE OF REGULAR DEPOSITS":29);"(ANNUITY)":" 2. REGULAR DEPOSITS":::" 3. RETURN TO MENU..."::::"WHICH (1-3) ? ";A$:A$"1"14100A$"2"14200A$"3"90Sp:900 AN INVESTMENT"::" 3. REGULAR WITHDRAWALS FROM INVESTMENT"::" 4. MINIMUM INVESTMENT FOR WITHDRAWAL"::" 5. RETURN TO MENU..."::"WHICH (1-5) ? ";A$:A$"1"13100A$"2"13200A$"3"13300A$"4"13400A$"5"904082 RETURN TO MENU"::; "WHICH (1-6) ? ";A$:A$"1"12100M A$"2"12200_ A$"3"12300q A$"4"12400 A$"5"12500 A$"6"90 3033 :9000:16);"INVESTMENTS"::9000:::" 1. INITIAL INVESTMENT":" 2. FUTURE VALUE OF5"90 >2030^ :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                     !!ENTER ANNUAL INTEREST RATE.......%";I5::"NUMBER OF PAYMENTS/YEAR..........#";N::Y((1(P(I5100))(NR))((1I5100N)N)):9900&010);"!!! TERM= ";(Y10.5)10;" YEARS !!!"::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90&112500]',307);"REMAINING BALANCE= $";(B0100.5)100::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90l%012400%0:9000:10);"((( TERM OF A LOAN )))"::9000::"ENTER REGULAR PAYMENT AMOUNT.... $";R:&0"ENTER PRINCIPAL AMOUNT...........$";P::".....$";P$0:"NUMBER OF PAYMENTS PER/YEAR......#";N::"ENTER ANNUAL INTEREST RATE.......%";I5::I5I5100:"ENTER LAST PAYMENT MADE...":"PAYMENT # ";N1$0"YEAR....# ";Y:B0P:J11N(Y1)N1:I1((B0I5N)100.5)100:ARI1:B0B0A:J1:9900a%A:J1:9900:11);"LAST PAYMENT= $";((RB0)100.5)100r#<0:9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90}#H012300 $p0:9000:8);"REMAINING BALANCE ON A LOAN"::9000:"ENTER REGULAR PAYMENT AMOUNT.....$";R::"ENTER PRINCIPAL AMOUNT......PAYMENT AMOUNT..$";R::"ENTER PRINCIPAL AMOUNT........$";P"0:"ENTER THE TERM IN YEARS.......#";Y::"ENTER ANNUAL INTEREST RATE....%";I5::I5I5100:"NUMBER OF PAYMENTS PER/YEAR...#";N:;#,0B0P:J11NY:I1((B0I5N)100.5)100:ARI1:B0B0YEAR.......#";N::R((I5100)PN)(11((I5100)N1)(NY)):9900:8);"REGULAR PAYMENT= $";(R100.5)100!/:9900::"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90!/12200<" 0:9000:6);"((( LAST PAYMENT ON A LOAN )))"::9000::"ENTER REGULAR "WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"905 i/12100 /:9000:7);"REGULAR PAYMENT ON A LOAN"::9000::"WHAT IS TERM IN YEARS.........#";Y::"WHAT IS PRINCIPAL AMOUNT......$";Pn!/:"ENTER ANNUAL INTEREST RATE....%";I5::"NUMBER OF PAYMENTS/T..........$";R::"TERM IN YEARS...................#";YR/:"ENTER ANNUAL INTEREST RATE......%";I5::"ENTER NUMBER OF PAYMENTS/YEAR...#";N::PRN(11((I5100)N1)(NY))(I5100):9900:5);"!!! PRINCIPAL= $";(P100.5)100;" !!!"* _/:9900::11441,I5I5I3:11441,I5((((I51000)100.5))100)1000:9900:5);"ANNUAL INTEREST RATE= ";I5100;" %"::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90,114209D/:9000:8);"((( PRINCIPAL ON A LOAN )))"::9000:"REGULAR PAYMENT AMOUNENTER TERM IN YEARS.............#";Y,:"ENTER PRINCIPAL AMOUNT..........$";P::"NUMBER OF PAYMENTS PER YEAR.....#";N::I510:I20,R1(I5PN)(11((I5N1)(NY))):R1(R1100.5)100:I3(I5I2)2:I2I5:R1R11460,R1R11456,I5I5I3:I30:KK1)~,B0B2:J0J1N1Y11403=,J1:J0X11402I,:KK1Q,J0W,,::"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"90,:11300$,:9000:6);"ANNUAL INTEREST RATE ON A LOAN"::9000::"ENTER REGULAR PAYMENT AMOUNT....$";R::"k,N2N1J1N11374'l,B0B0R:N2N21gn,B2B0(1I5N):I1B2B0:I3I3I1:I2I2I1:P2P1J1N11380s,I2R(I2):B2R(B2):P2P21t,J0X11390v,J1NL1L211390 x,L1L11:R(X)(X100.5)100:" (";J0;")";9);R(B2);20);R(I3);30);R(I2)1011360\\,"DEPOSITS/WITHDRAWALS $";R;" ";N1;" TIMES/YEAR":9900:R(X)(X100.5)100`,"EFFECTIVE INTEREST RATE ";R(100((1I5N)N1));" % PER YEAR"::"YEAR BALANCE INTEREST ACC/INTEREST"f,h,L11:N21:P21:J11N:N2N111374H WHAT YEAR (1-30) ";Y::34,0::X(X):B0P:I10:I20bM,I30:K66:P14:J01(Y)1:J0X11368rR,K5511366S,K1K66::K1:K6:9000:7);"((( EARNED INTEREST TABLE )))"::9000:"PRINCIPAL = $";P;" AT ";I5100;" % FOR ";Y;" YEARS":9900 [,N100:"HOW MANY DEPOS/WITHDRAWALS PER YEAR ";N1::N10113277,"AMOUNT OF DEPOS/WITHDRAWAL.........$";R::N360:L2N1:11332?,"COMPOUNDING PERIODS PER YEAR.......#";N::N10:L246D,"STARTING WITH WHAT YEAR......(1-30) ";X::"STOP PRINTING WIT(1Y)1)100;" %":255::9900:"WANT ANOTHER RUN (Y/N) ? ";A$:A$"N"11228Y+11200a+90$,:9000:7);"((( EARNED INTEREST TABLE )))"::9000:::"ENTER PRINCIPAL AMOUNT...........$";P::"NOMINAL INTEREST RATE............%";I5=/,:I5I5E66N13,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:J0X15570h4+@^"$"HM$"J;;LK;;;AJFLSKDJF;;JF;ALSKDJF;ALSKDJFFJJFJF;ALSJFKDASDFJKL;"<%"WA$"FADS SAD ADS FA JAFFAASK JA FALL LADS;JADE SLIDEK:";#hA(16384):A1288030D#j16368,0:SLA12848:SL18030S#lSL38030}#n19:1:868:15:510:" THANK YOU "#"LZ175:KZ59:RZ27:WZ267:WX24#"WD(14),D(KZ),E(KZ),F(KZ)#"M(82),N(82),L(LZ),S(127),K(3),P(10)$"I182:M(I)0:N(I)THE IMAGE PRODUCER PRESENTS"%"E510O"J5:10:510:"* * TYPING TUTOR * *"z"O7:9:510:"(C) 1979 MICROSOFT, INC.""T12:16:510:"1. LETTERS":14:16:510:"2. NUMBERS""Y16:16:510:"3. SYMBOLS":510#^19:8:"SELECT KEYS TO LEARN (1-3)!l24:16:510:"SELECT(1-4)";;!A(16384):A1287110`!16368,0:AA12848:A219300r!A1A47110!A22000!A45000!A(2A)(SP5):A0A1!SPSPA:2000!A(16384):16368,0:A128137350!"@:510:3:7:"6100 L(J)SP61001 ZZ1:F(Z)P(J):6200M XX1:D(X)P(J):STST1_ 8J:ST36000k B:2500 X19:8:510:"1. ALLOW SLOWER RESPONSE":8:510:"2. SAME RESPONSE" b8:510:"3. REQUIRE FASTER RESPONSE":8:510:"4. PRACTICE PARAGRAPH"40:I03:K(I)D(X):XX1:XXNXNX3rX06400:tIzI((1)4):W((1)4):J14:P(J)K(I):P(J5)K(W):II1:WW1:I0I3|W3W0~J7:15:J110:C$(C$,J1)(E$,P(J)128,1):J:C$;:IX10:8:15:100 ST0:J69:L(J)SP:510:15:"** BEGIN **";#23000nP21:10:510:"1. TYPING LESSONS":22:10:510:"2. ANOTHER PARAGRAPH"Z510:24:14:"SELECT (1,2)";dA(16384):A1285220i16368,0:A1559300nAA12848:A12000xA250005220%p:SPJC225)5:X$(WF$,JC4,5) t*::510:" THIS PARAGRAPH IS BEING CONSTRUCTED BASED ON YOUR RESPONSE TIMES IN THE LESSONS"6:4000 I14:I:868:I#I13:510:2:15:"** BEGIN **";(500:15:" ";:IA$,JC54,5):4980".JC904920J3JC(JC45)5:X$(WB$,JC4,5):4980[8JC1354930=JC(JC90)5:X$(WC$,JC4,5):4980BJC1804940GJC(JC135)5:X$(WD$,JC4,5):4980LJC2254950QJC(JC180)5:X$(WE$,JC4,5):4980VJC(L:X$(X$,JC1)&J(X$)394530JJ1:C$(C$,I2)(13):::500C$(C$,I1(I1))X$:JJ(X$)1:(C$,I);:510:II(X$):C$(C$,I1(I1))" ":II1:" ";:ILZ154050II1:C$(C$,I1)(13):IXI::500:$JC454910)X$(W)",":JCJC1:L((1)10)31:X$(X$,JC1)(KY$,L,1):JCJC1jX$(X$,JC1)")":"MID$"(X$,4)4500X$(X$,JC1)",":JCJC1:L((1)10)31:X$(X$,JC1)(KY$,L,1):JCJC1:X$(X$,JC1)")"K(X$):JCK1:LK11:" "(X$,L,1)JCLX$(X$,JC1)"(":JCJC1L((1)26)1:M((1)26)1:X$(X$,JC1)(AL$,L,1):JCJC1:X$(X$,JC1)(AL$,M,1):JCJC1:X$(X$,JC1)"$":JCJC1X$(X$,JC1)")":("LEFT$"(X$,5))("RIGHT$"(X$,6))("MID$"(X$,4))4500>X$(X$,JC1:4230l|L((1)10)31:M((1)10)31:X$(X$,JC1)(KY$,L,1):JCJC1:X$(X$,JC1)(KY$,M,1):JCJC1X$(X$,JC1)")":"SCRN"(X$,4)4500X$(X$,JC1)",":JCJC1:L((1)26)1:X$(X$,JC1)(AL$,L,1):JCJC1:X$(X$,JC1)")":4500,1)JCLYL:X$(X$,JC1)o^(X$"ASC")(X$"VAL")(X$"LEN")(X$"LEFT$")(X$"RIGHT$")(X$"MID$")4300hX$(X$,JC1)"(":JCJC1:(1).54220rL((1)26)1:M((1)26)1:X$(X$,JC1)(AL$,L,1):JCJC1:X$(X$,JC1)(AL$,M,1):JCJC1":17:"ED AVELAR":I13000:I:853: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:"BYAS HE HELP HER HERE HIS HOLD AGAIN"& #WB$WB$"HOW LAUGHSHALLSHE SHOW WASH WHEREWISH GR FLASHHGR AFTERAT ATE AWAY EAT EIGHTFAST FIRSTFLY GET GOT "'#WB$WB$"HOT HURT IT ":WC$"ITS JUST LET LIGHTLIST OUT PLAY PUT RIGHTSAY SIT IDS;ARE FAR FULL READ RED RIDE US USE; USR DO; DOES "%"WA$WA$"DRAW FOR FOUR LOOK OF OFF OLD OR OUR SO WALK WAS WE WELL WERE WILL WORK WOULDLOAD KEEP PULL SLEEP"(&#WB$"DSP PDL PEEK POKE POP SPEEDUP GO GOES GOOD GROW HAD HRE WERE ";TT;" DRAWS":::TZTYĺ:"I'M SORRY BUT THE TAXMAN GOT YOU"q4TYTZĺ:"YOU HAVE BEATEN THE TAXMAN"H20:19:"END"::0012:N$;" YOUR TOTAL IS ";Y::"THE TAXMAN HAS ";Z::"THE GAME IS A TIE ":TTTT1::"DO YOU WANT TO PLAY AGAIN ";N$;" ? ";:Z$:Z$"Y"1002000F34,0::6:N$;", YOU HAVE WON ";TY;" TIMES"::"THE TAXMAN HAS WON ";TZ;" TIMES"::"AND THE"SCORE":17:"-----"::::" YOU ";Y::" TAXMAN ";Z::::"CONGRATULATION - YOU WIN ";::" ";N$:TYTY1::"DO YOU WANT TO PLAY AGAIN ? ";:Z$:Z$"Y"Ĺ34,0::1002000.34,0::12:"DO YOU WANT TO PLAY AGAIN ? ";:Z$:Z$"Y"ė:100L20S ARE REMAINING, ";N$::"MY TOTAL IS ";Z:*:ZY900H9YZ1200>::17:"SCORE":17:"-----"::::"TAXMAN ";Z::" YOU ";Y::"THE TAXMAN WINS ":20:"DO YOU WANT TO PLAY AGAIN ? ";:Z$:TZTZ1:Z$"Y"Ĺ34,0::100z2000::17:------":15:"TAXMAN ";Z:15:" YOU ";Y:34,13:M0810\IN41:J2I2:L(J)0700qIJ(IJ)700:::270:::"THE ";A$;" GETS "::I1N:L(I)0780I;" ";:ZZI+ :34,0:::"":2:"BECAUSE NO FACTORS OF ANY NUMBEROUR TOTAL IS ";Y::"THE ";A$;" GETS ";::I1M:T(I);" ";:ZZT(I):0::"THE TAXMAN'S TOTAL IS ";Z:::"HIT SPACE BAR TO UPDATE THE LIST ";:Z$:34,0::3:"THE NEW LIST IS : ":::M0:I1N:L(I)0630bI;" ";:M19v:::"SCORE UPDATE --- ^K1390h:14:"THERE ARE NO FACTORS OF ";K:"FOR THE TAXMAN, ";N$::"ARE YOU TRYING TO SHORTCHANGE ME ?":D12000:::270M0:I1K2:L(I)0460KI(KI)460MM1:T(M)I:L(I)0:M0360EL(K)0:YYK::14:N$;", Y PLAY AGAIN , ";N$;" ?";:Z$:Z$"N"2000: 34,0::100B : 14:"WHAT NUMBER DO YOU TAKE ";N$;" ";:A$:K(A$):K(K)270 ,K11070 6KN340 @:16:N$;", ";;K;" IS NOT ON THE LIST":"PICK ANOTHER NUMBER":270 TL(K)0320zN1N50Ģ6:958:9:"NUMBERS BETWEEN 1 AND 50 ONLY":"OR A -1 TO EXIT GAME":110 |N(N)::3:N$", THE LIST IS :":::I1N:I;" ";:L(I)I::34,10::N1270) :::"VERY GENEROUS OF YOU TO FORFEIT TO THE TAXMAN, ";N$::20:"DO YOU WANT TOOF THE NUMBERS YOU AND THE TAXMAN GET. TO QUIT TYPE IN A -1":::"HIT THE SPACE BAR TO BEGIN, ";N$;" ";:Z$ (L(50),T(10): dY0:Z0:: n3:"TYPE IN HOW MANY NUMBERS YOU WOULD LIKE IN THE LIST (MAXIMUM 50)."::"? ";A$:N(A$):N12000V HE TAXMAN MUST GET SOMETHING EVERY TIME SO YOU CAN ONLY PICK A NUMBER THAT HAS FACTORS LEFT.":22:"HIT THE SPACE BAR TO CONTINUE ";:Z$p :3:"WHEN NONE OF THE REMAINING NUMBERS HAS ANY FACTORS, THE TAXMAN GETS THEM."::"THE SCORES ARE THE SUMS AL ORDER. (YOU CHOOSE HOW MANY WITH A MAXIMUM OF 50)" :"YOU TAKE A NUMBER FROM THE LIST - THE TAXMAN GETS ALL THE FACTORS OF YOUR NUMBER THAT ARE STILL LEFT."::"YOUR NUMBER AND ALL ITS FACTORS ARE THEN DELETED FROM THE LIST." :"T 34,0::A$"TAXMAN":B$"HI, I'M THE TAXMAN":3:20(B$)2:B$;""::"WHAT IS YOUR NAME ? ";N$:::" WOULD YOU LIKE INSTRUCTIONS (Y/N) ?";:Z$:Z$"Y"408 :2:14::"INSTRUCTIONS":::"WE WILL START WITH A LIST OF WHOLE NUM- BERS IN NUMERIC"" " " " " """""""