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`oPUVW,Y'@p(ΠŠ٠ӠƠ) \ \)@p(̠РƠĠԭ) \ \*@p(ӠԠϠӠŠ̭) \ \@p(ӠƠ)\ @p(̧) \ \&UVW2YH@p(Ǡâ)\ \UVWY\UVWYPI@p(ϠĠРҠנΠԬӠŠĠҠŠ)\ @p(ٮ) \ \oUVW\UVWYo.?%rYY\P#@p(ՠ٠ĠŠ٬) \ \+@p(Ԡ٠ĠΠŬ) \ \*@p(̠ŠԠ) \ \@p(٠٠)P\ UVW2Y@p(۠Ƞݠ)q\ qY+\( ,q -q0fgh:fghghD\Z#NflmnXfgh]\Z#bUVWYl_,QN@"r\oPq@p()%\ \UVWfghUVW UVW8rUVW\Xq\qYY\( YUVWUVW\Xq\q&Yghgh@fghE\Z#JUVWYh\rfghwfghgh|\Z#flmnfgh\Z#UVW Yfghflmn\Z#fghghe\d6?eq\X qq\q\ffg hqd6?ed6?e"d6?ed6?e 'q+UVWY,UVWY1fgh6flmn9\Z#;fY@p(٠Š)-oP UVW;@ra@*#rG\Z#YcUVWdY/cqo@p()UVW'a@G\Z#YUVWYQdBedCed<ed=ed>ed?e M6 d6?"@p()UVW'a@G\Z#YUVWdY@p(ŠԠ)&o UVW;@ra@*#rG\Z#Y@p(٠)#UVW;@ra@*#rG\Z#YcUVWdYc q"@p()UVW'a@G\Z#YUVWd`!%[_]K7qqqqqqq&O4rUVW-rqYOM6dBedCed<ed=ed>ed?eM6d6?e\d2ed e M6oq#q`%q`#%q#gh`$'q.?6?r.?6?r.?6?r.?6?r$UVW/?r8!rY gh*Y4UV!W-9fghf>ghH`=>r%Y\`$}f`%q`%qg"h g hf g h g"hf gh g#h flm n%lq'qq[]\f qUVW Xq/?r`7%q6`%q`'%q6flmnfghghgh*lmnlmnlmn @]Jfij$k/r]ҠԠ|flmn]ҠǠ qfUVW$ l1?!rm1?!rnY ]Hf hlm+nlm+n9 gh*gh+gh)gh*gh(gh)9 g!h(g!h)g"h)g"h*g#h*g#h+ lm+n$7 l mnlmnlmnlmn ijk0ghghРUVWijkY<f i j k l m nl m n i j kfijk ijk.f]ԠҠӠĠghghgh'ghghghg8 rX-`%$F/`$< 2gh<YFqY4Pfl!m$nl!m$n"gh$g!h$Zfghghdfgh!xflm/nl m&nl m,nl m,nf]Ӭ٠ĮΠϬ&]ԠŠҠҠv}]ΠӠϭǠ͠ȠӠŠŢԠŻΠŠȠŠӠ΢[}]Ӡ͠Ӡ͠ϠĠ̠ϭԠ٠͠ԠӠĠs]Π٠ŠɠïŠx#['b.?r.?rQ }M6}o }S(Ԡ͠Ԭ)'' }`%Q }M6 }UVW}`.?%r%\Z}2}tu<}`%qYF}_}Z}oP'a() d}q.?6@r x}d6?e}`$d}}`$}}_} }M6[<ed=ed>ed?ed6?eM6*d6?ed"eM6Kd6?eQ(#`$*#)#q.?6?r.?6?r*#UVW/?rY[Z#`$x#_#UVW5d#q.?6?r.?6?r.?6?r.?6?r.?6?r.?6?rn#Ygh_fghghfghgh `%[$`=>r=>r$fq=>rUVW fghUVW28rYfgh"YJ[{Qp]QzdBedCedh#`%gh(fghYPf`7%f=>rUq=>r Zgh$df=>r`7%fghxf`%ghf`%f gh%`$fghghfghWY[f]q\X`$q/?rq8r f g hUVWX q`=>r%_ f=>rghfgh f` %gh f` %gY*H@p(ϠŠŠŧ)Lq M\ \)R@p(ŬŠŠŠˠ) S\ \&T@p(ҠԠŠŠƠŠ) U\ \V@p(ŠҮ)W\ q[d2ed e\UVp(ŠԠ̠) \ \ @p(Ҡ)\ %@p(ӠԠӠԠ) *\ \(/@p(ӠӠΠ) 4\ \*9@p(ŠӠƠŠԮ)>\ \UVWdYC\UVWd \@p(ŠŠ)\ @p() \ \'@p(ԠҠԠŠ) \ \@p(ŠӠ̮)\ \\UVWYP% @p(ĠϠŠԠˠ) \ \*@@p(Š̠) \ \(@p(ĠΠΠ) \ \@p(ӡ)\ UVW^Y@p(ԠӠĠԠ) \ \J@p(ŠӬԠŠŬŠԠԠĠϠ) \UVWY\UVWY\ d6?eUVWYoP?@p(ԠΧԠԠӠŠ̠͠ջ)\ UVWY1@p(ŠԠԠĠϠŠԠ)\ \@p()\ ±WdY ]@p(Ҡˠ) b\ \gUVWdY$l@p(Ҡ) q\ \vUVWdY#{@p(Р) \ \UVWdY @p(ˠ) \ \.\ҩ) \ \UVWdY!@p(Ҡ) &\ \+UVWdY+0@p(Ǩ˻ҬЩРѩ˽)1\ P#a()G5\:UVWdY?@p(˩) D\ \IUVWdYS\XUV UVWY\AUVWY\UVWY\UVWY\P"@p(נӠŠӬ) \ \(@p(̧Ӡ͠ӠӠӺ)\ <UVWY\UVWY\UVWY\@p(@p(٠ƠΠ) \ \$@p(Š̠۱ݩ)\ \UVWY\)@p(ԠӠŠԠ) \ \)@p(Š٠ŠҠȠ) \ \@p(Ů)\(]ǠŠӠΠ x]Ҡ̨ةΠ6`%N@"rq]Ơ֤ԠͧĬ͠.qq`;@r%[]Ԡ `@9()%[HUVW;@r`@*#r9()%Y@p@*r]ŠǠԠĠŠҠǠŭ@ `d$]ƠР̠ĠΠˠ.Y_]Ԡ̠ŠΠˠҠ]]ҠӠנԠ̠٠ĠŠҠϠҠΠĠ)ŠҠҠԠŬ)Pa(Ӡ)E@E()E@E(٠Ϡ̠)d2e,d6?e]ԠҠĠԠoq.?6@r`$d6?e`S%Q`$M6P]ˠĠĠР̠٠Ӡ@]ӠǠӠĠĬՠ٠٠ŠͬϠŠŠ]ҠǬ̠]ԠӠAq]נǠĠ͠ؠϠ٬Šؽ٠ҠԠ+`.?%r$ ]Ԡ̠ŠӠqPd2e?a(Ҡ]ԠӠҠ]ԧӠӠ]̧ӠӠJ]ȠΠҠŠŠҠӠРŠŠҠ΢<]ȠҠӠŠӠӠƠŠҮf]ƠՠŠŠΠԠȠӠԢ̠ŠĠϠŮCL]ŠŠŠҠ̠ӠĠҠΠӊV]ΠӠҠ`]̠ӠҠj]נӠҠt]ҠӠҠ~]ͺӠҠ]ͺӠĠΠҠŮǮĽ@3]ԠĠΠΠŠҠŠҠŮǮӽn8]ԠŠŠƠǠŠŬϠŠĬŠ̠ĬŮǮԢҠŠĠԢ[B]ΠŠŠӠάŠנĬŠĠϠԠ̢ӠϠҠàͮh]ԠӠ٠ǠΠ̠٠Š٠ԠΠԠҩΠŠҠ8$]ĠӠҠĠϮϠ٠ΠԠE.]ԠŠĠϠŠĠ/qqt\qqu\Q\ñq.?ròq.?r8ñrdQñ8òr8ò8òrre[tuN ]Ԡñ٠ŠӭĠΠҠ̠ӠV]ŠҢҠΠ]˨Ԡ®ŠĠΠؠĠ٠ԠנҠԠŠGq.?6@rd6?e`$]Ơâ٠ԠΠ̠ ]̠ԠҠM_]ŠǠҢҠӠŠӠ ĠӠϠҠԠ֠Ϡ֤Rq]ԠϮz]ԠƠԠЪUVW@`$q_]Ơ٠ԠҠΠРjq.?%r]ΠԠج٢ԠӬ٠ŠҠƠؠӠȠŠӠΠԠΠU%[Q]ƠҾΠήӠͮϠŠҮҠԠͮl4`@*#r:()@*#r:()@*#r:()@*#r:()$ M6]נҠ<>`;@r%@p(Ԡ)@p@*r]ƠԢԠ͠H\x])E@E(ٮ)7a(ϠԠ͠׬Ӡ)E@E()E@c S()&@!`;@r$*]ҠӠ`;@r%_C UVW;@r`@*#r9()%Y@p@*r]ŠǠ`;@r$4 a(ɠΧԠ)c_U*`ΠΠ٠ƠŠp]ŠŠŠӠҠŠӠҠϠŠǠҠϠΨةΠΠBa@E(ĠӠ)E@E()E@]ŠƠ<a(Ϡ̠ǬӠŠ)E@E(̠ŠĠӠŠΠӮŠ̠ŠĠƠͮt&to.?%ra(Š)E@Gq 8qP`.?.?)r.?(r.?$rr<()r$h]˨˨˨ӠŠӠƠŠ̠q\c]ԠǠϠŠŠΠ͠ՠׯϠ<a(Ҡ)E@E()E@E(ŠǠŠҬ)4a(ĠӠŠ)E@E()E@E(ٮ).a(ŬϠԠŠϭͺҮ)k_]ǠŠUVWYJ>@p(ĠӮ)\X\:\:UVWYqqH@p(ĠϠӠҠŠԬŠӠĠ)\XUVWYRP.?$r] ˠy\@p(Š@p(ŠӠ٠ĠŠ٠ӠƠҠӬ)\Xk @p(ӬĠŠΠӠϠӠƠӠӠǠŠŠ)\X2*q]ŭŠҠҠ+4@p()\XŠ)\X8@p(ƠŠΠөĠϠ)\XM@p(ȠԠƠΠϠǠƮ)\X\:\:h @p(ǠҠǠΠŠԠΠҠ٠Ơ٠٬)\XMŠҠƠӬ٠Ġ٠)\X9@p(̠ŠԠӠƠŠĮ)\X\:\:P@p(ԠԠӠĠ٠ŠԠΠ̠٬)\XH@p(ΠԠԠԬҠҠԮҪ)\X\:\:Wq]ĠҠӠҠԠŠԠԠԠƠҮǮ]ΠԠk@p(ԠӠΠĠҠ٠ӠԠƠŠŠϠԠΠŠҠƠ)\XS@p(ŠΠ%\]ΠĠĠҢJ@p()\X\:\:]ԠĠΠ̠8@p(ŠŠҠƠ)\X\:\:2@p(٠Š)\X\:\::@p(ԠӠĮˠРӠҠԠ٩N`%[FXca(Ӡ)E@E()E@E(٠ϠΠϠ)Gd6?e b`.?6@r$bd6?e[ l]ŠϮƠӪ>vqq]ԠĠԠҠԠ ]ŠƠӠ+M6oPa(ŠƠ)"&ca(ӠԠ)<0cttdt,t6ttttxtttl<:UVWoPa()GP%a()UVW YZID]Ơ͠Ӡ§Ġ)E@E()E@E(٠)GM6]ҠԠƠ(R@q]ŠԠ2\x]Ԡ֤Ϡ֠ȠŨة-`$]ƠԠΠŬA`%\l`%\q`%\`%Q_.a(ԠŠҠî)cca(ŠԠ͠)+ca(ŠŠҠƠ)%ca(ŠŠƠ)"ca(ŠϭԠ)ca()ioa(ӠҠ)ca(ĠӠņ_,_]̠̠ӠԠŠΠŠŠԠǮҠҠΠ*M6oq"\n]ŠҤEa(ŠŠҠƠ)cPa(٠Š)c6`%N@"rq]Ơ֤ԠͧĬ͠ɱZT]ϠԠҠάԠ٢ϠҬ٠Ġ(^]٠ǠŠǠź5h\qq@p(Ϭ)\XQ&r]ԠӠ̠ŠӠϠǠԮ|]ŠȠҮǮ^Šͩ!,\]ŠԠS6\:]̠ŠԠũ ĠϠŠǠҠŠS@\X]ŠԭԠƠŠҠŠĠΠӨũ3J]ϠԠŠƠǠĬŠĽ̠ŠϮ;`%q6[]ƠӠΠĠΠŠ ]נϠŠԠǮW]ŠŠŠŠӠĠϠӠՠĠҠҠŮC"]ӠŠΠ̠ӠϠǠ̠ΠҬԠΠĠ;` 8 <@*rr<()rr$a()_K]Ơ̠֠ĠĠ ͩԠĠΠN`<@*rr<()r%q <()r<@*rr]̠ŠΠ$Y]Р`;@r%[UVW;@r]Ԡr`@*#r:()$q_]ƠӠΠӠĬԠǠϠŠĠҠϠԠΠƠK`<@*rr<()r<@*rr<()r<@*rr<()r$a()_3]ƠέìױWP.?$r\XUVW8 rYY& ]ԠӠԠĠƠ# \:\:UVWYD d2e?a(Ӡ٠٠ϠΠϠթ)d2ed6?e `.?6@r$ d6?e[ ]ĠƠ͠\X\:\:]Ԡ٠Ǡ UVWY0 @p(ϠŮ)\XUVWY$ @p(Ϡ٠Ů)\X\: \:UVWYA @p(ӠȠԠ)\X\:@p(נŠ)\XC @p()UVϬŠԠՠϮɧ͠ΠΠŠΠŠҮ)P \XZ UVWYd q]ΠƠ%n \:\:]ĠƠ٠x ]ԠҠR @p()]ŠƠȠӠԠӤ̠ŠĠ٠ǠӮ٠ΠӠŻŠ٠Šٮi< `%@p(ӬӠĠάĠŠҠҠҠȮ)oF `%@p(ϬԭԠĠĠŠŮ ]ȠŪ \X]ԠԠ= qq/?r]͠Ԡȭd( @p(ϠŠҠԠϠŠԠӠŠŠΠŮ)]ӤӠԠӠƠκ~2 ŠŠ٠ǺؽĨƠؽΠȩP ]ŠΠҠŠŠàԠӠϠŠҠϠȮ9 \X@p()\:\:]ȬŬĠ6 \X_t ]ԭԠĠĠԠԠŮ4 \X_~ ]@Brp()]ƠŠӠŠΠԠĮH q`$ ]ҠӬϠϠȭŮq `/?r$ ]ӠӠàԺƠĨӠԠ̠ΠԠӠŢĠ̠͠ȮD ]ԠĠɠŠƠҠͨY \n]ԠŠɠҠΠҠϠŠԠҠĠΠҤ( @Brp@Y]ĠƠĭF @Brp()q]ԭΠҠƠӠΠH `$ ]ԠŠҠƠӠϠŠΠԠŮw~ q/?r`%q/?r]Ԡ͠ĠȬǠΠĠҠ1 UVW]ĭР͠ĪI qA/?r]͠ɠ)\X\:\:8 ]ĠƠΠԠB UVWYL ]Π٠"Q q]ԠŠV q]έΠĪ'` q]Ԡj @p()\X]Ht q/?rάϬ)\Xd @p(ǠΠӠԠĬӠ٠ǠȠӠԠĠĠԠ)\X" @p()UVWP.?$r\X7$ UVWYY]ԠӠƠD. \:\:@p(Ԡ̠)\X6q@p(Ҭ)\XUVWY+@p(ŠӬ)\XUVWYD@p(Š٠)\XqP.?$rUVWY_ @p(̠ŠŠϠŠĠԠŠǠΠp(Ӭ)\XUVWY]@p(ĠàӮ)\X\:\:UVWYqM@p(ŠҠΠנΠנƠӬԠӠƠҬ)\XA@p(٠ǠŠӠӠ͠ӠĠӠӬ)\X^@p(ǠԠΠ͠ԠԠƠҧӠź)\XUVWYD@p(ǠӠҠӠŠӠΠŠ)\Xq(@p(Ӭ)\XUVWY,@p(ŠӠĠ٠ŠŠΠƠӠǠΠŠˮ)\X#UVWY\:\:J@p(ŠҠȠǬΠĠҠĠ)\X\@p(ǠӠԠ̠ĠҠϠŠŬԠ٠ȠϠԠŠ٠ƠŠ)\XUVWYNf@p(ĠŠŠƠŠө)\X\:\:UVWYJp@p(ԠӠӠԠӠŠȠŠǠˬ)\Xmz@nlmn[Fijklmnghghgh[eijkghijklmnijkgh[^ijklmnijlmn[4ghlmnijk[lghijklmnghghghijk[SghghUVWXijkYlmhijk[&lmn['Nlmnijk[%Xghlmn[bijk[lgh["vUVWg8rhY[Iijklmnijk]̠ΠŠ(a()fUV(W/ij'kY[[lmngh[#lmnlmn[Almnlmnijkijk[_lmnijkghijkgq@p@\>qq@p@\Hq)q@p@\R[0]ǠŠĠΠȠ@`;@r%@p()UVW;@r\ <@*#rrqY[] ]ҠӠ]Ӡ]qK\@qB\JqKq\T@p() ^@p() h@p()@p(١)@p()!rfUVW/ij'kY |f \ &UVWԱqY_) qq@p@\*q q@p@\4q/ij'kY f\ qdq<\\q2qx\q<\qK\qP\qZq\@p()@p(ա)!fUVW/ij'kY f\ "q7q<\\,q<qx\6\ Qqdq<\\qZqx\qd\qK\qPq\!f UVW/ij'kY f \ 5qdq<\\qZqx\qd\qB\qKq\@p()@pű@!f UVW٠٠Ġ͠ŠfUVW/ij'kYf@p()qq\"UVW^ԱqY9@p()@p(ȭ)@p()@p()@p()!fUVW/ij'kY f&nf/?rqq@p@\&sf/?rq)q@p@\xUVWqY<q.?6@rd6?e`$`$_PKM6a()Q<ca(ϠŠΠؠӠҠŬŮ)c[5]M\_KOMcca(ϠЬӠӧ)ca(ϠԠҬӠϧ)UVWY3PM6Ld6?efUV(W/ij'kY&Uf/?rqq@p@\&Zf/?rq q@p@\&df/?rqq@p@\$2\_($2cS(ҠŠĠź)&@7`;@r$<\_2#<cS(ҠŠĠź)&@A`;@r$F\_<$FcS(ҠŠȠź)&@H`;@r$K\_F#KcS(ҠŠȠź)&@L`;@r$ŠҠ٠7dedeMUVWԱqY[]"]ӠӠŠ_KM6oa(Ҡ٠ŠƠРϠŠӠȠРϠؠӠҠź)%(ccS(ҠŠԠź)&@-`;@ru ]٠٢ ]Ӣ ]Π ]]٬]]ЮЮ̮Ů]͠٠]]ȠŠ]Ŭ]_((]Š                 +UVW(P-rq.?)r.?(rYUVW(b-rY٠٠ϠΠϠթ)d2ed6?e `.?6@r$ d6?e[ ]ĠƠ͠+UVW(P-rq.?)r.?(rYUVW(b-rYh[Y*ghghghlmnlmnijk[_4lmnijkijkijklmnlmn[P>lmnijkijkgh[^lmnijklmnijkijk[ghgh[#ijkijk[aghijklmnijkghgklmnijkgh[Jijkghghghlmn[_lmnlmnUVWXijkYlmnlmnQ1999:Q;MIN(((A100(A100))100.05)(A100))U A1200AA1200:PM1nHOUR(AMIN)100:A0HOUR12HOUR0500 :* "Y"765#"WHICH DO YOU WANT?"<"CHIMES? (Y/N)";ZB$X"TICK TOCK? (Y/N)";ZC$p"ALARM? (Y/N)";ZD$ZD$"Y"770"WHEN DO YOU WANT THE ALARM TO GO OFF?";SET770ZB$"N":ZC$"N":ZD$"N""WHAT TIME IS IT?";AAA1 A15:B,C:4B,C:A.A14:B,C:5B,C:AIA112:B,C:6B,C:A|5:825,16:8252,16:32:826,141:8253,141A770790:B:A,B:AA0:B0:C0:XPH%65:XPM%65:160936"DO YOU WANT SOUND EFFECTS? (Y/N)";ZA$ ZA$,192,110,170,132,138,140,106,132,84,110,76,78,84,46,106,24D 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96XA18:B:A]A1627816382:B:A,B:Ab:3:1:0l232,150:233,63v16277A118:B,C:3B,C:A,46,46,46,54,63,55,46,45,5,0& 144,1,148,1,178,14,200,40,204,40,208,74,212,74,216,74,216,74,200,110,146,148,98,136,102,136,74,110,78,110,82,110,60,73,100,13:+ 204,110,178,136,132,148,84,136,60,110,64,74,70,40,86,14,130,2,138,16,170,24,192,46,200,786,0 54,54,54,54,54,14,0R  118,118,118,118,118,5,100,100,100,100,100,12,0 14,14,14,14,14,14,14,14,14,14,222,219,219,27,96,12,12,12,12,12,12,12,12,12,12,0 53,39,0 44,62,0! 63,63,54,45,53,62,62,62,54,53,53,62,62,46,46,54,55,55SET420 E4:' SETSET1:E1:R13 AE87W (16384)127ZD$"N":R0:455r 768,255:769,255:770y A 16368,0   100,150,100,250,100,150,50,150  8,0,18,0,22,0,25,0,32,0,44,0,70,0,73,0,77,0  36,36,36,0 36,35 jF1400:F$ kA47:E:3605 mA11000:AM rHHOUR:HOUR0H12o wE1H:768,250:769,100:770 |F1800:F E E500(H133)  MIN60ALARM(HOUR1)100:405 ALARMHOUR100MIN PM1ALARMALARM1200 ALARMЭB1335" E768,100:769,03:770D J780,180:B1:7168,180:345] O768,70:769,03:770z T7168,180:780,180:B2 YG1:A [B1ĕ780,180 \B2ĕ7168,180 ]E1:160 ^ cA13:E h768,E:769,50:770:F1200:F:A iA8365# PM%XPH%PH%PM%1ĘPM%:295< PH%XPH%ĘXPH%:295g OPM%PM%:XPH%PH%:B1:E1:FLAG1İ350| FLAG0:R0ī120 160 "1140,80: '2140,80: ,7:780,180:G19 1AE486267:Q1 3FG60 6(16384)127ī800 ;F @M1:200 12, PM%MIN6460:PM%:290O PH%(HOUR64PM%)12:PH%:295g PH%XPH%ĘPH%:295~ PM%PH%ĘPH%:295 B0ī285 OPM%:290 XPH%:295 OPM%PH%ĘPH%:295 HOUR6MIN34ĘPH%:295 XPH%PM%XPH%PH%ĘPM%:29 16277700'ZE420(H140)/wE1Bx(ZC$)89300P}AE4862g(16384)127800nAMINMIN1:(ZD$)89İ400MIN60200MIN0:HOURHOUR1(ZB$)89FLAG1HOUR12200HOUR0:PM1PM0:200 PM0P       NE PRESENT"5v20:"MATRIX MINERALIZATION TYPE";MINU{MIN1MIN4Ģ20:958:630nDES1PRO2GADE14DES1PRO3GADE15DES2PRO4GADE16DES3PRO5GADE17DES4GADE18PRO5GADE18PRO4DES3GADE17Ped ed e_}d ed ed ededededeLdedede`[ghghg(h(4()g(h(gh(g(hgh(g(h0*)q.?6@rd6?e`$@)`$',)YZ 6)Y_ )@)KM6a()Q|]ӠРŠT}dede0dedededed)]٠٠)]ӠȠħ;)]ҠΧ͠ŠŠɠŠ)];)M6Lcca(ӠçϠŬӠӧϠ) )UVW2)UVW)UVW )q")f8r ')VWY?(KM6o a(͠)ca( ٠)ccH(a(Ƞ͠ϠՠԿ)S(Š͠Ҡ ĠӠΧ)&@>(`;@r$(`@*#r9()$`@*#r9()$)$(ca(ͧҠ§)c_((]@"rCű@" rC@"r#(LfUVW'ij'kY:(fqq\fq\q \*q\1(q\plmnq\>q#\R(@p()q q\@p()qq\@p()qq\(Uɴ0'@p(Š)@p()@p()@p() '@p()'f'UVW/ij'kY'f'\ &'UVWԱqY'_)(](]Π(](KM6\}F(N@" rC@" rC@" rC@" rC@" rC@p()@pű@@p()e'ff'UVW/ij'kYg'fj'\ "t'UVWԱqY>~'@p(Ϡ)@p(Š)@p(ȭ)@p()@p(ٿ)'f 'UVW/ij'kY'f d6?e '\ R@'`@*#r9()$(ԧ)@p()@p(ſ) 3'@p() 8'f\ $B'q.?6@rd6?e`$L''G'UVWԱqY_B'L'qqq)V'`$`'\ X'qű@Brp@*#rY'`$`'['_B'*`'@p()@p()lmnghlmn[:$ijkijkUVWghY[']٠٠'M6Ld6?e$'@p()'fq!$'UV/WX6ij'kY..'@p()@p[Flmnghghghlmn[Llmnghlmnghlmn[QUVWghghYghghghgh[Llmnghlmnghghgh[rghijklmnijklmnijkgh[#ijklmn[2lmnijklmnnijklmn[=ijkijklmnlmn[plmnijklmnijkghghgh[dijkijklmnhgh[lmnijk[Xlmnlmnlmnlmnlmn[Rlmnlmnghlmnlmn[Iijklmmngh[.pijklmnlmn[6zlmnijkijk[0ghijklmn[glmnghghghghghggh[=Hlmnijkijklmn[9Rijkijkijklmn[0\lmnijkijka[cfghijklmnijkl)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(4000:T%(FM)RL:J:N 50)"0$@CH$" ":J052h$JLI$:R0:LT(LI$):2000:FMIX:6000:T%(FM)RL:J:I","<=(SUBR 35)","<>(SUBR 36)",">(SUBR 37)","<(SUBR 38)"#;"NOT(SUBR 42)","AND(SUBR 43)","OR(SUBR 44)","NUMBERP(SUBR 46)","LITATOM(SUBR 47)","CONSP(SUBR 48)"#<"SAVE(FSUBR 49)","LOAD(FSUBR 50)"#@CH$" ":J052$JLI$:R0:LT(LI$):2000:FMIX:6SUBR 20)","NCONC(SUBR 21)","SETQ(FSUBR 22)""6PAIRLIS(SUBR 23),PROGN(SUBR 24),SET(SUBR 25),GC(FSUBR 26),RPLACA(SUBR 27),RPLACD(SUBR 28),"READ(FSUBR 29)""8"+(SUBR 30)","*(SUBR 31)","=(SUBR 39)","^(SUBR 40)"7#9"/(SUBR 32)",SUB(SUBR 33),">=(SUBR 34)`!$CONS(SUBR 1),CAR(SUBR 2),CDR(SUBR 3),"ATOM(SUBR 4)",EQ(SUBR 5),QUOTE(FSUBR 6),COND(FSUBR 7)!4 DEFPROP(FSUBR 8),REMPROP(FSUBR 9),'(FSUBR 6),PROG(FSUBR 10),"GO(FSUBR 11)","RETURN(SUBR 12)"+"5"PRINT(SUBR 17)","EVAL(SUBR 18)","APPLY(SUBR 19)","GET(I)NL: H%(FZ)NL:NFMI1( 63000S 06000:FMRL:9000:PLEV:7000::62000y VA2:FS3:SU4:EX5:FE6:T7:LA8 LO(1):LO(0)NL:LO(1)T ""NIL(VALUE NIL)","VALUE NIL","FSUBR NIL","SUBR NIL","EXPR NIL","FEXPR NIL","T(VALUE T)","LAMBDA NIL"PCNL:P1NL:P2NL:PRNL:CNLyFZ(((IJ)((IJ)0)32767((IJ)0))8):SZ100:NN100:MI100:"LIST ELEMENTS= ";FZHS%(SZ):SP0RH%(FZ),T%(FZ)\ID$(MI):NI1hNU(NN),BT%(NN)I1MI:H%(I)TT:T%(I)NL: IMI1FZ:H%(I)I1:T%(,(116)-EVNL:ST49ĺ"SAVING...":307:Gij"LOADING...":259:`:"MICROLISP/16-JUN-78":"COPYRIGHT 1978 APPLE COMPUTER INC"j"IT WILL TAKE APPROXIMATELY 1.5 MINUTES"{"TO INITIALIZE THE ARRAYS."~NL1:TT1:GLNL:ALNL:EVNL:BONL:&VNX6NXNLNXNY:!6NMNX<6T%(NM)NLT%(NM)NY:Q6NMT%(NM):14020z NT%(MG)0H%(MG)1:BT%(T%(MG))TT:*NH%(MG)0ı4NSTT%(MG):4000:H%(MG)H%(MG):MGH%(MG):20000:5000:MGST:20000>NR"GC":J1NN:BT%(J)0::MGAL:200:STAL:4000:NXPR:NYAL:14000:ALNXO.FMH%(T%(T%(FC))):9000:5000:ALST:Y2PRNLf2P1NLı2CHH%(P1):CTH%(P2):3000:CHCR:CTPR:3000:PRCR:P1T%(P1):P2T%(P2):130104P1H%(GL):P2H%(T%(GL)):13000:EVPR:6NXH%(GL):NYH%(T%(GL)):E+STT%(EL):4000:FMH%(EL):STEP:4000:STVL:4000:9000k+CHEV:CTNL:3000:5000:VLST:5000:T%(ST)CR +EPCR:5000:ELST:11020*+STT%(EL):4000:FMH%(EL):9000:CHEV:CTNL:3000:VLCR:11040.FCH%(GL):P2H%(T%(GL))%.P1H%(T%(FC)):13000ǠĠǠŠԭƭ٠ϠӠĠ)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_EADING AND DANGEROUS."(fK118000:K0p19^ BASED ON A PROGRAM BY JEFFREY DACH M.D. 909 ROSCOE CHICAGO,ILL.60657 COPYRIGHT 1978 APPLE COMPUTER, INC.lED 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 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\Š)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(ΠӠ̠Π)Pa(ˠĮ)cLPa(ԠĠ٠Ӡ)P a(ŠŠԭƭ)0Pa(ԠҠŠΠϠ)APa(ԠĠ٠Ҡ)P a(Ҡ)\ǠӠĠРϠ)P a()UnPa(ǠӠĠϠˠ)P a(ĠŠӠҠ)xP a(Ԡ)\U`$\d_F\/ca(Ҡ̠ӠϠ)GPa(ĠՠԠ),Pa(ՠԠנΠԠ)P a()(\U2`$<\d_<\*Fca( ĠŠӮ)Pc=ZPa(ǠӠĠϠ)P a()9dPa(̠Ǡɭ)\U`$\d_~\.ca(Š͠ĠנӮ)c,Pa(ՠԠŠԠŠ)P a(Ġ)/Pa(ՠԠԠŠԠȠ), P a(ӠԠ)&VPa(ĠΠĠ)`\Uj`$t\d_t\,~ca(ǠȠ٠Ǡ)Pa(ĠӮ)c$Pa(̠Ԡ̠)+Pa(̠ǠԠ)*Pa() \U`$\d_ \Uca(ǬǠҠǠŠǠ̠ŠΠҠ)$Pa(ŠӮ).c'8Pa(ĠƠԠ)BP a()LPa(Ҡ) Pa(ԠŮ) c/ Pa(ĠΠŠŠĠŭ)+ P a(ĠϠŠҠ) P a()- Pa(ĠΠҠΠԠ) P a()) Pa(ĠΠŠҧ) P a()> cH Pa(נϠ)*R Pa(РĠΠĠ)\ P a().f Pa(Р̠ŠǠ)p P a(Ӡ)z \U `$ \d_  \/ ca(ŠΠĠҠ$ \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 PROGRAM IS RUN??? 7 RUN IT AND SEE IFI YOUR RIGHT!b ^^^^^^^^^^^^^^^^^^^{ ^^^^^^^^^^^^^^^^^^^X|  THE ARMY DOES IT IN BASIC,::12?2X((1)2.55)~d"GOTCHA!": IF X=0 THEN GOSUB 12345"FOOLED YOU!":IF X > 1 THEN X = X - 1,90XX1:X: WHAT WILL HAPPEN WHEN THIS ٠Ġխ)+dP a(ΠŠĠ٠)LnPa(ĠҠĠϠ)P a(ǠĠԠ)x\U`$\d_\[ca(ΠǠԠΠϠ̭)Pa(ŠŠĠΠȠ)9(Pa(٠ΠŠנ)Pa(Ӡ)2c*<Pa(ǠŠĠ٠)"FP a(ǠҠ).PPa(٠ԠΠŠĠ)LZP a(ҠǠԠӠ͠)P a(ϠŮ)cGPa(ϠӠŠԠԠ)P a(Ġ)DPa(ϠӠŠԠԠ)P a(Ġ)Pa(Ԡ̠)\U `$\d_\0ca(٠ŠӠ)P a()9Pa(ϠŠխΠԠ)P a()\U`$\d_t\Zca(ŠԠƠ٠ԠŠΠϠ)Pa(٠Ҡ٠Ġӭ)*Pa(ΠǠŠŠŠ)P a(Ǡ)LPa()V\U``$j\d_j\0tca(ՠ٠ӠĠŠŮ)~c?Pa(ϠҠҠϠŠ)P a()BPa(ϠŠĠϠà)P a()\U`$\d_\0ca(ƠҠҠӠĠ)D$Pa(ϠӠΠŠԬ)Pa(ҠĠӮ).c$8Pa(̠РϠ);BPa(̠ƠȠάĠԠӠŮ)c'Pa(͠٠ŭ٠),Pa(͠٠ŭ٠Ԡ)IP a(Ҡŭ٠ԠƠƭ)P a(àӠϠŠ)cPa(͠٠ŭ٠Ϡϭ)P a(ԠƠzPa(Ԡ͠)Pa(Ԡ͠)c\U`$\d_\\Wca(ՠ٠ŠԠΠԠ)Pa(Ġ̠Πŭ٠Ԭ)[Pa(ҠǬĠƠϠΠϭ)Pa(Ӡ(ǠĠ٠)04Pa(ΠǠӠ)>\UH`$R\d_ R\;\ca(Š̠ҠנΠҠ)Pa(Ӯ)fcPa(̠ΠǠ)P a()BPa(̠ΠǠ)P a(٠)\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(Ơ);8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpsvy|m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`| -----    `ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J);;? -- )  ) ;;? ) ;;;; ) ;;;; -) ) ; ))-- ?????; ) ;??? )- ? ) ; )--- ; ) ; ))-- ; - $EM   ;; ; )  ;;;      z#Xγ    ŠŠҠƠA Ǡ͠ˠ    ҧӠΠ ԠΠ®Š0٠٠Ӡ!ԠӠŠŠԧӠ РԠŠΠҠҠΠˠΰ̠ ŠҠӠǠԠ]!Ӡˠ ΠӠҠ"ҠǠ(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,        Z ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)" UV%W'l m/nY$lm n'.i$j&kLfl.m/n&fUVW Xl!m,nYijk,i!j$k, q]ΠUVW X#qf,(UV8 rW"d=ed>ed?eM6d6?eDo.?%ra()d6?ed ePo.?%r[]נf!UVW/ij'kYf]ԠҠf dCed<ed=ed>ed?eM6d6?e`$oUVWY.a()Y d6?eq[d ecQdBedCed<e8Fr&k`I%a()GpY[zd6?ewd2e?[,]ɭԠҠĠҠd2e?d eco.?%r!UVW87rX60q.?6@rd6?e`$wd6?e[QdBee4M6d6?eD9o.?%ra()d6?e<d ePo.?%r Ha@*#rGR`<@*#rr.?$r"%c$\q.?6@rd6?e`$faw[9f`%q8r`%q`%qq-r[ d2e?d e"UVW;@r!#`$'`@*#r9()$*%q.?6?r.?6?r.?6?r'UVW/?rY*`.?$r"$H-d ecQ/dBedCed<ed=ed>ed?` %g$hfg$hYf`%fg%hUVW X` $,f` %g&h`%g&hfg&h!Y`.?6@r$pd6?e[q`%q-rq=>rqflf="> rg!h fg"h f= > rgh fg h f=> rgh fgh 8nf= >rg!hfg hf=">rg#h 1ofg"hf=#> rg#h fg#h ]QUV WX6f`%g$hqN[X]ҠPb`$lf=#> rg"h fg#h f=!> rg h fg!h fdf=> rgh fgh f=> rg hfgh f=!>rg"hfg!h$ff=#> rg#h fg#h g_ %gh &`7$N '`7$N(fghfgh)]˭Ơ%+q.?6?r.?6?r.?6?r.?6?r0fgh1]РΠŠ5UVW :f`%gh?fghDUVWYIY Jgh4fghYf`%fghf`%gh`%q=>rUVWX6fghfghYUVW Xf!ghf`%gh!Y#`>r%_rmf=>rgho_wrfghwfghyf` %gh{f |` %ghYUVWX`=>r%_f=>rghfghf`%h-'flmn,UV,W&X63`&%_T!6`=>r=>r%_J@f=>rghE_TJfghTfghYf[`-%ghY^`%\cUV WX6!h`=>r=rghF`=>r$ZK`-%qPYZY[UV#WX6`$$q=>-r`%_fgh-fgh-f`$%gh.fgh.Y$f`=>-r%gi.'dJedKe dede Wd6?eKM6o Pa(ԠŠҠ)UVWY__}K]Ҡ_(UVW X-`%q'2`=>,r$Z7q<UV-W!X6Af=>               Ҡ٠ҠȠҠǠԠ٠ŠƠ٢ĠĠԠ٠Ľ(Y[] ]ϭԠ͠W`%N@"rqq"\nc]֤͠ƠԠԠͧĠĠԠҤMԠԠΠeUVW;@rd2e?a@*#rGd2e`%\DUVW/?rYYjd2e?a()Gd2e]ŠӠԠԠΠϠҠΧԠ̠àĠĠРΠӠ}]Š̠ԭԠĬVW;@r`@*#r:()%Y]ԠʠϠĠƠԠPv@Brp@*#rq]ˠԠĠ͠Өũ7`;@r$]ƠӠΠ׬ΠϠL`.?$r;@r%%\:]Ơ ĠӠĠΧoPd6?e[]̠ŠƠԠĠננ͠9Dq.?6?r.?6?r.?6?r.?6?r[]ҮĪX]ҮΠЪ_bUVW;@r]Ӡ̠ˠǠƠȠŠĠΠӨũClUΠӨũĠרϩĤƠԠԠŠΠҠӠȩ\&M6UVW\6\d6?eUVWd]ŭӠҠϠŠV0YYoPd6?e[]ԠĠŠҠǠϠV:c\6\ҠԭԠ,]îӠqod2e?a()Gd2e[]ԠŠŠƠŠԠ]ŠΠo`%N@"rC@"rq]e]ӠŠӠԠϠǠΠŠҺ͠f]Ġ٠ŠĠҠǠ٠ˠƠ٠Ϡ٠ΠΠ٠%]ĠƠ٠Š ]d<ed=e/hd>ed?e rM6u|]ӠȠŠΠƠ̠ĠӠŠŠԠԠΠŠΠҠҠԮ/d6?e[]έΠŠԠĠ"\na@Q ,]ŭԠŠ 6]Š٠Š,@]ŠŠԠĠҩϠŠUJqqq]ŠϠŠŠ-TdBedCe-^ԠӠǠΠ٠ŠȠҠŠ4]ŠӠƠӠǠŠ٠<]ϠŬԠҠϠŠɠŠƠҠҬQ\n]ĠΠάҤ̠ҠҮ٠ŠǠźqԠñ٠ŠӭĠΠҠ̠Ӡ~]ҤΠӠԠƠŠŠΠĠ̠ˠŠΠ͠٠ԠԠϠt]ƠՠҠŠҬԠĠ͠ԠӬĠƠŠŮŠӠŠӠ̠ͺFK_]Ϡ d]ҠҤΠnq8raxñq.?ròq.?r8ñrdOñ8òr8ò8òrre@p()[N}]Ū ]ԠŠҪ ] ] ]àͺ6(]ϭͺԠŠŠ٠ӠŠ52dJe dKe de.?Jrde.?Kr[<]͠Ъ ]ŭΠӠĠ ]ŠŠ ]ԠՠΠŠҠ ]Ǡ˭έŠ ]ԠΠҠӠ ] ]٠Šɠ ]B? ] ]ŠŠҠƠ ] ]ΠΠƠ ]ŠĠĠ̪ ] ]ԠŠ ]                    ԠǮ)>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[]ͭ \[]                                       ٠]ԠӠ]Ԡ]ŠҠꪊҠêa(ՠԠ٠Šԡ)H`?$JcPEIa(էŠ٠ҠŠΠ)P a(ƠŠŠ)JcUVW(a()GYO\' Tw_'UVWY'[ NUVWY*N[:uQ]Π dM6(nP o a(ŠҠӠҠ)x\ N w_M6P o a(ŠҠҠ)\ Nw[,\ N 1M62`$T6o ;UVW(a()GY@ca()EP a(ӡ) FcP#G`;@r%@p()`@*#r9()$ `@*#r9()$\d M6o Pa(Š)Q ]]Ӡ]Ƞ] ]0 M6qoUVW\-rY2_8M6oPcPa(ՠԠ)FE(Ǯ)CccPa(ŠŠ)FE()Pa(Π̮)c]]]ΠϠ]]GccPa(ĠՠŠ)Pa(ŠŠӠՠĿ)GR@Ҡ)G\')LoP a(Ӡ٠٠ϠΩ) Nd6?eQ`.?6@r$Qd6?e.VM6o Pa(LJχχć̇Շǡ)`UVWY jM6~[]] ]ԠӠĠ]]`%\,٠٠ϠΩ) "d6?e$`.?6@r$$d6?eo.M6oP a(ӠƠ)P a(ϠԠҠ)P a(ƠŠӠƠŠ)8\'SBoPa(ՠ̠ŠĠϠ)Pa(ȠŠҠ\ N M6o Pa()\ N_] ]ǠӠ]]0KM6oP a(Ǡ)'o P a(Π٠Ԡ)2oPa(ԠŠҠ)) oP a(ӠĠԠ̠)@Pa(ĠǠ)P a(ƠӠ)SPa(ĠӠՠŠ)P a(ĠנƠ)&P a(ҠŠΠȠ)\U`$\d_\ԠŠƠŠ)0zPa(ΠӠԠŠƠŠ)o.?%r]ԠŠ.Pa(ΠŠŠȠԠ)\U`$\d_H\,ca(խΠΠ٠٠Ӯ)c'Pa(ǠӠ)P a(Π)*\U4`$>\d_>\ZHca(ΠǠΠ)Pa(ŠƠӠҠέ)&RPa(̠ԠԠˮ)\cfc/pPa(ΠӠӠǠ)Pa(ҠĠƠĠӠŮ)c' Pa(ĠԠ̠)WPa(Ġ٠Ƞέ)P a(٠ĠҠĠ)i Pa(ĠΠԠӠŠ)P a(Ϡ "  PRINT SCREEN LOCATION- 48,X0A Y12,Y121X1G  5IP ZdS(960)&nY10233xX1039=SS1D1KSU1000aS(S)X0lX1,Y1tS0Y12301X13901SS1X0S(S)2000X1,Y1 READ SCREEN LOCATION X0X1,Y121)16X1,Y12) 336) FQ::10518)"LUCKY YOU !"?::`10)"YOU BROKE THE HOUSE !"::::"(BUT ONLY BECAUSE IT WAS LOW IN FUNDS...THIS TIME.)"Z12500:ZpR$"LOSING "zR$"WINNING"RR PROBABILITY OF RUIN WAS ";RUIN<z"WITHIN ";NP;" PLAYS."l"SEE 'LADY LUCK' BY WEAVER (ANCHOR BOOKS)""DO YOU WANT TO GAMBLE AGAIN? ";A$(A$,1)"Y"101016)"VERY WISE!"Z11000:Z:FQ1100TN(16"NO. OF LOSSES: ";L5 "FRACTION WON: ";FS*"HOUSE FUNDS: $";RHq4"PLAYER'S FUNDS: $";RPw>HRUIN(100000(H(HR)))100000RHPCT0ĪNPHR:870\NP(R(HPCT.01).5)f"ACCORDING TO PROBABILITY THEORY," p"YOUS FUNDS: $";R(" BET: $";Be"HOUSE PERCENTAGE IS ";HPCT;" WITH ODDS ";ODDS;" TO 1.""PLAYER'S PROBABILITY OF WIN: ";P" AFTER PLAY"" -----------------""NO. OF PLAYS: ";N "NO. OF WINS: ";WbJ/l24:"YOU HAVE NOW HAD 10,000 PLAYS."cv"CASH IN YOUR CHIPS:PRESS SPACE BAR.":A$:660k24"YOU ARE WIPED OUT ! PRESS SPACE BAR.":A$:" BEFORE PLAY"" -----------------"" HOUSE FUNDS: $";H "PLAYER'ALB) GY! Y159ĪY159/ Y0ĪY0C (50G)0İ6000X (50G)0İ6020o &22:32:50G;" " +22:19:R$ 0LOOP2,Y :NN1:FRW(WL):F(FR1000)1000 DRP0İ4000 NRP0640 PV(16384) RV127ī660 XLOOP05,25225,25 215,15215,352 205,65225,65G 0,50R200,50RO 22p 10)"YOU ARE : $" LOOP1100 PLAY(1) PLAYPĪLL1:RHRHB:RPRPB:520 PLAYPĪWW1:RHRHPA:RPRPPA RH0İ5000:660 Y50(WPODDS: ";ODDSK PW((1(HPCT100))1000(1(ODDS1)).5)1000q " (PROB. OF WIN IS: ";PW " SIZE OF BET: $";B  6RRP @HRH JPPW TPABODDS ^J1100 h:3 r0,00,159 |0,50200,50 2 $1 8 "NOW ENTER THESE VALUES OR YOUR OWN:"\ " HOUSE FUNDS: $";RH " HOUSE PERCENTAGE: ";HPCT " PLAYER'S FUNDS: $";RP RP100ĺ"SORRY......":"WE DON'T ALLOW YOU LOSE MORE THAN $100.":220 " "$ d"IS PLOTTED AFTER EACH PLAY."* nX x" HERE ARE SUGGESTED STARTING VALUES:"| " HOUSE FUNDS: $1000 " HOUSE PERCENTAGE: 5 " " PLAYER'S FUNDS: $25 " ODDS(E.G. 9 TO 1): 9" " SIZE OF BET:  :#12)"GAMBLER'S RUIN")L(8)"H.EDELSTEIN NOV 29,1979"R2|<" SHOWS HOW THE GAMBLER IS RUINED"F"EVEN IF THE ODDS ARE 'FAIR'...THAT IS,"P"EVEN IF HOUSE PERCENT IS CLOSE TO ZERO." Z" THE PLAYER'S NET GAIN OR LOSS  (ҮƠ)FdE()"cca(ӽ)Fa(Ҡ) a(ҮƠ)FddE();cca(Š)a(ŠƠ)a(ӯ)bE(Ϡ)FY_(q nd2e? sa()G ud2exY}`%qq6 q.?%rqqq`%q`%q3d ed!ed%e`%M6qd%ecca(Ġ)F cca(ӽ)Fa(Ҡ)a qd"ed#ed ed!eM6 UVW(qUVWdY`%qd"ed#e*d ed!ed%ed$ea() UVW (^q/?r2`$ZP_sZ]àӠŠƠ dM6M6-N@"r@p(ҠƠӠĠ)Ld"ed ed!e'd#eM6d#ed%eccd%e&a@GT`X%qXcca@E()F6qqqqqqdqqqd]սƠӯɠΠҠ̠ŠӠɠĠΠŢҠԮɧĠ̮ΠӠԠŠӠϢҠĠӠŠԮǮĠΠ٠ӠҠΠԠΠ׮ŠϠŠŠ̢ȠƠΠ̧ĠԠנŠӠԠٮՠŠĠήҠՠΧԠ٠ӠԠخ̮ǠӠԠ٠ǢϠŠĠƠԠϠԠΠŢĠȠҠӠӮΠӠǢϠϠȠӠٮĠŠŠƠͮԠӠĠ΢ƭήŠԠƠ̠ŠӠŠԠƠҮΠϠӠӠԠŢӮŠӠϠ̮ŠȠƠ٠ӠĠΠŠ΢ԠΠΠŠҠΠŢήקӠԠοɠĠǮΧԠҠԠΠǠȠԠŢŠӠŧӠ٠ƠǢŠӮӠ٠ŠŠŢƠŠŮŠΧӠ٠ӠҠΧӢ٠ȮՠΠŠŮҠՠΠŠͮ REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23 ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USEDɠŠԠĠ͠נΠڮɢŠɠŠ͠٠͠עĠŠ̠Š٠ҠҭήҠΠŮԠӠ̠ŠˠҮԢĠŠŠϠԠՠԠƢ     ӠڠҠҢŠӠŠӢΠԠӠΠȠϠŢӠƠԮŢҠӠŠȠƠӮԧӠĠϠŠŠΠէŢԮ͠ŠӠĠ٠٠ԢԠŠϠԠȠҠٮŠϠԠԠԡŠŠĠӠȠϠΠŠȡҭΠԠԮӠΠšΠŮΠŢ٠ӠΠŠŠƠŢҮŠΠΠΠŧҠŠΠŠî ՠǠԠԠàˠޠޠޠޠޠޠޠޠޠޠޠޠޠޢҠŠנΠ̢ɧĠҠŠҠΠ̢ŠӠ̠ҠŠĮ 280X,160Y II1* J3001200 W PROGRAM TO DRAW LISSAJOUS FIGURES FROM CREATIVE COMPUTING TRS-80 STRINGS COLUMN MODIFIED FOR APPLE BY JERRY FICKEd:24:"TRSH"h:36nI0:J0:A((1)4)1\oB((1)6):C(((1)4)1).7854ipAB110zqABC0110tTT1uV1140:V290vV480:V578wV36.6183xX(V1V2(AIV3C).5)Y(V4V5(BIV3).5)JJ1 X,Y ӠŠĠȮԠӠĺΠŠӠǠŮŠԠԠ٭ԠӠΠծŠҠǠԠŠҢΠҭġӮŠĠҠؠĠΠĢΠ̭ҮǮȠӠΧԠ̠ŢŠ̠šĠΧԠŠŠĠΠ̠ǠĮҠҭǭɠŠҠӢŠϠΧԠŠŠήҠҭɧĠҠŠǡǠŠĠƠԠӠĠҢҠŮ٠ӠҠԭЭŠġϮΠҠˠՠΠŠҮէŠĠӠԠՠŢΠԮҠԠԠӠŮӠŠ٠ӠԭŠՠŠ̮է̠ŠϠРҢ0 Y0Y95:130' Y95Y0:1300 130I INTERESTING HI-RES UKdnX(1)140:X(X)2xY(1)96:Y(Y);X,YHX,191YU279X,Yf279X,191YyC((1)8):CA((1)41)A160,170,180,190XX1:200YY1:200XX1:200YY1X0X139:130 X139X0:13 ŠɠԬǠĠ٠ŢԬǠҬĢŠà͠ǬĠƢϠŠΠͬĠΧԠϮćŠϭǠԭԢŮɠӠԠŠӠŠΠ׮ԠӠŠҠӠŠϠӮΠΠӠӮ٠ĠŠӮҠԠŠӠԠӡŠġΠŠҠԭŠήz             !!!!!" """̠ӠŠŮ̠ӠŠӮ٠Ӡˠ̠٠Ӯ͠ӠΠҮĠӮšǠϠӮŠƠӠĠԠҠ٠Ю130 INTERESTING HI-RES  279X,Y 279X,191Y0 OO1:O1O1> X,Y:M,NL P,O:R,Sf C(16384):16368,0t C127ĂB C127Ĭ 30 YY1:200 XX1:200 YY1 X0X139:220 X139X0 Y0Y95:130 Y95Y0:130 1:X1X0 URR1:R1R04 ZMM1:M279M279K _PP1:P279P279T a140k dYY1:Y191Y191~ iSS1:S1S1 nNN1:N1N1 sOO1:O191O191 u140 xYY1:Y1Y1 }SS1:S191S191 NN1:N191N191 X,191Y  :3M139:N95:M,N2X139:Y95:X,YFP139:O95:P,OZR139:S95:R,SlA((1)4)1(B5(((1)5)1)52A60,80,100,120<XX1:X279X279ARR1:R279R279FMM1:M1M0KPP1:P1P0M140 PXX   ǭŠϠԠŠŠƢҠӠŠΠĠ̠Ԣ٠ΠĮԠŧӠϠŠΠŠ̮Ǡ͠ǠԠŮӠŠ͠ӮԠ٠ӠΠĠ΢ŠӠԠŧӠ٠ƠǢӠԠįԠӠΠůŠӠįĠϠŠծΠ̠ӭΧԠԠŠРŮԠҮȠҠӠȠŮҠ̠ԠŠ̠àȠϢ̠ΠӠŠӠסŠˠ̠ԠŠȮŠԠƠӠ̠ŠϠŢӮ٠ӠŠ٠ƢϠӠͮΠà٠ӠǮˠ˧ƠէŠȮˠƠէŠĮŠƢàЮŠӢԠӠàӬĠŮɠӠԠŠΧԠŮԠƠԠҠŮɬŧĠŠŢӮҠŠӠϠŠŠӠӡNNLUVW'f/?rq/?'rq/?'rq/?'r`%YijklmnYQƠԠΧԠҠΠŠĠԠŠϠԠĠӮҠƠȠӠ٠ŠԠŠԠȠϠŮŠΠŮӠӠҠנՠҢˠŮԠΠӭΠŠ͠Ŭ٧ŠΠ٠ĢӮӠŠŮɧ͠Š٠ĠҭԠҠΠԠƠà٠ΧԠԠԠĠϠŮԭŠӠΧԠנӮРРԠĠȠ١ǠӠŠԠ͠Ơٮ٭ΧӠԡĠҠӠҮà֠ӠԠӮκͬӠϠ̠Ӯ٠ϠϢ٠šˠΠӠȮf gh YZ_xqL_&dLnqqqxq/?(rq/?(rq/?(rq/?(rq/?rq/?rq`d$ qUVWX88rrUVWX88rrq1?rq1?r`$fgh_  ԠϠȮӭԧӠԠ٠ĠԧӠŠסɠӠӮŠנĠΠŠǠҠŢŮΠŠĠ֭ΠŠ̠ƠŠΧӠ͠΢ŠŭŠϠΠӠŠŮԠҠ̠ԮԢΠ̠ӮҠΠΠĠҠ֭ƠէŠΠŠҠҠէŠ̮͠͠٠­Ƞ١٭ϠӇԇɇ̇̇ӡΠΠԠ̠ԮǠΠҠӿŠŠîԭԠΠΠĠˠŠϠĮӠΧԠԠȮŠ͠ȠŠŠ̠ӠԢŧӠϠĮҮˠӠĠӮŠΠҠӠŠϠ̢ӠΠΠҠԠǭǭΠĠӢٮ0,32,248,230`  104,134,3,134,1,133,0, 170,160,1,132,2,173,48,192,136,208,4,198  1,240,7,202,208,246,166,0,208,239,165,3,133,1,198,2,208,241,96 D1013,76:1014,0:1015,3 N 480I1200#T255,1.P185P<IMP250502WTP,2^PnP502502xTP,2"P,210I768833:P:I,P:I  201,84,208,15,32,177,0,32,248,230,138,72,32,183,0,201,44,240,3,76,201,222,32,177, Ϡ ٠̡(1P)2))((12P)2PXX2))?TH(((2M)((1P)2))(PX))EdH(((2M)((1P)2))(PX))ldHMBER ";MM;"%"A"POSITION OF CAMBER ";PP;"%";" THICKNESS ";TT;Gdp SUBROUTINE FOR FORWARD~z PORTION OF MEANLINEYC((M(PP))((2PX)X2))TH((2MP)(1XP))d SUBROUTINE FOR AFTn PORTION OF MEANLINExYC((M(DEPENDANT&pON WHETHER APPLESOFT IS=qIN ROM OR IN RAM Or(110)32đht SET COLOR TO WHITEow3x21:958:"SECTION CHARACTERISTICS OF"y"NACA WING SECTION ";zP1((PP5)10):MM;P1;:TT10ĺ"0";{TT;":" "PER CENT OF CAP$)0PP$"40"EPP(PP$)1JPP1PP995410>TPPP100HY5305`^ SET UP APPLE HIGHzh RESOLUTION GRAPHICSm(110)32PICTUREFLAG1:"PLEASE PRESS ANY KEY WHEN THRU VIEWING":I12000:I:nSELECT PAGE 1 OR PAGE 2 oHIRES BUFFER M""CAMBER, IN PERCENT OF"M"CHORD (0 TO 25) ";MM$:(MM$)0MM$"6"[MM(MM$)pMM0MM255350}MMM100MM15305":'"WHAT IS THE POSITION","OF MAXIMUM CAMBER, IN"6"PERCENT OF CHORD"@"(1 TO 99) ";PP$:(P0) ";SSdSS5SS2005200(nS1SS25350::U"WHAT IS THE MAXIMUM"r"THICKNESS, IN PERCENT""OF CHORD? (0 TO 30) ";TT$:(TT$)0TT$"12"TT(TT$)TT0TT305305TTT1005470:"WHAT IS THE MAXIMU9"STANDARD SCREEN FORMATTING? (Y OR N) ";A$:YFLAG1PA$"Y"A$""5300X :u"GIVE CHORD IN PERCENT""OF SCREEN WIDTH (10 TO 100) ";WW10W1005130(CC(W100)P:U"HOW MANY STEPS ACROSS"Z"CHORD? (FROM 5 TO 20C,YLC90XXS12304 ROUTINE TO INPUTL WING SECTION DATA[ DEFAULTSq CHORD IN SCREEN COORDINATESC279 STEPS ACROSS CHORDS15016368,0:YFLAGĺ:"ANOTHER WING SECTION? (Y OR N) ";A$:(A$,1)"N"ė:: XUXYTST YUYCYTCT- XLXYTST= YLYCYTCTY  DEPENDING ON COMPUTERq  PRINT OR PLOT THE  POINTS FOUND. XUC279XUC0YUC90159YUC9002035 XUC,YUC90 XLC279XLC0YLC90159YLC9002200 XLSECTION (YT)9 YT(T.2)(A5X5A1XA2X2A3X3A4X4)M  CHECK IF DONE\ YT0YT0t @ FIND CO-ORDINATES J OF UPPER AND LOWER T SURFACES, (XU,YU) ^ AND (XL,YL). h CALCULATE SINE m AND COSINE OF TH. rST(TH) |CT(TH)  CALCULATE POWERS OF X( X5(X)3 X2XX? X3XX2L X4X2X2b x CALCULATE THE Y|  COORDINATE (YC) AND  ANGLE (TH)  OF THE MEANLINE  FOR EACH X. XPİ6000 XPİ6500  FIND THE THICKNESS OF  HALF THE `A5.2969 jA1.126' tA2.36164 ~A3.2843B A4.1015]  SEE "THEORY OF WING"n  "SECTIONS"  BY ABBOT ET AL  *********  INPUT THE DATA PICTUREFLAGĹ16368,0:A$: 5000  STEP ALONG CHORD X0 X11200IN RESPONSE TO EACH QUESTION."& 237 K12500:KJ  A PROGRAM TO_  CALCULATE NACAp  FOUR DIGIT  WING SECTIONS  BY JEF RASKIN  AUGUST 1978 $ ********** L ********** V CONSTANTS FOR THE W THICKNESS POLYNOMIALG 216,0Z d:10:17/n"AIRFOIL":x12:9\"A HIGH-RESOLUTION GRAPHICS"g14:5"PROGRAM FOR AIRCRAFT WING SECTIONS"18:5"COPYRIGHT 1978 APPLE COMPUTER INC" 20:" FOR DEMONSTRATION