?>2KMU[H AH2IL?8 [BD2IL82IC;4Y8 [BD2I3>2IB4[ [AF2I4[ [AI2IL9 [AI2IL< [AI2IL? [AG2I4Y8/= [BN2I3>2I2= [AE2I+B(//////)2I <2IW2I48 [BD2IL82IB<3[ [AE2I8 [BD2IL82IC;3 [AE2I [AE2I/9+?K9?H/8+?JX8 [BD2I4X4O4QUL8/PA82MFJ+RCG/\J9"1*M3TSA. Z(2MNJ+MCA2MNJ3A3L* 233SKUS7C6JKA7G2 J7B6JKA7G2 I7B6JKA7G2 A612JW^2MNJ3A3L* 213IO6M:J+EB,3A R" 602JGC+LCL21&,O7H6JKA/GB 6M2J*7272 ?NP6 2J7J7P: C*M+^3D" *M/\"72,: +OCP2M*J+MCP^7A2JK^",6 2JOD7A2 J7C2J[^2,& +SCZ3\OJ6MRJ+ACD3\OJ$GPH^ >G2I<G!6AB$BJBM>E?AC^C BB44B(?1= H?YIKKS?UJ=F?4ZK ?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G <%E[DDGD)=?OHC>(+CQTQTQS*9*XRTITYMIM8AYL.T? :IH> /KK5X,Y)Y*Y+HEXIHCXJHAN8!YV2ALJ2I\IQV+\HEXJI:YVLJ$SQV+&K6X,/KKZTJTH2X2JT$"/-S- : < =X7/7%%+4O:A^;P4I \4V;2I$Q: H6X6P08 MOB=I4]OILYAP4,\BXO=?./MOA4>(.>8 Y KS\YT8![ZT.<$(8 RSZ+J.>-9ULUK2AL3P32I/T[EIH>(/ZSZOZY^M^Y^QZSZOZY\I\<(+78J8HA-K>9F8F8FY]I\A-K>I]Y\H5Y]Q[QX$-SZ/Z0 )$TK>(+32C-6IK> /7,\/%+4ATB+$SQ++;+) I4X?/:PFCFP-POLSYS8 [A [BB2IMR2IMOZ R J 8!K>?H/=Z!R!J!8!K>?H/< [BC2IM;2IN7K>8 +?A0>(I2I4IT/;DNSNUF8 [CD2IL!2IL 2ID:NK [AE2I [AE2I8/>8/=2I <2IW2IHR4YK=8 [CD2IQ>2IQ<2ID:4[ [AF2I4[ [AG2I4Y8 [BD2IQ;2IHR4YK=8 [CD2IQ;2IQ<2ID:4[ [AF2I4[ [AG2I4Y8 [BD2IQ<2IH04Y8 [BD2IQ<2IF&4[ [AF2I4[ [AG2I4Y :2IW:O:8!K;?H/9 82IW8O88!K;?H/78 [BD2IL2IH<4YK=8 [CD2IQ<2IL2ID:4[K=8 +?T9L$T;LDAFC8 [CD2IS>2IS>2ID:4] [AF2I4[ [AH2IMB [AF2I4] [AH2IME [AI2IMB [AJ2IME [AG2I4YK=8 [CD2IL$2IL2II,4YK<8 [CD2IL$2IL2ID:4[8 [BD2IL2IH<4]K<8 [CD2IL$2IS>2ID:4 [AF2I4] [AH2IMB [AF2I4 [AK2IMB [AH2IMB [AF2I4[ [AL2IMB [AG2I4Y8 [BD2IL2IK<4Y8 +? < =X7/7FDA8 [BD2IL2IF&4[8 [BD2IL2IH<4]8 [BD2IU>2IF&4 [AF2I4] [AH2IMB [AF2I4 [AK2IMB [AH2IMB [AF2I4[ [AL2IMB [AG2I4Y8/=8/<8 [BD2IU>2IH^4YK;8 [CD2IU:2IU:2II,4[ [AF2I4[ [AG2I4Y8 [BD2IU:2IH^4YK;8 [CD2IU92IU:2II,4[ [AF2I4[ [AG2I4Y8 +?A-K>I]Y\H5Y]CBDQNQVA8 [BD2IW>2IH^4YK=8 [CD2IW=2IW<2II,4[ [AF2I4[ [AG2I4Y8 [BD2IW<2IH04Y8 [BD2I <2IK<4[ [AF2I4[ [AG2I4Y ;2IW;O;8!K=?H/: 92IW9O98!K=?H/88 [BD2IL2IIH4YK=8 [CD2IW<2IL2II,4[K=8 [CD2IW<2IW<2II,4] [AF2I4[ [AH2IMB [AF2I4] [AH2IME [AI2IMB+?/7,\/%ZZL$Z\LBDC8 [AJ2IME [AG2I4YK>8 [CD2IL$2IL2IJ\4YK>8 [CD2IL$2IL2II,4[8 [BD2IL2IIH4]K>8 [CD2IL$2IY=2II,4 [AF2I4] [AH2IMB [AF2I4 [AK2IMB [AH2IMB [AF2I4[ [AL2IMB [AG2I4Y8 [BD2IL2ILH4Y8 [BD2IL2IK<4[8 [BD2IL2IIH4]8 [BD2IY=2IK<4 [AF2I4] [AH2IMB+?BD8 [AF2I4 [AK2IMB [AH2IMB [AF2I4[ [AL2IMB [AG2I4Y8/>8/=8 [BD2I[<2IH 4YK;8 [CD2I[:2I[:2IJ\4[ [AF2I4[ [AG2I4Y8 [BD2I[92IH 4YK;8 [CD2I[;2I[:2IJ\4[ [AF2I4[ [AG2I4Y8 [BD2I[:2IH04Y8 [BD2I[:2ILH4[ [AF2I4[ [AG2I4Y 82IW8O88!K;?H/7 6+?+?A0L$ XLBCDAV3V;8 % %8!K=?H/<8 [BD2IL2IIT4YK=8 [CD2I];2IL2IJ\4[K=8 [CD2I];2I];2IJ\4] [AF2I4[ [AH2IMB [AF2I4] [AH2IME [AI2IMB [AJ2IME [AG2I4YK=8 [CD2IL$2IL2IKL4YK=8 [CD2IL$2IL2IJ\4[8 [BD2IL2IIT4]K=8 [CD2IL$2I];2IJ\4 [AF2I4] [AH2IMB [AF2I4 +?DC VDL$8 [AK2IMB [AH2IMB [AF2I4[ [AL2IMB [AG2I4Y8 [BD2IL2ILT4Y8 [BD2IL2ILH4[8 [BD2IL2IIT4]8 [BD2I >2ILH4 [AF2I4] [AH2IMB [AF2I4 [AK2IMB [AH2IMB [AF2I4[ [AL2IMB [AG2I4Y8/=8/<8 [BD2I ;2IH-4YK:8 [CD2I :2I :2IKL4[ [AF2I4[ [AG2I4Y8 +?+:8F8F8F2IH04Y8 [BD2I!>2ILT4[ [AF2I4[ [AG2I4Y8 [BD2I!>2IH04Y [AF2I4Y [AH2IL%8 [BD2I!>2IB4Y8 [BD2I!=2IH-4[ [AF2I4[ [AH2IMB [AI2IL% [AJ2IMB [AG2I4YK>8 [CD2I!>2I!<2IBL4Y8 [BD2I!;2IH 4[8 [BD2I!>2IB4] [AF2I4[ AH2IMB [AF2I4] [AK2IMB+?;N\HK>=3BCAD8 [AG2I4YK>8 [CD2I>2I=2IBL4Y8 [BD2I<2IH^4[8 [BD2I>2IB4] [AF2I4[ [AH2IMB [AF2I4] [AK2IMB [AG2I4YK>8 [CD2I>2I;2IBL4Y8 [BD2I>2IHR4[8 [BD2I>2IB4] [AF2I4[ [AH2IMB [AF2I4] [AK2IMB [AG2I4Y8 [BD2I<2IH04YK>8 [CD2I>2I<2IB 4[ [AF2I4Y+?AACBD8 [AH2IMB [AF2I4[ [M [AI2IMB [AH2IL(8 [BD2I%>2IB4Y8 [BD2I%=2IH 4[ [AF2I4[ [AH2IMB [AI2IL( [AJ2IMB [AG2I4YK<8 [CD2I%>2I%;2IBL4Y8 [BD2I%;2IH^4[8 [BD2I%>2IB4] [AF2I4[ [AH2IMB [AF2I4] [AK2IMB [AG2I4YK<8 [CD2I%>2I%=2IBL4Y8 [BD2I%>2IHR4[ +?=3BDAC8 [BD2I >2IB4] [AF2I4[ [AH2IMB [AF2I4] [AK2IMB [AG2I4Y8 [BD2I =2IH04YK<8 [CD2I <2I =2IBL4[ [AF2I4Y [AH2IMB [AF2I4[ [M [AI2IMB [AH2IMBK<8 [CD2I >2I =2IBL4] [AF2I4] [M [AI2IMB [AH2IL+8 [BD2I =2IB4Y8 [BD2I ;2IH^4[ [AF2I4[ [AH2IMB [AI2IL++?AADBC [AJ2IMB [AG2I4YK>8 [CD2I)=2I)<2IBL4Y8 [BD2I)=2IHR4[8 [BD2I)=2IB4] [AF2I4[ [AH2IMB [AF2I4] [AK2IMB [AG2I4Y8 [BD2I)<2IH04YK>8 [CD2I)>2I)<2IBL4[ [AF2I4Y [AH2IMB [AF2I4[ [M [AI2IMB [AH2IMBK>8 [CD2I);2I)<2IBL4] [AF2I4] [M [AI2IMB [AH2IMBK>+?CABD88 [CD2 +>2I+=2IBL4 [AF2I4 [M [AI2IMB [AH2IL.8 [BD2I+=2IB4Y8 [BD2I+=2IHR4[ [AF2I4[ [AH2IMB [AI2IL. [AJ2IMB [AG2I4Y [BN2I+=2I+S8 [BD2I+=2IB+L [AE2I [AE2I+ (//////// X**0 = ,E15.8) [BN2I+=2I,8 [BD2I+>2IB+0 [AE2I [AE2I/<+?BECB,IAB8( X**1 = ,E15.8) [BN2I->2I, 8 [BD2I-=2IB,Y [AE2I [AE2I*)( X**2 = ,E15.8) [BN2I->2I-8 [BD2I-<2IB,9 [AE2I [AE2I+I( X**3 = ,E15.8) [BN2I->2I-T [AE2I+)(////// NEED PRINT OUT? (YES=1, NO=0) //) [BC2I->2I. [AE2IL1 [AE2I/;+?0NP.CDCA8(I3)8A8!2IO>>(*J/= [BN2I/<2I.U [AE2I*-(//// ENTER STARTING AND ENDING POINTS F X /) [BC2I/<2I/J [AE2IL2 [AE2I [BC2I/<2I/J [AE2IL5 [AE2I+N(F10.4)2I ;2IW;O;8!K:?H/9 [AI2IL5 [AL2IL2 [AJ2IML [AH2IHR8 [BD2IL82IB<4Y8A8!O; 8+?AL2IP$ [MH22UL8A4QL18 [AO2IMH [AK2IHR [AI2IL2 [AG2I4Y8 [BD2I1>2IB4Y8 [BD2IL82IB<4[ [AF2I4Y [AH2IMB [AF2I4[ [AK2IMB [AH2IL98 [BD2I1=2IB4Y8 [BD2IL82IB<4[ [AF2I4[ [AP2I1> [AH2IMB [AF2I4Y [AK2IMB [AH2IL<8 [BD2I1<2IB4Y8 [BD2IL82IB<4[ [AF2I4[ [AP2I1= [ H2IMB+?2FP"FDCB8 [AF2I4Y [AK2IMB [AH2IL?8 [BD2IL82IC;4Y8 [BD2I3>2IB4[ [AF2I4[ [AI2IL9 [AI2IL< [AI2IL? [AG2I4Y8/= [BN2I3>2I2= [AE2I+B(//////)2I <2IW2I48 [BD2IL82IB<3[ [AE2I8 [BD2IL82IC;3 [AE2I [AE2I/9+?K9?H/8+?JX8 [BD2I4X4O4QUL8/PA8( X = , F15.6,5X Y = ,F15.6)8/? [AQ2IMI [R [R2I5=2IMD4( [AE2I [AE2I [O [AP2IP* [Q [Q?H+Z [BN2I5:2IRR8 [BD2IP"2IL>5R [AE2I [AE2I8*; [BN2I5:2IRR8 [BD2I5>2IMD5* [AE2I [AE2I [O [P [P+?BDCP"A3+3DA*M3C3A/LF 2,[IA7D6JKA7G. "3*M3C3A/LF 2,7FP*M3A R2 G]2MNJ3A3L* 213S?T2MFJ+RCG]7A2JGC+LCL21&,3FSA2MFJ+RCG[612JGC+LCL21Z,S7B6JKA7G6 A*M3C3A/LF 6,OIT7O6JKA7G. "0*M/\N2*5B,7NCO" *M7JCM6 S^6M:J+UB,6M2J.2B32,: +OCP2M*J+MCP^7R6JO^",6 2J7CA6 2JGC+LCL62N,$GPH^ >G2A<">&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)(*SJ(")";: J(*H:A") Q!W/U Q"AD(/U")KV WKZ YK( X2K.AH 9F8DK[XHHHX\HHX!HHX HHX.HHX3HHX8.)HPK\XIHIXJK]XKHH[F2ALI2Q\JPK+D2A.;LIB8RL3(>G;(CGC!0A?&?%?$2K2AZ?^2I &S&S + 2A/%B%>?Y^*DPT+AIQ+IYPT+3IQ$6XTHU$6/.K\MI?XNLN<(+ $6+;="R&*M",J ?H*OJ)XJ*C2K.J(XJ*C2K.SJ(X=J+* HRS?M?JW2IO(.,K:Z(K9Z)K8Z*K7Z+K6 52AK4 ?K4 =2I.,J 3O38! 22A/C$S/EOL<(,?SSL+M??XPHP8J8J8J]HP]/S><(/]H==HIHH<6/]HUSHVSHWSHX>(/ H;535%L=/PO?W?TAHAP>F2=VFM:)2LJDZJ2C2J&WHJXZW2C.I(2AJW=2J?&WIJQZW.LBBJOZ"L2K^J$^%J."WAAH :,CECNCDB CLCOCCCKB B2B,CCCHCACICNCYCNCOCMCICACLB CFCUCNCCCTCICOCNB CCCUCRCVCEB CFCICTCTCICNCGO)[ -9+%K[7K][]S)+M2J ,GGCYBMBLBJB BI??N/N/N>RGRIRBRBRI9H/7 X+ABSYM^X*ARGL4\JANDX+BLOCKVX*CALLLX+COMMNNYJCIA8!XJCLA:YJCLL9YJCMA8 YJCML8PX+DECIM ]X+DUMMY-\\JDCAXX*EAP3=X*ENDE]X+ENTRY62X+FORTR[/ZJHLT(;XK>Z2JLK=Z3 [AS2AT2*-T8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"[ XG8: LG9J8J8HZ!J"2A <"[]"[V:AZ3 ;KU : NWOJ3R39HKVXG8LGV+?QV ?RW&?TV]?WWB?XV-?YV? VAVT2A = <8 Z O=C;K:>( 9* 9 8* 9 ?K7<(*K6 5*$ 4*ASA: K+[+2AO3 ASA <8! A;VK+?H*O3[)OA[** 9WA+^;$KA[AS+* 2K) 3K*8!XS: 2AO3>(+\SA:A ASA: A8 [+*-: KA[%2AO% 3* <[%*15ZZ,B\C3H \YT3%W\O ?Y\ "?8?/"]T) *UW ? >O= ? =: Z[K<* K; :O??(;$K9 :O?=H8! [AT2AT*K8 : [UK8 :*: ? >Z[O==: 2AO78!I=SO==+O8! 6K5 :O==(+H8 Z\I=8 >*>K8 :R\*<2AO=8!H :K2R\+Z:O4>(/SK9 :/S^AD-),B\601.,B\KAL1,B^A % O.!EW%0-\OE?; P^ %:SNK92I :SM+]/88 2AW>+\[K+Y [AK2AU/SK+U+] ; [AG2AA>/7CHAIN,B]14MI0BEXX $E PZ *\8 OW% ?2AO>>(*HK="O*"8:* ? <"O*KK;=HK:K92AO8 [X.O" I?>( 7.Y2AO>> *-:J2> **"8*$Z22A. K6"OK5"O. R2K=C42A.8:J2> *4;Z2AO8 [XC3K2<(*3K19K:-?3A???J?M T!B A? UW T2"W ?/> [AF2AA>[O[P2IO=<(+M=*RK(KP8!I==8 7 [AI2AU,Q2IO=8D?H+IO=9H =O68H 6O58H 5O=C4O=K3 =*52IO=C2 =2A.2IO=K;?H %?H/=Z!R!J!8!K>?H/< [BC2A ;2A 7GH? *[: Z)JKZS8NLY>RLNLY?2A.RL;X 7 KDG9F8TZ(;(DG8!RL*P[DKDK?9K>R*:2AN*R*<(*?KD>(*>R**3[D2AN*Z*KD.*8![D*2IO=XUOTR?(\?7$&?8\K?:X"?;XA??"-TR2AW=.W ?.HS<(:A2A.]"WI?>( R. :I=8![Y"*>OLG*,I>[WI=KY9HI?XG8/O[Y+! [AJ2AU/SY+]2A/Z:2AO58 [Y+-K4 8SY++ :*C8 +?*Z*W%? \8\O? T2\YV *T)I=8 2A ?8 Z=8 2A >XS2AW?8! 7A>\G: : 9*J 7A>LG=*58!2AW> [AT2AT*XS [UU*2A\U8 HUXUR=HS< *5I=2A 7I=8 J=K6 5PU2ALU=H*$K4 3+OXTHS9FHS8DHTXS2A/W B [AF2A [AL2A B [AG2A8 [BD2A^\O0YSDW%?<" [O *\8 O[N(5/N()F.JEZNJFZO;X*P&NZEJNZS8NOROXG: NOROXHJM2A ?2IO>>(+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 ;: [-ZE;VJN[+8.O??8LH/.K2ZNK3ZO;([-*PRQ)EP/(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I ?HQ >HR =/F:XRXQ+*&(*)**,Z^$?8GC?RQPJZD8NARAZNNAXGJZXJAZY8LGPGZ: LGXHJZ7*JXZ\8NYRYZ7: NYXH2IO?"62I ?O>"62I >O="62I =RY;VJXZ48.Y8\H.6&IX 2IO? XQHWK;=++K:XT 9PT+KHV8DHQ =HV YK[[K\[$ [AF2IK[Z<;VK\Z=*> [AS2A*:;(+S [AF2A [AH2A B/N?==4(\RQP(5/N.()F,;/(,HJG^FJHZN8NIRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHPXXHQXYHRXZXPK>ZN&AHX8HXXHY8HXYHZ8HXZXW2A = < WJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62A ;J7 :/9HP9HXPHQ8HXQHR8HXR:D2A =/N/VFL2IO8< K72I 8 M:2AO([^S(O([ [AS2A/\;(+$AF P&[&O&N)F)EBOUZAJFZK8NGRGZRNGRGZ)8N)"W ]Z)K?ZC9DZJA9DZADRRRR ^ [AS2A0 ;( TZQ2I ? > =JQ V0AZ0J0=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.30W2A B+?*M.4^0"5??ARQPOIOERXGHG8F8F8DBJUZRJJ0\KD>(0Y8 [R.V7T4&6*6L4-415L6A6=7V7V7V7V7V7V7V0Q*FHG0V: X0Y*F;Z*FSC*=KB0&0Y*5BJ0\KD> 0Z0L0I*F[C0N*+C^==9 BMAB 7ZKJ>(+VSJ+]KF*+0Y+X0Z6:*F69+%KJ8![KKJKK9HKG2I EKH*+6Y+S6Z9HKI2A E[KKJ8!9HKGZR2IKK(+V2B2A&X+VB X2ANY>(+V2BHGB2A&Z+V*JARFFAQF)K?0&660Z0V0L [V2A^W^Y A61/>HGR<*6K=9A8A(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AS2A4AQRSTUVWXYZC G]BPO3456789:=LE?^ M*+,-./012ADJI[=3=6565N4FBJ8A???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8DXG =;& =K!>(+] S8DBJJTP/JC<<(*2K;=HK:K9 [X/P [ 2C.M0!+ ["O"(JR> +:JR< *2K?2I >ZN +: [AJ2A:K [AH2A:K9*/JQ<(+99HZQ(+9JR>(+JK [A]2A:KZK+B [AK2A:K+P [AH2A:N [AI2A:K [AK2A:K [AH2A:K [AI2A:NZN+BJN ABPPLIOERKW"7OT<(*Q\HLKX2B2A V B [AS2A<"ZKY*LJUZBJVZCKW"7OU<(*Q\HL.Z"ZJ ZBJ(ZCK[ZZK\ [XRZ*0KZ*LXHJBZ;NC[FRCN Z;RCEE.78N;R;2A\H/E: "7EKS\H/LDA<=E!E*E7G!G/9?NZK[ZBK\ZCLWTK3[SK?Z [AB2A=22AK>2A 4 5+ SCSVE9E//<+?:C?=:B?:>IAFCH3IGFD*M3A R. G[2MNJ3A3L* 217FCIO7W6JKA+G" "3*M3C3A/LF 6,SSO*M3A R2 G]2MNJ3A3L* 213IGFD*M3A R. C[2MNJ3A3L* 217FCM2MFJ+RCG]7A2JGC+LCL61N,T7O6JKA7G2 G632J7CA6 2JGC+LCL62N,7UOBC*M3A R2 \2MFJ+RCG7\ Y6M.J"0*M3CGM" *M3C3A/LJ 6,WS3BOS2MFJ+RCG"(616JKA7G2 Note: Lines longer than 256 characters were wrapped