' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 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-(& @ɠ@跻~!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`m܅ 8 8܅m݅ 8 8݅mޅ 8 8ޅ'm߅ 8 8߅7 @@\`L\^d^J ^^ڽX^^`M^dL^ I^J^ڽXLI^OJ^` 0m Rrrrr٭0m <~ir i ^ri L E@ U W L*@iL\ׅ؅مimۅ 8 8 00000000@l44l@iNL]iVfVq   PVNi TV ^L]ii}i` \VN )@ ]VN뽾 P P LŀŀЪՀԪՀԪՊժՊժՊժժՂԪՂЪՂЪՂЪՂЪՂԪՊժժժժՊԪՂԪՂЪՀЪՀԪՂԪՊՊԊՂЊՀЪՀЪՀЪՊՊԪՂԪՂЪՀЪՀԪՂԂԀЂԢՂЪՀ ֮ժ֪Հ݀ݚժ՚ @*@.V. U*V* U],]*U*,U** KKŀЪՀԪՂԪՊߊߪߪתժժՊԪՂԪՂЪՀEE"@(@ @@"@@  dd %1@8P %1@8P4Rp#3#3FV|((((((8ppX(xPPPPPPP #3#3#3#3PPPPPPPPPPPPPPPPPPP!!!=!!!=   dd P@ @RJ@T@)T)TJ)TH )U(" U(")*!%U   * "H @RXPRTP%  P@@RJ@PJ@A  "PZA ("E"@ D D@DP@PP59=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPŀ؂تՎŜD 0  m< ( pssgs7vg`6f6f6v7`6f0`pF1`scacqGa`paf0G`0c6f6F1p1vgs7fc $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048|xЪԮ @; J `{pqxq|`(*@*P:n)@(o@G`Gp    8$ "@<>|ԎT觥xjLJU)(TEc #J%: e~: @PԪՖԪՊڪՊմ (=r'U>L P*ծծԪʀ UݪݪՊՀ@P T*U+pHD"x<<ժժЪժŪժժՀՂժըժժV^Zzj h+(+ / -=5j񠹠ڊ΂ƂÀd5= - /(+h j zZ^V03330??;???3c???w??????k 33c 3?c 30c? ??;?c? ?3%  T S ir%TSi  rЪժŪժժՀՂժ??3??37??;?;3033??333c?33c?3??3>c 7?>k ?;?k ;303w?3??3c?33???3??3333?3(`p8      8p`3?3??3??;???733???0;?0?3?3;?;?3?33?33???3????3333?3?0?330?3???;?3?3?3SL      T T  @@ P PЂԊԊ((((( @ @ PTT P PЂЊЊЊЊЂ (( (t+ $   I +`lFifc`F`  p $(,048(((((((((((((((($zTM$TT 轎 @ `ɪɵ꽌8*%E 轌8*%8*%E L58*%E H8*%E HQ` 0F+ʊJJJJ HH` ,8DP\hGGGGGGGYLI+ꭁЅ6879  ]]]]  L   Lw ɭ꽌8*%`+ ) +  +`GGgGGGOGGGOGGGWGGgGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGG !G"#$%&'(GGGGG)*+:;<=>?GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG7ioGGMNMO9ƶ9ֶ9ζ9޶ 9 99P999qB9RJ9Z99{v9F9.~9N96Ǻ9׺Ϻ9ߺ 99LD46 )* )Y)Z)))ǵ) )H)O*v99 9wLD4N Z)NMO򢾩А`ѶӶGGGGGGG OGGGWGGG{ywSOGGGWGGGGGGOGGGGGGGWGGGGGGOGGGOGGGWGGGGGGOGGGGGG_GGGGGGOGGGGGGWGGGGGGOGGGOGGGWGGGGGGOGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG&Nz" GGGGGGGGGGGGG( `GGGGG(GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGP$P GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG`GGGGGGGGGGGGGGGG((( !  ? L= ?BB@PWRL@?xx||x??!BB!ٸ C    0@P *l4l4??~~|xxpp``@@ժժժԊԊԊԊЊЂЂЂ*U****((((    w   0@P *:PwՊՂЪԪԪЪՂՊՊժՊՆЪЪԪԪЪ  EEEEE**  EEEEE**!BB!߾_8`@ @@@p8__?hXPPPp_?{>xxX,X|Xx\?7 EE EUWnv65J+j5(!~@Rd# Q3?3????333333?3 330? ???? ?ЪЪԪԪЪՆ՚ժuJ * ($UU8}U8uw`_jU>*O:TW"ljhZ*j,((H* J+&3T*J:h:*l"Xk"T)R2&* PPPP88ppppĨpT8 R   e!<  3fp {  T @l44l@!%'P    !R   3f p{          PPPP *\ L*U\*Ux*U 0*Up*Up*U`)U+U0/U2Uj~_jK|ꏾվӪ޾̏V*=W*pU*PU*xUjU:-U*/Uj&Uj$EJ|Jg*p*p*p*x*X*|"Ň𫕞՟ՃՃ૕܇px| 7M9:}R(}V2V /A/J ``Triii 7rLrVPr V U 偦7r7r7r5 R TV `L2OiTrf ^LyOvyR L*OSiL*ORzS{ PRiL MLMl<L5M٬Ҡ ,.ᆳ  6JEL6!JEOɠBzz/rLrogBzz /rProkбJ1VKW VKɰKLLK ULL 611X>FLLi11X>FLLiFiL{LJTVU VLLRVS VVN @ UVN὾ P P LJLJ$ TV` ``NiNL;Ki %f[V P ^LL"+ɀ >FLL11XF>LL.ɀF>LL11XF>LLi>  LKL>Lɕ>6QViNiVJTVU VLKVVE υLJɦ$-i =JV VLCJV VVN @ UE TVNV=὾ P P 6 /hJލhJLHhJ11X&JLHLHLH LLf @LLZV L;KV VLIV VVN )@ UL\JEVN )@5yr-LJ= LkJf ALkJWV LINiNLIi"f=[ P ^LkJ=i-5y$LJ11XȹXmȹXmbjp  HLHލHj8iji JV VLOHV VVN @ U0 VNb P PLYFLpGrzii Vzɔ` TVbrjz`LHIE=i-i}X-ɚ8iJGLGލGj8iji JV VL;GV VVN @ UNVb P PL[Fb LrHf OALrHZV LGNiNLGi %fb[V P ^LrH Hb!VVN )@ U NVފ"i ɘ P὾ P PL ELEb /W LYGf OALYG]V LFNiNLFi %fb[V P ^LYGb"bjp  LiCLkC L% L?Ff xBL?FhV LENiNLEi9fVN P ^ L?F"iɜ DᝊiiJV VLEV iɜi DL_D41Ȍ1XLDL>DLDL>DLDXm44 1i# yX`iiJV VLDV VVN )@ U NV iLDNɘ P὾ P P)@ Uɘ NV` TVLE` TV. ߋrrr Vs L V` ~L@`% LDf xBLDhV LCNiNLCi9fVN P ^ LD"Ni[V! V U[[ υ υ υ 偽[==%VN TV&*@ L: ʼn E@ W LiLZ`KV LBNiNLBi ^ ؅BBiiV VVN [ υ υ[D@ TV%VNc& @ L: ʼn E@ W LiLX`ViNi[V V U[[ υ υ υ 偽[[ [cb TV%VNrzi TV! L: ʼn E@ W LiLH`Vi L OLSdȑȑƐ`dȑƐ` V V @G U`ɠ` f~`;r Vs ;m XS9mYS:mZSS=O P L E@ W @ LiLJViNi[MVT V U[`U Ԃ U U Պ U ?*UՊ*UOՊ*U U OU U ՀՂժըժժ\`L\^d^J ^^ڽX^^`M^dL^ I^J^ڽXLI^OJ^` 0m Rrrrr٭0m <~ir i ^ri L E@ U W L*@iL\ׅ؅مimۅ 8 8۽ L]f h\L]ܼV L]NiNL]iVfVq   PVNi TV ^L]ii}i` \VN )@ ]VN뽾 P P LLZLZɘ$VN )@0Ȍ0Xi`k 0Xkk` ``"``"`qi8 kiqVq V U` TVkqqq$ L E@ W LiLiC`L]LC[NiNLC[i)[fW[ P ^L[W WLa[ Wi_ɗ_XL[i_0yXyX_0JSVT VL[UVV VVN @ U VNWL[W轾 P PL LLXLXViNɀVN @Nii[gVk V U[[ [H [W_ TVqq,! L: ʼn E@ W L iLq^W`W% L[f ZL[^V  dXLYc{sV LiYNiNLiYi "fs[ P ^LYs"si{ɐ(s PLXis PLX{ɠ PLX{i LV VVN @ UVNs὾ P P LPi2UyV3U V U0% & &% 偩%P % Ц TVd:`ViNi [AVJ V U 偦[[ υ[ Bs TV%VNν) @ υ L: ʼn E@ W LiLYF`s LYf (+/+ tV'(+ e@,о`./`[`0XG2H[cicisVt V{ W U{c``ə[{ W`k Xkk``[[`"[`[["`[`dƐ` Vd VߋP<V V`5Vd4Vp 1V2V߽X1V2V`hVdgV&`*'dd)*(*`*(dʽd)*'*`,'('*%)/+ V'W TV8V9 V U W TV--LT`li2UyV3U V U2Uy V3U V U2UyV3U V U` uy $ TV` `UUdUU Y UU`L^elszV V U uyl)s*'%(P+ V'(+ uy 4U T U uyп`P=OXSYSZS R e@ L=O P yLSli-\i:V; V U W6V7 V U L]S PLRf ``ș-P:P>``41Ȍ1XRLR 4RLRR4Xm44 1# yX5X `LR >E[F5-=r=b brjz  s csk{Ns_WfVWfVLQLPsfhJRfRS8UUii UD `a0`1V 2Vi P Vi TV`dƐ` #Rʽd齤1ȱ,ȱ'wV Vii U`9P L:9Si TViri ^rifR0mLyOLyOLN#`a0`LNʽd콤1V 2Vi P Vi TV`ENEOl>L@؅+`+`@()nP:@**(V+iᅍ⅍ㅍ䅍免慍ۅ܅݅ޅ߅ ^` )i*0''i (syVty V U V'((ɀ tV'(' Ȅ L i)ixVx V U6m50ŀŀЪՀԪՀԪՊժՊժՊժժՂԪՂЪՂЪՂЪՂЪՂԪՊժժժժՊԪՂԪՂЪՀЪՀԪՂԪՊՊԊՂЊՀЪՀЪՀЪՊՊԪՂԪՂЪՀЪՀԪՂԂp`G@Go ֮ժ֪Հ݀ݚժ՚ @*@.V. U*V* U],]*U*,U** KŀЪՀԪՂԪՊߊߪߪתժժՊԪՂԪՂЪՀEE"@(@ @@"@@  dd %18@P@CFILOQTWZ]`cgjmpsvy|yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]UeRU @QJJJ`ŴxaI1S-Q/ ?QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! &#` L# !" #`#&/'$% #`+5&E%0Q&&S [TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&.if&JJJJS)PIȄR-QTU/T8ePT ?>??7- ) .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-|0J, i` @ &Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+- 8TeRTUU--63+6;?81  ??$!!166. ??6--26;?   ?66)%!? --6333. $)-2?6)-  9?$)-26? "166>- - $$?66 666;'3 )-266;'#$$ ***666$,   - ??---?? - $-.,'7??><%5-$'%.> $9'+-%9??'- - $$$-??---[qcq[qxq[qq[qq[qq[qq[qq[)q/?4r`-r$-rq[]Ԡ׮ӠĠˠά 66$--$66")-2?:2--         %1@8P 0@P * v OKrWc\qqr t r^IHVW`Tc\ qqr tԾԾԾԢЂ0$,,$ԿԧЂ@@qrrrqrrrc?????w??333k3??c03?c3??;3c???33c??  `'dqqdqq) *(( `(dTqUqʽdQqRq) *'( `|qd{q `qdq ` qqΔqΕq"`܎ޞޚ׺׺q PTTTTT TVqd hq䍼plp i@i:~V;~ Vlm&i@iV V U hLp Ulm 3U V2U}pV i U Up TV`8Tplpp`(dpppppp p p p q O q 1q؅r 'v( 1q T'~( 1q +)*'( 1q 偩 쩦'( p 偩@ ')*'( 1q   )*' Д hq pq pq 5m߅+&4mޅ!3m݅2m܅ 1mۅLrnۅ1m܅2m݅3mޅ4m߅5m6m i iͅV΅ V U >6m uȭ5m uȭ4m uȭ3m uȭ2m uȭ1m u8m7m мlm O; uyLSLmmlm )*'(qgP'a()Gc[ UVW`-r-r$ Yc[\]ŠŠ fҹqp`;@r$Bzq`$UVW;@r`@*#r9()$ UVW*`@*#r9@*#r$ Y_Bq 8Ҡ:UVWD-rq-rYq8rNq.? r\X`$ bUVWl-rq-rY$vqq.? r\`-r$`$UVW8r`-r-r$Yq8rPq-r\`%[ UVW-rq-rYqq-r\[]Ġ`$ UVWq-rqq)`-r%a@*#rGY[ a()G[0]ԠȠϠԠҠȠϠ) bβE(Ӡӿ)&ccS(ŠҠӠҠϺ)&@`@*#r9()$d`@*#r:()$UVW -rq-rYαqββq_ h]ԠԠrca@*#rG"|Š) cPa(ɠ) cPa(̠) cPa(Р) cPa(Ҡ) cPa(Ӡ) cPa(֠)- ca(ҠŠԨөՠ)G [ ]Խ3oa(ϠՠӠ)%& cPa(̠)'0 ca(ҠҠΠ̨ө)G: [3 M6a(ŠՠԠŠΠ) a(Ԡ) cPa() cPa(à) cPa(Ġ) cPa(a(Ƞ̠Ҡ)- cPa(Ƞ̠Ƞ)+ cPa(Š̠)# cPa(٠)( cPa(Р)# cPa(ҧӠ)! cPa(ҧa(Ԡ̠)'T cca(ҠҠŠƠ)^ a()Gh [/ M6a(נȠӠ̠ՠ)" a(ΠΠϠſ)( cPa(ϠȠ̠)% cPa(έŭ ), cP)c- cPa(ɠŠǠӠ)& P a(Ġ͠Š)." cPa(ϠŠǠӠ)*, P a(ϠΠ͠Š))6 cPa( ȠŠĠ)!@ P a(ǠӠ)J P ˠҠ). cca(ŠҠŠҨөƠ) a(ӠՠϠ)G d2ea()Gd2e a(ȠΠ) a()G [ ]Ǡ, M6a(ϠՠҠӠ) a(ŠŠ(ՠҠӠȠϠ)G< d2ea()d2e!P a(ŠŠҠϺ)c"Z cPa(à Ҡ)0d cPa(ȠŬȬҬҠ))n cPa(ˠ̬ЬҠ)x cPa(Ӡ) cPa(Ԡa(ԠϠŠΠ)! Pa(Π٠РϠ) cPa(Ƞ٠ˠ); Pa(ԠҠ)Pa(٠٠Ҡ)% cca(ŠҠҠ̠) a(̠)G [( ]̠.2 M6a[` ]̠.j M6a(ȠƠŠǠӠ)-t a(̠Ӡ̠ՠ׿)c~ cPa(̠Ԡˠ)! Pa(ԠϠŠΠ)! Pa(Π٠РϠ) cPa(͠͠ˠ)! Pa(ȠӠĠΠ).cPa(̠͠ĠĠ)0cPa(Р̠Š).cPa(ӠŬȬ)%cPa(ԠӠĠ)*cca(ŠҠҠƠ)G)ccPa(Ġ)cPa(Р)cPa(Ԡ)& cca(ŠҠҠ)G[]ӠƠ.M6a(ՠҠȠƠŠ)a(ӠƠ˿)c&cPa( ӠĠ)0cPĮ)ca(ՠנŠ)FαE()`α$F o_/M6a(ŠŠՠĠŠ)#ca(ҠȠՠŠ)oa@GS()&@&_d]0M6a(ϠՠҠӠԠ)a(٠ԠҠԠҠԠΠΠҠΠҠŬˠԠҮΠǯĠŠҮˠԠϠ̠ӠԠ̠Ӡˠ̠ӠҠŠΠԠҠŠӠЮίΠҠҠԠҠ٠̠ҠΠ٠ԠҠŠ̠Ҡ٠̠ҠŠԠӧ̠ŠԠŠҠŠ̠ˠŠҠƯƠˠҠŠҠүӠүӠԠŠҠŠҠĠҠҠүΠ٠٠ǠǠŠҠ̠ҠԠҠҠǠҠ˯ƠԠǠĠҠԠŠҠŠҠĠҠҠĠŠˠˠ٠ҠԠҠҠҠǠҠҠĠŠҠǠˠ̠ˠ̠ҠΠҠàӠԠǠԠԠ٠ǠǠˠ̠ˠҠŠˠ̠ҠŠҠŠȠҠҠŠŠҠŠҠҠǠŠҠҠ̠ҠҠҠҠҠҠӠԠҠˠԠҠҠԠǠԠˠҠǠˠҠǠ̮ȮǠҠ٠ҠҠΠ̠ҠҠҠҠҠǠӠҠȠǠӠҮ٠Ҡ̠ŠҠƠ̠)cvq`$$qqqd ed eMp?bGPa@`$v3oa(ӠΠҠ)GS()&@`;@r$l`;@r$._'Qq8r qqqd ed eMp?$bGPa@.q q8`$Bca@GS()&@L_Voa@GS()&@`[X]ԠԠƠ bq/lM6a(Ԡ-rq-rq 8ҹqB[p]ԠŠzUVW de-rYqq1M6a(ŠǠӠ)cqqd ed eM?q.? r.? r`$VrY`$B-rq_8qUVW;@r`@*#r9()$$"UVWҸq`@*#r9@*Ҹ#Ҹr$"`@*#r9@*Ҹ#Ҹr$ Y_Bq 8r_$q 8r$Y`$B!.ҠҠҠҠŠҠҭàҠŠҠŠԠԠҠ̠àŠӠҠӠΠҠΠҠ̠ҠȠҠҠҠҠҠҠҠҠҠŠҠ̠ΠҠ̠ΠҠ̠®ҠϠӠŠˠϠӠҠŠŠҠŠҠ̠ҠҠҠҠҠǠԠԠԠҠҠ̠ҠҠΠҠǠŠҠ̭̠Ҡ̠ŠҠҠǠŠҠȠҠĠˠ̠ҠРҠΠŠҠҠҬ̠ҠҠҠԠԠҮҬҠӮ̠ԠҠ٠ҠҠԠŠǠǠҠ̠ΠҠҠŠҠҠŠĠҠ̠ҠΠŠԠ̠̠̠ǮҠΠҠΠ̠Ҡ͠Ҡү͠ҠҠǠҠȠҠҠԠ̠ҠԠҠנҠҠҠҠΠҠҠҠϠӠҠԠΠàΠĠŠ٠ԠΠŠ٠ҠȠΠ٠̠ΠȠҠĠ̠Š̠ĠΠŠů٠̠ԠԠ̠àĠŠҠŠΠϠ֠ҠŠүҠ̠Ԡ̠Ԡ̠Ԡ̠٠ΠԠԠӠҠҠϠ٠ҠϠàŠ̠àҠŠΠ͠ԠҠ٠Ԡ̠ҠҠ̠àǮ̠àȮ̠Ҡ̠ΠΠ̠Ҡ̠ΠԠԠ̠Ҡ ҠԠԠˠҠ̠Ԡ̠Ҡ̠ΠԠҠҠҠŠҠҠԠ̠Ҡ̠ΠҠӠҠٯŠҠҠ3:CT$"* BIORHYTHM FOR PRINTER *":5040JCT$"BY AUTHOR UNKNOWN ":5040fCT$"AUGUST 1979":5040m :CT$"THIS PROGRAM WILL PRODUCE YOUR":5040CT$"BIORHYTHM CHART !":5040  PAUSE ROUTINE.21:" PRESS THE 'ESC' TO END"RTH,L10"$(4);"WRITE BIRTH,R";N0BIRTH$H(4);"CLOSE BIRTH"^h(4);"MON I,O,C"hr2030| DONATED TO SF APPLE CORE BY A MEMBER? MODIFIED BY KEN SILVERMAN. INITIALIZE.CT$(40):5034 TITLE PAGE ROUTINE.'Z$;:T26T T);:BI$4 (4);"OPEN NAMES,L25"N (4);"READ NAMES,R0"U N_ NN1z (4);"OPEN NAMES,L25" (4);"WRITE NAMES,R0" N (4);"WRITE NAMES,R";N Z$& (4);"CLOSE NAMES"***BIRTHFILE***(4);"OPEN BI1 `` 1 ȹ1 ` `  >    i  ߥ ` ,K?  `Hh >` i   `ҠҠ͠Ҡ̠ԠĠҠàԠŠҠԠ̠Ԡ ĠҠɠԠàȠҠ̠ҠԠҠ٠̠ҠҠҠΠԠԠҠҠΠ̠ԠԠҠԠҠԠԠΠ֮ҮȠŠԠҠ٠ΠҠ̠ԠŠҠҠŠҠԠԠҠ̠ҠҠҠŠԠ̠ϠΠҠΠҠ̠ҠЮŠ٠Ҡ٠ŠԠҮǠΠîΠҠӠҠŠŠŠүӠҠ̠ԠԯԠΧӠԠԠàŠȠȮԠ̠Π٠ԠĠŠˠӠàǠŠàҠȠȠȮҠ̠ԠŠԠΠàԠîΠү̠ŠҠҠҠȠŠŠҠϠΠҠĠҠРҠŠҠ̠ŠҠԠǠҠҠ٠̠ЮϠҠȠҠΠҠҠԠàϠӠҠŠԠΠԠ٠٠ΠԠ̠ŠŠԠ̠Ҡ̠Π̠ҠŠҠŠҠŠҬŠԠĠŠҮĠҠҠĠ̯ԮǮ̠ԠԠ2,132,3,134,254,165,253,133,251,165,254,133,252,198,251,240,6,70,255,165,255,16,7,173,48,192,165,253,133,251,198,252,240,6,70,255,165,255,16,7,173,48,192,165 254,133,252,32,143,3,144,217,96,32,245,230,134,253,32,190,222,76,70,231,165,80,208,8,165,81,120z  201,83,240,7,201,84,240,55,76,201,222,32,132,3,138,41,15,133,255,165,253,133,251,198,251,208,25,173,48,192,165  253,133,251,164,255,234,234,136,16,251,173,48,192,164,255,234,200,192,16,144,250,160,10,136,208,253,32,143,3,144,217,96  3XX2įTGG(N),2000D(N),GG(N)2:270J XX1VV.1:SGG(N),1000D(N),V 0:VPVP(GG(N)):VP16VP20VP24VP28VP32Ġ4 ZA,VP ":XX0D(142)26 ,XX2D(142)6 6XXXX1:XX0XX3āM13000::120 @XX0:V1:23:958:N12000::ION"< XX1Ģ23:958:" SINGLE TONE SOUND WITH VOLUME"s XX2Ģ23:958:" DUAL TONE SOUND REPRODUCTION" ZA0:N1142 GG(N)0āM1400::290 ZAZA2:ZA39ZA2 15:ZA,VP(GG(N)) XX0Ĺ927,GG(N):928,D(N)40:929:270% :VP(47)18:VP(50)18:VP(53)20:VP(57)20:VP(60)22:VP(64)24:VP(68)24:VP(72)26:VP(76)26:VP(81)28 ZVP(85)28:VP(91)30:VP(96)32:VP(102)32:VP(108)34 dZZ1142:N:GG(ZZ)N:M:D(ZZ)M n xXX0Ģ23:958:" STANDARD APPLE MUSIC REPRODUCTa  :)GG(142),VP(108),D(142):V1E4:N16324:0,39N:Z(:17:"FUGUE":223:4:"(C) 1982 WM. MORRIS & J. COPE"<ZZ784949:N:ZZ,N:F1013,76:1014,16:1015,3d PVP(33)10:VP(35)12:VP(37)12:VP(40)14:VP(42)14:VP(45)16        T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `O ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: 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 DOMAIN -&'BIORHYTHM FOR PRINTER',CCT$)2CT$""'  GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS.. AUGUST 1979  LAST MOD.SEPT.1979 FOR CONVENTIONS UPDATE.  PROGRAM CLASSIFIED - PUBLIC122:"< PRESS THE SPACE BAR TO CONTINUE...>"I(16384)1555036b(16384)1605024} SPECIAL END ROUTINE.16368,0:936:16298,0::50325034:1010:"* * * THE END * * *": PRINT CENTER ROUTINE.20(333>38 333 03;>3333;>>>830>>83 |@cs3vcc3v@AC@acC`6f66F16v```16f00ff3F10F00@16F00fCqC1pG00@agC00f@qA17F00@6F`6f@1C16F``@3F@csA1fc7f@AC`sac^,0` 偩 ? 003373m>>3?33 30m0333333;303 3>m>33??3??03 3m33333 >~>>>0083083?00 ?;0;?3>> 383>83?033 3?83333330338>33 83@izV{ V U > U Llm`? 3?3333 333[0 3 303333 3[> 3 3>?303 [3 30 3633633 [> 3 3> 3300??333 3>?3 0;[3 3?363363 3[> 3?3?} L i@i}V} V U > U` Li@i\V] V U0P L~2 9PAO~P~P L`h;LS`PAO~P~P L9`҃#R i TV`??33""33" "g<33"&"&"033""""""?33"""""2 ##l0}?? ? ?3? 3 3?3[0 3 30303 3[> W L*@iL\ׅ؅مimۅ 8 8ۅm܅ 8 8܅m݅ 8 8݅mޅ 8 8ޅ'm߅ 8 8߅7m 8 8څۅ v܅ v݅ vޅ v߅ v vׅ؅م`izzzzi{i{ 偽zVz V U{{ v{i TV `ڽX^^`M^dL^ I^J^ڽXLI^OJ^` 0m Rrrrr٭0m <~ir i ^ri L E@ U n mꍿn uy Li@i<V= V U uy uy L` iiきV䁍 V U` A" 0   VzzzzVzԀԊԀԂTPĀĀTP@@( Ԋ(@  Ԋ @x e@`^elszV V U uyl)s*'%(P+ V'(+ uy 4U T U uy``>><~>>8~?~~?`>~?|>>8~~~?`>?~?x>>8~~~?`>>~?>>8>8>>><`><><>>8>8>>><`><>< >><><><>><`|><~?||><~><`x><|xx><~?@`x``|w @Ԋ Ԃ(@Ԋ(Ԋ@@ĀS{hS`Rf {  PLQwiSmKSi 8^ɓ vhS TV  TV`Qw`iziwVw V U uy uy`;@`x``||><`x><|xx~~?><`|><~?||~?~><`><><>><><><>><`>8><>>8>8><>><8m4Q-7m8݆-8m8`GQP#݆Q#QP'݆Q'QP+݆Q+QP/݆Q/QP3݆Q3QP7݆Q7QP;݆Q;QP?݆Q?Q#݆#Q'݆'Q+݆+Q/݆/Q3݆3Q7݆7`&r v`v+0Xm`R RRRv{`GQ-7m($݆-8m)$Q-7m((݆-8m)(Q-7m(,݆-8m),Q-7m(0݆-8m)0Q-7m(4݆-8m)4Q-7m(8݆-8m)8Q-7m(<݆-8m) U Lir:5i ^ri` | | 0 p0 p00p@ԂԊԊ(00p(Ĉ p@<" <83"&""&03""""""??3"""2 "" ?#l#8<33""633" "g<333"&"&"?33""""""033"""""2 0##lj_ψFlm`0轶+: y@i"@q3"g<" <@v"&""&@v""""""@16"""2 "" `cc#l#?33""333" "g<833"&"&"33""""""?33"""""2 ?##l???3""33"g??<<<<@ac`16""@17" "g<@qw"&"&"@qv""""""@16"""""2 `cc##l@qg`10"*8FTbp~`x|>>>>>>>>|x`@`pxp````````@x|~@`px<~~||~|`p`|~|@`p8~~||~~~~|~|xx|~~~~~|x|~|@`px<x|~|x|~|xx|~~|x|~|<888888<33 333303 0 333333>3 > 33?33>363 36 33030>>> 3333?3333m33333m303333 3333m3>33 ??33m3363 3~3> 3݄ 偈`P>`:`` 则-P:P>`:`???3?????????????????333333333 3333?????? 3??000?33? 3? ;????3???3; ??3 3?3?33 ?3 ?  Lɛ©Lɒz O0 Llmq䎼plpɱ ;hLr@ɲ ;hLr@ɳ ;hLr@ɴ ;hLr@ɵ ;rhLr@ɱЖh ;LS9LłɈ:Lłɕ:Lłɠ0:Lł :+ș-P:0`i `i `ʎ ` Ր`),0,0 0)μν`P0`ɓLłLłɛ#0 ( JCT$LT$(IN)LT$(JN)LT$(KN)LT$(MN)8 O(CT$)4ĂH Q(15):(18)` TCT$;" (Y/N)";:RE$ ^RE$"Y"GW$(GW%)CT$:GW%GW%1 h r |  SL%42000 IN1SL% JN1SL% KN1SL% MN1SL% NN1SL% INSL%J:(18) CT$;" (Y/N)";:RE$V RE$"Y"GW$(GW%)LT$(IN)LT$(JN)LT$(KN):GW%GW%1\ b h x SL%32000 IN1SL% "JN1SL% ,KN1SL% 6MN1SL% ;INSL%JNSL%KNSL%MNSL%400 @INJNJNKNKNMNINKNJNMNINMNĂ"GW$(GW%)LT$(IN)LT$(JN):GW%GW%1* 0 @ SL%22000N IN1SL%\ JN1SL%j KN1SL% INSL%JNSL%KNSL%270 INJNJNKNINKNĂ SIMILAR STRING TEST??????????? CT$LT$(IN)LT$(JN)LT$(KN) (CT$)3Ă (15)15):(18)% PLT$(IN);" (Y/N)";:RE$M ZRE$"Y"GW$(GW%)LT$(IN):GW%GW%1S dc iSL%12000q nIN1SL% xJN1SL% }INSL%JNSL%165 INJNĂ LT$(IN)""LT$(JN)""Ă (15):(18) LT$(IN);LT$(JN);" (Y/N)";:RE$$ RE$"Y|:FR(0)GW$(100)# H(3):(6)::"THE WORD FINDER":e(5):"BASE WORD-->";WD$((WD$)5ĺ"FIVE LETTERS OR FEWER, ONLY!!!":302::"GENERATED WORDS:":<SL%(WD$)AGW%0FIN1SL%KLT$(IN)(WD$,IN,1) M(    `$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,` J 0`: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  BOL-MUS-&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|x|888888888888888888888888j@ $pLt L捠`pHȱj l轸mll_t1Syȏh>Lb $p; UNDEFINED SYM  x|x|((T   (( ((<((<T ((<P ((<<<||||x@(@(@(||||xxx|xxx|     P (Ԋ(T xxx@Ԋ@@x@xx@x@Ԋ@@@@:(115,(235):116,(236)::sDO NOT INTERRUPT.,READING CATALOG.,ALPHABETIZING.,WRITING NEW CATALOG169,3,160,9,32,217,3,96,0,1,96,1,0,17,0,26,3,0,0,0,0,0,0,0,96,1,0,1,239,2168: b5:13:"DOS 3.3 CATALOG"B l9)"ALPHABETIZATION PROGRAM"d v12:12)"BY CARY W. BRADLEY" 19:12)"PRESS TO END":19)" OR" 8)"ANY OTHER KEY TO CONTINUE" 16368,0 IN%(16384):IN%128670IN%155Ĺ16358,0:700:%,T%:WBT%256& I1511:NXWB11? JWBWB255:J,0:JS (I1)ĹWB1,17a WB2,I1r &FI%NF%590 0J034:NXJ,(PT(FI%)J):J :FI%FI%1:((FI%1)7)(FI%1)7590 DNXNX35:550 NSC%,I:RW%:I: X:2:17::" ALPHIE "3(MP2) JVT%::M$(MP):0 TMP400,20,500E ^VT%:M$(MP):MPt h13:"FINISHED."::"ANOTHER DISK (Y/N)?"; r16368,0:IN$:IN$"Y"İ700: |300 OP%,1 I1511 SC%,I:BF%,CB%15I RW%:I: OP%,2:FI%1:T%CB%1:BF1)7)244 CB%135:RW%768:SC%782:BF%786:OP%789H I03:M$(I):d M$(3)M$(3)(13)M$(0) IRW%RW%29:T%:I,T%: 600 ,:(7);"INSERT DISK IN SLOT 6, DRIVE 1" 6"AND PRESS ANY KEY ( TO ABORT)...":660 @MP13:VT%2MPC1(F1RP%):C2(F2RP%)G xC1C2PT(FI%)F2:PT(FI%1)F1:SW%1:150V C1C2150p RP%RP%1:RP%34110 FI%FI%1:FI%T%100 SW%T%T%1:90 235,(115):236,(116) 34303 PT(105),M$(3) A(X)256CB%35X11((X  200%NF%0:I1105:PT(I)0DT%(A(I)):T%T%25550`(NF%NF%1:PT(NF%)A(I)m2:T%NF%<"("NF%;" FILE";:NF%1ĺ"S";F" ON THIS DISK)"PNF%2ĢVT%:M$(MP)::::360ZFI%1:SW%0dF1PT(FI%):F2PT(FI%1):RP%3 n     ˣ٠Ơ͠z!#????    ĠҠв! Ӡ "àӠӠ&ӠȠ9 ӠŠǠŠ۠͠נ Š Π ɠ >(><(>((((((>`>("Ԋ x| (0@p " T ((<  ""<*"">"*"  *"x |(""?"*" xx *"|0f3F10F0@16F @ *"># @( "Њ~?T |T*~T T T T T T >Ԋ<Ԋ>T  xxx|| |P xT ~?P P P P P P >Ԋ<Ԋ>P  xxx| "Њ>(>8 >((((((>p>("Њ  0@pT Ā " ((< T""  "Њ ((< T"" x |""^?"*" xx ("`6f6F16v``16f @ *"~" @ " @Ԋ *"~" @ "x@`T|@@@@@@Ԋ Ԋ@ || "Ԋ>(>8 >((((((>p>(#  p@ԂЀ # P (Ԋ(T p@D "Ԋ (( T"" | |""~?"*" "@cs3vc3v@AC@acCz     ,-0:ȡHe hhл`Ie҈+]̵YJ G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh ` hhl  . $ ; &?1?=A>?I i`HH11`쩻듧ƙɾ5Ö꽈`Jɺл1>@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A=?<) < (+,2,0,2,53,2,60,1,68,1,60,1,53,1,60,1,35,1,40,1,35,1,68,1,40,1,42,1,40,1,72,4,45,4,81,4,47,4,91,6V,1,40,1,45,1,47,1,45,1,35,1,40,1,35,1,57,1,35,1,40,1,35,1,53,1,35,1,40,1,35,1,57,1,35,1,40,1,35,1B 45,1,53,1,57,1,53,1,40,1,53,1,57,1,53,1,35,1,53,1,57,1,53,1,40,1,53,1,57,1,53,1,72,2,45,2,81,2,47,2,91,2,72,2,53,2,45,2`L 50,2,35,2,0,2,50,2,53,2,4072,1,68,2,72,1,81,1,72,1,108,1,53,1. 60,1,68,1,72,1,81,1,68,1,72,1,81,1,85,1,72,1,81,1,108,1,81,1,72,1,68,1,60,1,53,1,47,1,45,1,47,1,53,1,45,1,47,1,53,1,57,1,47,1,53,2a8 72,2,53,2,47,2,45,1,40,1,45,1,40,1,45,1,40,1,45,1,40,1,35,1,40,1,35,1,33,1,35208,2,56,96,198,81,198,80,24,96p 0,0,173,48,192,136,208,5,206,160,3,240,9,202,208,245,174,159,3,76,161,3,96 81,4,53,4,68,6,72,2,81,2,68,2,72,2,81,2,85,2,72,2,108,4#$ 81,2,108,2,72,2,108,2,68,2,72,1,81,1,72,2,108,2,81,2,108,1,81,1,72,2,108,1,TINUE PROGRAM...";:RE$! p1000, s:255W x"INPUT LOWER LIMIT OF INTEGRAL (A)";A }"INPUT UPPER LIMIT OF INTEGRAL (B)";B ABĺ"INTEGRAL IS, OF COURSE, ZERO...":183 ::(7):"COMPUTING...": ABSB:BA:AS:S0 N((BA)50)1: NOTATION."P ::"STEP II";::": TYPE '";::"GOSUB 100";::"' WHEN DONE."z :"BEGIN FUNCTION ENTRY NOW-->":255 (:"FOR EXAMPLE:":1001: d:200:"HERE IS A CHECK OF YOUR FN ENTRY:" i:1001 n:"PRESS <";::"RETURN";::"> TO CON"  ONERR GOTO DISCON. MESS.:::(9):(05)::200`" READY TO COMPUTE INTEGRAL":: (15):"PRESS <";::"RETURN";::">";:RE$:(10)::"DEFINITE INTEGRALS": :"STEP I";::": PLACE FUNCTION IN LINE 1001, USING DEF FN F(X)    E ONERR GOTO 60#:FR(0)1P(60,60)7 W (24):"STARTING COLOR:";CL_ CLr CL0CL1510zCL(24):"STARTING X:";XX0X3920"STARTING Y:";Y#Y0Y3930(:::2 DRAW SUB*********************** @@@@@@|Ԋ@Ԋ|@"  T|@"Ԋ  < (""~= 8 *""<"*"  *"><@csA1fc7f@AC`sac @ ""<"*"  *"><`6f@1C16F`@3F @Ԋ *"><  "~>8T*~((((((>ԂxԂ>(  0 pԪx@`|@( "Ԫ>(>8(>((((((><>(  0 p|P x(~?P P P P P P ~?Ԋ`Ԋ~?P " ((T  @p"Ԫ  < (""~<"*| 0@pЂ Ԋ(" P ((<  ""><"*""<"*"  *"~?0f@qA17F0@6F x@x *"><# ~0fCqC1pG0@agC x@x *"># @( "Ԋ>(><(>((((((><>(   | ~?T |(~T T T T T T ~Ԋ`Ԋ~T "Ԫ x% 1000.1010,102:1011,213:1012,1124BCD$(117)HV (3):(5){"*** TRIGG DEFENSE PROGRAM ***"A0W139((6A):W:-CL$(((1)2565)):CD$(WA39)CL$:CL$27A265<AA1:30A FIN((1 FELL DOWN AND MUST REST":2000:Y8İ7500:C%(P,0)5:eX0:TT1:5:"** TURN ";T;" **":2000RR1NR:RRR:B%(R,0)11020X1:700RR:X1000"TRY AGAIN?";A$:(A$,1)"Y"10000(A$,1)"N"Ā "TYPE A Y OR N":1030 KPRINT STATUS":350:A6930+7500:900;C%(P,0)A:NC%(P,6)3990hEX1:FX2:100:O970C%(P,6)C%(P,5)RN(4)990C%(P,0)12((RN(5)3)):I13RN(2):RN(2)I2RN(3)I3C%(P,0)I:*A$ZC$(NRP):3000:".05) tIv!LRRR9020MRR:1200[X1C%(P,2):X2C%(P,3):C%(P,0)200980hY8950A$ZC$(NRP):3000:"'S CHOICE"AL1:C%(P,6)3AL5AH6:AL1920"1-RUN 2-DODGE 3-ATTACK":"4-RETREAT";12:"5-REST 6-0:IB%(K,1)*I1NO19830L,NONO1:O%(NO)256(3C%(I,10)RN(12))I_.IC%(I,1):810m>NO1880@J2NO:IJ1:AO%(J)HAO%(I)850JO%(I1)O%(I):II1:I0840RO%(I1)ATJpI1NOrAO%(I)256:O%(I)((A(A))256)ıRN(2)1ıWA$ZC$(NRP):3000:" GAINS LIFE FORCE":2000:C%(P,6)C%(P,6)1xC%(P,6)C%(P,5)RN(3)660~RLR710MR:1200800U1NO:PO%(U):YC%(P,4)C%(P,6)0İ900C%(P,6)0İ400U  NO"WALLOPS""D12A$"CLOBBERS"U" ";A$:4:A$ZC$(NRQ):3000:" ":5500:2000bD4550A(C%(Q,5)C%(Q,10)2C%(Q,8)2C%(P,8)C%(P,10)C%(P,5))210:A4A4A16A16A(A.05):ARN(100)İ3500&4000:C%(P,6)C%(P,5 ":5:A$ZC$(NRQ):3000:" ":2000:@C%(Q,0)2RN(2)530 A$ZC$(NRQ):3000:" DODGES ":A$ZC$(NRP):3000:"'S ATTACK":2000:DC%(P,7):D1ıD1D((1)D2(1)D21.05)ZC$(NRP);:A$"GRAZES"D3A$"JABS" D7A$5)EC%(P,2):FC%(P,3):100*OD1;Q4O1D2MNOQ4:200^Y7Q3470rRN(50)İ3500Q5İ650Q3İ5004500:Q0ıEC%(P,10):E1E1E19E19RN(20)E520%A$ZC$(NRP):3000:" MISSES350rA160:A:360'|16368,0:DYC%(P,4):RRR:RLR405RMR:1200jY:C%(P,2),C%(P,3)wY8440A$ZC$(NRP):3000:AC%(P,0):A5ĺ" RESTS"A5ĺ"'S TURN"2000QC%(P,0):DC%(P,9):Q5D0460Q1D(D2.0257 "Y8300< #"OW! BUMPED INTO SOMEONE":5400:2000` 'D(D21):D0Y8İ6000:DD1w ,DD1:D1Y8210 122:19:D;" ":24:210 ^16368,0 hY:X1,X2:A(16384)176:AALAAH380 m0:X1,X2:A21370o16368,0:8500:*********F(X)7X3  (13)::DI:7 :"WHERE: N=";N1;" AND DX=";IN :"PRESS 1. FOR A NEW INTEGRAL 2. FOR NEW LIMITS"; RE$ RE$"1"0 RE$"1"RE$"2"184 100  BEGIN DEF FN F(X) OPERATION ******************************(F(A)) I1N/ FVFV((F(AIIN))2)5 E FVFVF(B)a DIFV((BA)(2(N1)))~ DI(DI).0005DI(DI) (DI.0005)(DI)1DI(DI)1 :(7) "" :"THE APPROXIMATE INTEGRAL OF F(X) ON [";A;",";B;"] IS "IN.02 N0ĺ:" INTERVAL TOO SMALL ... YOU MUST FIND A VALUE 'C' SUCH THAT C>>";B;" AND USE THE METHOD--> [A,C] - [B,C] = I"::"PRESS <";::"RETURN";::">";:RE$ N0115 (N1)50N(N1)101:ININ10:137 FV0 FVFVLO$:30005 dAS83Ģ(24):"SAVE FILE AS:";SA$:4000C iAS6910f LOAD SUBROUTINE*************o RD0{ DO$"" LO$""60 DO$;"OPEN";LO$;",L2" A039 B039 DO$;"READ";LO$;",R";RD P(A,B) P(A,B)03045 P(A 3X0X0 4X39X39' 5Y0Y06 6Y39Y39I 7X,Y:P(X,Y)CLR <RE$` AAS(RE$) FAS67Ģ(24):"NEW COLOR:";CL:CL:60 KAS21XX1:50 PAS8XX1:50 UAS65YY1:50 ZAS90YY1:50 _AS76Ģ(24):"FILE TO LOAD:";YYbdeMbdeAdeiMe[HqQj}q|q|q]}q|q|q|q|q|q |q|q| }qqq }qs} }[[H &|h`H &|I1h`H &|1-fbdePdePd eZdeZM-pbde5de_d ePde_MzbdePde}M-bdePde}d e5de}Mbde5de_MbUVRWXXbUV^WdXbdedeM b- bdefded efde3M-*bde2ded eZdeM4bdeZdeZM->bdeZdeZd e2deZMHbde2deM-Rbde2deZd e<dePM\bdePdePM-adeded e2deM-adeFded eFdePM-adedded edde2MbdedeEM- bdexded exde9M-bdedded edeM٠)&@ N`@9()%[N_ Na]Ċ ade-adeded edeMadedeM-adeded edeMadedeM-adeded eZdeMǠŠ)%RNa(ϧԠՠŠ٬Ϡՠ)\Nca(Š̠٠)$fNP a(ȠŠٮ)%pNca(Š٠Ӡ)!zNP a(Ƞ̨̨)-Nca(ŠӠĠȠר)#NoPS(ŠՠҠΩ)&@M`@9()$ Q w_ N]Ί !NM6.*Na()34Noa(ɭӠ٠Ҡ)0>Nca().HNca(ӠŠӠ٠ldeMvdedeM_s>KM6Po a(ՠĠ)FE(Ӯ)UVWY6oa(Ҡ٠Ӡ)Fd8rE()c<`d8r %a(ՠŠԠ٠Ҡ)c)S(ϠΠ٠eMdedeM#q`%q`$X dedeM$dede deMq.?6?r.?6?r.?6?rde deM_XdeM bde deM-q`d$Poa(ٽ)F`.?r%_deM de deMdeMdedeMdeMdedeM[%oPa(Ġٽ)Fqd%\6`.?6?r%\@qqJ` %q `x%qxT` %q `%q^_deM(dede deMdeMdedeMdeMdedeM%q`%q`%q`%qdeM dededeMq.?6?r.?6?r.?6?rdeM dededeM"deM'dedeM (de,`.?6?r(Ġٽ)F5P oa(٠ٽ)Fd8rE() q/?rq/?6r q/?rq/?6rqq dedeM dededeMq2?rq2?r7`a(Ԡ)UVW Y0M6o S(ϠՠԠӠ)&@`@9()%\ N M M&qqqXqd]nqq\as]xq/?xrq/?xr:M6Poa(ٽ)FPoa***********F(X)(X)!::(9):(05)::200`" READY TO COMPUTE INTEGRAL":: (15):"PRESS <";::"RETURN";::">";:RE$:(10)::"DEFINITE INTEGRALS": :"STEP I";::": PLACE FUNCTION IN LINE 1001, USING DEF FN F(X),B):A,B RDRD1 FR(0)& , A DO$;"CLOSE";LO$I 60n  SAVE SUBROUTINE***************w RD0 DO$"" SA$""60  DO$;"OPEN";SA$;",L2" A039 B039 DO$;"WRITE";SA$;",R";RD (P(A,B))48P(A,B)ܠŠԠŠܭ (q.?$r9<d$eM6dqqqR@`;@r$<P\t`7$<qd` $<x\t`7$<q`$<\t`7$<q)@r%[7`;@r%[qUVW;@rq<@*rr`$`$+`  $q[q Y2q8rqq[e]de`oLdede0dededede ded ed ed ed ed e`_@ft]ܠǠŠŠܭ!qq`;%q 8 r`7%qq\,q_Sq8  r8r878r8drr[ $]]8dededededededeLdedeſ)&@f`7;@r$\p\M6u`@*#r9()$=zoPa()cP a(٠Ҡ)G)qqUVW\Y_oPa(ˠ)Q]ŠϠԠqqqB`7d"ed#e" ocoa(ҠԬ)G*`7;@r$>F4UVW;@ra@*#rG`<@*rr%Y`;@r%d$e.?$r_H>d$e.?$r/HS()&@`;@r$`@*#r:()$R\M61\oS(٠ɠԠŠŬjkijk%lmno\UVWXJ`$qq 8 r\`%qq5bG` %a()Ga()GqYa(РŠ)o'oa(ӠĠ)GP bG\( d6?e,UVWYq q \Abd2e?a(ӠâϠРԭ)d2eelLUVW f8r 8r8rgh'ghY^qocUVWXfijkYiŠͯį٩)G\*`8r8r$!qα`%qS&ocM6dT0oP`  %a()G`  %a()Ga(Š)G9DoP 8  rbE()FE()FGoq)X\`;@r$@p@*#;@rr`<@r%@p()Aa@GocM6da(Šͯį٩)G\oPqqqqLqqqqa(Š)FE()FE()FG\oαqM6d\coM6d0`7%a(Ԡa() |c\)P a(٠Ҡ)c\\,cca(Ġ٠Š)#\oq q \?\M6\oS(ҠŬſ)&@oD`7;@r$UVW;@r`<@*rr%Y)[,qq\[t@O4rD4rD4r-rq\-rq-rq-rq?-rq-rq9-rq-rq)TN@"rC@"rC@"rC@" r;h-rq!KM6o\\cPY[,dededeM[,\,`$\(q8drl_qqqhq8rq:m:R 8r`%qS[q\,[0a(8d-rr8d-rr88d-rrd-rdrVdq8d-rr8&88d-rrd-rdrrq'8'r8(r5xgh`.?6@r%[]ԠҠŧƠBqqdededeMYd3e]Ԡ_d"ed#e[ d"ed#e[ qq _$I(UVWf8r 8r8rlm'n!o"<UVWq8-rr-r_Pq88-rdrr8d-rr      `%[ `$>4 f ijklmn/*ijklmn4[6>f ijklmnlmn6Hf ijklmnlmnR[ zccn(f8rlmn- q-rflmn$f8rlmn(f8rlmn`=>r$ fghgh fghgh$0#Yqqq\ qq q \ qqq\ qqq\_*`%[q'q'.q-rf8rlmn$f8rlm-r$Yf8r]lmn*bf `$ijk'lijklmn5vf lmnflmn_)ij'kij'k` lmnflmn&_X0f 8r53lmnijklmn5`%f 58lmnijklmn:_)DijkijkX``$`=>r$ fghgh fghgh`-r$Xf8rlmn*f `$Dijk'ijklmn5f`-r$`O`$6!Q-rq8-r r0Tq-r-rq8-rr5^q8-rr-rq8-rrh_62UVWq-rq-rq-r,q'q'6q-rq-r .q 1q`%q"6q`$`&Jq8-rr`$N+Kqq`$M4L-rq-rq-rqM_`N";A;",";B;"] IS "# (13)::DI:H :"WHERE: N=";N;" AND DX=";IN :"PRESS 1. FOR A NEW INTEGRAL 2. FOR NEW LIMITS"; RE$ RE$"1"0 RE$"1"RE$"2"184 100 BEGIN DEF FN F(X) OPERATION ************* I0(CN100)100 NN19 FVFV(F(ANIN)2)? R FVFV(F(B))\ NN1t DIFV((BA)(2N)) DI(DI).0005DI(DI) (DI.0005)(DI)1DI(DI)1 :(7) "" :"THE APPROXIMATE INTEGRAL OF F(X) ON [BSB:BA:AS:S0 (BA).5ĺ:"INTERVAL TOO SMALL ... USE [A,C]-[B,C] TO FIND VALUE FOR INTEGRAL"::"PRESS <";::"RETURN";::">";:RE$:115 CN((BA)3000):IN100CN (BA)10ININ2 (BA)1ININ2 FV0 FVFV(F(A))TINUE PROGRAM...";:RE$! p1000, s:255W x"INPUT LOWER LIMIT OF INTEGRAL (A)";Aj zA(A100)100 }"INPUT UPPER LIMIT OF INTEGRAL (B)";B ~B(B100)100 ABĺ"INTEGRAL IS, OF COURSE, ZERO...":183 ::(7):"COMPUTING...": A NOTATION."P ::"STEP II";::": TYPE '";::"GOSUB 100";::"' WHEN DONE."z :"BEGIN FUNCTION ENTRY NOW-->":255 (:"FOR EXAMPLE:":1001: d:200:"HERE IS A CHECK OF YOUR FN ENTRY:" i:1001 n:"PRESS <";::"RETURN";::"> TO CON8  ONERR GOTO DISCON. MESS.:::(9):(05)::200`" READY TO COMPUTE INTEGRAL":: (15):"PRESS <";::"RETURN";::">";:RE$:(10)::"DEFINITE INTEGRALS": :"STEP I";::": PLACE FUNCTION IN LINE 1001, USING DEF FN F(X)      0 P(A,B) RDRD1 & ; DO$;"CLOSE";SA$C 60FP e DO$;"CLOSE";SA$m 60%@p()`%@p()`%@p()`%@p()a(Ơ)E@G[qq[qq[qq[qq[qq[qq[q%q[q7q[qAq[qQq `%q `%q t` %q` $`%q`%q`%q`%q`$q [j@p()`%@p()` %@p()` %@p()` %@p()`;@r%bG`;@r%a@G^`d$ed%ed'e M\d$e'd%eM`%d,eOUVWd ed!ed"e Md"eMY[qqq6bq`;@r%[q<@*#rr`%q`%q `%q"eMd ed!eM`%[d e8rd!e8rd"eiMq \d$ed%ed&ed'eMq8r \d$ed%eMid e8rd!e8rd"e$M\Š)/^a(ŠҮՠ)E@G`%a()F1?rQIcd2e?a(ԧӠΠ̠š)d2e_ nd,e`%d,e`%d,eUUVWd ed!ed"eMd"e&MYkd,ed%q-rqYqqP`%\`$ `$]UVW-rq6-r`-r%qY>\`$]qqx\q6qP\@p()_ `]`-r-r-r-r%q@p()`%@p()`%@p(Πrr$Qqq( q`%qQQY`$q6UVWxX`-r -r-r$RqqqxRY`$_ceZqqqUVW`-r$[q6-r-rqqqxq`%q\s[`qq q6-r-rq`-r$Ld,eUVWd ed!ed"eMd"eMY\qYY_ (Fq`%[`-r$F[^PqUVW`-r-r8-Yqkq-rq-r-rqq`-r$-rqq`%qqqKqq-r`$` %qq -rq\_UVWxXqUVW`-r%q`-r$-r`  1?  r1?  r$cqqWq`%q-r`$qq `%q\\d,eUVWd ed!ed"e&Md"eMMϋWY`$ca(ҠҦԯΠӠŦǮ)a(Š)G\S(Ͽ)&@c`;@r$P\`$cqUVW`-r-r$q\Fq q2Y`$UVW`-r%qY`$PZq-rq(ҠҦԯΠħӠή)S(ԠĠϠՠԠϠſ)&@W `;@r$Z\`$cq6UVW`-r$q\Fq q\YqUVWX6`6-r$q`-r$qqqq-rqY-rq -rq-rq'UVW4-rqYa(Ǯ)q UVWUVW`$ q\-rq6`%-rq`%q6`%q \q; YYqqPUVW\q6-rq\YcT aΠŠӠՠŠˬՠŠҠȠĠĠΠŠŠӮ)q64zcS(ҠӠ٠ҠҠĠԠƠӮԠĠƠŠȠΠӮȠΠϠή)&@x Moa(Ǯ)GUVW  ;qqqqqqN@"rD4rD44r;KM6Pa()ca(Ġ٠ԠӠ)ScS(ϠՠԠϠ٠ҠŠϠſ)&@`<@r$la(ՠĠ      $(((a(Ǡ)GY ((M63-(a()GPa(Š)a()GPa() 2(UVW <(\-r+F(a@GUVW8;@rra()GYb-rP(`8r$d(&Z(cS(ӠΧϠ)&@d(Yi(a(ĠƠԠ)Wn(ca(ϠӱW `'qj'UVW t'\8-rr ~'@p@'\8-rr 'q '`8<@*#rrr8<@*#rrr$ ( '`8<@*#rrr8<@*#rrr$' 'q'`;@r$ ('`;@r$''_' 'q-r'-rq-r'-rq (q (Y(`)[#@p()[#@p()[#@p()[#@p()[,']͠ҠǠĠ'O4rC@"rC@"r$'qd]ƠӠΠ .'UVW 8'-rqB'Y+L'q(#q]ǠŠƠV'UV@p()[z#@p()[{#@p()[|#@p()[}#@p()[~#@p()[#@p()[#@p()[#@p()[#@p()[#@p()[#@p()[#@p()[#@p()[#@p()[k#@p()[l#@p()[m#@p()[n#@p()[o#@p()[p#@p()[q#@p()[r#@p()[s#@p()[t#@p()[u#@p()[v#@p()[w#@p()[x#@p()[y#[[#@p()[\#@p()[]#@p()[^#@p()[_#@p()[`#@p()[a#@p()[b#@p()[c#@p()[d#@p()[e#@p()[f#@p()[g#@p()[h#@p()[i#@p()[j#@p(()[L#@p()[M#@p()[N#@p()[O#@p()[P#@p()[Q#@p()[R#@p()[S#@p()[T#@p()[U#@p()[V#@p()[W#@p()[X#@p()[Y#@p()[Z#@p())[<#@p()[=#@p()[>#@p()[?#@p()[@#@p()[A#@p()[B#@p()[C#@p()[D#@p()[E#@p()[F#@p()[G#@p()[H#@p()[I#@p()[J#@p()[K#@p)[.#@p()[/#@p()[0#@p()[1#@p()[2#@p()[3#@p()[4#@p()[5#@p()[6#@p()[7#@p()[8#@p()[9#@p()[:#@p()[;#@p(UVW,Y a(ŠĠӠ)Ga@Ga() _ N M6dUVW,Ya(ՠ̇ɇևŇ)GUVWYa(Ҡ׮) UVW Y _  Q Q(#@p()[)#@p()[*#@p()[+#@p()[,#@p()[-#@p(ɲn[ lmnlmn[, lm!nlm!nijk![* lm!nlm!nijk! lm!n ijk! UVW,Y& oPM6dPa(ՠš) UVW q.?6?r Y M6d 3 oM6da(ĠӬ٠Π)G_ > fijkijkijkijk[ fghgh[ fgh[ fgh[0 fUVWlmnYijk[$ flmnlm oPa@Ga() q `;@r$  Y `7%\  UVWY [ ]Ԡ UVW q.?6?r Y q oPa@G _ ? oM6da(էŠ٠ĠԡӠ)Gw_rPa()GY o% PM6dPa(ҠӠ)G R@`@9()$  `;@r$  \  _  q q<@r& UVQWQ;@r`.?r$ Y UVPWP`.?r$ Y UVW;@r `@:@*#r$  qZ M6 N@"rN@"r M6 q \/?dr(# L f UVW! ij k Y f  ijk ijk 4 l mng h g h g h gh f  l mn q% oUVW;@     ԠĬ)da(ԠӠ)*nca(ƠՠȠϠŠԠŬ)xa(ҠΠ).ca(ƠՠȠϠŠҠά)"a(ҠҠנ)oa@GS()&@UVW -rq-rYβqα)M6ŠҠ)a(ĠȠο)'(oS(ŠҠӠҠϺ)&@2`@*#r9()$<`@*#r:()$0Foa(ΠŠԠŠȠŠ̠),Pa(ĠȠҠԠ).Zo a(ƠՠȠϠŠcc*a(ȠŠՠ)FG P'a().a()UVW\hP\0Yoa@GS()&@4M6a(ŠŠ٠ҠӠ)_2M6a(ĠՠŠϠ@r8q<@*#rrB` $Lq YV`$2`M6a(ŠǠӠҠ)ja(ϠԠƠ)Gtq~qqd ed eMp?-a@Pa(ӠŠө)$-`@*#r9()$`@*#r9()$#q<@r`$_.0oM6a(ŠҠŠҠƠ)&$a(ǠΠҠŠ)'S(ҠԺ)&@)`;@r$,`@*#r9()$X.qUVW;͠)a(ȿ)&ccS(ŠҠӠҠϺ)&@`@*#r9()$`@*#r:()$\p.M6a(ŠŠ٠Ӡ)*a(ԠՠˠĠŠԿ)'oS(ŠҠӠҠϺ)&@`;@rŠҠӠҠϺ)&@M`;@r$ -R`@*#r9()$`@*#r9()$f#\q<@r`$ _-fM6a(ŠǠȠӠź) pc_ M6'a(ϠՠȠϠŠԠƠ)*a(ӠԠΠ de-rYM0?αq.? r.? r5 M6a(ՠĠ)FβE(ӠԠĮ)!4ca(ՠנŠ)FαE()cc6`α$`α$8UVW :`-r$> <Y_%>a(ϠՠȠϠȠҿ)$HcS(ca(ҠŠԠƠŠȠŠ)-S(ĠŠϠŠԠӠź)&@`;@r$q<@*#rr`;@r$UVW -rq-rYβqα&\ 0S()&@:\\D`ҹ$&UVW )+Jca(ӠӠƠ)%Ta(ϠȠӠԠ)^oa@GS()&@6M6a(ӠŠΠàȠӠź)cUVW`-8rr$'cPbE()E@*#rY2cӠԠ))ca(̠Ӡ)(a(ӠĠƠ)/"ca(ǠӠ̠έ)#,a(ǠΠȠӠ)*6ca(Π̠̠))@a(٠ϠҠΠqrαqβq-M6a(ŠȠӠΠӺ)c0ca(ӠҧӠŠϠ)%a(ȠŬҠ).ca(ӠƠˠ̠ˠ))ca(̠ӠŠ)(a(ӠŠϠΠŠɠ)noPa()xo P a()o Pa()oPa()+oa(͠Ġ٠٠)oa@GS()&@UVW -rq-rqY)q(F@p(ӠΠϠ) Pa@E(ĠӠȠ)HZN@"~r@p(ӠƠˠȠ)V_@B7rp(ӠǠΠӠ)5dM6a($ ?]ΧԠŠŠ]ӠҠŠ#]٠ҠȬ9(N@"rC@"2rC@"FrC@"(rD4 rD4 rD4 r-2@p()@p()F<@p(͠ȠԠ ɠ                  ȮҮŠҠԠǠҠǠҠ̠ ŠҠ̠Ҡ̠Ҡ̠ǠŠҮԠ*&٠ŠҠҠҠǠŠҠ̠ӠҠŠҠŠҠǠŠҠԠҠ̠Ǡ " ( " 0 0 (0<"  0"880 0 8( 0"8$(*  80  2* 8 . ( (*".8(*"( *( (:"("(*  800&(*0 00   0 8  88 820 *   8 8  8$8" (( 8(8  408   8 4 28.  ($$ " (((  "(8$08 ( (*"0 02 : ("  ( "( $2"  " ("(( " "(0 04"(0("(* "( ( "( (8( *(* (0(*(00"(""8   88  ,"8   "8  ("8 * (1  2"8!  8   80 28  8        * "8 00 (2(  2( 2 ((( " 0"0 8 : 8 0"( ("(80 "( ("(*(8 ("(8 ( ( "( "(*( "(  ( "(* "(*(.( (:"! 0 ( "00 (((:" * :8 (,0*  ( (   8"(   ( ((: 0880" 2   " 8& 0 8" 2"   (0"  (0  " 0  "    (  (0""(0(" * * *  * (0* (0  (" (8" (* (. ( 4(*(   *  *  ( ( :    8 : ( 8 ( 0 ( 0 *(   0:"8  "08!""8" 08  0 8 *(8  88   88   "8   "28 * "8  ( ""( :84$ 0"" 00&"8$8 0($8 >$ (<$ ( <8*( *  8 60 0 0 8 80 8& 0  "(*0( ("(*0"("( $"8*8( ("(*4(*08 *&(0 ( "("( "( ( *"(("(0("("4"(002($"(("( *$ "8 :0"8  "(0* "8   0&( 8"8 (0!0(*"(0 ("( "(0 0"  *(8 0" ( ( (" "0 ( (*(*( "( ( "(0 828 08(  ("8( 0 00(88*(08 " (*( (*("(*(* "( ( 80( "( 8* 8 0028*( ( 0"8 (00(*8  0 0 08(8  8$ 0 0888 08 0(0 0   8$088 " 8$0(0 0 ( 8$(8 (8 02 (*"(*("  0 "( (* 8  20   0 0(0 (*" "8 : 8  0  : 2(( 000   8" ( 0 ("(2   " :48 "((*(* (*(("8 $8$(*8  " (:( 00  0   "  .8  "8( 0 8(*0 8$ :08"( 8  : 7   (* " * * ( ( (* (** *   (""(   *  (" * (*  * ( " * (""(* * ( " (* ("("" " "(                               THDATE?";Q$Q$"Y"ī3000/Q$"N"ī2030K"ANOTHER BIORYTHM?";E$\E$"Y"ī209"HOW ABOUT A BIRTHDAY LIST?";V$V$"Y"ĺ"";"RUN BIRTHDATES"T ***SAVE BIRTHDATE &NAME TO FILE* (4);"NOMONI,O,C" (Z$);T$  936: FIND DAYS EXPENDED IN PRIOR MONTHS.*J20;4I1X1J>J2J2F(I)QHIWRs CHECK X FOR LEAP YEARX400(X400)01020X100(X100)01030X4(X4)01030X1X0  "DO YOU WANT TO SAVE THIS BIR OF BIRTH."0;1:::""::""::""::0:2000R FIND DAY OF WEEKjN1M212(.61M2)N2Y2(.61M2)N3(13(N11)5)N4(5N24)N5(N2100)N6(N2400)N7N3N4N5N6D21P2N77(N77)1% CE AND ENERGY LEVEL."D:"EMOTIONAL CORRESPONDS TO SENSITIVITY,"g"INTUITION AND CHEERFULNESS.":"INTELLECTUAL IS RELATED TO MENTAL ALERTNESS,""COGNITIVE POWER AND JUDGEMENT ABILITY." :"ALL THREE CYCLES START AT ZERO AT THE MOMENTAIN METABOLIC CYCLES,"L"WHICH HAVE A CONSTANT PERIOD IN THE HUMAN BODY"q"THERE ARE THREE (3) CYCLES...""23 DAY PHYSICAL""28 DAY EMOTIONAL""33 DAY INTELLECTUAL":"PHYSICAL IS ASSOCIATED WITH PHYSICAL VITALITY""ENDURAN21qD2F(M2)D21:M2M21-vM213640>{M21:Y2Y21OXY2:F(2)28Y1000iF(2)F(2)XpOw0}"WANT INSTRUCTIONS";Q$Q$"N"6961"THE BIORHYTHM THEORY....":1785,72:"POSTULATES THAT THERE ARE CERT)25)26+O$(X)"I" 0YYXB5X((K(O28(O28)))25)26P:O$(X)"E"^?Y(YX)3lDO$(Y)"A"IT$(P2);3);M2;"/";D2;J13N X1 51P O$(X);R XTX INCREMENT DATE]P28620bP2P21gP27P21lD2DLEAP YRSXY21000+F(2)F(2)XG GENERATE THE BIO PLOTQLOLYC0fOOL1pCC1  X1 51O$(X)"-" XO$(26)"!"Y0X((K(O23(O23)))25)26O$(X)"P"!YYX&X((K(O33(O33))E=EMOTIONAL (28 DAYS)"B28);"I=INTELLECTUAL (33 DAYS)"`28);"A=OVERALL AVERAGE"f13);"DOWN CRITICAL UP"13);"*************************!*************************" SET F(2) TO 29 FOR I 1785,72 1Z ;" ":1785,72:;"BIORHYTHM CHART FOR ";Z$:1785,72`  28);"BORN ON ";T$(P1);" ";M1;"/";D1;"/";Y1 28);"BEGINNING ";T$(P2);" ";M2;"/";D2;"/";Y2  28);"P=PHYSICAL (23 DAYS)"28);"OJ2J2D2Y2365% TJ2639723P282 YN1Y2.1v ZOJ2J1(N14)(Y14)(N1100)(Y1100)(N1400)(Y1400) ^M12370 cXY1 h1000 mOOX rM23400 wXY2 |1000 OOX  PRINT CHART HEADER I15  1 2" "STARTING DATE FOR CHART:";0 M2,D2,Y2? Y299295N Y2Y21900[ "25),Y2d '700 )"LENGTH OF CHART IN DAYS:"; *L , CALK OFFSET,INCLUDE LEAP YEARS 1XM1 6800 ;J1J2D1Y1365 @J1639723P18 EXM2 J800 IORHTHM FOR (NAME) ";Z$D "ENTER DATES IN THIS FORMAT MM,DD,YYYY"J b 11);"BIRTHDATE:";p M1,D1,Y1 M1$(M1):D1$(D1):Y1$(Y1):BIRTH$M1$"-"D1$"-"Y1$ Y199255 Y1Y11900 25),Y1 M2M1:D2D1:Y2Y1 700 P1P,F(9),F(10),F(11),F(12)@ 31,28,31,30,31,30,31,31,30,31,30,31F l "BIORHYTHM PROGRAM FOR APPLE II"t : "THIS PROGRAM WILL PLOT YOUR BIORHYTHM" "CYCLES." : "PRINTER IN SLOT 1 OR CHANGE" "LINES 411 AND 417":: "B. 5000 X72  1785,X2 FOR APPLE-2>O$(51)IdT$(8)`xF(12),J(2),Z$(20)T$(1),T$(2),T$(3),T$(4),T$(5),T$(6),T$(7),T$(8),K"SUN","MON","TUE","WED","THU","FRI","SAT"," ",6.28318 F(1),F(2),F(3),F(4),F(5),F(6),F(7),F(8)          cccQ(c1c3f1)CD$(2) W112F CI$:CC$CC$CI$:(16):(H1)::"*"::HH1L ] CC$CE$900f 125 ,CE$CD$(37)CD$(38)CD$(39)CD$(76)CD$(77)CD$(78)CD$(115)CD$(116)CD$(117)CD$(79)CD$(80)CD$(81)CD$(40)CD$(41)CD$(42)CD$(1)CD$(2)CD$(3) ":_ " ENTRY INSUCCESSFUL ":Z150:SO(49200): W113:" ": 125 CE$CD$(38)CD$(39)CD$(77)CD$(78)CD$(116)CD$(117)CD$(79)CD$(80)CD$(40)CD$(41)CD$()23)< K(15):(5):"BEGIN CODE ENTRY";:W1(IN):".";:T P(IN2)100,200,300 dCE$CD$(39)CD$(78)CD$(117)CD$(79)CD$(40)CD$(1) iW16 nCI$:CC$CC$CI$:(16):(H1)::"*"::HH1 s xCC$CE$900 }:W110:" ŠԠΠŠϠРŠ)u(Tx(`$((Q(Q 100Q  BEGIN DEF FN F(X) OPERATION ***************************************d F(X)X(X)j ESS <";::"RETURN";::">";:RE$:(10)::"DEFINITE INTEGRALS": :"STEP I";::": PLACE FUNCTION IN LINE 1001, USING DEF FN F(X)"H :"THE APPROXIMATE INTEGRAL OF F(X) ON [";A;",";B;"] IS "Z (13)::DI: :"WHERE: N=";N;" AND DX=";IN :"PRESS 1. FOR A NEW INTEGRAL 2. FOR NEW LIMITS"; RE$ RE$"1"0 RE$"1"RE$"2"184  IN.05ININ10:137& FV0:N09 FVFV(F(A))Q I(AIN)(BIN)INf FVFV(F(I)2)p NN1v FVFV(F(B)) NN1 DIFV((BA)(2N)) DI(DI).0005DI(DI) (DI.0005)(DI)1DI(DI)1 :(7) "TINUE PROGRAM...";:RE$! p1000, s:255W x"INPUT LOWER LIMIT OF INTEGRAL (A)";A }"INPUT UPPER LIMIT OF INTEGRAL (B)";B ABĺ"INTEGRAL IS, OF COURSE, ZERO...":183 ::(7):"COMPUTING...": ABSB:BA:AS:S0 IN1((BA)20) NOTATION."P ::"STEP II";::": TYPE '";::"GOSUB 100";::"' WHEN DONE."z :"BEGIN FUNCTION ENTRY NOW-->":255 (:"FOR EXAMPLE:":1001: d:200:"HERE IS A CHECK OF YOUR FN ENTRY:" i:1001 n:"PRESS <";::"RETURN";::"> TO CONl  ONERR GOTO DISCON. MESS.:::(9):(05)::200`" READY TO COMPUTE INTEGRAL":: (15):"PRESS <";::"RETURN";::">";:RE$:(10)::"DEFINITE INTEGRALS": :"STEP I";::": PLACE FUNCTION IN LINE 1001, USING DEF FN F(X)  TINUE PROGRAM...";:RE$! p1000, s:255W x"INPUT LOWER LIMIT OF INTEGRAL (A)";A }"INPUT UPPER LIMIT OF INTEGRAL (B)";B ABĺ"INTEGRAL IS, OF COURSE, ZERO...":183 ::(7):"COMPUTING...": ABSB:BA:AS:S0 N((BA)80)1: NOTATION."P ::"STEP II";::": TYPE '";::"GOSUB 100";::"' WHEN DONE."z :"BEGIN FUNCTION ENTRY NOW-->":255 (:"FOR EXAMPLE:":1001: d:200:"HERE IS A CHECK OF YOUR FN ENTRY:" i:1001 n:"PRESS <";::"RETURN";::"> TO CON#  ONERR GOTO DISCON. MESS.:::(9):(05)::200`" READY TO COMPUTE INTEGRAL":: (15):"PRESS <";::"RETURN";::">";:RE$:(10)::"DEFINITE INTEGRALS": :"STEP I";::": PLACE FUNCTION IN LINE 1001, USING DEF FN F(X)  ! Qc?FccQccxQc?c cQ*c@ccQc&Ac"cQc(ccQ| ccQcQ*c cQc>lccQccxQcyc cQc?@ccQ*c>Qc"cQc3(ccQxccQcAc AcQc&8ccQ ccxQ*c  c cQc>BccQ*c?QccQ c(ccQ*xQ*ccQcAc a cy>cccQ cc|**************************0F(X)1(16X2)6`" READY TO COMPUTE INTEGRAL":: (15):"PRESS <";::"RETURN";::">";:RE$:(10)::"DEFINITE INTEGRALS": :"STEP I";::": PLACE FUNCTION IN LINE 1001, USING DEF FN F(X)IN.0125 N0ĺ:" INTERVAL TOO SMALL ... YOU MUST FIND A VALUE 'C' SUCH THAT C>>";B;" AND USE THE METHOD--> [A,C] - [B,C] = I"::"PRESS <";::"RETURN";::">";:RE$ N0115 (N1)80N(N1)101:ININ10:137 FV0 FVF 1W118; 6CI$:CC$CC$CI$:(16):(H1)::"*"::HH1A ;R @CC$CE$900[ E125s "ENTRY SECURED..."y  "":100 SO(49200):SO(49200):"PROCEED":SO(49200):SO(49200) ::::::::::::::::: :255: !  !                                                          %-%! РŠàԁԠ堠ƠӠ Рȃ̠蠠ΰǠӠҠɠ.ɍ8 QiiPQiQjPLmQ iPjP` iPjPLQ`H* 6  "%L+&05NHBHBP7NP L[P`x0YؠԠŠӠ堠ŠҳҠĠƠѠϝ٠Š̠ࠠࠥӠ屠Q cAcccc iQ :P`Q c&Bc ccccQc*c(ccccQ gC(c cc&clc V(F(A)) I1N1 FVFV((F(AIIN))2)7 G FVFVF(B)c DIFV((BA)(2(N1))) DI(DI).0005DI(DI) (DI.0005)(DI)1DI(DI)1 :(7) "" :"THE APPROXIMATE INTEGRAL OF F(X) ON [";A;",";B;"] IS "# W1100:SO(49200)::125 5 A                                      4 0-4ȊȱҠ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|  @!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ OR L> m CANNOT RESTORE FILE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8     ҥ `ȱ`hhL  + s RETURN  ɍ`` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERR   ɛ=ɍ ee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS  (&Hɠ)?(h`  i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGETL| $ v SLOT= DRIVE $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $  L H8H   G  !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅl(h)JL G ! | G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i` .Qt >: ($   ) L m ERROR hhL ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` s SEPTEMBER 1980`$L[($Hi i ()?` RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L   .L %$ $ $(*)+!h"0 H $(*0 ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L  -r. 8i$L[i i d2080aMICRO-WARE : HBhi T ii / X v DISK SELECT (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H                 J            ! #"    O ] *.K \          a       -         -!& !'        4 #       # *$* &  $.#,## -+%)," $!w $ 0<_xI"'E "a  A0"":U ]  6  !       ";2"%7%+$.F$& %           $ $                                         #_%!#0*"0fN_ M bZ pOR| Q8+I!  ) !                                    &  &"  "#       "" #  &  & $#"##!  %# !  &#       '"9 !9#>$">! /  )'P$"X#+\,"Y-       4$+ .G&  ! ! "   $ "%  % #   E#C#^O*  OU LIKE TO ENTER", ::"ANOTHER NAME? ";Y$@ ::Y$"YES"290H ::S "::100e , --END LOOP? 6 WATERS,83,75,92,80,TRANTER,74,81,92,76 @ SAVAGE,72,81,63,60,RICKARD,99,84,92,87 J MULRYAN,100,93,82,89,LEMONE,94,93,85,94 T (13)::DI:9 :"WHERE: N=";N1;" AND DX=";IN :"PRESS 1. FOR A NEW INTEGRAL 2. FOR NEW LIMITS"; RE$ RE$"1"0 RE$"1"RE$"2"184 100  BEGIN DEF FN F(X) OPERATION ****************************N$,A,B,C,D ::::N$B$200G ::::N$;" HAS THE FOLLOWING GRADES:"g ::::A;" ";B;" ";C;" ";Dz ::::N$B$240 ::P :: THIS LINE IS REACHED ONLY IS THE STUDENT IS NOT ON RECORD ::"STUDENT ";B$;" NOT FOUND" :: ::"WOULD Y ***P211***, PRINT STUDENT GRADES2M( BY: SHEILA COLLINSS2Y<|F"THIS PROGRAM WILL PRINT OUT"P"THE GRADES OF ANY STUDENT ON"Z"RECORD."d--LOOP?n::x::"NAME OF STUDENT?";B$::::P16 ::::!! ! 줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅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"" " " " " """""""""