?=2CM(AHPKH 8NGRGZRNGRGZ)8N)"W EZ)K?ZC9DZJA9DZA>G2IJF2J%LI,)X)2LIJYC2C-EB2I2B, D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[GE!6AB$BJBM>E?AC^C BB44H!B(?1= H?YIKKS?UJ=F?4ZK ?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G <%E[DDGD)=?(;XK>Z2JLK=Z3 [AV2IP2*-P8N5R52I.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8H !J"2I <"[]"[V:AZ3 ;KU : LSOJ3R39HKVXG8LGR+?QR ?RS&?TR]?WSB?XR-?YR? RART2I = <8 Z O=C;K:>( 9* 9 8* 9 ?K7<(*K6 5*$ 4*ASA: K+[+2IO3 ASA <8! A;VK+?H*O3[)OA[** 9WA+^;$KA[AS+* 2K) 3K*8!XS: 2IO3>(+\SA:A ASA: A8 [+*-: KA[%2IO% 3* <[%*K8X,/MKZVJVXYP3!WXO ?YX ^?8?/^]P)\*QW ? >O= ? =: Z[K<* K; :O??H;$K9 :O?=H8! [AK2IP*K8 : [WK8 :*: ? >Z[O==: 2IO78!I=SO==+O8! 6K5 :O==(+H8 Z\I=8 >*>K8 :R\*<2IO=8!H :K2R\+Z:O4>(/SK9 :/SOZY\I\<(+78J8HA-K>9F8F8FY] %[O.]ES%0-XOE?;[PZ\ %:SJ;X2IO: :SI+Y/98 2IW>+X[G+U [AT2IQ/SG+Q+Y ; [AD2IA>/8Y+Q*(+32C-6IK> /7,\/%T EP Z\*X8[OS% ?2IO>>(*HK="O*"8:* ? <"O*KK;=HK:K92IO8 [Z.O" I?>( 7.Y2IO>> *-:J2> **"8*$Z22I. K6"OK5"O. R2K=C42I.8:J2> *4;Z2IO8 [ZC3K2<(*3K19K:-?3A???J?M\P!B A? QW P2^W ?/> [AO2IA>[O[P2IO=<(+M=*RK(KP8!I==8 7 [AC2IQ,Q2IO=8D?H+IO=9H =O68H 6O58H 5O=C4O=K3 =*52IO=C2 =2I.2IO=K;?H %(++8A\F8 HFXF2I/QAA]7 GH? *[: Z)JKZS8NLY>RLNLY?2I.RL;X 7\KDG9F8TZ(;(DG8!RL*P[DKDK?9K>R*:2IN*R*<(*?KD>(*>R**3[D2IN*Z*KD.*8![D*2IO=XUOPR?(X?7 &?8XK?:T"?;TA??^-PR2IW=.W ?.HS<(:A2I.]"WI?>( R. :I=8![Y"*>OLG*,I>[WI=KY9HI?XG8/O[Y+! [AQ2IQ/SY+]2I/Z:2IO58 [Y+-K4 8SY++ :*CRECO2A*S%? X8XO?\P2XYR \*P)I=8 2I ?8 Z=8 2I >XS2IW?8! 7A>\G: : 9*J 7A>LG=*58!2IW> [AK2IP*XS [WQ*2I\U8 HUXUR=HS< *5I=2I 7I=8 J=K6 5PU2ILU=H*$K4 3+OXTHS9FHS8DHTXS2I/W// 0//// 0// 0//// 0// 0//// 0// 0//XO0USDS%?<^\WK\*X8[OWJZAJFZK8NGRGZRNGRGZ)8N)"W EZ)K?ZC9DZJA9DZADRRRR [AV2I" ;( KZQ2I ? > =JQ X"AZ0J0=H8 ^1;$J3XHJ2Z>8LHC<>(+HLH[[LHZ*8 Z/LH[ LHZ)LHZ+LHZ,J2[LHZ-HH8AZ3R/+ : 8N*< 38N)K;Z.8J+^-R-J0?HJ.9DJ.J,^-;VJ2[18.3"W0USDS%?<^\??ARQPNL!?9$GC9P[% E\FA?4LBGO2K5 OK?1?HDKB;3 !E\C2P[) E\FAK4DNC 9?9TCXH[!IE\Q\ ?0$CXH[!IE\Q8$8AE\R\ =E\EO=K=DNC?< H(JXH["CE\TQ0Y"APR WP[! $GPH^ >G2AJF2J%LI,)X)2LIJYC2C-EB2A2B, D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[GE2J%LI,)X)2LIJYC2C-EB^RVOPQRB(?1= H?YIKKS?UJ=F?4ZK ?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G <%E[DDGD)=?(2J NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBJ?2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)G; C$GC"0A?&?%?$2K2AZ?^^IQPT%M: XTHMXPLP%M: HM*DPT+AIQ+IYPT+3IQ%MXTHU%M/.K\MI?XNLN<(+ %M+;S?=ZFMR8 [A[FSFKF8!K>?H/=[GSGKG8!K+?N-EPGC8 [CB2AMG2AMF2AK;% 7% \GK> [CB2AMG2 MF2ALJ% 7% \GK>8 [CB2AMG2AMF2ALY% [AC2AM% [AD2A% /=2A <2AW(/<% MIM$DMFPEMHPFBMGM3C8 [AD2A% />/=/< [BB2AQ;2AH% 8A8! 7% \G [BB2AQ:2AH% 7% \G2A 92AW9O98!K8?H*2 [BB2AMF2AHB% O9 7% \G* 2A 92AW9O98!K7?H+I [BB2AMF2AHK% 8A8!O9 7% \G*4 [F [BG2AQ;2AQ* [AH2AMJ [AH2AMK [AH2AML [AH2AMM [AH2AMN [AH2I+-(I5)2A 92AW9O98!O6+?SMNB4IMFBAM,N/N78?H*H [AI2AS> =/<2A ; :2AW:O:8!K9?H/8 [DJ2AHK2AS72AS62AS7:1ZK51ZK41[ 32AW3O38!K6?H/2 [DJ2AHB2AS72AS12AS7 [BB2AMQ2AHK% 7% LG2A 0O0 [AK2AS/ .K/ [AE2AMS8!O0 0O0 [AK2AS- ,K- [AE2AMT8!O0 0O0 [AK2AS+ *O* )K(+?STABMVMUOMT-MSAZMRI^\QB4A DCMPMOQ/MG8 [AE2AMU8A >O=<(*!?H*!2AO< [AE2AU;8!O: :K; [AK2AMU 9O: [AK2AM$8A 888A2AO7 78AO= =O7J/XGLGXG,GT/T2T? [BB2AMT2AH% 7% LG2A 6+!8A2AO> 9 [BB2AM$2AHB% 7% LG2A 6K58!O=>(+U+! [BB2AMW2AHB% 7% LG2A 681!HAB2A 41]1]?+)2A 32AW3O38!+?MYW[BMXMSMWM$MROMVMTMU8 %?H*+ [BB2AMY2AHB% 7% LG2A = <2AW 8A2A 3O< 281!1B2AO28!O0 / <2AW8DJK=XHLHZRLHZT1!1CO= [AE2A[ 7% \G8A2AO; ; [BB2AMO2IB% O: 7% \G8A8!2AO9>(*,*3K88!2AO7>(/6/52AO4 [AK2A[38A 48A8!O2 [AE2A[1 >8A8!O0 [AE2A[3O>O4 / [BB2AM^2AJ?% [BB2AM^2AJ?%) 7%)LG8A 7% \G8A2AO=8!O08!>(/./5+?FLOA\M^MTDMSBMU^:^ [AE2A]=O<8!K;8!>(+E/:K9 [CB2AMW2AMU2AK;% K9 [CB2AMW2AMU2AK;%) 7%)LG8A 7% \G8A2AO88!O<8!>(+)/:K9 [CB2AMW2AMU2ALJ% K9+?A]Q,BMZC^:FMTBMS8 [CB2AMW2AMU2ALJ%) 7%)LG8A 7% \GK>8 [CB2AMW2AMU2ALY% K>8 [CB2AMW2AMU2ALY%) [AM2AM[ [AN2AM! [AO2A%) [AC2AM! [AD2A% 8/= [PK<?H/48A8!O: [AE2A 3 28A8!O7 [AE2A 9O2O5 18 +?M^M$D +MH ,MG -BMFRKRC8 [BB2AM^2AKW% 8 [BB2AM^2AKW%) [BB2AM^2AKK X [AM2I [AN2AM! [AO2A%) [AQ2AM! [AD2A% />/=/<2A ;2AW;O;8!K:?H/9K8 [AE2AMF8!8A8! 7 62AW6O68!O7?H/5K:8 [CB2AMG2AMF2ALY% K:8 [CB2AMG2AMF2ALY%)K: [CB2AMG2AMF2ALJ!) [AM2I [AN2AM! [AO2A%)+?&Z"IMGM B"JCMF F N V8 [AQ2AM! [AD2A% />/= [BL2A<2A$A8 [BH2IL2AKK8 [BH2I L2AKW ;2AW;O;8!K:?H*> 92AW9O98!K8?H*=K: [CB2AMG2AMF2ALJ": [AH2I* * [AH2I [BL2A<2A. ;2AW;O;8!K:?H+) 92AW9O98!K8?H+(K:8 [CB2AMG2AMF2ALY% [AH2I+Q+I [AH2I/7(//3(5F10.0/))+?$EMGCMFA /!8*X(4(3I10/)//4(3F10.0/)///3(5I10/)//3(5F10.0/)) [BL2A%?2A$ [AH2I*8(// ENTER BLOCK , UNIT 1, TO SAVE DATA ) [BG2A%?2A%G [AH2AM [AH2I+J(I4)2AO>K=[ZKZ8A[\K\8A[^K^8A[ 1!F$GLGLG GLB; [R [R*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z*Z&Z M A [A 7&PLG2A >RQ 7&PLG2A =RQ 7&PLG2A 8!O= < [AM2A&M [AT2A&J [AN2A&J [AM2A&B [AC2A&J [U ;8A8!O; < 7*ZLG [AE2A&M8A : 92AW9 7*ZLG8!2AO98!?H/8O9O78!8A8! 6O9O:8!8A8! 5O4[LO3[M [BB2A&G2I* 7* LG2A 2O4[\O3[] [BB2A&G2I* 2AO4[(O3[) [BB2A&H2I*" 7*"LG 7* \G+?&I*Y*X&H&G&C*R&F&E&D&M&&B8JXZHJYZI [BB2A&H2I* 2AO? 7* \G8/>8/= J [R*("4.3GI*0&/./R/2(Z3*1:0*0&/*/>/.3V(/IB1*/>)*/"3.5GF.0B.*/&)"M&J3W R+TE.1F,*1&1*MBJ.1F12I?F3RGM+T>(2/V 3NWT3RJ 3LOO+KN 6,V 7NSI* 2 2 ?T2 GS+VCE7DSA+A& "M&J3RGE/DF(.,F122&)3B/L*M ](-&I:A[0[/[. F"5RIRI I"5"-2I ?K+8DC&K( >K/"-2I =K+8DC&O? ?K09F8FC&O= =RPRP S>(+W&B+UHXJEXXHW<(*;8!HY=*;ZEHS9HXSHT8HXTHU8HXURE*/+C8 ZEHYXW+A&ARE+HV?+H;&&DHX?H&D&HP?+R;&&D;XXV2A =&C+&HG[.-JEC,2I >-2I <-2I ;: [,;VJN[*ZE8.O??8LH/-K1ZNK2ZO;([,*P[QRQ1EP7(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I ?HQ >HR =/F:XRXQ+*/C" 62.JK[?8GC?RQPJZD8NARAZNNAXGJZUJAZV8LGPGZ<: LG* JUZY8NVRVZ<: NVXH2IO?";2I ?O>";2I >O=";2I =RV;VJUZ90\C(0Y*9 [R8.V8\H.;&IX 2IO? :XP2IO>XQHWK9=+0K;XT 8PT+PHV8DHQ =HV UK [(K![) [AO2IK [A;VK![B+C [AV2A2?;(+X3LOO7N=40\?=A?RQP057N601F4FJE2A ?JFZM8NGRGXG: NGRGXH&C*\HVHXXVHWHYK>XWHPXXHQXYHRXZXPK=Z8&AHX8HXXHY8HXYHZ8HXZXW2A = < YJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62A ;J7 :/9HP9HXPHQ8HXQHR8HXR:D2A =/N/VFL2IO8< K72I 8 ^:2AO([^S(O([ [AV2A7\;(+$3I P.[.O.N1F1EBOUOIOERXGHG8F8F8DBJUZRJJ0\J5>(0Y8 [R.V;T8&:*:L8-8186:A:=;V;V;V;V;V;V;V0Q*FHG0V: Z0Y*F;Z*F0I*F0N*+==K->(*=S-+ K)*+6:*F69+EK-8 [.*F6Y*?6Z9HK,2A ([.K-8!9HK*ZR2IK.( V2B2A&X+VB Z2ANY>(+V2BHGB2A&Z+V*JARFFAQF)K?0&660Z0V0L [X2A^W^Y A61/>HGR<*6K=9A8A(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AV2A8AQRSTUVWXYZC G]BPO3456789:=LE?^ M*]V-./012ADJI[=3=6565N8FBJJKZP8NLZXRL:0NLXHRL8[!LH8DXG =;& =K!>(+] V8DBJJTP/JC<<(*2K;=HK:K9 [Z/P [P2C.M0!+ P["O"XS2AW?8! 7A>\G: : 9*J 7A>LG=*58!2AW> [AH2AZ*XS [S[*2A\U8 HUXUR=HS< *5I=2A 7I=8 J=K6 5PU2ALU=H*$K4 3+OXTHS9FHS8DHTXS2A/W?=TY+1 ^+UDLY7% NJ$G=1Z1\$+1[:"O0 SD]%?<(&!K&*"8%O!J Note: Lines longer than 256 characters were wrapped