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`ە 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РϠԠNyM6dUVW,Ya(ՠ̇ɇևŇ)GUVWYa(Ҡ׮)yUVWyY"y_}QXQ'N@p()[(N@p()[)N@p()[*N@p()[+N@p()[,N@p()[-N@p()[.N@p()[/N@p()[0N@p()[1N@p()[2N@p()[3N@p()[4N@p()[5N]VW,Y&YJoPM6dPa(ՠš)[JUVW `Jq.?6?rjJYJM6dUVW,YJa(ŠĠӠ)Ga@Ga()J_y N@p()[!N@p()["N@p()[#N@p()[$N@p()%N@p()[&N@p()[6fgh[0:fUVWlmnYijk[$>flmnlmn[hBlmnlmn[,PFlm!nlm!nijk![*8Jlm!nlm!nijk!BJlm!nLJijk!VJUoPa@G_'=oM6da(էŠ٠ĠԡӠ)G_3poM6da(ĠӬ٠Π)G_>*fijkijkijkijk[.fghgh[2fgh[.?r$YUVPWP`.?r$YUVW;@r`@:@*#r$ qoPa@Ga()q`;@r$yY$`7%\)UVWY.[]ԠUVW q.?6?rY q4Pl mng h g h g h ghZf dl mn q%oUVW;@rPa()GYo%PM6dPa(ҠӠ)GR@`;@r$p\_ q q<@r&UVQWQ;@r` ]Π٠̠Ү]]ϠůĠӬ ]ӠN@"rN@"r M6 q\/?r N LfUVW!(ij k2Y<f Fijk ijk      40,250,260,270,280,290,300,310,320,330,340?,0:X,X3Y1:3T6XX5:X361620b@X0:YY9qJY451470T: GOTO3005^ ****ENDING****hr(4)|"DON'T FORGET YOUR PERCENTAGE, ";B$;:::::"NUMBER CORRECT = ";N;" P,0:X0:Y9'0:S4047:0,39S::36X,X3Y1HC$:C$"*"ĀYC$" "1580hC(C$)64yC$"?"C27C$"!"C28(C$)271470 ** WRITE LETTER ***"C70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,2TIME. I KNOW YOU"@x"CAN DO BETTER THAN 0%. TAKE IT SLOWLY"e"AND CAREFULLY THIS NEXT TIME."::2)"DO YOU WANT TO TRY AGAIN (YES OR NO)?"F$F$"YES"ī400F$"NO"ī1630::1750:1420 ** CHECK WORD ** :16302AN YOU BELIEVE IT?":K(:"DO YOU WANT TO PRESS YOUR LUCK AND TRY"Z2"AGAIN?":b<G$uFG$"YES"ī400PG$"NO"1630U::1750:1320ZPAUSE12000:PAUSE:d(15(((B$)2))):"ALL RIGHT, ";B$;n::"LET'S NOT WASTE YOUR D OK. DO YOU WANT TO SPELL"5"THESE WORDS AGAIN?"=X$PX$"YES"ī400bX$"NO"1630v::1750:1200"YOU DID VERY WELL. WANT TO TRY AGAIN?"H$H$"YES"ī400 H$"NO"1630::1750:1260:"EXCELLENT, ";B$;" CêŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠł 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 Y NUMBER...";CHOICE# $CHOICE0Ā= .D$;"RUN ";A$(CHOICE)D:"MARC OR RANDY, AS THE CASE MAY BE, THIS"Y "IS A PROGRAM FOR A RESOURCE TEACHER AT" "BASE LINE. SHE WILL BE SHOWN HOW TO" "CHANGE THE DATA AND THAT ONLY 8 LETTER" "WORDS MAY BE USED."PAUSE14000:PAUSE:"ERCENTAGE = ";P;)PAUSE13500:PAUSE/9(10)a6)"THAT WAS FUN! COME BACK SOON."k(20)u1760 HOPE, THIS, PROGRAM, WILL, SATISFY, THE,BASIC, IDEA,!,*::"REMEMBER!! SPELL OUT 'YES' OR 'NO'"::150+ :(10)ՠϠөŠϠҠڽϠ̠Ϡөy]Ϊ$~]ŠŠҠǽϠ]Ϊ$]ŠŠҠƽϠ]Ϊ$]ŠŠҠнϠQźŠԠӠԠנȠŠ٠ĠŠԠԠϠŠŠӠQ]V][]`]e]:j]ϠŠŠҠƠӠĠΠ׺o]Ϊpt]ԠҠڽϠ̠ϠӠӠŮ.]23]ՠԠŠ٠ҠҠΠ8]Ϊ:=]ŠӠΠϠŠŠB]Ϊ:G]ŠӠΠϠŠŠvL]ӠΠŠԠҮS]ՠԠŠϠƠՠŠŠϠƠՠŠ9]ŠŠŠԠϠŠŠӠҠ§$]ΪM)]ŠӠΠϠŠŠŠհԠĨY]ӠӠŠŠƠΠӠŠԠӠԠҠԠҠU ]ՠΠŠŠϠҠŠĠԠ̠ŠϠԠҮ]ƠΠC]Ӡ̠ԠנϠŠM6o\/Y_/]ӠҠǠŠȠp]ϠŠŠ̠Ơ٠ԠנŠӠĠנȠŠŠŠ]Π$]ŠӠϠ] `$` $`$ ^q:M6o a(ԠӠŠԠƠ)FE()FGcccS(ҠҠ)'ñ `ñ$UVWdαq.?6?r.?6?r.?6?rY\&a(ŠԠƠ)FE()FE()_jki jki jkijkijk fijkijki jki jki jki jk$i jk%i jk&QCijkijkijkijk$ijk%ijk&Hfij'k'MUVW,Y RKM6WY\[XaLfi jki ij'k"fij'k$*[/UVWX4Lflm&nlm&nlm&nlm&n lm&n lm&n x9lm&nlm&nlm&nlm&nlm&nlm&nlm&nlm&nlm&lmnQlmnlmnlmnlmnlmn!lmn"Dlmn&lmn'lmn#lmn$lmn%D i j kijkijkijkijk9%f ij'k flmnlmnlmnlmnlmnlmnlmnV flmnlmn lmn lmn lmnlmn^lmn lmn lmnlmnlmnlmn ij kij k i jki jk ijkijk<ij kij kij k fij!k Vfij ki jkijklmnlmnlmn xlmn lmnQlm nlm nlm nlm n lm n lm n Qlm nlm nlm nlm nlmnlmnQlmnlmnlm n lm n!lm n$lm n%^i$j%k)c0Pa()cPa()Nca(ҠŠҠŠŠŠ)ca(͠ՠԠϠϠ)c%S(ԠŠΠٮҠ)' M6`$}`$6`$`$a_Lf?eM6o 4a(Ϡά)oS(ԠӠҠŠ)&@_M6o9M6a(ŠŠɠŠȠՠ)M6|1oa(ԠĠƠӠϠՠԬ)H@:o Pa()cPa(ΠϠРՠΠҠȮ)S{o a(ΠՠŠŠǠŬɠ)o a(ǠҠҠ)cUa(ԠŠԠΠĠԠŠ)GM6a(Χ)M6|ca(٠ΠŠԮ)4oS(ϠԠǠԠԠή)&@ d6)5cS(ՠҠ)'ձ :KM6 ?`ձ$bDUVWdIαq.?6?r.?6?r.?6?rNYS\%Xa()FE()FE()]_5b\/gYl_ qM6\voa(ɬɧ͠ŠŠɠҠĠɧ)oa(jki jki jkUVWY_KM6UVWM6o  ^q/?r `c$ ^q/?cr` $ ^q!a()F&a()F+a()0a(?rY\*a()FE()FE()_ KM6\/Y_ KM6_c KM6L<fij'k'ij'klm'n'lm'ncf i jki jki jki jki hUVWmo  r^q/?crw` $r |^q/?cr` $|a()Fa(ؠ)Fa()a()cS(ҠҠ)'ڱ ^q `ڱ$UVWdұq.?6?r.?6?r.?6k ijkijkijkijk^OijkijkijkijkijkijkijkDTijki jki jki jki jkYUVWY^_c cKM6lm'np@fi jk i jki jki jkijkijkijkijk^Eijkijkijkijkijkijkijk^Jijkij kijY\)a()FE()FE()E()_ KM6 \/o Y KM6o 1"S(נԠŠŠӿӭϩ)&@'`@9()$,_1_ 6KM6L<;fij'k'ij'klm'n'^q/?r`c$ ^q/?cr` $ ^qa()Fa()Fa()a()cS(ҠҠ)'ñ `ñ$ UVWdαq.?6?r.?6?r.?6?ri j ki j ki j ki j kQijk ijk ijkijkijkijk7ijkijkijkijkUVWY__ KM6o UVW ca(Š)dca()H()H(Š)iUVWYM6QnUVW Ys_xUVW }KM6L<fij'kij'k'lm'nlm'n'pfi j ki j ki j ki j kccccccc27S(ƠՠԠҠͬŠ˧)&@<cA`@9()$F`@9()$UK`@9()$UP_qUM6o ;Za(̬)E@E()ca(ɠӠɧ͠ԠϠȠҠծ)__a(ŠŠŠήΠՠˠ)a(РϠԮ) M61N@"rC@"rC@"rC@"rC@"r_q M6 ccca(٬)E@#ca(ΧԠŠР׮)/(ca(РǠĠէ̠Ԡҡ)+-ca(Ҡ̠էŠ٠ή)c;2a(ɧ͠ΠŠɠҡ)           2M67qq!<o P a(ŠҠ)%Fo P a(ˠˠ)Pcca(٠Ԡ)ZUVWY \N@"r]cc/_a(ŠҠŠӮ)cc dS(ԠӠҠŠ)&@na(ŪEET=";R;" SQ.CENTIMETERS""740N:5:I;"SQ.YARDS=";R;" SQ.CENTIMETERS"W740jR(I32)(59):5:I;"FAHRENHEIT=";R;" CELSIUS"740:R((95)I)32D:5:I;"CELSIUS=";R;" FAHRENHEIT"N740G10:I;"POUNDS=";R;" KILOGRAMS"'740M:10:I;"KILOGRAMS=";R;" POUNDS"V740~:10:I;"INCHES=";R;" CENTIMETERS"740@:10:I;"CENTIMETERS=";R;" INCHES"J740r:5:I;"SQ.INCHES=";R;" SQ.CENTIMETERS"|740:5:I;"SQ.F 7400:10:I;"PINTS=";R;" MILLILITERS"9740e:5:I;"QUARTS=";R;"CUBIC CENTIMETERS"n740:10:I;"GALLONS=";R;" LITERS"740F:10:I;"LITERS=";R;" GALLONS"P740x:10:I;"OUNCES(DRY)=";R;" GRAMS"740:,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850g:10:I;"TEASPOONS=";R;" MILLILITERS"p740:10:I;"TABLESPOONS=";R;" MILLILITERS"$740L:10:I;"OUNCES(LIQ)=";R;" MILLILITERS"V740~::I;"CUPS=";R;" MILLILITERS"7ĀN8885005:5:"VALUE TO BE CONVERTED";<III777ĀXI888500:EQUATION FOR CONVERSION OF INPUT VALUE TO ANSWER RIC(N):DIRECT CALCULATION TO TO PROPER NAME FOR ANSWER PRINTOUT< N1000,1050,1100,1050,1200,1250"2g24:10:"PRESS RETURN FOR NEXT PAGE";:A$:H: TO END PROGRAMh"TO END PROGRAM ENTER 777": TO RETURN TO INDEX OF MEASUREMENTS:"FOR ACCESS TO INDEX ENTER 888":3:"ENTER INDEX NUMBER OF DESIRED CONVERSION";NN77 INCHES"/I"(14)SQ.INCHES TO SQ.CENTIMETERS"TN"(15)SQ.FEET TO SQ.CENTIMETERS"zS"(16)SQ.YARDS TO SQ.CENTIMETERS"X"(17)FAHRENHEIT TO CELSIUS"]"(18)CELSIUS TO FAHRENHEIT":b"NOTE INDEX NUMBER OF DESIRED CALCULATION.WAIT FOR NEXT PAGEILLILITERS"1!"(6)QUARTS TO CUBIC CENTIMETERS"M&"(7)GALLONS TO LITERS"i+"(8)LITERS TO GALLONS"0"(9)OUNCES(DRY) TO GRAMS"5"(10)POUNDS TO KILOGRAMS":"(11)KILOGRAMS TO POUNDS"?"(12)INCHES TO CENTIMETERS"D"(13)CENTIMETERS TOLIST OR INDEX OF MEASUREMENTS# B 10:"KITCHEN-AID METRICS"a 10:"-------------------" "(1)TEASPOONS TO MILLILITERS" "(2)TABLESPOONS TO MILLILITERS" "(3)OUNCES(LIQ) TO MILLILITERS" "(4)CUPS TO MILLILITERS" "(5)PINTS TO M";:A$:. C(18):DIM.FOR CONVESION FACTORSV :DATA TABLE FOR CONVERSION FACTORS~ 5,15,29.57,236,473.17,946.36,3.785 .227,28.35,.4536,2.205,2.54,.3937 6.452,929.03,8361.3 :INDEX LOOP FOR DATA READ N116 C(N)  :SUREMENTS IS PRESENTED"C P"ON THE NEXT PAGE.NOTE THE INDEX NUMB"m U"ER.ENTER THAT NUMBER WHEN QUERIED." Z"THEN ENTER THE VALUE TO BE CONVERTED." _5:"777 ENDS THE PROGRAM" `5:"888 RETURNS THE LIST" d24:8:"PRESS RETURN FOR NEXT PAGEEMENTS USED IN THE"B :"KITCHEN ARE PRESENTED.FRACTIONAL VALUES"r ;"MAY BE ENTERED.FOR A MORE EXTENSIVE LIST" <"CONSULT THE OTHER PROGRAMS IN THE LIBRARY" F8:"HOW THE PROGRAM OPERATES" H8:"------------------------" K3:"A LIST OF MEAED BY MAX J.NAREFF,SAN FRANCISCO,CA1979*@ (16:"INTRODUCTION"Y -15:"-------------" 25:"THIS IS ONE OF A SERIES OF PROGRAMS" 7"FOR THE CONVERSION OF MEASUREMENTS TO" 8"AND FROM THE METRIC SYSTEM.HERE SOME OF" 9"THE MORE COMMON MEASUR '**************************H ***TABLE OF CONTENTS*******i*INTRODUCTION..LINES 0-200**DATA AND LOOP SETUPS..200-260**INDEX OF MEASUREMENTS..500-615**PROGRAM DRIVE..700-800**ANSWER PRINTOUTS..1000-END*( #PREPAR     _"@p()qq-_'@p(Š)q<qY_(@p(ǠƠ)qPq`_(@p(ҠƠ)qq_'@p(ΠƠ)q7qZ_&@p(Š)qPqc_&@p(ΠŠ@p()qq2_@p()q#q<_)@p(ԠƠ)q#q2_&@p(Π)qUqc_$@p()q2qP_+@p(ˠƠ)q2qP_+@p(ĠƠ)qFqZq/?r&Jcca(ɠԠ)E@E(ԠԠ)GrbE()#|cPa(ɠŠՠ٠Ү)c%a(ŠŠŠ٠)E@qd\T$_6]]ŠŠͯ]q/?r_Ӡ)&Ba(ҠԮŠҮ) Gca@E()Lcca(ҠŠӮ))QUVWYUVW2q.?6?rYTPV^qb/`ca(ƠՠŠĮŠҠҮ)jQa(ԠӠҠŬ)E@T M6a(Ū)ca(ǠӠӠӺ)c$a(ˠ̠נ)a(ˠנ)#$a(ˠ٠).a(ˠ)&8a(ˠԠ)#a(ӠŠҠ)" ca(ԠӠҠŬ)E@T cca(ت)*cc4a(ŠҠ)>a(Š)Ha(ŠҠ)Ra()\a(٠)fa(Ġ٠)zc)$ca@E(ԠӠҠſ)T cca(ĠŪ)cc"a(ӠŠҠ)"a(ӠŠҠ)"a(ӠŠҠ)"a(ӠŠҠ)"a(ӠŠҠ̠ǮԱ)9la(̠ǮԠ):va(̠ǮԠ)8a(̠ǮԠ):a(̠ǮԠ٠ˠĠԠî)(0a(ŠˠƠ)":ca@E(ԠӠҠ)T0Dcca(̭ԥƠԪ)NccBXa(̠ӠΠǮΠԠ)9ba(Ϡ̠)Ga(ŠĠ̠)Da(٠ĠŠ̠)Ka(٠̠ĠŠî)?&a(Ӡӯ)$a(ӠҠ)$a(ӠҠ)-a(ӠҠŠҠ)ca(ԠӠҠſ)T#cca(Ū)ccJa(Š̠ĠӠ)"ha(Ӡ)'ra(ҠŠӠ)|ca(ԠӠҠ)E@T$ca(ϠǪ)ca()ca(ҠҠ)(a(Ҡ)%cS(ԠӠҠԠ)' "ccc,a(Ԫ)26ca(ŠҠϠŠԠ٬)E@6@ca(ŠΠӠנĠ)(Ja(ϠӠĠ)!Ta(Ӡ)"^a(ȠԠŠҠ)Ea(ŠŠȠԠŠҠ)Fa(ϠӠȠԠŠҠ)Ka(ŠӠȠԠŠҠ"cS(ŠŠΠŪ)'ca(٪)-ca(ŠԠҠԠٮ)2ca(ϠΠ٠ƠԠ)Ca(ŠŠȠԠŠҠ)Ma(ϠӠ)c!xa(ԠŠРŠՠο).}ca(ӠŠĠٮ)cca()a()a()a()a()a()W FOR WRONG";:A$A (L$R$)A$"R"ĺ:"YOU ARE CORRECT"::190r (L$R$)A$"W"ĺ:"YOU ARE CORRECT"::270 :"YOU ARE WRONG....SORRY": "NOW SPELL THE WORD ";A$ A$R$ĺ"YOU ARE CORRECT...GOOD JOB!":190 "(A$R$)ĺ"SORRY..CORRECTU WILL THEN BE ASKED TO SPELL"9 "THE WORD CORRECTLY."h "::::::::::::::::::::::::::::::::::::::::s 34,16~ L$,R$ L$"9999"Ĺ34,0::12:12:"THAT'S ALL FOLKS":23: :;"IS THIS WORD CORRECT? - ";L$ : "TYPE R FOR RIGHT OR ELEVISIONC = COLLAGE, COLLEGE, BOOKEEPER, BOOKKEEPER, 9999, 9999k F" SPELLING TEST DIRECTIONS"q Pw Z d"IF YOU THINK A WORD IS SPELLED RIGHT" n"TYPE R" x "IF YOU THINK A WORD IS SPELLED WRONG" "TYPE W"  "YO 2" WYLIE'S SUPER SPELLER"::EL$(25),R$(25)y( HEFER, HEIFER, MORGAGE, MORTGAGE, SORY, SORRY2 RESTARENT,RESTAURANT, HOSE,HOUSE, MAGASINE, MAGAZINE, RECIVE, RECEIVE < ANIMEL, ANIMAL, ANTIBIOTTIC,ANTIBIOTIC,TELEVIZION, T    a(ŠӠҮ)$\# $q!$qqqqq$[%\%H%oa(ӡϠȮԧӠ٠)qqqqq!%\#&%_r$%d"e M6d"e['QP b_$ $qq Pb_$ $qqPb_$$`%_%`$$$oPa(Š)1$d2e?oPa()FE()d2e$_$$d#e M6d#e$oa(٠ġ)"$oP)+$a(ٽР̽ΠŽĠҽ) $ca(РΠĠѠ)-$oS(ԠοƠŠŠŧ)&@$oD$`@9()$$`@9()$$`@9()$$`@9()$$`@9()$'_$ $qqPb_$ $qq٠#]#UVWqY#[#]#]Ԡ$]$M6o$[T$]^$]Šh$] r$d"e  |$M6 $d"e.$a(#]#]#] #]Ԡ٠٠!#]'(#oa(Š٠ҠϠ))#d6?ed6@e  *#q.?6@r-#`$2#_*#2#d6?e[#]#]#]Ӡ)#a(ԠӠРϠҮ)\#]oPa(ŠŠԠҠƠŠΠՠԠϠŠŮȠŠՠϬ). a(ԠƠŠՠ̠ŠϠ)% a(Š̠נΠŠŠخ)  q+ \# \T$#] d2ea()-o P a(ӠӠӠŠũ)MoPa(ՠРŠҠԠŠ)a(Ӡˬ)E@E()\(#\#-a(Ҡ٠ӠϠԠȠŠԬ).a(ȠӠӬĠĠ٠Ԡ)\oPa()fPa()Pa()pPa()z\#2oP d2e?a(ҠӠө)\#5d2eoP a()4o P d2e?a(Š٠ө)\#0o PӬՠԠŠŠˠŠԠƠ) a(ٮ)o%\#d2e?(*Pa(ӠӠĠǠ) /d2e4\(#>\#.HPa(Š٠ϠŠԠŠӠ)-Ra(ԠŠӠ͠ŠҮ)"WoPa(ź]]נϠŠ]\#3oa(ԧӠŠŠɠ͠Ǡ)+a(Ơ٠ǠӬ)E@E()\#1 ca(͠ŠŠҠ̠Ϡ٠ծ)\#Ta(ŠŠҠӠŠΠ)qKq__#@p()qq'_ @p()q(qZ_&@p(Ҡ)qFqb_&@p(Ҡ)qKqc_'@p(ΠƠ)qq<_!@p()q-qP_[]? 3R150!(R(2R6<1139,79=FR R M6Y bG \ [ ]٠ϠŠ ]ԠέŠ \ UVW Y []ǠŠ a()G[M8r%b-rGu\ zYoPa(͠)Fo \ \ S(ҠͿ)&@`;@r$`@*#r9()$n M6Q!]ԠͬԠ]ԠԠUVW` %r q UVW*q -r 4q >q HqM`$zRoPbGT\  Wq#\oPq\#aoPa()G\ "foPq\p`q<@*#rr` $-8rrq&Y XM6*]oPUVWa()GYboP8rla@GvPa()GUVW b-rGY\\ &q8-r -rr -r q-Ġ͠Ϡ)_ ,UVW6q<@*#rr@` $J-rqTY ^-rqS(ҽ)&@ q;@r`$+a(ŠŠҠϠҠŠ)_-rq UVW ]Ǡ]dN@" rD4 rD4r nKM6xS(ԠҠ׿)&@`;@r$x q`@*#r9()%q`@*#r9()%q`$xS(Ľ)&@ q;@r` $,0a(Š  E'MOL(ARAMINE)" 100,500,0: "NITROPRUSSIDE(NIPRIDE)"I 50,500,1R ""X GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY AUTHOR.. JEFFREY Y. SUE, M.D. LAST MOD. AUG. 1979 'IV DRUG DOS MIX,& CC OF MIXTURE,K FLAG=0 IF USUALLY IN MG/MINq FLAG=1 IF USUALLY IN MCG/MIN "DOPAMINE" 200,500,1 "ISOPROTERENOL(ISUPREL)" 2,500,1 "LEVARTERENOL(LEVOPHED)" 4,1000,1  "METARAMINDER THE DIRECTION OF A LICENSED"K"PHYSICIAN. CONCENTRATIONS ARE ONLY"x"RECOMMENDATIONS AND CAN BE CHANGED BY""THE USER."I18000:(16384)1272295: NO KEY PRESSED16368,0:I8000: STOP EARLYI: DATA DRUG, MG TO11!fS$"JEFFREY Y. SUE, M.D."9p(20((S$)2)):S$Az15p" AN AID TO CALCULATING THE DOSAGE OF""COMMONLY USED INTRAVENOUS DRUGS." NO GUARANTEE OR OTHER WARRANTY IS""EXPRESSED OR IMPLIED. USE SHOULD BE" "UN I1K#I;") ";D$(I)* I2%I1L*:"SELECT DRUG #:";I_,I0IK2050j-MMIN0.DRUG$D$(I):MICROF(I)0MGM(I):CCC(I):MCCMGCC:4 HELLO MESSAGE>:6HS$"IV DRUG DOSE CALCULATOR"R(20((S$)2)):S$\01395"_POUNDSV:KGPOUNDS2.2NdLAST1390: LAST=0 => MG/MIN SPECIFIEDgiMKGMINMMINKG:1395nMMINMKGMINKG: MG/KG/MIN SPECIFIED LASTs900:2100I1ND$(I):(D$(I))0IN:2040M(I),C(I),F(I)KII`CMINV:MMINMCCCMIN"j900:6 CONCENTRATIONM12:200:V01250\MGV:1270s13:200:V01270|CCVMCCMGCC:900: WEIGHT16:2002V01360<KGV:POUNDSKG2.2:1380A17:POUNDSKG2.2P17:200ZVT0: MG/MIN SPECIFIED LAST5KG0MKGMINMMINKG?1080R5:200:V0ıy$MKGMINV:MICROMKGMINMKGMIN1000)LAST1:MG/KG/MIN SPECIFIED LAST.KG0MMINMKGMINKG8MCC0CMINMMINMCCB900:L8: RATEV200:V01130CMIN KG0MKGMINMMINKG1 4:TMMIN:400F 5:TMKGMIN:400e CMIN0Ģ8:300:CMIN60; 12:300:MG;:13:300:CC; KG0Ģ16:300:KG;:17:300:POUNDS;  4: DOSE 200:V01050 MMINV:MICROMMINMMIN1000LAS20:L1) "ENTER NUMBER THEN RETURN."P "ENTER RETURN ONLY TO ADVANCE TO"z "NEXT FIELD, E TO END, R TO RESTART" "AND S TO START AT DOSE AGAIN."  CALCULATIONS AND DISPLAY CC0MCCMGCC MCC0CMINMMINMCC MMINMCC"M";:MICROĺ"C"; "G/MIN";= 5:L3:"M";:MICROĺ"C";N !"G/KG/MIN";c &8:L1:"RATE:";k 0L3{ :"CC/HOUR"; X12:L1:"CONC:"; bL3 l"MG PER"; v13:L3:"CC"; 16:L1:"WEIGHT:"; L3 "KG."; 17:L3:"LBS."; :210 CTRL-X 300:200-  RETURN; V(I$):R  NOT NUMERIC CHARa "";:255 ,L2:" ";:L2: T0ı 300:MICROTT1000: CORRECT FOR MCG T;:  (40(DRUG$))2:DRUG$ 4:L1:"DOSE:"; L3:00 L2:I$""# (I$)10260< CH$:CH(CH$):CH$;K CH13260` CH3Ā: CTRL-Co CH32250 CH("E")İ900:20:1:958:"THANK YOU AND GOODBYE!": CH("R")Ĭ CH("S")İ300:900::100 CH57CH48270 I$I$CH$ 2 IV DRUG DOSE CALCULATOR:7 JEFFREY Y. SUE, M.D.@<TA JULY 22, 1979ZDFMMINMKGMINCMINMGCCMCCKGPOUNDS0PL11:L210:L321UN10WD$(N),M(N),C(N),F(N)Z2000:500:900d1000n1100x12001300 1          ٠ŠҬîĠ٠ʮghghgh[ gh lmn ijk lmn [0q fijk%ijk&[9M6oa(ŠԠȠ)[QE]Ԡ­ ( lmngh_ T lmnlmnlmnghgh[8& ijklmngh[0 ijk_ Y: lmnghghhijk_ ( lmngh_ X ijkijkijkghgh[E lmnlmnghgh[ _  gh_!fUVWijkYkq/?4rq`-r%_-rqq` %q `%q q` %q[ f_   gh_ E ghlmnlmngh[( gq q_-`б%_.رq.`б%_`б%_$qq\_رqq\_ر$$q\رqUVWYR.`ر%رq`в%_ر`в%_`в%_q\UVWY_]ĠŠ\_^qбqб _.`@9()%_qR@\`@9()%_ `@9()%q`@9()%_]Ӡqqq\ _/`%_q\qq\ '`%_`%_q_\,qqвq`%_^_qвqв _2`%_R@\q`@9()%__]Ġ\бqбq\ `б%_`%_q\q_^oqq_q\qqбq_qбqб _-`%_R@\q`@9()%_qq\вqвq\ O`в%_`%_`б%_fijk%ijk&__qбqбq\ #|`б%_`%__qбqб _| ]`@9()%_`@:()%_C`%_qбqбвqбqq\q\ qq \бqбq\ B`б%_`%lmnijkkq.?6?r.?6?r^llmnlmnijklmnijklmnijk nY_ p]0qoa(ՠΠԠ)UVWY\BrR@\`@:()$qq\^,Jqoa(ՠԠŠ)KUVWY\ T`%_hqq\^qqq\ _2h`б%_rqq\UVWd$if `%f`d%fDjijklmnijkq\qqq\ q\qqqqq >,\`%qбqбq\ q`%_,=@`%_Toa(ϠՠԠſٽӠν)R@A\2B`@:()%_T`%_Jqq\_(ԠҠԠŠӠ)F(UVWq.?6?rYoPT&\fUVW&ij'kY9fij'kij'k'UVW4-rqY5qбqвqqqqq]ӠϠUq.ldO44rd6?eKM6oP a(ŠϠ)a(ԠŠҠî)c%eca(ŠŠǠ)cdna(Ƚ)a(ӽ)a(Ľ)a(ؽԨŠĩ)ca(ŠԠҠ̠Š)GTL/oa          R$ĺ"YOU ARE CORRECT...GOOD JOB!":190Z "(A$R$)ĺ"SORRY..CORRECT SPELLING IS "R$:190L:;"IS THIS WORD CORRECT? - ";L$* :V "TYPE R FOR RIGHT OR W FOR WRONG";:A$ (L$R$)A$"R"ĺ:"YOU ARE CORRECT"::190 (L$R$)A$"W"ĺ:"YOU ARE CORRECT"::270 :"YOU ARE WRONG....SORRY": "NOW SPELL THE WORD ";A$& A$"IF YOU THINK A WORD IS SPELLED WRONG"6 "TYPE W"< c "YOU WILL THEN BE ASKED TO SPELL"~ "THE WORD CORRECTLY." ":::::::::::::::::::::::::::::::::::::::: 34,16 L$,R$ L$"9999"Ĺ34,0::12:12:"THAT'S ALL FOLKS":23:" IPY <CINNABAR,CINNABAR,CHOLESTERAL,CHOLESTEROL,AMMARILLILS,AMARYLIS,SANITARIUM,SANITARIUM,ARIFEROUS,AERIFEROUS,9999,9999 F" SPELLING TEST DIRECTIONS" P Z d"IF YOU THINK A WORD IS SPELLED RIGHT" n"TYPE R" x( TURE,EQUALLATERAL,EQUALATERAL,FELONIOUS,FELONIOUS 2 PANCREAS,PANCREAS,RECRIMMINATE,RECRIMINATE,RHINOSEROS,RHINOCEROS,SEPTENNIAL,SEPTENNIAL,ACCOUSTICS,ACOUSTICS,BACCALURIATE,BACCALAUREATE,DECENTRILIZATION,DECENTRALIZATION,GLAUCOMA,GLAUCOMA,GOSSAPY,GOSS[ 2" WYLIE'S SUPER SPELLER"::EL$(25),R$(25)1 ( TREMENDOUS,TREMENDOUS,RELIINQISH,RELINQUISH,ROSTROM,ROSTRUM,SEGRAGATE,SEGREGATE,ACTIVATOR,ACTIVATOR,ADVOCACY,ADVOCACY,BEGIONIA,BEGONIA,CHARACTARIZE,CHARACTERIZE,DIVESTITURE,DIVESTI      EADING AND DANGEROUS."(fK118000:K0p19^ BASED ON A PROGRAM BY JEFFREY DACH M.D. 909 ROSCOE CHICAGO,ILL.60657 COPYRIGHT 1978 APPLE COMPUTER, INC.KED TO BE USED AS A SINGLE"G "TOOL WHICH, ALONG WITH MANY, MANY":Q1u*"OTHERS, CAN LEAD A QUALIFIED PHYSICIAN"4"TO A PROPER DIAGNOSIS."9>"ANY USE BY A NON-QUALIFIED PERSON TO"H"DIAGNOSE ANY CONDITION WOULD BE"R"GROSSLY MIS-LERROR IN RESULTS. PLEASE RE-ENTER.":K12500:K:REPT1:90J:15:10m"UNABLE TO RESPOND":"END"::5:" COPYRIGHT 1978 APPLE COMPUTER, INC."K12500:K12 "THIS PROGRAM IS FOR PHYSICIANS ONLY!":"IT IS DESIGNTICAL DEFECT":"HEMANGIOMA"M0"ANEURYSMAL BONE CYST":"SOLITARY BONE CYST"2"EOSINOPHILIC GRANULOMA":"MULTIPLE MYELOMA":"METASTATIC NEOPLASM"4::::z"ANOTHER DIAGNOSIS? (Y/N)";A$:(A$,1)"Y"90"END":90<REPTė:15:"90PY(I)J1 ī790=: DIAGNOSIS$(I) ;24);PY(I)DIKJ*:" HIT ANY KEY TO CONTINUE ";:16368,0:A$,::"DIAGNOSES NOT CONSIDERED:".:"ENCHONDROMA":"OSTEOCHONDROMA": "OSTEOID OSTEOMA":"OSTEOBLASTOMA":"FIBROUS COR)P(5)P(6)P(7)P(8)P(9)@:"DIAGNOSIS","PROBABILITY IN %"]I19:PX(I)P(I)PDENOMqPX(I)PX(I)100PY(I)(PX(I)10 .5)10:I19:PY(I)50ī730: DIAGNOSIS$(I);24);PY(I)J50 01I19 PY(I) J ī7RO3DES2GADE16&DES4GADE188GADE0ī1000:"RADIOGRAPHIC GRADE=";Z$(GADE13):"PREDICTED FIVE YEAR SURVIVAL=";Z$(GADE8)I19:P(I)PB(I,0)PB(I,AGE)PB(I,L1)PB(I,L2)PB(I,SIZE)PB(I,MA)1012PDENOMP(1)P(2)P(3)P(4NE PRESENT"5v20:"MATRIX MINERALIZATION TYPE";MINU{MIN1MIN4Ģ20:958:630nDES1PRO2GADE14DES1PRO3GADE15DES2PRO4GADE16DES3PRO5GADE17DES4GADE18PRO5GADE18PRO4DES3GADE17P(X"TYPE OF BONE PROLIFERATION";PROH]PRO1PRO5Ģ20:958:600Na|b" DETERMINATION OF RADIOGRAPHIC GRADE"g:"****** MATRIX MINERALIZATION **********"l:"1) FLOCCULENT OR SOLID"n:"2) LUMPY"p:"3) CLOUDY" q:"4) NOS TRIANGLE"3?:"3) IF PRESENT; CAN BE EXPANDED"F@" BUTTRESS"fA" ONE CODMAN'S TRIANGLE"D:"4) IF PRESENT;MOTTLED: NO BUTTRESS: ONE OR MORE CODMAN'S TRIANGLES"N:"5) IF PRESENT;MOTTLED: NO BUTTRESS: TWO OR MORE CODMAN TRIANGLES"WN ***********"l"1) MUST BE SCLEROTIC RIM;CAN BE EXPANDEDSHELL 1 CM. OR LESS ABOVE SURFACE OF CORTEX"5" BUTTRESS: NO CODMAN'S TRIANGLE"::"2) MUST BE SCLEROTIC RIM; MUST BE EXPANDED SHELL GREATER THAN 1 CM." ;" BUTTRESS: NO CODMAN'ERIPHERAL ZONE,"0" CORTEX NOT PENETRATED"]: "3) MOTH EATEN, CORTEX PENETRATED": "4) PERMEATED, CORTEX PENETRATED":37,19:"BONE DESTRUCTION PATTERN";DESDES1DES4Ģ20:958:435:2"********* BONE PROLIFERATIO) NONE(19)";MA).MA12MA13MA194002/300d:" DETERMINATION OF RADIOGRAPHIC GRADE":"******* BONE DESTRUCTION IF PRESENT ****""1) GEOGRAPHIC, CORTEX NOT PENETRATED":"2) GEOGRAPHIC POSSIBLY WITH 1 CM. MOTH EATEN P LESION LOCATED? (4 OR 5)";L11L14L15ī270l20:958:"WHERE IN THE BONE IS THE LESION? (6-9)";L2L26L29ī280"20:958:"WHAT IS SIZE OF THE LESION? (10 OR 11)";SIZE$SIZE10SIZE11ī290,20:958:"MATRIX-BONE(12) CART.(13L AND FLAT (5) LONG BONEJ:"6)EPIPHYSIS 7)PLATE 8)METAPHYSIS 9)SHAFTk"10) 1-6 CM. (11) >6 CM.":"12) BONE (13) CARTILAGE (19) NONE"20:958:"WHAT IS PATIENT'S AGE? (1,2,OR 3)";AGEAGE1AGE3ī26020:958:"WHERE ISMAY NOT GIVE THE CORRECT DIAGNOSIS. FINAL DIAGNOSIS CAN BE OBTAINED ONLY BY BIOPSY" n" HIT ANY KEY TO CONTINUE";:16368,0:A$ :" BONE TUMOR DIFFERENTIAL DIAGNOSIS" : :"1) <21 YRS (2) 21-30 YRS (3) >30 YEARS:"4) SMALC CLINICS OF NORTH AMERICA"+ `"IN 1963."X b:"THE PROBABILITY OF THE DIAGNOSIS IS" c"CALCULATED USING BAYES' RULE FOR THE" d"PROBABILITY OF CAUSES" f:"NINE DIAGNOSES ARE CONSIDERED" iI19:I;4);DIAGNOSIS$(I):[ j:"THIS PROGRAM SARCOMAW > FIBROSARCOMA,OSTEOSARCOMA,PAROSTEAL SARCOMA ,EWING'S TUMOR,RETICULUM CELLu F I19: DIAGNOSIS$(I): PI19:PB(I,19)1: Z:" THIS PROGRAM USES A PRIOR PROBABILITY" \"MATRIX PUBLISHED BY G.S.LODWICK M.D. IN" ^"THE RADIOLOGI,5,85,90,15,85,0,0,0,5,10,20,65W !5,10,25,65,20,80,50,1,85,80,15,85,0,0,0,0,20,30,50m 1I110:Z$(I):I 2I-A,I-B,I-C,II,III,"95-100%","40-95%","25-60%","15-35%","4-15%" 7QĿ <GIANT CELL TUMOR,CHONDROBLASTOMA,CHONDROMYXOID FIBROMA,CHONDRO35,65,40,1,85,65,20,80,5,65,15,20,25,25,15j 10,20,20,60,5,95,55,0 ,90,65,20,80,25,2,0 ,10,40,30,20 25,65,25,10,10,90,30,05,95,75,15,85,98,05,0, 0,10,30,60 5,20,35,45,0,100,30,1,100,50,25,75,100,5,15,25,55,5,0 15,70,25,5,35,65,20 :2000PB(9,19);I19:J018:PB(I,J)::x15,20,35,45,20,80,99,1,100,20,40,60,1,0,15 ,35,50,0,05,75,20,5,20,80,100,50,75,0,90,10,0 ,30,50,35,15,0,03,50,35,15,30,70,30,20,100,25,85,15,0 ,2,85,15,1,0,0* 17,25,25,50,        ՠ̠ΠŠŠŠ)-a(ΠӬӬӠҠ))a(ՠԠԠԠԠĠРϠ)a(Ԡ̮)\(#\\#,].]0]ŠŠ2]6qd\@qȠ)cR@\#a(ɠ)E@-oa(ӠӠŠŠƠȠ)o\#,Pa(ĠՠŠǠŠ)+a(ҠԠŠ̠٠Ů)\#.ca(ɠ̠٠ӠĠŠՠ).a(0M6N@"(rN@"rN@"rN@"r]]ȠҠ]Ġ٠]o, a(ŠϠŠŠƠȠҮ)6 oa()c8ca(ŠΠҠŠĠΠ       [ ˠԮ)c%a(ԠΠŠΠӮ)c%a(ԠΠŠˠӮ)cc$a(Ӡ٠٠ϠР®) UVWXY[Q KM6o P) a(ԠŠҠî) UVW Y)_kLa()_kVa()_k`a(٠)_kka(Ҡſ)Glq.?6@r`$m_lmd6?ecn`<()r$Qt[ KM6cc'P8ra(ˠŠР)ca(ՠԠӮ)c$a(ԠΠŠ`%%q\_qq+a(ӠԠ)FE(Š)F`$ cc_t"qa(ŇҪ)+$a(ҠŠƠ)FE(ԠƠӠ)G._`8 8rr8a()_kBa(ghgh`(%gh`(%gh`(%gh [ UVW*Y4[ f\ ghf\#qqq`#%q`$%qghlghghv[f&ghghgh f/ghghghgh[]`6%gh`6%gh`6%ghghghgh[]ԠŪ&f&0ghghgh :f&DghghghN[>Xghghghghghghghghghghghghghgh7ghgh$J"`$J,qqq 6f @ghJqq\T`$h^qq\&h`$r`=>r$w`=>r$|qq\ fȲ\q&ij'k' qq%q f\X f\\ `$qf`=>rȲ$  qqq/?r \ `$ f\q.?6@rd6?e`$J` \ ]\qqq  q L q q q  Ȳq q q qq2\dqq'qnfxUVW%ij'kYfȲij'k          '*,,,,3----$????''$% #`6.-%-%$??????46.---$?-/5?->/&5>%,$,---??75-?.=7-?.=7-?.=7-?6-5666>???????'$$$,->%,$,---??75-?.=7-?.=7-?.=7-?6-5666>???????'$$$,-/=$/=$------------''''TU/T8ePT ?UeRU @QJJJ`ŴxaI1S-Q/ ?QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! &#` L# !" #`#&/TeRTUU+5&E%0Q&&S [TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&.if&JJJJS)PIȄR-Q?eQ _$ .WS.)`*()H)&JJ&&h' &' &' f&') .'#i-|0J, i` @ &Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+- 8gh dYY fo[%h`$joPd6?eM6dKid2e?Pa(Ӡ΢ϠР)d2eqd6?e:jq.?6@r`$jd6?e`%[_Gd6?eLf UVW'Xij'kYKM6Kd6e-\oPa(Ӡ͢Ҡ̠)*]Pa(ӠâϠԠ)G[Q^-rq-rq -rq -rq-rq]Π)_UVWUV W ]נ`q81? rr81?rrbf-r_5 Lq,PqUVWX`P%qxR\q\Y-TM6oa(ޠ)GPa(Ԡ)KV@p(ŠΠҠԠ)2Xoa(ҭŠϢŠ) Zd"q@q00<q88r88@rrrqLq'>q88rr880rr@qu\9Aq.?6@r`8r8r %\h`%_B` %\D``%\F`@%\H`78 r%\ JY\q\q\]ŠU2q/UVW\Yq0q\q1\q2UVW\Y3d6?eL\^)4qdqdqqdq 5qqUVWpX"8qd ed!e:P a(٠̠)oa(ԠŠҠ)UVWY&d,eO4rN@"Hr-(qqq3qqq*M,q\L.qhqc\0qqq\I1qqpq"\q|)UVWq.?6?8rrY[d2e?o5 q88 rrP a@*#rGd2e[3"d ed!ed"ed,eM[V$qq"qqKM6o a(̠ΠŠ)Y%oq\q\qqq[/qqvq\q6q\[q(\\[/qqq\q6q\[q(\\[Nq.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r _d"ed,eM[0d&ed$ed%ed'eM[#qqq\q\ qq\q\9 qq\q\qq\\q*q\qq\qq0q     z#??Xó    Ġ ٮʰ ͠ ̠ Ӡ ɮ֮ǠҠ ǠΠ ҠӠΩŠԠàׯΠ  Ҡà Ԡˠ!٠ԠǠŠŠˠŠР ŠҠӠ ˠϠՠ٠&ӠԠǠǠӠΠ""Ǡܙݙᙯ` ??<<<<<<<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`  'ʅ˅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    "";"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)"**************  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%RQrU 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 ,       MAKING CHANGE,METRICS (KITCHEN),MORE DIFFICULT ARITHMETIC W/GRL  HANGMAN] (NN1:A$(N)x 2A$(N)"9"NN1:1010 <40  9 15::"DISC MENU":: " ";0;". EXIT" X1N:X10ĺ" "; X;". ";A$(X): 23::" CHOOSE PROGRAM B> A$(80):D$(4)-D$;"NOMON C,I,O":PHARMACY,DISCONTINUOUS OPT PRICING,SELLING APPLES,HANGMAN 2, SPELLING,SPELLER GROCERY LIST,HEART ATTACK, ENGINE, SINK THE SHIP, BONE TUMOR DIAGNOSIS,BLACKJACK> I.V. DRUG CALCULATOR,LONG DIVISION, FINGER"?K1500:KQD"A MAN COMES IN WITH THE FOLLOWING":"PRESCRIPTION:")I:5);" JOHN SMITH ":5);" 2112 NW REGINALD PL. ":5);" PORTLAND,OR 97221 ":5);" ":5);" PERCODAN E CONTRARY!!":PRPR10:5502A5A2PRPR5S&"THE CORRECT ANSWER IS # 2"]05000:D0ĺ"MR. ROGERS RELATIVES HAVE COME TO PAY":K1200:K:"NOT MONEY, JUST A VISIT":"WHEN THEY LEAVE YOU HAVE A BROKEN TYPE":"WRITER, AND A BROKEN TYPING SHOULD TAKE TO":"INCREASE HIS LIBIDO""(1) HALOPERIDOL":"(2) LEVODOPA":"(3) PRIMIDINE":"(4) LITHIUM":"(5) BOOZE":"(6) BETHANIDE""WHICH ONE ";AA2ĺ"MAGNIFICENT, YOU OBVIOUSLY KNOW":"SOMETHING ABOUT THAT":PRPR15A5ĺ"QUITE THA4ĺ"CORRECT ! VERY GOOD ":PRPR10rA4ĺ"THAT'S WRONG, DUMMY!":"THE CORRECT ANSWER IS # 4":PRPR5:5000D$" HAS ANOTHER QUESTION ":D0ĺ"AND THAT'S STRANGE BECAUSE HE'S DEAD"&"HE WOULD LIKE TO KNOW WHICH OF THE":"FOLLOWING DRUGS HE E$;" HAS ANOTHER QUESTION.":"OF THE FOLLOWING ITEMS:""(1) COCAINE":"(2) ELAVIL":"(3) METHYLPHENIDATE":"(4) METHOTRIMEPRAZINE":"(5) EPHEDRINE":"(6) DIETHYLPROPION""WHICH WOULD MOST INCREASE THE CLINICAL":"EFFECT OF GUANETHIDINE ";A%RPR10KA1A3A5ĺ"THAT'S WRONG! THE CORRECT ANSWER IS (4)":PRPR5U5000A$(3)""A$(4)""ĺ"MR. ROGERS IS SLIDING DOWN HILL.":"HE MAY NOT LAST MUCH LONGER BECAUSE YOU FAILED TO SOLVE HIS PROBLEM CORRECTLY.":DD15D0100007"(2) FOOD"("(3) CEPHALOSPORIN">"(4) PROBENECID"V"(5) ERYTHROMYCIN""INCREASES THE EFFECT OF PENICILLIN ";AA4ĺ"THAT WASN'T VERY DIFFICULT, WAS IT?":PRPR10A2ĺ"YOU SHOULD BE ASHAMED OF YOURSELF!":"ARE YOU JOKING?":PHOULD HE MOST AVOID WHILE HE IS TAKING SULFONYLUREA ";AVrA1ĺ"RIGHT!":PRPR5wA1ĺ"WRONG!! HE SHOULD STAY OFF THE BOOZE":PRPR10|5000E$;" CALLED AND HAS A QUESTION.":"WHICH OF THE FOLLOWING SUBSTANCES:""(1) TETRACYCLINE"BLEM CORRECTLY":"AND YOUR PATIENT IS DOING MUCH BETTER"IJDD15:5000j^D0ĺD$;" HAS A QUESTION."h"OF THE FOLLOWING SUBSTANCES:"j"(1) ETHYL ALCOHOL"l"(2) COUMERIN"n"(3) INDERAL"p"(4) CHLORAMPHENICOL";q"WHICH OF THESE SR. ROGERS RETURNS":I17:A$(I)""ĺ"(";I;")";A$(I)::I 6"WHICH IS THE SECOND DRUG THAT YOU WOULD LIKE HIM TO DISCONTINUE ";X:A$(X)""ĺ"YOU HAVE ALREADY DELETED THAT ONE." ;A$(X)""3008@A$(X)"":A$(3)""A$(4)""ĺ"YOU HAVE SOLVED THE PRODD5:5000:1903 X6PRPR50:D0:5000:10000@ T3320` X4000,4000,4100,4200,4300 "THEY NEED HELP UP FRONT!" I17:"(";I;")";C$(I)::I "WHO DO YOU SEND ";Z:Z1Z7220 Z7000,7000,7100,7200,7300,7400,7500:5000: ,"MNY OF THESE DRUGS. BUT, HE AGREES TO ":"STOP ONE PER DAY IN ORDER TO CURE HIM" "WHICH ONE SHOULD HE STOP USING FIRST ";X:A$(X)"" X1X2PRPR20:DD20:5000:190 X3PRPR5:5000:190 X4PRPR10:DD5:5000:190 X5PRPR3:00:"MR. ROGERS IS SUFFERING FROM NAUSEA,"n n"VOMITING,CRAMPING, AND DIARRHEA.":"HE'S VERY UNCOMFORTABLE." x"THE CURRENT LIST OF MEDICATION HE IS":"TAKING FOLLOWS:": I16:"(";I;")";A$(I)::IO "HE DOESN'T REALLY WANT TO DISCONTINUE":"ATHESE" :5:T0:D100:PR0 "WELCOME TO THE GAME OF PHARMACY":"CAN YOU KEEP YOUR PATIENT ALIVE,":"AND YOURSELF OUT OF TROUBLE? WE'LL SEE!" J1200:J (5000:"DO YOU NEED INSTRUCTIONS ";A$:(A$,1)"Y"İ6000 2I11000:I* dD90:50$ 100lC$(1)"KIM":C$(2)"RICH":C$(3)"PAUL":C$(4)"NADINE":C$(5)"JIM":C$(6)"STEVE":C$(7)"NO ONE" D$"MR. ROGERS":E$"MRS. MURPHY" A$(1)"ASPIRIN":A$(2)"DIMENHYDRINATE":A$(3)"SINEQUAN":A$(4)"LINCOMYCIN":A$(5)"SUCARYL":A$(6)"NONE OF               &dI110000:Id&X"NOT TOO WISE!THE PHARMACY LOSES EFFICIENCY WHEN ";C$(X);" IS GONE ":PRPR1:&"GOOD THINKING!TRULY A MANAGERIAL LEVEL":"DECISION":PRPR1:& "THAT IS AN ACCEPTABLE CHOICE,BUT YOU":"WILL RECEIVE NO POINTS FOR IT":a'"AR":"YOU NEED INSTRUCTIONS?":"YOU WILL BEGIN THE GAME WITH A PHARM":"RATING OF 0. FROM THAT VALUE IT CAN FLUCTUATE ":"EITHER DIRECTION. PLEASE TRY TO KEEP":"IT A POSITIVE NUMBER!:?"%z"THE PATIENT BEGINS FEELING ALRIGHT-TRY TO KEEP HIM THAT WAY.":THE ABSORPTION OF THE LINCOMYCIN.":"INFECTION IS STOPPED. HOWEVER, HE IS ":"DEVELOPING A BONE MARROW DEPRESSION":$:3:"DAY ";T:"PHARM. RATING ";PR:"PATIENT ";D:TT1:D0ĺ" YOUR PATIENT HAS DIED "$%p"WHAT KIND OF A PHARMICIST ARE YOU?AND HE IS DEVELOPING ":"BONE MARROW DEPRESSION":#h"NICE WORK! LINCOMYCIN WAS CAUSING HIS":"MAIN PROBLEM.HOWEVER,HE NOW IS BWCOMING":"A MANIC DEPRESSIVE."#r"PLEASE SUBSTITUTE A NEW ANTIBIOTIC ";B$:t$"GOOD IDEA-THE SUCARYL WAS INHIBITING":" HIS HANDS"s""HE HAS DEVELOPED A DEPREESION OF ":"BONE MARROW FUNCTION":"YOUR RATING WILL SUFFER FOR THIS.":2#"GOOD THINKING!YOU PREVENTED HIM FROM":"DEVELOPING PARKINSON-LIKE SYMPTOMS":"AND EVENTUAL COMA.HOWEVER,HIS INFECTION":"IS SPREADING "THANKS YOU--BUT,BECAUSE OF YOUR ":"GENEROSITY THE STORE FALLS APART":PRPR10:5000a!( 11000!"THAT DOESN'T SEEM TO HELP HIM MUCH.":"THE LINCOMYCIN IS NOT WORKING ON HIS":"INFECTION.IT IS SPREADING":(1).54020 ""HE'S DEVELOPING TREMORS INE":"NOW YOU MUST ANSWER THE MOST DIFFICULT":"QUESTION OF ALL-- "i "ARE NEIL AND NADINE RELATED ";X$ (X$,1)"Y"ĺ"THOUGHT SO!":11000 "THEN WHY DO THEY BOTH SOUND LIKE SIRENS":"GOING OFF":11000V! "THAT'S EXTREMELY NICE OF YOU AND HE ":S NUMBER 2"|A1PRPR5.A4PRPR10DA3A5PRPR20N2000z5000:CD$"":I150:I:CD$:CD$:CD$"IT'S 4:00 AND STEVE WANTS TO GO HOME":"WILL YOU LET HIM ";Z$(Z$,1)"Y"2500B "HE DIDN'T THINK YOU WOULD AND THERFORNG ONE OF THE ":"FOLLOWING DRUGS WITH RESERPINE:""(1) RIFAMPIN":"(2) INDERAL":"(3)PATHILON":"(4) NEOTRIZINE":"(5) BAMADEX""WHICH IS MOST LIKELY THE CAUSE ";A@A2ĺ"CORRECT!VERY GOOD!":PRPR5:DD10:2000 r"WRONG! CORRECT ANSWER ISE IN BLOOD PRESSURE":"(4) INCREASED LACTIC ACIDOSIS":"(5) INCREASED STOMACH IRRITATION"(A:A5ĺ"MAGNIFICENT!":PRPR20:1500x"NO! SORRY! THE CORRECT ANSWER IS #5":PRPR525000:"MR.PEEBLES SUFFERED AN OVERSEDATION":"REACTION DUE TO MIXI13004"WRONG! CHICKEN LIVERS,YOU DOLT!":PRPR55000:"HERE'S A TOUGH ONE- WHAT WOULD BE THE ":"MOST LIKELY PHYSICAL REACTION IN ":"MIXING BUTAZOLIDIN AND ALCOHOL "Z"(1) EXCESSIVE SEDATION":"(2)DISULFIRAM-LIKE REACTION":"(3) EXCESSIVE RIPR15000:"MR.NEEDLES HAS A QUESTION.":"WHICH OF THE FOLLOWING FOODS WOULD ":"MOST INCREASE THE CLINICAL EFFECT OF ":"NARDIL?""(1) VANILLA MILKSHAKE":"(2)LETTUCE":"(3) CHICKEN LIVER":"(4) BACON":"(5) EGGS"A:A3ĺ" RIGHT!":PRPR5:THROW HIM OUT FOR USING A WORD ":"LIKE DROGGY.".A:A1ĺ"GREED!GREED!-AMPHETAMINES AYBE":"BUT VITAMINS-HA !":PRPR2:12008A2ĺ"VERY GOOD! TOLD THE TRUTH!YOU GET POINTS":"FOR THAT":PRPR5:1200BA3ĺ"I DON'T BLAME YOU ":PRU":PRPR5:90005000:"A MAN COMES IN AND HE SAYS,":"'HAVE YOU GOT SOME VITAMINS THAT CAN ":"HELP ME? I FEEL DROGGY ALL THE TIME-":"JUST PLAIN DROGGY."0"WHAT DO YOU DO?":"(1) SELL HIM SOME VITAMINS":"(2) TELL HIM VITAMINS WON'T HELP":"(3) OR"B" (3)REFUSE TO FILL IT ":"(4) CALL THE COPS ":VV1:AXA1000,1010,1020"THE MAN IS A FELON WHO JUST DUPED YOU":PRPR20:1030"NO SUCH DOCTOR LISTED IN THE PORTLAND":"PHONE BOOK.":PRPR5:700"THE MAN PULLS A KNIF E ON YO ":5);" #100 N5);" SIG:TAKE 2 Q6H PRN PAIN ":5);" 0 REFILLS ":5);" ALFRED J TROPPS MD "XV0"WHICH OF THE FOLLOWING DO YOU DO ":"(1) FILL IT":V0ĺ"(2) CALL THE DOCT SPELLING IS "R$:190`饠 LLL˹Ɂ <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   `LH =<`:11300ʂI:"HE CAN'T FIND YOU-SO HE STEALS THE ":"STORE BLIND":PRPR2:,0 THIS PROGRAM IS THE PROPERTY OF APPLE-PORTLAND,0 COPY BY PERMISSION ONLYDRRY,IT'S SATURDAY. STEVE ISN'T THERE":PRPR2:"HOWEVER,JUST THE SOUND OF HIS VOICE FRIGHTENS AWAY THE KNIFIST":+ 0"THE BATHROOM IS OCCUPIED! HE FOLLOWS":I1500:I:"YOU RUN AROUND THE BACK ROOM AND HIDE "L,p0"HIDE BEHIND THE BOXES OF PAPER TOWELS"GER PRACTICE IN THIS STATE":T3ĺ"OR IN THIS GAME ":11000d*$'"BUT, IN THIS GAME YOU MAY GO ON "j***."GREAT! YOU GOT AWAY!":"HOWEVER, HE STOLE YOUR ENTIRE STOCK OF SCEDULE 2'S":PRPR2:*D/"NOT A GOOD IDEA. YOU WERE SKEWERED":11000q+/"SOR YOU":"WHAT ARE YOU GOING TO DO?")2#"(1) RUN OUT THE BACK":"(2)ATTACK WITH YOUR PILL COUNTER ":"(3) CALL STEVE FOR HELP ":"(4) LOCK YOURSELF IN THE BATHROOM":A)#A12000,12100,12200,12300:<*'"YOUR LICENSE HAS BEEN REVOKED.":"YOU CAN NO LONL"SO-SO DECISION.CERTAINLY BETTER THAN ":"STEVE OR JIM":PRPR2:(@"THE POLICE ARE FORCIBLY REMOVING YOU ":"FROM THE STORE AND TAKING YOU TO A ":"PLACE WHERE YOU CAN'T DO SO MUCH DAMAGE":"THE JAIL":11000#)(#"HE'S COMING BEHIND THE COUNTER AFTEEE YOU JOKING? HE'S OUT BACK SMOKING":ACIGARETTEBYTHETIMEHES":?"THEREBNIEIHYSTERICS":PR=PR-5'"YOU'VE GOT TO BE KIDDING!HE REFUSES":"TO GO, BONNIE IS SCREAMING UP FRONT":"AND YOU ARE GOING TO LOSE POINTS FOR ":"THAT DUMB DECISION":PRPR10:D(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     ;" 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    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$:::EPERCENT 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 Z(Q$)3ī13902d(Q$,(Q$)2);".";:(Q$,2);Jn" IN INCOME TODAY"YxT1T1M(I)_mIT1480"THAT MAKES YOUR SALES SO FAR A TOTAL OF $";XXT1:25302600(Q$,(Q$)2);".";:(Q$,2);:". ";I11600W(M(I).2 THINKING!""DAY "ID"CLOSING TIME REPORT FOR "N$"'S"X"APPLE STAND."^ "AT "P(I)" CENTS PER APPLE,""YOU SOLD "N(I)" APPLES."("YOU RECEIVED *** $";2XXM(I)<M(I)02690F2600P(Q$)3ĺ"."Q$;ES AS YESTERDAY";VY$*`W$(X$,1,1);jZ$(Y$,1,1)StW$"L"Z$"M"1220k~W$"R"Z$"L"1220W$"D"Z$"S"1220" THAT IS NOT THE WAY IT USUALLY GOES.""TRY AGAIN."1060 "THAT IS USUALLY TRUE. GOOD(I)P(I1)10001020)X$"RAISED"31060IP(I)P(I1)1050aX$"DID NOT CHANGE"k1060|X$"LOWERED"$."SINCE YOU "X$" YOUR PRICE"8"TODAY, DO YOU THINK YOU WILL SELL"B"'MORE','LESS',OR 'SAME' NUMBER OF"L"APPLOR EACH APPLE";RP(I)2\P(I)1P(I)100880;f900`p"LET'S BE REASONABLE,TRY AGAIN"iz830zP(I)S940C.70N(I)((SP(I))SCN1N1)960C12N(I)(SC1N1P(I)2)M(I)P(I)N(I)100I2I51240PS43.00: PROFIT AT THE BEST PRICE2N1S4130SW"O.K. "N$", LET'S SELL APPLES."]"PRESS SPACE BAR TO CONTINUE."X$ J1IJT *I1627504"DAY ";I>"WHAT PRICE (IN CENTS) DO YOU WISH TO"H"CHARGE FWOULD MAKE EACH DAY."CT5: NUMBER OF DAYS TO SELL APPLESX2(1): THIS THROWS OUT FIRST RANDOM NUMBER P83: LOWER LIMIT FOR "BEST PRICE"P925: UPPER LIMIT FOR "BEST PRICE"S((P9P8)(1)P8)".:"YOU WILL NOT MAKE MUCH MONEY. THE BEST"TD"SELLING PRICE WILL PROBABLY BE"pN"SOMEWHERE INBETWEEN."vXb"YOU SET THE PRICE AND I WILL TELL YOU"l"HOW MANY APPLES YOU WOULD HAVE SOLD"v"AND HOW MUCH MONEY YOUR APPLE STAND"""YOUR APPLES. A HIGH PRICE, SUCH AS "Q"40 CENTS PER APPLE, WILL GIVE A LOT "z"OF MONEY FOR EACH APPLE, BUT YOU ""PROBABLY WILL NOT SELL TOO MANY APPLES."&"AT A LOW PRICE, SUCH AS 1 CENT PER"0"APPLE, YOU WILL SELL MANY APPLES, BUT"(A$,1,1)"N"440* "YES OR NO PLEASE"3 3909 h "I AM SORRY, WHY DON'T YOU GET SOME HELP" "FROM YOUR TEACHER AND TRY AGAIN."   "GOOD, LET'S GO ON. AS I SAID, YOUR JOB " "IS TO FIND THE BEST PRICE TO CHARGE FOR"%, J"HAVE SEVERAL GOOD APPLE TREES SO YOU "[ T"DON'T HAVE TO WORRY ABOUT RUNNING OUT. " ^"YOUR JOB IN THIS GAME IS TO FIND THE " h"BEST PRICE TO CHARGE FOR YOUR APPLES." r |"DO YOU UNDERSTAND SO FAR"; A$ (A$,1,1)"Y"480 1,1)"N"600# (A$,1,1)"Y"280; "YES OR NO PLEASE"D 230J x ""THIS IS A COMPUTER GAME ABOUT SELLING " ,"APPLES. IMAGINE YOU ARE LIVING IN A " 6"TOWN NAMED 'APPLESVILLE' AND YOU HAVE " @"SET UP A STAND TO SELL APPLES. YOU "ILLE APPLE SALES *"@ x4)"* *"l 4)"*********************************"r x I11800 I "WHAT IS YOUR NAME"; N$ "HI THERE, "N$"." "DO YOU NEED INSTRUCTIONS"; A$ (A$,OF THIS PROGRAM IS TO LET STUDENTS INVESTIGATE THE EFFECTS THAT A CHANGING PRICE HAS ON THE P NUMBER SOLD AND INCOME OF A SMALL APPLE STAND. Z4)"*********************************" d4)"* *" n4)"* THE APPLESV1& P(15),N(15),M(225),C(15),B(225),E AUTHOR BOB JAMISONg( EXTENSIVE MODIFICATIONS BY2 DEBBIE PINK AND HELEN WAGNER< THIS IS AN ECONOMICS SIMULATION WHERE STUDENTS LEARN TO MANAGE AN IMAGINERY BUSINESS.[ F THE MAIN EMPHASIS           Y NUMBER...";CHOICE# $CHOICE0Ā= .D$;"RUN ";A$(CHOICE)DMAKING CHANGE,METRICS (KITCHEN),MORE DIFFICULT ARITHMETIC W/GRL  HANGMAN] (NN1:A$(N)x 2A$(N)"9"NN1:1010 <40  9 15::"DISC MENU":: " ";0;". EXIT" X1N:X10ĺ" "; X;". ";A$(X): 23::" CHOOSE PROGRAM B> A$(80):D$(4)-D$;"NOMON C,I,O":PHARMACY,DISCONTINUOUS OPT PRICING,SELLING APPLES,HANGMAN 2, SPELLING,SPELLER GROCERY LIST,HEART ATTACK, ENGINE, SINK THE SHIP, BONE TUMOR DIAGNOSIS,BLACKJACK> I.V. DRUG CALCULATOR,LONG DIVISION," "MAYBE YOU'D LIKE TO TRY AGAIN LATER."0" 10Q$(Q$,1)"0"(Q$,1)"."6!F XX10ĺ".";(Q$,2);I!P (Q$)3ī2650O!Z o!d XX10XX100ĺ".";(Q$,2);!n XX10XX100ĺ;:2680!x ! ".00";! 1390! 31)".00"! 1900! 20)"0";! 1820! "YOU HAVE HAD ENOUGH CHANCES, "N$* *** ROUNDS THE VALUE OF XX TO TWO PLACESF XX((100XX).5)100L y *** ROUNDS TO THE NEAREST WHOLE NUMBER XX(XX)   *** INSERTS ZEROS TO TWO DECIMAL PLACES IN MONEY NOTATIONS-WE HOPE! ( XX(XX100.5) 2 Q$(XX)!< XXBEST PRICE IN"9t "APPLESVILLE THE NEXT TIME YOU PLAY."?~ a N$;", DO YOU OR ANY OF YOUR" "FRIENDS WANT TO TRY AGAIN"; A$ (A$,1,1)"Y"2520  "OKAY, "N$", PLEASE COME TO" "APPLESVILLE AGAIN, GOOD-BYE."  20, NO PLEASE" 2280 JT1)$ TT12. 79088 aB "THANKS ";N$;", FOR SELLING APPLES"L "IN APPLESVILLE. I HOPE YOU LEARNED"V "ABOUT SELLING A PRODUCT, BUT PLEASE"` "REMEMBER THAT THE BEST PRICE YOU FOUND"j "TODAY MAY NOT BE THE 22603"LOOK AGAIN AT YOUR WEEK'S SUMMARY."s"THERE IS A BETTER PRICE IN YOUR SUMMARY LIST, TRY AGAIN."}1920"ONE MORE DAY AND TRY TO FIND THAT""'BEST PRICE'";A$(A$,1,1)"Y"2330(A$,1,1)"N"2360  "YES ORUND THE BEST SELLING PRICE"F\"FOR APPLES THIS WEEK IN APPLESVILLE"Zf"---GOOD JOB!"dp2360vzP1C(T)21902230"THAT IS CORRECT, HOWEVER, THERE IS A""PRICE THAT WILL GIVE YOU A BETTER""INCOME. DO YOU WANT TO SELL APPLES"N APPLESVILLE";I1T(B(I)M(I)/I<K1T1RB(K)B(K1)2090]QB(K)mB(K)B(N1)*** ADDING DANGLING RIGHT ZEROSIN MONEY VALUES QC(K)C(K)C(K1) C(K1)Q*K4P1>HP1S2170R"YOU HAVE FO0271002530:2600+D(33(Q$))@N(Q$)3ĺ".";Q$SX(Q$)3ī1900tb(Q$,(Q$)2);".";:(Q$,2){lIv"WHAT DO YOU THINK IS THE BEST SELLING"I1TC(I)P(I)I"PRICE FOR SELLING APPLES THIS WEEK""IR""SALES WILL FOLLOW:""N"DAY PRICE NUMBER SOLD INCOME":YI1TmXXI:2560:XX;XXP(I):2560Q$(XX):(11(Q$))Q$;XXN(I)N(I)027302560Q$(XX):(21(Q$))Q$;XXM(I)&M(I)G PRETTY WELL."=,"KEEP EXPERIMENTING IN THIS PRICE RANGE"\6"TO FIND THE BEST PRICE."b@J"PRESS SPACE BAR TO CONTINUE"TX$^hIr|T51920"WELL, YOU HAVE BEEN IN BUSINESS NOW""FOR "I1" DAYS. A SUMMARY OF YOU5)1W1500,1540,1570,1570E"YOU CAN DO BETTER. YOU WILL GO"i"BROKE AT THIS RATE! OH WELL,""TOMORROW IS ANOTHER DAY. LET'S TRY AGAIN."1600"NOT BAD, BUT THERE IS A BETTER""PRICE, TRY AGAIN."1600""YOU ARE DOIN THE WORK.":; M$"I'M DREAMING OF A WHITE CHRISTMAS.":nM$"DON'T BURN YOUR CANDLE AT BOTH ENDS.":RETM$"A PENNY SAVED IS A PENNY EARNED.":M$"AN EVIL MAN HAS A BOLD MOUTH.": M$"A WISE SON MAKES A GLAD FATHER.":!%M$"IT IS A SM$"LAUGH AND THE WORLD LAUGHS WITH YOU.":aM$"FLOAT LIKE A BUTTERFLY,STING LIKE A BEE":M$"APPLE COMPUTERS HAVE NO WORMS.":M$"THE LION IS THE KING OF THE BEASTS.":M$"EARLY TO BED, EARLY TO RISE": M$"THE EARLY BIRD CATCHES26,3123:24,31:385=M$"A STITCH IN TIME SAVESNINE.":mM$"A FOOL AND HIS MONEY ARE SOON PARTED."M$"SPARE THE ROD AND SPOILTHE CHILD.":M$"IF AT FIRST YOU DON'T SUCCEED TRY AGAIN":M$"THE QUALITY OF MERCY IS NOT STRAINED.":.3 18,2011:18,8:20,8:385J4:15,2418:15,2420:14,2419:385{)9:17,2215:16,1716:14,22:15,1617:38539:17,2223:16,1722:24,22:15,1621:385=9:24,2517:25,2616>26,3115:14,31:385F9:24,2521:25,2622H ";:1?l"PRESS 'S' TO STOP; RETURN TO CONTINUE.";Mm16368,0hnI(16384):I128622vo16368,0p936:I211128v0:2,221:2,222:1,363:1,362:4,3435:4,3436:9:3,519:17,216:7,1216:7,1222:17,211L(OUT$,I,1)"-"I999#IQ21:1:" ";`I77730021:1:" Y O U G O T IT!"600:5000DJ13:I1100:X(16336):16336,0:I:Y12312:JN22:1:M$;XI11222:Ib24:1:" II1L:(M$,II,1)A$459-II1IIL458;II1457XOUT$(OUT$,L1)A$:459wOUT$A$(OUT$,2,L1):459OUT$(OUT$,II1)A$(OUT$,LII)II22:1:OUT$1:E146424:"MISTAKES:";:I1E:(E$,I,1);" ";:II1E$E$A$-|E1042,1055,1065,1075,1085,1094RI150:X(16336):16336,0:IbEIS3395oE4:38022:1:OUT$E130024:1"MISTAKES:";:I1E(E$,I,1);"";:IE65703001:21:"X X X HIT X X XX$)90A$X$ OUT$OUT$A$:I.22:OUT$G,23:30:"GUESS ? ";o/A$:I(16336)(16336)(16336)~0(A$)3Ā2(A$)48(A$)90303c23:30:" ";hI1LmJI:(M$,I,1)A$I999rItI888375uIJ:450wEE1:2450,2455,2460,2465,2470,2475,2480,2485,2490,2495,2500 (N101)2502,2510,2515,2520,2525,2530,2535,2540,2545,2550,2555,2560,2565,2570,2575,2580,2585,2590,2595,2600 NN1:N1N115 L(M$):OUT$"":I1L A$"-":X$(M$,I,1) (X$)48(,2220,2225,2230,2235,2240,22445,2250,2255,2260,2265,2270,2275,2280,2285,2290,2295,2300 (N61)2305,2310,2315,2320,2325,2330,2335,2340,2345,2350,2355,2360,2365,2370,2375,2380,2385,2390,2395,24006 (N81)2405,2410,2415,2420,2425,2430,2435,2440,2445,267u N2000,2005,2010,2015,2020,2025,2030,2035,2040,2045,2050,2055,2060,2065,2070,2075,2080,2085,2090,2095,2100 (N19)2105,2110,2115,2120,2125,2130,2135,2140,2145,215O,2155,2160,2165,2170,2175,2180,2185,2190,2195,2200V (N41)2205,2210,2215368,0:A$9 936:21:1:"GUESS WHAT THE DASHES MEAN."M N5(111(1))t CC1::7:I039:0,39I:I:1030 N21İ258 N21N41İ259 N41N61İ260 N61N81İ261 N81N101İ262 N101N121İ263 267 258 "THE SAYINGS ARE UP TO40 CHARACTERS LONG INCLUDING NUMBERS AND LETTERS.":_ I12111:I "YOU CAN GUESS ONE CHARACTER AT A" "TIME. ON THE FIFTH MISTAKE YOU WILL BE XXX HUNG XXX.": I11666:I "PRESS ANY KEY TO START. "; 16 E$"":E0CC01954:936:16298,0>::\"FAMOUS SAYINGS HANGMAN":20);"COPYRIGHT 1980":20);"BY MARK CROSS":::I1888:I"THIS IS A HANGMAN GAME WITH":"FAMOUS SAYINGS FORYOU TO GUESS,":I12555:IN           THE GOOD OLD SUMMER TIME":C& M$"I CAME, I SAW, I CONQUERED.":i& M$"HUSBANDS, LOVE YOUR WIVES.":& M$"THE EVIL THAT MEN DO LIVES AFTER THEM.":& N1:261& N1:261& N1:261& N1:261&# N1:261&( N1:261&7'10,2835:UND FOOLISH":'% M$"WE THE PEOPLE":?% M$"TEMPIS FUGIT":k% M$"THE CHILD IS FATHER OF THE NMAN.":% M$"NECESSITY IS THE MOTHER OF INVENTION.":% M$"SEEING IS BELIEVING.":% M$"POOR BUT HONEST":% M$"HANG IT UP, LOSER.":& M$"INLY AS A TREE":;$ M$"COLORS ARE THE SMILES OF NATURE.":}$ M$"2 GOOD 2 BE 4 GOTTEN":RET2500M$"2 GOOD 2 BE 4 GOTTEN":$ M$"AS AMERICAN AS APPLE PIE ":$ M$"THE SKY IS FALLING .":RETRU]2510M$"THE SKY IS FALLING .":% M$"PENNY WISE AND PO EARNEST.":/# M$"OLD SOLDIERS NEVER DIE.":L# M$"AS HIGH AS A KITE":g# M$"COKE ADDS LIFE.":# M$"PRIDE GOETH BEFORE A FALL.":# M$"LOOK TO THE ANT, THOU SLUGGARD.":# M$"AN APPLE A DAY KEEPS THE DOCTOR AWAY.":$ M$"A POEM AS LOVEHEERFUL HEART IS GOOD MEDICINE.":H"~ M$"KIND WORDS ARE LIKE HONEY.":s" M$"CHILDREN ARE POOR MEN'S RICHES.":" M$"AS GOOD AS GOLD":" M$"FASTER THAN A SPEEDING BULLET":" M$"BAREFOOT BOY WITH CHEEKS OF TAN": # M$"LIFE IS REAL, LIFE ISE SAM NEEDS YOU.":6![ M$"GARBAGE IN, GARBAGE OUT":U!` M$"PAINT THE TOWN RED.":!e M$"KEEP YOUR MOUTH AND KEEP YOUR LIFE.":!j M$"AN APPLE FOR THE TEACHER":!o M$"A FOOL'S HONOR IS SUMMER SNOW.":!t M$"NICE GUYS FINISH LAST.":""y M$"A COF THY YOUTH.":9 8 M$"2 4 6 8 WHO DO WE APPRECIATE?":_ = M$"PATIENCE IS PASSION TAMED.": B M$"HERE TODAY AND GONE TOMORROW": G M$"ONE GIANT LEAP FOR MANKIND": L M$"BLESSED ARE THE PEACEMAKERS.": Q M$"TO BE OR NOT TO BE":!V M$"UNCLA BEAR":% M$" AS FAT AS A PIG":C$ M$"AS HAPPY AS A LARK":) M$"THANK GOD IT'S FRIDAY."]2345M$"THANK GOD IT'S FRIDAY.: RETURN]2345 M$ = "THANKGODIT'SFRIDAY.": RETURN. M$"LAUGH AND THE WORLD LAUGHS WITH YOU.": 3 M$"REJOICE IN THE WIFE VE ME DEATH.":9M$"WHO'S THE FAIREST OF THEM ALL?":f M$"LANGUAGE IS THE DRESS OF THOUGHT.": M$"NO MAN CAN SERVE TWO MASTERS.": M$"AS CUTE AS A BUTTON": M$"AS MAD AS A HORNET": M$"AS STRONG AS AN OX":  M$"AS HUNGRY AS M$"AS SLY AS A FOX":7M$"PRETTY AS A PICTURE":bM$"KNEE HIGH BY THE FOURTH OF JULY":M$"A LISTENER IS A SILENT FLATTERER.":M$"THE POT CALLED THE KETTLE BLACK.":M$"IT'S RAINING CATS AND DOGS.":M$"GIVE ME LIBERTY OR GIT ENDS WELL.":CM$"FAILURE IS THE LINE OF LEAST PERSISTENCE":sM$"DON'T BURN YOUR CANDLE AT BOTH ENDS.":M$"TIME AND TIDE WAIT FOR NO MAN.":M$"AS BUSY AS A BEAVER":M$"AS BUSY AS A BEE":M$"A MEMORY LIKE AN ELEPHANT":BITE OFF MORE THAN YOU CAN CHEW.":TM$"ASK WHAT YOU CAN DO FOR YOUR COUNTRY.":~M$"ONE IF BY LAND, TWO IF BY SEA ":M$"AS HARMLESS AS A DOVE ":M$"GO WEST YOUNG MAN.":M$"A GENTLEMAN'S WORD IS HIS BOND.":M$"ALL'S WELL THAEASURE SHALL BE POOR.":GM$"WHERE THERE IS SMOKE THERE IS FIRE.":sM$"A ROLLING STONE GATHERS NO MOSS.":M$"EXPERIENCE IS A HARD TEACHER.":M$"A POEM AS LOVELY AS ATREE ":M$"RED SKY AT NIGHT, SAILOR'S DELIGHT ":#M$"DON'T E AND SEVEN YEARS AGO ":HaM$"WHEN IN THE COURSE OF HUMAN EVENTS ":mfM$"BEAUTY IS ONLY SKIN DEEP.":kM$"CHILDREN OBEY YOUR PARENTS.":pM$"A WORD TO THE WISE IS SUFFICIENT.":uM$"A FOOL'S MOUTH IS HIS RUIN.":zM$"HE WHO LOVES PL":1CM$"UNDER THE SPREADING CHESTNUT TREE ":`HM$"HE WHO PLANTS A TREE PLANTS A HOPE.":MM$"BREATHES THERE A MAN WITH SOUL SO DEAD?":RM$"THERE IS NO PLACE LIKE HOME.":WM$"DISCRETION IS THE BETTER PART OF VALOR.":\M$"FOUR SCORPORT TO A FOOL TO DO MISCHIEF.":N*M$"SIMPLE PEOPLE BELIEVEPOLITICIANS.":z/M$"A SOFT ANSWER TURNETHAWAY WRATH.":4M$"ONLY FOOLS REFUSE TO BE TAUGHT.":9M$"A NAGGING WIFE IS LIKE DRIPPING WATER.":>M$"OH BEAUTIFUL FOR SPACIOUS SKIES #]#]#] #]Ԡ٠٠!#]'(#oa(Š٠ҠϠ))#d6?ed6@e  *#q.?6@r-#`$2#_*#2#d6?e[#]#]#]Ӡ)#a(ԠӠРϠҮ)\#]oPa(ŠŠԠҠƠŠΠՠԠϠŠŮȠŠՠϬ). a(ԠƠŠՠ̠ŠϠ)% a(Š̠נΠŠŠخ)  q+ \# \T$#] d2ea()-o P a(ӠӠӠŠũ)MoPa(ՠРŠҠԠŠ)a(Ӡˬ)E@E()\(#\#-a(Ҡ٠ӠϠԠȠŠԬ).a(ȠӠӬĠĠ٠Ԡ)\oPa()fPa()Pa()pPa()z\#2oP d2e?a(ҠӠө)\#5d2eoP a()4o P d2e?a(Š٠ө)\#0o PӬՠԠŠŠˠŠԠƠ) a(ٮ)o%\#d2e?(*Pa(ӠӠĠǠ) /d2e4\(#>\#.HPa(Š٠ϠŠԠŠӠ)-Ra(ԠŠӠ͠ŠҮ)"WoPa(ź]]נϠŠ]\#3oa(ԧӠŠŠɠ͠Ǡ)+a(Ơ٠ǠӬ)E@E()\#1 ca(͠ŠŠҠ̠Ϡ٠ծ)\#Ta(ŠŠҠӠŠΠ)qKq__#@p()qq'_ @p()q(qZ_&@p(Ҡ)qFqb_&@p(Ҡ)qKqc_'@p(ΠƠ)qq<_!@p()q-qP_[]_"@p()qq-_'@p(Š)q<qY_(@p(ǠƠ)qPq`_(@p(ҠƠ)qq_'@p(ΠƠ)q7qZ_&@p(Š)qPqc_&@p(ΠŠ@p()qq2_@p()q#q<_)@p(ԠƠ)q#q2_&@p(Π)qUqc_$@p()q2qP_+@p(ˠƠ)q2qP_+@p(ĠƠ)qFqZq/?r&Jcca(ɠԠ)E@E(ԠԠ)GrbE()#|cPa(ɠŠՠ٠Ү)c%a(ŠŠŠ٠)E@qd\T$_6]]ŠŠͯ]q/?r_خՠ̠ΠŠŠŠ)-a(ΠӬӬӠҠ))a(ՠԠԠԠԠĠРϠ)a(Ԡ̮)\(#\\#,].]0]ŠŠ2]6qd\@qȠ)cR@\#a(ɠ)E@-oa(ӠӠŠŠƠȠ)o\#,Pa(ĠՠŠǠŠ)+a(ҠԠŠ̠٠Ů)\#.ca(ɠ̠٠ӠĠŠՠ).a(0M6N@"(rN@"rN@"rN@"r]]ȠҠ]Ġ٠]o, a(ŠϠŠŠƠȠҮ)6 oa()c8ca(ŠΠҠŠĠΠ    1,3718:31,3720( 10,2836'I826:6,31I:I/'0:3,10196'8D'16,2211R'16,2218j'12,1715:12,1723'17,13:21,13:17,17:21,17'17,2116'4'19,3018:19,3019:19,3020'4'17,20:21,20'21,2716:21,2722'9(31140VP751200$`P10012604jP1001300dt:"MAYBE YOU SHOULD REPEAT THESE WORDS TO"~"GET A BETTER SCORE, TURKEY.":::8)"HOW ABOUT IT? (YES OR NO)D$D$"YES"ī400D$"NO"1630::1750:1160:"YOU DI ** SCORES **E"WELL, ";B$;". HERE ARE YOUR SCORES."}::3)"YOU HAD ";N;" CORRECT OUT OF ";M;" TRIES."P((NM)100)$::4)"THAT MEANS YOU HAD ";P;"% CORRECT.":::.PAUSE12500:PAUSE8::BP01380LP50"YOU HAD CORRECT. DON'T FORGET TO TELL"G"MRS. ARNOLD."::::M2)"TYPE YOUR WORD WHEN THE LIGHT BLINKS"::"PRESS RETURN TO CONTINUE"Z$:(12)(12):"HAVE A GOOD TIME!"PAUSE11000:PAUSE450L. I, AGATHA THE COMPUTER, WILL SHOW YOU A"[R"WORD. YOU READ IT. WHEN IT DISAPPEARS"\"YOU TYPE IT. I WILL TELL YOU IF YOU'RE"f"CORRECT OR NOT.":p"WHEN WE'RE FINISHED,I WILL TELL YOU HOW"z"MANY WERE CORRECT AND WHAT PERCENTAGE",YPE IN YOUR NAME..":B$ 255&V (3):(17(((B$)2))):"HELLO ";B$::::2)"DO YOU WANT INSTRUCTIONS (YES OR NO)?" A$:A$"YES"820*A$"NO"450/1750:79049100>(5)-H1)"THIS IS A PROGRAM TO HELP YOU SPELb360lMM18v"SORRY, ";B$;" TRY AGAIN:";:W1$HW1$W$670S:::|"NO, THE CORRECT SPELLING IS:":680NN1FL1:370:5401370FL0::((1)15)1MM1460100 ** INSTRUCTIONS **"PLEASE T N0M0W$,W$"*"1000=W$"*"500Hʫ460Q200o ** CHECK EACH LETTER **u~:3X0:Y8:T1(W$):C$(W$,T,1):1510:&FL169001370::3D:W1$N ** CHECK ANSWER **XW1$W$6700ArA$"4202611820335037330:4015315615915026426826127727268429"S|((1)15)1H15:V25:Z1523:Z1((A$,Z,1))48H:Z1,Z1((A$,Z1,1))48((A$,(Z2),1))48V:Z:(4)7)"HANG ON. HERE WE GO AGAIN!":PAUSE11500:PAUSE4X2:X,X1Y3:Y,Y2X1:X@X,X2Y:X,X2Y5:X,Y1:X,Y2:X1,Y3:X2,Y4:JX,X2Y7:Y6,Y4X2:X,Y6:Y4,Y2X1:X1,Y:TY7,Y2X1:X1,Y:^ ** FACE **hA$"4202611820335037330:4045645036736107427907268429420420":38Y4X:Y3,Y1X2:0 Y,Y7X1:X,X2Y7:S Y,Y7X:Y,Y7X2:X,X2Y: Y7,Y2X:Y7,Y1X2:X,Y1:X1,Y: "Y,Y7X:Y,Y7X2:X,X2Y:Y,Y2X1: ,Y,Y2X:Y4,Y7X:Y4,Y7X2:Y2,YX2:X,X1Y3:6Y7,Y4X:Y7,YY7,YX2:X,X2Y:X,X2Y7:Q Y,Y7X:X,X2Y7:X,X2Y4:Y7,Y4X2: Y,Y7X:Y1,Y7X2:X,X2Y7:X,X1Y:X1,Y1:X,Y2: Y,Y7X:X,X2Y7:X,X2Y4:Y7,Y4X2:X1,Y3:Y,Y2X2: X,X2Y7:X,X2Y:X,X2Y4:Y7,X,X2Y4: Y,Y7X:= Y,Y7X2:X,X2Y:Y,Y2X: Y,Y7X:X,Y4:X1,Y3:X1,Y5:X2,Y6:X2,Y7:Y,Y2X2: Y,Y7X:X,X2Y: Y,Y7X:Y,Y7X2:X,X2Y7:Y7,Y5X1: Y,Y7X:Y,Y7X2:X,X2Y7: Y,Y7X:Y7:( ZY,Y7X:X,X2Y:X,X2Y7:X dY,Y7X:X,X1Y:X,X1Y7:Y1,Y6X2: nY,Y7X:X,X2Y:X,X2Y7:X,X1Y4: xY,Y7X:X,X1Y4:X,X2Y7: Y,Y7X:X,X2Y7:X,X2Y:Y,Y4X2:X1,X2Y4: Y,Y7X:Y,Y7X2: PERCENTAGE CORRECT.: # N = COUNTER FOR CORRECT ANSWERSb $ M = COUNTER FOR NUMBER OF ANSWERSh (s 2:730 < ** ALPHABET ** FY,Y7X:Y,Y7X2:X,X2Y3:X,X2Y7: PY,Y7X:Y1,Y3X2:Y5,Y6X1:X,X2Y:X,X2Y4:X,X1  ** TO AID IN SPELLING ***1800N CHARLENE FIELDS, JULY 8, 1981 THIS PROGRAM PROVIDES A MAXIMUM OF 8 LETTER WORDS FLASHED ON THE SCREEN WITH A SMILING FACE. MISSPELLING CREATES AN UNHAPPY FACE.  STUDENT IS GIVEN NUMBER CORRECT AND          . 75,106&(5,107128,94=<5,710IF5,711UP8,911cZ12,1710qd12,1711}n6,917x6,71618,311118,311213,143016,173025,291518,311818,311920,2132 :"MARC OR RANDY, AS THE CASE MAY BE, THIS"Y "IS A PROGRAM FOR A RESOURCE TEACHER AT" "BASE LINE. SHE WILL BE SHOWN HOW TO" "CHANGE THE DATA AND THAT ONLY 8 LETTER" "WORDS MAY BE USED."PAUSE14000:PAUSE:"ERCENTAGE = ";P;)PAUSE13500:PAUSE/9(10)a6)"THAT WAS FUN! COME BACK SOON."k(20)u1760 HOPE, THIS, PROGRAM, WILL, SATISFY, THE,BASIC, IDEA,!,*::"REMEMBER!! SPELL OUT 'YES' OR 'NO'"::150+ :(10)40,250,260,270,280,290,300,310,320,330,340?,0:X,X3Y1:3T6XX5:X361620b@X0:YY9qJY451470T: GOTO3005^ ****ENDING****hr(4)|"DON'T FORGET YOUR PERCENTAGE, ";B$;:::::"NUMBER CORRECT = ";N;" P,0:X0:Y9'0:S4047:0,39S::36X,X3Y1HC$:C$"*"ĀYC$" "1580hC(C$)64yC$"?"C27C$"!"C28(C$)271470 ** WRITE LETTER ***"C70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,2TIME. I KNOW YOU"@x"CAN DO BETTER THAN 0%. TAKE IT SLOWLY"e"AND CAREFULLY THIS NEXT TIME."::2)"DO YOU WANT TO TRY AGAIN (YES OR NO)?"F$F$"YES"ī400F$"NO"ī1630::1750:1420 ** CHECK WORD ** :16302AN YOU BELIEVE IT?":K(:"DO YOU WANT TO PRESS YOUR LUCK AND TRY"Z2"AGAIN?":b<G$uFG$"YES"ī400PG$"NO"1630U::1750:1320ZPAUSE12000:PAUSE:d(15(((B$)2))):"ALL RIGHT, ";B$;n