' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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- (  ŠɠΠˠ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(`# d ֠Ġz# u`Yy[Yhghgh fgh \yH ] I ]ŠҠǠĠJ ]R fq6\ lm'nq`(%_\ Ef flm nijkijk lm nghHqQyUVWijkijkijk* ijkijkijk7 lmnlmn lmn lmn  flmn  f g hg h' flmnghgh9 ghghghgh  ghgh gh gh v \y fq6 lm'nq`(%_  ] ]ŠƠĠ ]+ flm nijkgh f ijkgh7 ijk%_  q6 lm#nq`%_ 0 g hg hg hg hg h g hg hg h( fgh fg hghB g hg hghghgh gh g 7J lmnijkijkijkT f q6^ l mnq`%_^ h q 6r lmnq`%_r | q6 lm#nq` hg h# ghfg hg h \y fq6 lm'nq`(%_  f q6 lm(nq`(%_ ? ]$@ ]ŠҠŠĠԠA ]E f ijkd f q 6n lmnq`%_n x q6 lmnq`%_ , fghghghghG ghghfg hg hghg\y( fq62 lm!nq`(%_2 < fq6F lm'nq`(%_F O ]P ]ҠĠĠQ ]FZ f lmnghghghlmngh[hg hghgh"t ghghijk"~ lmnghgh ghgh f UVWghgh(Y] g hg hg hg hg hg hg hg hg hg h' q`%_8 IB i jk ijk i jk ijk g h gh #L fijkijk,V fghghghgh\ f,` ghijkghgh5j fg hghgh\yfq6 lm'nq`(%_  ]  ]ŠҠàĠԠ ]A f lm nijk ijkghgh  $ gh . f q 68 l mnhghi jk 0ghijkghfgh8fijkijkijkgh gh If ijk ijk ijk ijk ij kg!hghghgjk ijk ijk *ijk ijk>lm nlm nHijkijkRijk`]Ǡ#ff ijk ijk *pi jk i jk i jk#zf g hg fqlm'n&q`(%_(fijkghgh4ghghijkghgh & ghlm nijk "flmnlmn3 ghiYD^ijkijkijkijkijk5hfl mnfijk ijk /rghghijkijk&|ghijk ijk \y]]Š Ġ] Lfqlm'nq`(%_]]Ҡ]=flm nghghlm ngh?] @]A]#JfijkijkTUVWYijk            ӠͿ)uR@u_dy]٠ο$"ya(ϠՠԠϠ٠)R@,y`@*#r9()%_6y`@*#r9()%Q@y_"y}UVW Y }ccc}[8]Πӭ̮٠̠Š@:ua(ϠՠŠΠҠϠӠͿӠҠϩ)GR@a(ŠӠƠŠ͠ԠĠŠŠΠΠ)THa(ϠӠȠΠŠĮŠƠǠ٠ҠϠ)ea(Ǡſ)\}\0u[ M6a()c%a(ŠΠ٠ŠȠ)*a(ǠԠŠҠӠϠ)*a(ŠŠ٠ƠŠҠϮ),a(ҠŠӬ)a(͠ȠԿ)B\}G\0uK[ LM6Ma()c.Na(ՠŠΠҠϠȠƠ).Qa(ԠӬĠĠŠ)-Va(ǠӮΠנ٠))[a(ӠΠՠŠŠŠ)-`a(ŠҠԠӠ)+a(ҠԠؠ٠٠ԠήԠ).a(٠ŠŠŠԠ),a(ԠؠҠȮȠРӠ)+a(٠Ӡөנ)-a(Ӡ͠Ԡؠ̠Ƞ(ŠԿ)z\}\0u[ M6a()c-a(ҠҠӠŠӠĠ)-a(ӠŠӠΠŠӠӠĠӠ)+a(ŠӠ׮ŠӠנĠӠ)a(Ӡſ)\}\0u[ M6a()c.a(ĠӠٮŠԠΠ)-4a(ĠŠĠĠӠٮŠ)$9a(ԠΠŠĠŠ)+>a(ĠӠٮŠԠ)-Ca(ŠȠŠĠԠԬԠ̠),Ha(ĠԮȠנȠ٠)Ma)c-a(ԠŠŠԠŠӠƠŠ)a(Ҡ޹)\}\0u[ M6!a()c."a(ΠԠΠҠΠ).%a(Š٠٠ǠϠŠӮ)(*a(ŠĠƠŠԠŠŠĠ),/a(Կ)N\}S\0uW[ XM6Ya()c&Za(ΠϠӠŠ)-]a(ҬӠԠŠҠŠ)+ba(ԠƠŠҠϠ̠Π)+ga(ŠԠӠƠŠӿ)\}\0u[ M6a(a()c-a(Ӡ ӠӠ޵)(a(Ơ̠٠ϠŠΠ)-a(ΠԮƠȠΠ)-a(Ġ͠ȠŠĬԠӠ)*a(ŠƠҠǠȠҠ) a(ǠŠΠӠӠҠӠ),a(ӠҠӮŠΠΠ)-a(̠ҠҠȠŠ)-a(ŠӠŠӠȠ٠ӠŠ),a(ŠƠŠ̠ˮԠ)a(ŠŠſ)\}\0u[ M6Ӡ٩Ġ͠Šˠ)-Oa(ŠҮŠԠŠԠΠ) Ta(Ġ٠ŠΠٮ)\}\0u[ M6a()c*a(ΠӠˠĠӠ)(a(ĮŠҠӠŠ)-a(ӠĠҠةƠ),1a(Ԡ٠٠ϠԠΩĠ),6a(Ӡ٠ӠҠӠȠ),;a(٠ԠϠΠҠӠΠ)-@a(٠Ơ٠ΠӠҠĠ).Ea(ӠԮϠĠŠԠ).Ja(Ơ٠ĠĠ)'a(Š͠Ҡ٠Ԡ),a(ήԠŠĠƠӬ)+a(ҠĠ٠٠ϠŠҮ),a(נ٠ĠŠ٠Šٿ)"\}'\0u+[ ,M6-a()c..a(ĠŠŠΠ)-a(ӠŮϠӠŠĠƠͿ)\}\0u[ M6a()c-a(ϠŠӠΠΠŠԠ)-a(̠̠Ӭ)*a(ҠĠϠ٠͠)-a(٠Π).sa(ԠΠӠƠŠŠŠҠ)+xa(ӠĠӠ̠ϠŠ)'}a(ƠӠҠҠӮӠ)-a(ĠŠӠΠª)-a( ӠĠŠΠ)-a(ĠӠԠӠ  \ O4 r N@"r N@"rN@"rC@"r\'<_* P\dZ_*cQ dM6ea()c.fa(Šά¬ĠìȠҠӬ))ia(ªĠê٠ŠӮ)-na(ӠȠӠԠŠ                     L\(#\\(#\l\%q\\#[1g \\(#\\%q\\(#\\%4h \q\\(#\\%q\\#[(#\%a()G[#\%cc[.%q'.?$r`;@r;@r%ca@G[L' q\\(#\L\(#\\(#3 \\%\4\(#\\%q\\#[H q\I _I  1S \\%q\\(#\\(#\\%9T q\\(#\L\(#\\%q\\#[M] \\(#q\\(#\ q\\#[ ]ӠȠ q\ _   q \\(#\\% q \\#[' q\\(#\x\(#\L\(#' \\%q\\(#\@\% q \\#[' \L\%q\\(#\L\%\(# \\%q\\#[- q\\(#\\%q\\(#- \\%q\\%q\\(#9 \\%q\\(#\@\%q\\#[' \l\%q\\(#\x\(#! \\(#\\(#\4\%#\\%q\\%-= q \\(#\\%q\\(#)> \\(#\4\%q\\#[ ]ӠĠ q\ _  - q\\(#\\%q\\(#7 \@\%q\\(#\\%q \\(#\\%q\\#[ ]ӠĠ q\ _  C( \@\%q\\(#\x\(#\\%q\\#[12 \\(#\x\(#\\%q\\(#)3 \\(#\4\%q\\#[-< q \\((# \x\(#\\(# \\%q\\#[' q\\(#\\(#\\(#! \\(#\\(#\x\(# \\%q\\#[' q\\(#\\(#\L\(#' \\%q\\(#\\(#3 \\(#\x[@p()[@p()[@p()[@p()[@p()[@p()[@p(Ƞ)[@p(Ƞ)[@p(Ƞ)[ ]ӠԠ q\ _  - q\\(#\\%q\\4]ЮϠ5q\ 6_6 7@p()[ 8@p()[9@p()[:@p(Π)[;@p()[<@p(Ϡ)[=@p()[>@p()[]q \ _@p()[@p()[@p()(Ԡ)[t@p(Ġ)[ ] _@p()[@p()[@p()[@p()[ @p()[ @p()[@p()[@p()[@p()[@p()[ @p()[ @p()[@p()[@p()[p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[l]ԠҠЮԮmq\ n_no@p(Ġ)[p@p(Ԡ)[q@p(Ġ)[r@p(Ҡ)[s@p)[@p(ϠŠԠ)[@p(ϠŠԠ)[@p()[@p()[]ӬԠƠ q\ _  @p()[ @p()[ @p()[@p()[@p()[@p()[@p()[@p(Ӡ)[M@p(Ӡ)[N@p(Ӡ)[ ]Чq\ _@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p([@p()[@p()[@]Ӡ̮̮Aq \ B_BC@p()[D@p()[E@p()[F@p()[G@p()[H@p(Ӡ)[I@p()[J@p()[K@p(Ӡ)[L@@p(ŠΧ)[]Πq\ _@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()@p(ŧ)[@p(̧)[@p(ȧ)[@p(Χ)[@p(ҧ)[@p(ŧ)[@p(ŠΧ)[@p(Šǧ)[@p(ŠΧ)[@p(ŧ)[@p(ħ)[@p(ȧ)[@p(Š٧)[@p(Š)[@p()[@p()[ @p()[!@p()["@p()[#@p()[$@p()[%@p()[&@p()[x]Ӡʮyq\ z_z {@p()[|@p()[}@p()[~@p()[@p()[@p()[@p()[@p()[]ɠ̠q\ _@p()[@p()[@p()[@p()[@p()[@p()[@p()[)[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[)[]̠q#\ _@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p(X@p()[Y@p()[Z@p()[[@p()[\@p()[]@p()[^@p()[_@p()[`@p()[a@p()[b@p()[c@p()[d@p()[e@p()[f@p()[@p()[@p()[@p()[L]̠ʮMq\ N_NO@p()[P@p()[Q@p()[R@p()[S@p()[T@p()[U@p()[V@p()[W@p()[[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p( N@"rM6\ \ \ \ \H  R@_q/?r[]Š̠ʮq\ _@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()             Ӡ!2}]àӠde`[> }]Π٠ĠˠĠΠˬά*}]ŠΠ͠ӠΠӠ?}]ӠҠŠӠ#}]ԠӠ (}]ǠӠ!-}]àmnghlmn[.|]ŠŠΠӠĠT}dede0dededededed ed e_}d ed ed ededededeLdedejklmnijkgh[#ijklmn[2lmnijklmn[Llmnghlmnghlmn[Llmnghlnijklmn[=ijkijklmnlmn[dijkijklmnlmnghghgh[rghijklmniklmngh[.pijklmnlmn[6zlmnijkijk[Rlmnlmnghlmnlmn[Iijklmmnijk[=Hlmnijkijklmn[9Rijkijkijklmn[0\lmnijkijka[cfghijklmnijҠˠ!lmngh[/ ]ӠԠӠΠaghijklmnijkghgh[Y*ghghghlmnl^BlmnijklmnijkijkG[&]ŠӠΠ_ghijklmnijkghgh[&[]Šklmnijk)gh[J.ijkghghghlmn[_8lmnlmnUVWXijkYlmn=lmn[n lmn[Fijklmnghghgh[eijkghijklmnijkgh[^$ijklmnijmn[4ghlmnijk[lghijklmnghghghijk[SghghUVWXijkYlmW\YϹKM6o S(ϠՠԠϠ٠Π)&@`@9()$M6_>cca(ӠҠǠ٠Ƞ)oPa()Q/]ӠԠӠΠIijklmnijkl <@*#rrqY/zqf/?r`c$` $q\ _:q\ 8 rq\ 8 r_Tq \ 8drq\ 88dr rq\ 8 rHUϹV$R` $>*qq\ 4_f7>qq\ 8 rq\ 8 rH_f=Rq q\ 8drq\ 88dr r\q\ 8 rf@p(Ԡ)qq9pf/?rUVW\$bױE(ԠΠԠٮ)<`ױ$P bױE(ԠΠĠٮ)A`$ `$PbE(ŠǮ)_ Pa(ŠӠǮ)_ 'Pa(ՠԠ̠͠ԡ)' Lf/?r`cˠŠҠĠϠŠƠԠӠ`$2_`$2_`$2_Oa(ԠšǧӠǠȠӠ͇) Y$ ]ӠԠӠ>`ױ$`ױqq\ TM6&]ŠӠΠf\f/?r/` $ڲq ڱq `ڲ $_ ڲq`$q\ ڲ!` $q"\ ڱ_ B]Ӡ&a]ӠĠԠآbUVW ghY$lq UVW ghqYq_)vi j k `$l m n f/?rqq\ )f/?rijk ijk `$, f/?rca(ԠΧԠŠҠΠ)_+$0UVWq/?rq/?r 5q:`$Dq/?rDM6Lf/?rIM]ӠҠǠӠΠӠŠΠӠNqq\ Xf/?r`$vUVWqY_*&a(נ٠ӠϠՠ)GT'`$E(`$+a(ŠҠƠӠԠŠӠα)_&U+cS(ԠӠŠԠҠՠԠϠſԠԠŠҠΠ)'-` $0(.ˠ)cc>a(ϠՠԠάάҠο)qױq9a(νν)S(ν)'`$&Aa(ĠŠӠ) ڱO|qqf/?r@p()UVW\ <@*#rrqYSqq@p()UVW\ <@*#rrqY\\_ %UVWqY[`M6oa(Ƞ͠٠ĠĠ͠ӠϠ͠?+]ӠԠŠԠҠĠԠҢ,f/?r_, 6q_T@q_T Jq#T` $^ڲq ڱq Y_h ^ڲqhq\ ڲ!r` $|q"\YC@p()qqUVW\ <@*#rrqY*ױqױ]ҠҠĠR]ŠӠΠĠӠԠƠ͠ȠҠĠŠ \_DL*]ƠŠ͠ӠĠŬŠǷY\`$\_DQ]ŠӠΠĠӠԠƠ͠ȠҠĠ7fqUVW\ <@*#rrqYf/?rB@p()qqUVW\ <@*#rrqdede2MUVWqYY_ 2]ӠҠǠӠΠΠŠdedeM&]עӠҠҠǠqf/?rC@p()qqUVW\ <@*#rrqde2MUVWqYY7f/?r<q_F/?r F@p()_xP@p()_xZ@p(ġ)_xd@p(ס)_xn@p(ȡ)_x9xqqUVW;@r\ <@*#rrqYIUVW2G]Ƞ̠٠ĠˠΠˬά&N@" rC@"rC@"rC@"r%\}]ŠΠ K_L1]ԠҠԠӠӠΠŠȠŠD2UVWde          Ϡ'Q̠ϠՠϠөŠϠҠڽϠ̠ϠөD#]Ϊ$E#]ŠŠҠǽϠF#]Ϊ$G#]ŠŠҠƽϠH#]Ϊ$I#]ŠŠҠнv;#]źŠԠӠԠנȠŠ٠ĠŠԠԠϠŠŠӠ<#]=#]>#]?#]@#]:A#]ϠŠŠҠƠӠĠΠ׺B#]ΪpC#]ԠҠڽϠŠӠӠŮ5#]26#]ՠԠŠ٠ҠҠΠ7#]Ϊ:8#]ŠӠΠϠŠŠ9#]Ϊ::#]ŠӠΠϠŠŠϧϠŠӠΠŠԠҮS1#]ՠԠŠϠƠՠŠŠϠƠՠŠ92#]ŠŠŠԠϠŠŠӠҠ§3#]ΪM4#]ŠӠΠϠŠŰ,#]ԠĨY-#]ӠӠŠŠƠΠӠŠԠӠԠҠԠҠU.#]ՠΠŠŠϠҠŠĠԠ̠ŠϠԠҮ/#]ƠΠC0#]Ӡ̠Ԡנ!_z!!M6o!\@!Y!_ /(#]ӠҠǠŠȠp)#]ϠŠŠ̠Ơ٠ԠנŠӠĠנȠŠŠŠ*#]Π$+#]ŠӠϠ\!`$R! a!`$H!f!` $R!k!`$H! p!^q:u!M6o a(ԠӠŠԠƠ)FE()FGcccz!S(ҠҠ)'ñ !`ñ$!!UVWd!αq.?6?r.?6?r.?6?r!Y!\X&!a(ŠԠƠ)FE()FE()ki jki jki jkijkijk 7!ijkijk<9!f ij'k'ij'klm'n'lm'n;!UVWY >!KM6C!UVW H!q/?RrM!`$H! R!q/? rW!`$R!lm&nQOi jki jki jki jk$i jk%i jk&QTijkijkijkijk$ijk%ijk&Yfij'k'^UVW,Y cKM6hYm[X4!Lfi jj'k fij'k"fij'k$[@UVWXELflm&nlm&nlm&nlm&n lm&n lm&n xJlm&nlm&nlm&nlm&nlm&nlm&nlm&nlm&nlmnlmnQlmnlmnlmnlmnlmn!lmn"Dlmn&lmn'lmn#lmn$lmn%Di j kijkijkijkijk9f ilmnlmnlmnlmnlmnlmnlmnlmnVflmnlmn lmn lmn lmnlmn^lmn lmn lmnlmnlmn^qi$j%k ij kij k i jki jk ijkijkPo q/? rqq\ /?rBUVWYo a()Xoa(ϠϠҠӠ٠)UVWY`.?6@)\pjDoa(ҠҠĠӠ٠)oa(ӠΠϠȠŠ)`.?6@r$D+Nq.?6@rd6?e`$K_X"X]ϠȠƠĠ]KqMqM6'bq/?rPo `ĠӠԠ٠Π)Oca(ԠҠȠŠ)ca(٠ǠŠ)*T`%_`%_X`%_ M6Lq/?rPoSq q  \  8roa(ϧӠĠ M6$a(ϧӠĠ)q/a(ԠԠԠԠԠ)\ `%[ S(ȠԠϠՠ)'_[]ԠŠĠUM6a(ȠƠŠǠϠՠ)ca(a@a@F 8rѲ\ 8rѲa@"_d,]ԠŧӠĠ 1M6$6a(ŧӠĠ)q/@a(ԠԠԠԠԠ)T\ ^`%[ hS(ȠԠϠՠ)'r_]ԠM6a(Ҡ)qoa(ŠȠĬΠӠ)`$ VUVWR@Բ@p()Բ@B ;@rrp@\8 8rѲrY_Q UVW R@Գ@p()Գ@B;@rrp@\ѲY6ԠϠſ)1ca(ŧӠ)a(ϧ)a()+a(Ǡ)cS(Ҡ)'M6`$1`%\,`%\`$`$PHoS(ȠԠϠՠԠϠſ)'Ѳ`ѲѲ$KӠӮ)ca(ΠנϠ)HcccS(ȠϠՠԠҠ)'`6%Q`$/`$`$,`$`$]ҠנM6oMa(ϠՠԠϠҠנ)ca(ȠԠϠՠk[_ijk[ d]eM6oWna(ӠӠŧӠĠϧӠĠ)ca(ȠƠŠǠϠՠԠ)Jxcca(ĠנĠԮ)ca(ŠΠȠŧӠ)*}ca(ŠΠȠϧghgh[%Wlmnghq[Xlmnq[[Yghijklmnghghgh[Z[[lmn[\lmn[]ijk[^ijuTlmnlmnlmnlmnghghghgh[LUlmnlmnlmnghgh[\Vijkijkghghghmnlmnghgh[Pijklmn[Q\[\\\_[XRlmnlmnlmnlmnlmn[(!&NԲ@" rCԳ@"rC@"r)'N@"(rC@"(rC@"(rC@"(rg(@p(ΠŬ̵)@p(ĠŬ)@p(ŠŬ)@p(Š)*)@p(ڧ)-qqұq Ҳq R2N               +yMEMORIES:1400,+yCHANGE OF SIGN:14502+yM+zMEMORY PRNT-OUTS:1550c+zSQUAREROOTS:1600~+zINSTRUC PGE CHNG:1650+ COPYRIGHT BY BRUCE TOGNAZZINI *** 1978 ***R400*ryMULTIPLY:500%*|yDIVIDE:600>*yROTATE STACK UP:700W*yROTATE STK DOWN:750n*yPUSH ON STACK:800*yPULL STACK:900*yFULL PRINT-OUT:1000*yINPUT ROUTINE:1100*yX<>Y EXCHANGE:1200*yPOWERS:1250*yPI:1300+yCLEAR SUBRTN:1350OID REPRINTING ENTIRE COLUMN WHEN ONLY ONE OR TWO HAVE BEEN CHANGEDS)y LOCATIONSh)"y PRINT-OUT -- 1),yCMPUTE LGTH OF #'S:10)6yMAIN ENTRYPOINT:20)@yBRNCH TO CMMNDS:21-90)JyNUMBER ENTRY:90)Ty"ENTER" ROUTINE:200)^yADD:300*hySUBTRACT:::::8:"DANGER";:15:"HIGH";:21:"VOLTAGE"<(:5000M(D TIME DELAY[(I936:10|(N"CAUTION ---- HIGH VOLTAGE"(bX11000(lY14000(v:(5500(0u GENERAL NOTESC):u "DIGITFLAG" DENOTES HOW MANY STACKS ARE TO BE PRINTED TO AVBE BACK IN JUST A COUPLE "I'"MINUTES. MEANWHILE I'M TRANSMITTING "x'"DATA DOWN THE HALL TO GEORGE'S ROOM. "'"HE HEARD YOU COME IN SINCE WE HAVE A "'"MIKE IN THIS ROOM, SO SAY 'HELLO' SO "'"HE KNOWS IT'S YOU ........"0(:K15000:K/&P(16336)(16336)(16336)&Q1000(1):Q1P(16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)&OX&P"";&K1250:K&5000&| TEXT&936'10:"DICK: I'LL % LOG(NATURAL)-% STACK(1)(STACK(1))3% B% EXPONENT[% STACK(1)(STACK(1))a%G o%H INTEGER%R STACK(1)(STACK(1))%y % % ANTI-THEFT%X140%K1100(1)25:K%Q100(1):Q1āK11000:K & Q200(1):Q1ā"İ3300$ A$"E"İ3350+$ A$"I"İ34003$ 10F$ RETRN0İ2030N$ 20Y$ SINEr$& STACK(1)(STACK(1))x$M $N COSINE$X STACK(1)(STACK(1))$ $ TANGENT$ STACK(1)(STACK(1))$ $ ARCTANGENT$ STACK(1)(STACK(1))% SOUND(16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)(16336)g# # ADVANCED STATEMENTS SUBR BRANCHPOINT# FFLAG0# OPERFLAG1# A$"S"İ3100# A$"C"İ3150# A$"T"İ3200# A$"A"İ3250$ A$"LTYPEERR69ĺ" OVERFLOW "9" TIME11000:TIMEH" (37):21d" STACK(1)M1:STACK(2)M2" HTBSTACK(1)M3:HTBSTACK(2)M4" RETRNİ2030"T 216,0" 20" ADVANCED FUNCTION ROUTINES" "F" PRE-FIX HANDLING" FFLAG1" 1660a#S#!j IDNTFY$"EDCBAZYX 87654321"4!t 32,14:33,1:!y @!~ O! IDENTFY$;U! f! 32,0:33,40n! 20! ERROR HANDLING ROUTINES! LOCTN(218)(219)256! 16! 12! "";! TYPEERR(222)! TYPEERR53ĺ" ILLEGAL QUANTITY """ IT)1 MINIT R1  SET-UP ERROR HANDLING; 2300F 2500_  INITIALIZE MEMORYSk  MEM(9)}  MHTBSTACK(9)  2330:2370  INIT09 $ MHTBSTACK(INIT)1 ) MEM(INIT)0 . INIT 8 B 1550: MEM PRINT-OUT!` IDENTIFY STACK" "M#S=STR MEM ?"+$"M#R=RCL MEM ?"@&"M#X= EXC X&M?"U)"M#CC=CLR MEM?"j*"M#CA=CLR ALL#"1"RETURN=CNG PG"333,40:4 CONTINUE >STACK(20)?HTBSTACK(20)@2115:2200CINIT1SIZEHSTACK(INIT)0 IHTBSTACK(INS: 1""E = ENTER^"/"CC= CLR ENTRY"D"CA= CLEAR ALL"Y"U = ROTATE UP"n"D = ROTATE DN""X = X<>Y EXC""S = CHNG SIGN""+ = ADD""- = SUBTRACT""* = MULTIPLY""/ = DIVIDE""^ =Y TO THE XCPLCNUMBER01550204 INITIALIZATION LROUNDDECPLCNUMBER9936:1:" <<>>"10:"BY BRUCE TOGNAZZINI"34,3:936SIZE82030:2100 PAGE 1 COMMANDS33,14::5" COMMAND23"RETURN=CNG PG"$33,40:H DECIMALPOINT LIMIT ROUND-0FFlNDCFLAG1:13:24:".000000000"r13:24:868:NDCFLAG0(A$)49(A$)5720: LOOKING FOR ONLY A DIGITROUNDDECPLCNUMBER(A$) ROUNDDECPLCNUMBER9ROUNDDE"FS= SINE(X)"("FC= COSINE(X)"="FT=TANGENT(X)"R"FA= ARCTAN(X)"g"FL= LOG(X)"|"FE= EXPNNT(X)""FI=INTEGER(X)""L#=# DEC PLCS""Q =SQR ROOT X""P = PI""'ESC'= CANCEL"" "1567MEM(PRNT);!PRNTĺ+"PRNT1?C@ SQUAREROOTS\JSTACK(1)(STACK(1))dT10s^OPERFLAG1yqrINSTRUCTION PAGE FLIPSwRETRN1RETRNyRETRN1660z2030:| PAGE 2 COMMANDS}33,14::5" COMMANDS: 2"MMFLAG0:MCFLAG020. CHANGE OF SIGNGSTACK(1)STACK(1)1O10UlMEMORY PRINT-OUTS16:PRNT81116" ";:25MHTBSTACK(PRNT)ROUNDDEC91565X((MEM(PRNT)10ROUND.5)10ROUND):X;:UMBER)STACK(1)9A$"R"OPERFLAGİ800:DECIMALPOFLAG0xA$"R"STACK(1)MEM(NUMBER):HTBSTACK(1)MHTBSTACK(NUMBER)A$"C"MCFLAGMCFLAG1:20A$"C"MCFLAGMEM(NUMBER)0:MHTBSTACK(NUMBER)1:1550A$"A"MCFLAGİ2330:1550MFLAG0:OA$"S"MEM(NUMBER)STACK(1):MHTBSTACK(NUMBER)HTBSTACK(1):1550:OPERFLAG1A$"X"HOLDSTACK(1):STACK(1)MEM(NUMBER):MEM(NUMBER)HOLD:HOLDHTBSTACK(1):HTBSTACK(1)MHTBSTACK(NUMBER):MHTBSTACK(NUMBER)HOLD:1550:OPERFLAG1A$"S"M(NUMBER)M(NPCFLAGA$"A"1380'ZCFLAG13909_CFLAG1::20Cd2115mnSTACK(1)0:OPERFLAG0:DECIMALPOFLAG0sHTBSTACK(1)1wx MEMORIES}CFLAG0MMFLAG1440(A$)48(A$)57MFLAG0:20NUMBER(A$)("0"):MMFLAG11449TBSTACK(1)HTBSTACK(2):HTBSTACK(2)HOLD7DIGITFLAG2=J POWERS\HOLDSTACK(2){STACK(2)STACK(2)STACK(1)900OPERFLAG1: PIOPERFLAGİ800(DECIMALPOFLAG.0000012STACK(1)3.14159265EF CLEAR SUBROUTINEROUNDDECPNT9Ė25ROUNDECPNT@]OPERFLAGNDCFLAGĖ24:(37)2c`MFLAGĖ24:24NUMBERMMFLAGkeA$jSOUND(16336)(16336)(16336)(16336)t X<>Y EXCHANGEHOLDSTACK(1):STACK(1)STACK(2):STACK(2)HOLD'HOLDHTBSTACK(1):H PULLSTACK(SIZE)01HTBSTACK(SIZE)1ARWTAFLAGıI10Og PRINTOUT & INPUT 5(SIZEDIGITFLAG)(DIGITFLAG)3DIGITFLAG0$(37).PD1PD0:24:".";L INPUT [24DECIMOPOFLAGDECIMOPOFLAG\K *PUSHSIZE11164STACK(PUSH1)STACK(PUSH)Z9HTBSTACK(PUSH1)HTBSTACK(PUSH)d>PUSHsHSTACK(1)0IHTBSTACK(1)1MOPERFLAG0Q PULL STACKPULL1SIZE1STACK(PULL)STACK(PULL1)HTBSTACK(PULL)HTBSTACK(PULL1)(1)HOLDHTBSTACK(1)HHOLD2DECIMALPOFLAG0:20T ROTATE STACK DOWN fHOLDSTACK(1)|HHOLDHTBSTACK(1)RXTAFLAG1900RXTAFLAG0 STACK(SIZE)HOLD HTBSTACK(SIZE)HHOLDDECIMALPOFLAG020  PUSH ON STAC ERR":TIME1100:20:(37)7mFF1FF:FFĺ"-":623@n":"goTIME:(37):20:" ":20vSTACK(2)STACK(2)STACK(1)900OPERFLAG1: ROTATE STACK UPHOLDSTACK(SIZE)HHOLDHTBSTACK(SIZE)800: PUSH STACKCK(2)STACK(2)STACK(1) T9001OPERFLAG1:B SUBTRACT aSTACK(2)STACK(2)STACK(1)j900{OPERFLAG1: MULTIPLY STACK(2)STACK(2)STACK(1)900WOPERFLAG1:X DIVIDE gSTACK(1)630i12:20l" BY 0 "ENTER" ROUTINE *800: PUSH >DECIMALPOFLAG0F20^ SET DECIMAL POINT}DECIMALPOFLAGOPERFLAGıOPERFLAGİ800:DECIMALPOFLAG1:NEW # ENTRYDECIMALPOFLAG1A$"0"PDPRNTDECIMALPOFLAG1+, ADD JSTAAGHTBSTACK(1)1120:# IS MAX THAT COMP. CAN ACCEPT, SO RETURN TO ENTRYPOINTd nDECIMALPOFLAG150 xSTACK(1)STACK(1)10(A$)("0") 170 STACK(1)STACK(1)((A$)("0"))10(DECIMALPOFLAG1) DECIMALPOFLAGDECIMALPOFLAG1 1020A$"F"İ3000 RNDCFLAG17251 SA$"L"İ1700K Y(A$)48(A$)5720^ Z NUMBER ENTRY eOPERFLAGDIGITFLAG1: ONLY PRINT STACK(1) IF NOTHING ELSE IS CHANGED gMCLRSTACK0 iOPERFLAGİ800:DECIMALPOFLAG0: NEW # ENTRY M jDECIMALPOFL $A$"D"7503 %A$"."İ250:SET DECIMALPOINTE &A$"X"İ1200] (A$"+"A$";"İ300n 2A$"-"İ400 <A$"*"A$":"İ500 FA$"/"İ600 HA$"^"A$"N"İ1250 IA$"P":1300 JA$"M"MFLAG1 MA$"S"İ1450 NA$"Q"İ1600 QSTACK(2):M3HTBSTACK(1):M4HTBSTACK(2)2 2500T (A$)3ĉ:23:: CONTROL Ct (A$)13İ1650: "RETURN" FFLAG3050: ADVANCED FUNCTIONS MFLAG1400 A$"C"İ1350 A$"A"CFLAGİ1350 !CFLAG0 "A$"E"200 #A$"U"700F NUMBERS TEST05 ((STACK(1))10TEST)015I TESTTEST1:12\ TEST9TEST1 HTBSTACK(1)TEST(STACK(1)0)(((STACK(1))100)0)(STACK(1)(10TEST)) STACK(1)0HTBSTACK(1)1  1000: PRINTOUT & INPUT' M1STACK(1):M2# :2000& PRINTOUT & INPUT OPRNTDIGITFLAGSIZEDIGITFLAG11W16w" ";25HTBSTACK(PRNT):ROUNDDEC98X((STACK(PRNT)10ROUND.5)10ROUND):X::STACK(PRNT) : COMPUTE LENGTH O          97,(247)& CALIFORNIUM,CF,98,(251)C EINSTEINIUM,E,99,(254)^ FERMIUM,FM,100,(253)~@ MENDELEEVIUM,MV,101,(256)A NOBELIUM,NO,102,(253) B LAWRENTIUM,LW,103,(256)'# DONE,DD,1,1'OA,88,226.05& ACTINIUM,AC,89,(227)A THORIUM,TH,90,232.12a PROTOACTINIUM,PA,91,(231) URANIUM,U(UR),92,238.07 NEPTUNIUM,NP,93,(237) PLUTONIUM,PU,94,(244) AMERICIUM,AM,95,(243) CURIUM,CM,96,(248) BERKELIUM,BK,.09 GOLD,AU,79,197.05 MERCURY,HG,80,200.61Q THALLIUM,TL,81,204.39i LEAD,PB,82,207.21 BISMUTH,BI,83,209.00 POLONIUM,PO,84,(209) ASTATINE,AT,85,(210) RADON,RN,86,(222) FRANCIUM,FR(FA),87,(223)  RADIUM,R,69,168.94' YTTERBIUM,YB,70,173.04G LUTECIUM,LU(CP),71,174.99b HAFNIUM,HF,72,178.50~ TANTALUM,TA,73,180.95 TUNGSTEN,W,74,183.86 RHENIUM,RE,75,186.22 OSMIUM,OS,76,190.2 IRIDIUM,IR,77,192.2 PLATINUM,PT,78,1954.27! PROMETHIUM,PM,61,(147)A SAMARIUM,SM(SA),62,150.35\ EUROPIUM,EU,63,152.0z GADOLINIUM,GD,64,157.26 TERBIUM,TB,65,158.93 DYPROSIUM,DY(DS),66,162.51 HOLMIUM,HO,67,164.94 ERBIUM,ER,68,167.27  THULIUM,TM(TU),121.76$ TELLURIUM,TE,52,127.61@ IODINE,I(J),53,126.91\ XENON,XE(X),54,131.91v CESIUM,CS,55,132.91 BARIUM,BA,56,137.36 LANTHANUM,LA,57,138.92 CERIUM,CE,58,140.13 PRASEODYMIUM,PR,59,140.92 NEODYMIUM,ND,60,14DENUM,MO,42,95.951 TECHNETIUM,TC(MA),43,(99)M RUTHENIUM,RU,44,101.1h RHODIUM,RH,45,102.91 PALLADIUM,PD,46,106.4 SILVER,AG,47,107.880 CADMIUM,CD,48,112.41 INDIUM,IN,49,114.82 TIN,SN,50,118.70 ANTIMONY,SB,51x ARSENIC,AS,33,74.915y SELENIUM,SE,34,78.96Pz BROMINE,BR,35,79.916j{ KRYPTON,KR,36,83.80| RUBIDIUM,RB,37,85.48} STRONTIUM,SR,38,86.63~ YTTRIUM,Y,39,88.92 ZIRCONIUM,ZR,40,91.22 NIOBIUM,NB(CB),41,92.91 MOLYBn VANADIUM,V,23,50.955o CHROMIUM,CR,24,52.01Qp MANGANESE,MN,25,54.94hq IRON,FE,26,55.85r COBALT,CO,27,58.94s NICKEL,NI,28,58.71t COPPER,CU,29,63.54u ZINC,ZN,30,65.38v GALLIUM,GA,31,69.72w GERMANIUM,GE,32,72.60,AL,13,26.98&e SILICON,SI,14,28.09Cf PHOSPHORUS,P,15,30.975\g SULFUR,S,16,32.066xh CHLORINE,CL,17,35.457i ARGON,AR(A),18,39.944j POTASSIUM,K,19,39.100k CALCIUM,CA,20,40.08l SCANDIUM,SC,21,44.96m TITANIUM,TI,22,47.90UM,LI,3,6.940( [ BERYLLIUM,BE,4,9.013> \ BORON,B,5,10.82V ] CARBON,C,6,12.011p ^ NITROGEN,N,7,14.008 _ OXYGEN,O,8,16.0000 ` FLUORINE,F,9,19.00 a NEON,NE,10,20.183 b SODIUM,NA,11,22.991 c MAGNESIUM,MG,12,24.32 d ALUMINUML$,SY$,AN$,AW$# \EL$"DONE"ī8006 fAN$IN$İ6000= pLF u805U z936:255 p:"ELEMENT";16);"SYMBOL";24);"AT.#";30);"AT.WEIGHT" z::EL$;16);SY$;24);AN$;30);AW$ :: X HYDROGEN,H,1,1.008 Y HELIUM,HE,2,4.003 Z LITHI]150# b"TABLE OF THE ELEMENTS"1 lL11103F vEL$,SY$,AN$,AW$Z {EL$"DONE"ī35d 6000l L1t 35 936:255 %::"ENTER ATOMIC NUMBER" * /"TO EXIT OPTION ENTER 'OUT'" 4 9IN$ >IN$"OUT"ī35 HL1103 RE3 EL$,SY$,AN$,AW$+ EL$"DONE"ī202> EL$IE$İ6000E LN 202] 936:255q "ENTER SYMBOL"| :IS$ IS$"OUT"ī35  L11103 0EL$,SY$,AN$,AW$ 5EL$"DONE"ī410 :SY$IS$İ6000 DL1 N410 X:936 d"3. LIST BY ATOMIC NUMBER"> q"4. AUTOMATIC SLOW LIST"D s^ x"ENTER OPTION (1-4)"e }O| O200,400,800,600 936:255 ::"ENTER ELEMENT NAME" "TO EXIT OPTION ENTER 'OUT' " IE$ IE$"OUT"ī35 L110#EL$(15),SY$(6),AN$(3),AW$(7)EIE$(15),IS$(6),IN$(3),IW$(7)O#936q("TABLE OF THE ELEMENTS FILE"2"FOR APPLE II COMPUTER"7"BY RICHARD W. WAGNER":<"ENTER DESIRED OPTION"P"1. LIST BY ELEMENT NAME" Z"2. LIST BY SYMBOL"     500 ""+"WELL, I DON'T WANT TO!!!"4500<""h"YOU GAVE UP IN ";S;" TRIES, TOO BAD.""THE NUMBER WAS ";W295 0D!! I.Q. OF 2!!!" '"" ,K7 6"END OF GAME #";KE @ 1,2,3,4P JK47V Tu ^"END OF SET, PLAY AGAIN";} hA$ m"" rA$"YES"7 |"AW! COME ON! PLAY AGAIN"; B$ B$"YES"445 I1291 I);"CHICKEN!!!" I IT JUST LUCK?" 295X "YOU ARE RATED AN 'ADVANCED GUESSER' GOOD LUCK NEXT TIME!"a 295 "YOU ARE RATED AN 'AMATEUR GUESSER' DO BETTER NEXT TIME." 295 ""YOUR ARE RATED A 'DUM-DUM GUESSER'! LORD! YOU GOTA' BE REALLY DUMB TO DO THIS BAOO WW W WW"1 "WWWWWWWW OO OO WWWWWWWW"S " WW WWW OO WW WWW"[ ""v "YOU WON!! YOU WON!!" "IN ONLY ";S;" TRIES." S5220 S5S15250 S15S25270 S25290 "YOU ARE RATED AT 'SUPER GUESSER' OR WAS1 H"WHAT IS YOUR GUESS";# PB+ S""9 UB.5465K ZBWB.5120X dBW140e nBW155 x"YOUR GUESS IS TOO LOW, TRY AGAIN." 70 "YOUR GUESS IS TOO HIGH, TRY AGAIN." 70 "WW WW OO WW WW" "WW W WW OO O HIGH OR TOO LOW."L ("IF YOU WISH TO GIVE UP, TYPE '.5' AS YOUR ANSWER."q 2"GOOD LUCK, AND GOOD GUESSING!" 3"HELLO, WHATS YOUR NAME"; 4L$ 5"HI! ";L$;" LET'S HAVE SOME FUN!" 7D((1)10) 8D455 <W((1)10D) B"" FSSȒ GAME 1 BY JEFF LAWRENCE'""/S0E 15);"COMPUTE-1"d 10);"LAWRENCE LABS 1979"l"""THIS GAME IS A NUMBER GUESSING GAME.""THE NUMBER WILL BE ONE TO FOUR DIGITS LONG." #"THE COMPUTER WILL TELL YOU IF YOUR GUESS IS TO     UVW cY[ `@:@$"]Ԡ,UVW(a()GY_*]ΠƠҠҠĠ͠ q;@rq/?r@p@*#r_.@p@*#rq`@9()%q_/@p@*#rq`@9()%q_ ])]ΠƠ$`$`$`$`%_8]ԠŠҠҠĠŠΠҠƠ\Pa@\]ŠĠ PR@`@9()$<`@9()%Q]ĠӠdT"n`%@p()`%@p()x`%@p()`%@p()`%@p()*`%@p()*`%@p():`%@p(͠Ԡ)5<qca(Ԡ̠ϠՠԿԠҩ)4Fa()ca(Ӭ)ca(ӬĬѬ׬Ŭڬج)cHPa(ŬƬҬԬǬ֬¬٬)ca(լɬϬЬʬˬ̬ά)ca(̠)c/Za(Ҡ)ca(Ҡ)c_]Π]͠Ǯ"]Ġ٠ŠҠ]ΠϬ# ]ҠΠ)]ΠŠàҠϠҠcN@"2rC@"rC@"r#]Ҡ!(a(ϠŠ̠Ԡ) 2a(ϠĠNICS 779 !,! PRINTER & CRT !J------------------------PH! STEPHEN SMITH !<------------------------Z! MODIFIED BY !x! THE TAYLORS !! VERSION 4 !! 31 DEC 78 !------------------------! TO OPERATE A !! CENTRO:  -------------------------K! CRYPTOGRAMS !i------------------------! FROM PAGE 76 OF ! ! THE 8/78 ISSUE OF !! PERSONAL COMPUTING !------------------------! PROGRAM BY !SERTED LATER (PRINT:PRINT TAB (7); "HERE IS THE DECODED MESSAGE")QX:I$;"40N"eb54,240:55,253l"TURN PRINTER OFF IF DONE"v(X$,1)"Y"İ720Q$"Y"800 XY$"HERE IS THE DECODING KEY: "QQ154054,0:55,1921"0I$" ":I$;"K"I::7);"HERE IS THE CODED MESSAGE"U=L110[>m?M$(L)""580x@M$(L)BLD7);XY$I:JQQ1600NI126PD$(I);RIT:"ABCDEFGHIJKLMNOPQRSTUVWXYZ"AU THIS LINE TO BE IN;I:* PRINTER RTN0l"HOW MANY COPIES OF THIS CRYPTOGRAM DO YOU WANT?";NN"FOR EACH COPY, HIT RETURN TO BEGIN PRINTING."C1NN:540:C(X$,1)"Y"İ720"IS THE PRINTER TURNED ON?";Y$&:, CREATE A CODE(1"DECODE KEY = ";46I126B@D$(I)"%"IDIUJI126]TQ0t^R((1)(27I)1)hJ126rD$(J)"%"QQ1|QR400JD$(J)(I64)(J64);I:"ENCODE KEY = ";I126D$(I)(V) KK1-K5H$"H"K0:C$C$" "4I<C$IM$(L)C$PL:"SHALL I PRINT THIS CRYPTOGRAM? (Y/N)";Q$Q$"Y"500(X$,1)"Y"İ720:"DO YOU WANT ANOTHER CRYPTOGRAM?(Y/N)";Q$Q$"Y"15Q$"N"240 WHEN FINISHED":L110$ C$" ", A$? A$"DONE"225K N(A$)V I1Ng B$(A$,I,1)v V(B$)64 IS B$ A LETTER V0V27200 V32H$"H"210 C$C$B$ KK1 K5H$"H"K0:C$C$" " 210C$C$D$L ENTRY OF CODE a THIS LINE TO BE INSERT ED LATER: (PRINT:PRINT TAB(7 ); "HERE IS THE DECODED MESS AGE") dI126 nD$(I)(A$,I,1) xI TEXT ENTRY :"BEGIN ENTERING PLAIN TEXT" :"TYPE 'DONE' 20  QQ0T :"DO YOU WANT THE COMPUTER TO CREATE A CODE? (Y/N)";\ (A$w 2(A$,1)"Y"İ300:135 <(A$,1)"N"40 A CODE ENTRY F"ENTER CODE" G:"TYPE 'SAME' TO SAVE OLD CODE" PA$ ZA$"SAME"135 _ MANUANES BREAK THEM INTO 5 LETTER GROUPS"U "YOUR MSG MUST NOT EXCEED 10 LINES.":s H$"E":D$(26),M$(10):K0 "HARD OR EASY?"; A$ (A$,1)"H"H$"H"  "DO YOU WANT A SOLUTION PRINTOUT? (Y/N)";X$ X$"Y"25 X$"N"25 NUMBER OF CHARACTERS IN A$Y  ASC(A$) CONVERTS THE CHARACTER IN A$ TO ITS ASCII VALUE  CHR$(V) RETURNS THE CHARACTER WHOSE ASCII VALUE IS V C$+D$ CONCATENATES THE TWO STRINGS :"EASY CRYPTOGRAMS RETAIN WORD GROUPINGS") "HARD OQ ,"PROGRAM TO CREATE CRYPTOGRAMS"S WRITTEN IN MICROSOFT 6502 BASIC LEFT$(A$,N) RETURNS THE LEFT-MOST N CHARACTERS IN STRING A$ MID$(A$,I,N) RETURNS N CHARACTERS BEGINNING WITH THE I'TH CHARACTER  LEN (A$)RETURNS THE     O","NURSERY SCHOOL FOR YOU, MY FRIEND."2IME"' ^"READING THE NURSERY GREATS."1 ` 999n d "WOW!!! THAT'S SUPER!!! YOU REALLY KNOW YOUR NURSERY" n"YOUR NEXT QUIZ WILL BE ON 2ND CERTURY CHINESE" x "LITERATURE (HA, HA, HA)": 999 "UGH. THAT WAS DEFINITELY NOT TO SWIFT. BACK T 2) CINDERELLA, 3) SNOW WHITE, 4) WENDY";= I A: A3 76j J "OH, COME ON NOW...IT WAS SNOW WHITE."s K 80 L: "GOOD MEMORY!!!" MRR1 P: U R4 100 Z R2 200  \ "NOT BAD, BUT YOU MIGHT SPEND A LITTLE MORE TO, 2) TRIXIE, 3) PLUTO, 4) TOTO";5 ? A: A4 66j @ "BACK TO THE BOOKS,...TOTO WAS HIS NAME.": 70 B"YEA! YOU'RE A REAL LITERATURE GIANT." CRR1 F: G "WHO WAS THE FAIR MAIDEN WHO ATE THE POISON APPLE?":) H "1) SLEEPING BEAUTY, 4 "1) MR. NIXON'S, 2) ELMER FUDD'S, 3) CLEM JUDD'S, 4) STROMBOLI'S";[ 5 A: A2 56 6 "TOO BAD...IT WAS ELMER FUDD'S GARDEN.": 60 8: "PRETTY GOOD!" 9RR1 <: ="IN THE WIZARD OF OZ, DOROTHY'S DOG WAS NAMED?":! > "1) CICERE NAME OF THE CAT?":K * "1) TIGGER, 2) CICERO, 3) FIGARO, 4) GUIPETTO";_ + A: A3 46 ,"SORRY...FIGARO WAS HIS NAME.": 50 .: "VERY GOOD! HERE'S ANOTHER." /RR1 2: 3"FROM WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS?":G4 10);"LITERATURE QUIZ"(::0R0f "TEST YOUR KNOWLEDGE OF CHILDREN'S LITERATURE." : "THIS IS A MULTIPLE-CHOICE QUIZ." "TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK.": "GOOD LUCK!!":: ("IN PINOCCHIO, WHAT WAS TH   12000::(37)2:958: VT LOSS OF TWO"4$J"POUNDS OR 1 KILOGRAM PER WEEK."i$:" PRESS RETURN TO START THE PROGRAM...";XX$q$:$&I139:"-";:::$0:I04$:A$(I):I$DI04:,A$(I);:TM(I1)$NI$X$l"SORRY! TRY A MORE REALISTIC ANSWER."%vXTOTAL DAILY CALORIC"C#'"REQUIREMENT IS KNOWN, YOU WILL BE GIVEN"o#,"THE OPTION FOR SELECTING A DIET PLAN"#1"TO LOSE WEIGHT."#6" STARVATION DIETS ARE NOT RECOM-"#;"MENDED. YOU SHOULD CHOOSE A PLAN WHICH"$@"ALLOWS FOR A STEADY WEIGHASAL META-"6" "BOLIC RATE (BMR). YOUR BMR IS THEN"b""USED AS A STANDARD OF MEASUREMENT TO"""ESTIMATE YOUR DAILY CALORIC REQUIRE-"""MENTS FOR THE ACTIVITIES OF SLEEPING,"""SITTING, STANDING, WALKING, AND EXER-"#""CISE. WHEN YOUR TE OF"5!"HEALTH. YOUR PHYSICIAN CAN SUGGEST THE"d!"BEST DIET FOR YOU BASED ON YOUR CURRENT"|!"STATE OF HEALTH."!:" PRESS RETURN FOR NEXT PAGE...";XX$!:" THIS PROGRAM USES YOUR AGE, HEIGHT" ""AND WEIGHT TO COMPUTE YOUR B. "BALANCED DIET, ONE OFFERING APPROPRIATE"\ "MEASURES OF VITAMINS AND MINERALS NEC-"{ "ESSARY FOR GOOD HEALTH." " IT IS IMPORTANT THAT YOU CONSULT" "YOUR PHYSICIAN BEFORE YOU EMBARK ON ANY"!"DIET. DIETING CAN AFFECT YOUR STA PRESS RETURN FOR NEXT PAGE...";XX$T:" MANY PEOPLE ARE PREOCCUPIED WITH"~"DIETING AND NUTRITION. FAD DIETS,""WHICH LIMIT INTAKE OF FATS, CARBOHY-""DRATES AND PROTEINS ARE ALWAYS IN""VOGUE. YOUR BODY RESPONDS BEST TO A"OF"}"MEASUREMENT."<:"ACTIVITY"12)"CALORIES/HOUR"T:"SLEEPING"," 70"i"SITTING"," 85""STANDING","150""MAKING LOVE","180""WALKING 2MI/HR","240""CLIMBING","350""JOGGING","420""SWIMMING","650"%:" SAL ENERGY REQUIREMENTS OF"Jd"HUMANS ARE WELL KNOWN AS ARE THE ENERGY"yi"REQUIREMENTS FOR YOUR VARYING DAILY AC-"n"TIVITIES. THE FOLLOWING TABLE CONTAINS"s"THE ENERGY REQUIREMENTS PER HOUR FOR A"x"154 LB. (70 KG.) MAN AS A STANDARD NIMUM ENERGY"7F"REQUIREMENT, WHICH IS EXPRESSED AS"`K"CALORIES PER SQUARE METER OF BODY"P"SURFACE PER HOUR AND IS POPULARLY KNOWN"U"AS ONE'S BASAL METABOLISM RATE (BMR)."Z:" PRESS RETURN FOR NEXT PAGE...";XX$_:" THE BARE"4("USUALLY EXPRESSED AS CALORIE EQUIVALENTS."`-" A CONSIDERABLE AMOUNT OF ENERGY"2"IS REQUIRED FOR MAINTENANCE OF THE"7"NORMAL FUNCTIONS OF YOUR BODY UNDER"<"BASAL CONDITIONS (FASTING AND COMPLETE" A"REST). THIS IS THE MI* "METABOLISM. THE UNIT CHOSEN IS THE"W"LARGE CALORIE, OR THAT AMOUNT OF HEAT""REQUIRED TO RAISE THE TEMPERATURE OF""ONE KILOGRAM OF WATER ONE DEGREE""CELSIUS. THE ENERGY VALUE OF FOOD AND"#"THE ENERGY REQUIREMENTS OF MAN A)"Y"100":8)"GOOD LUCK!":C THIS IS THE DIALOG SECTIONt:" ENERGY DERIVED FROM FOOD ULTIMATE-""LY APPEARS AS HEAT. A UNIT OF HEAT IS""THEREFORE THE MOST CONVENIENT ONE FOR""MEASURING ENERGY EXCHANGES OF THE HUMAN"SA(WT.425)(HT.725)K&BMBTSA/640NCT0:J15:CTCTCT(J):J[ACCTCCWT((WT100.5))100:AC(AC100.5)100V1WTWT2.2I,WT;V$,AC::V1WTWT2.2I:"DO YOU WANT TO RUN ANOTHER (Y OR N)";Z$ (Z$,1CREASING YOUR DAILY ACTIVITIES BY":8"THE SAME AMOUNT."lB:"OK, HERE IS YOUR DIET PLANNING SCHEDULE."L:"HIT RETURN TO CONTINUE";Z$V:V$" LBS":V1V$" KGS"`I1LLj"WEEK #","WEIGHT";31)"CALORIES"tWTWT(WLLL):KCWT154~TC" CALORIES. TO ACHIEVE THE"L"WEIGHT LOSS YOU DESIRE, YOU MUST ALLOW"z"YOURSELF A NUTRITIONAL PROGRAM PROVID-""ING ";AC;" CALORIES DAILY. YOU MAY"$"ACCOMPLISH THIS BY DECREASING YOUR IN-")"TAKE BY ";CC;" CALORIES OR BY""."IN? ";LLLL1İ1900:950.WLLL51010T"*** WEIGHT LOSS GREATER THAN ";fV0ĺ"5 LBS"{V1ĺ"2.27 KGS""/WEEK IS NOT RECOMMENDED."::930CC(WLLL)500:ACTCCC"YOUR CURRENT DAILY CALORIE REQUIREMENT" "IS ";HEALTHY"3"INDIVIDUALS, FREE OF HEART DISEASE,"a"DIABETES, THYROID DISORDERS OR CHRONIC"s"OBESITY.":"HOW MUCH WEIGHT ";V$;" DO YOU WANT TO":"LOSE? ";WLWL1İ1900:930V1WLWL2.2:"HOW MANY WEEKS DO YOU WANT TO TAKE"(LBS)":V1V$"(KGS)"8H"HIT RETURN TO CONTINUE";Z$VR:1830: DIET PLANNING w\9)"DIET PLANNING SCHEDULE"f1830p:"YOU SHOULD CONSULT YOUR PHYSICIAN"z"BEFORE YOU UNDERTAKE ANY DIET PROGRAM.""THE FOLLOWING DIET PLAN IS FOR OUR BASAL","METABOLIC RATE (SLEEPING)."Q:"ACTIVITY","HOURS","CALORIES"Wl I04:A$(I):II04:A$(I),(TM(I1)),(CT(I1)):I TT0:TC0:I15:TTTM(I)TT:TCCT(I)TC:*,"-----","-----"4"TOTALS",(TT),(TC)>:V$TO CONTINUE";Z$:*I15:CTCTCT(I):V"HERE ARE YOUR DAILY CALORIC REQUIRE-""MENTS. THE TABLE REPRESENTS YOUR CAL-""ORIC REQUIREMENTS BASED ON YOUR ACTI-""VITY PROFILE. AGE, WEIGHT, HEIGHT AND" "SEX ARE USED TO ESTIMATE Y ";TT;" HOURS"X:450>b CALCULATE CALORIC REQUIREMENTSGl640Pv700cCT(1)TM(1)BMCT(2)TM(2)(BM(85BM)KC)CT(3)TM(3)(BM(150BM)KC)CT(4)TM(4)(BM(240BM)KC)CT(5)TM(5)(BM(350BM)KC):"HIT RETURN O THEY":"TOTAL 24 HOURS:":5"ITEM","ACTIVITY":SI15:" "I,;:520:580jI1ĺ"SLEEPING ";I2ĺ"SITTING ";I3ĺ"STANDING ";&I4ĺ"WALKING ";0I5ĺ"EXERCISE ";:D20);:TM(I):N:"DAILY ACTIVITY TOTAL IS576923:A20BT.635870A51.6692031BMBTSAW1830: FIND CALORIC REQUIREMENTSs12)"ACTIVITY PROFILE"}1830"HOW MANY HOURS DO YOU SPEND:"1840TT0:I15:TTTTTM(I)::TT24610"PLEASE ADJUST YOUR SELECTIONS S$ J:"HIT RETURN TO CONTINUE";Z$:O T CALCULATE SURFACE AREA DUBOIS METHODl ^SA(WT.425)(HT.725)K h CALCULATE BASAL METABOLIC RATE rSX$"F"400 |BT.08461538A39.8:A20BT.577569A54.143874:410 410$BT.08076923A37.V1(HT245HT1))(V0(HT96HT1))İ1900:2406 ] "WHAT IS YOUR PRESENT WEIGHT IN "} V1Ą"KILOGRAMS? ";WT:295 ""POUNDS? ";WT 'WT1İ1900:270 ,WT0270 6V1HTHT.3937:WTWT2.2: CONVERT TO ENGLISH @K.010101:KCWT154 FLAG5 :"ARE YOU MALE OR FEMALE? (M OR F): ";SX$a S$(SX$,1):S$"M"S$"F"İ1900:220 :"WHAT IS YOUR AGE IN YEARS? ";A A0A99İ1900:230 :"WHAT IS YOUR HEIGHT IN "; V1Ą"CENTIMETERS? ";HT:265 "INCHES? ";HT0 ((Z$,1)"Y"İ1260 :1830< 9)"PHYSICAL REQUIREMENTS"F 1830L "SELECT ENGLISH OR METRIC MEASUREMENT":"(E OR M): ";V$ V$"E"V$"M"İ1900:180 VM("M"):VE("E"):VV(V$) VVVMVEī180 (V$,1)"M"V1: SET METRICP REFERENCES PHYSICAL/CLINICAL DIAGNOSIS-ANDRUSJ ZA$(5),TM(10),N$(30)V dV0:: n"SLEEPING ","SITTING ","STANDING ","WALKING ","EXERCISE " x7)"G/2 DIET PLANNING PROGRAM"::::: "DO YOU WANT BACKGROUND DATA (Y OR N)";Z$ ) MICROCOMPUTER SOFTWARE ASSOCIATESJ HAYWARD, CALIFORNIA 94541l( COPYRIGHT (C) 1978 BY MSA2 TABLES COMPILED BY BENEDICT AND DUBOIS< REFERENCES THERAPEUTICS IN INTERNAL MEDICINE-KYSERF REFERENCES INTERNAL MEDICINE-MCCOMBS1                ժժժծ~paaya~|?@@@@@U*U*W*W*U*qayC`~@pC@s @ @`\*U?CU*Uc ~@  pX@ @ p89`p`+0p@(U*U*UzW.UxD~y<@@mx@xA8< <F9<@@*U@תժժ@@@ p@P*`px@p@@ @x@ @@@U*U*ujU*U*U`xsx?@@@i @0@`L@@Ъվժժ`C@c@!@@0@ժժժpa[~|?@` @ @@o@ժծպժxva1pC@~@x`C@s ` @@@oL*U?@T*UpsGcp@0 H\ X0@8|Gp@@ 0@(U*_*U.u?U>xgFA|?`/>@@G(@@A|0 F8 `@*U@ݪժժ`@@@@0 @@@*|~@s|}@ƪՀЪՀp `` @<@@@}*U*ujU*+U`say@s~?@@O(@@@X@@P*U*}+U*U*U`vp~ pp@0 @`2@ժժժxaOC|?@p @@`80@ժժxAsa`gy@(pxp@s8 @@8(UP P*p^ac~ @;@``  h @`g}6; 0 @ U*+}/U>Uzl @`@`|0@@8@@s@0108f<8@@(U@ߪժժ `x`@ @@@*`NL@ԪՊԪՂ8x3@ @@@@}*U*U*W*U.xsay@s@?@n8@@@p@@P*Uj]/U*U*U`|@Pa@`@@@"@ժժժպae|?@0 0@@pO@0`@ժժժppa@o_s@<^x@s 0 @@vP *` .@@<p < `@`l` @ U*.W*U*U*>X?`p>@@@?`? @810x|x64|@(U@ߪժժ00@c @  @@*?xApA@ԪժժՊ ^ @`@@ @@@@u+U*WjW*Uz~say@s?_a?@80@ @@`@@T*UjU.U*U*U`x @ '@@@"@ժժժժa}x?@ `q@`x0@@p@ժժߪpa@{#@Bx@`O`@@P*``[8@``  @@X@`@`U/W~W*U*U*fCO:m9@0~@@@#`c@1p 8 @@@ U@߫ݪժժ`0@n @ @@*@@ծժժժs@``@0@@U+UjUj]+U*Osay@s|?@8 @s0@`@@T*U*W*U*U*U``pC@L@@ @"@ժժժՃ}?H`?@@3P@@@0`@|@~|@ժժծypa@_O?@@?@@@P*8x0@@ `@@8@p@@@w{U*(U*U @{3`@8`@@#@7?p  80 `@@@߮ݪժժՀ``@0?d| @@*Up@ժժժ 8p1@ 0`x@@U+UjUj]*U*{ayAs|?@~~@s @ @@T*U*w*U*U*U``@0N@@`"@ժժժߺՃ~g?L?@,@@9P@@`@ 0ppxp<sxg@ժժժծ{pa1@[CA?~@@@@P* 0 p@`@@ `|@@@@0V*U.G U*U ||"@  @p@  @` >18pxp\7xx@@@ЪծժժՀ `@A`@pG!@@*U@תժժ `@ x0@ U*UjUj]*U*}{ayAs|?@@?&@s? @ @@T*U*wjU*U*U`|@`K@``0f@" " " " """""""""!!! ! ! ! ! !!!!!!!!!   Pò*********************** ** DONATED TO ** APPLE PI USER'S GROUP ** P.O.BOX 17467 ** DENVER-COLORADO 80217 ** *****************************  :6"BLOAD WORLD OF APPLE PI,A$4000"FPAUSE125R(1)7` 16302,0#0,0279,0279,1910,1910,0:1,1278,1278,1901,1901,1(PAUSE<:F10:8:"APPLE PI - EDUCATION DISK 5"KPAUSE1500:P"CATALOG""""