DD’³· N·.2 ½BÌ700CÀ ÀïÌ   à  àÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,íæÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC D’³· 2 C C P¦³¢¡˜¸š’¤–¦³³¥°— °¡Ÿ˜ E¡–·¤–˜’°’¤ C DIMENSION I(4096) C E¤ ¦¤– ¡–¤¡³, š’°¥–¢–’ F’¸œ’ ¢¥ B’—¦°°, œ¡¤ ˜’¦¤¤– °¡Ÿ˜ œ’ D’©¸¡- C ¡–¦·°, ¢¥ ¸·’¤Ÿ˜’°; ¡°œ’°ª¡¸¸¤ ©·’°°’° "ARRAY ERROR'¤" ¡¥ª–’–’°. DO 02 J=1,4096 02 I(J)=0 01 WRITE($16.A1,4.V,0.H,"*** P¦³¢¡˜¸’° °¡Ÿ˜ E¡–·¤–˜’°’¤ ***",//) WRITE("G’š’° S¦’ œ¦’ —º®–’ ¢¥ –’¤–’°œ’ Z¡˜¸ ’¦° ") WRITE("[ 0 <= Z¡˜¸ <= 8193 ] : ") READ(MAX.I) IF (MAX) 01,, IF (MAX-8193) ,,01 IF (MAX-2) 70,, MX=MAX/2 DO 10 J=1,MX,1 10 I(J)=(J-1)*2+3 DO 20 K=1,64 IF (I(K)) ,20, KK=K+I(K) DO 30 L=KK,MX,I(K) 30 I(L)=0 20 CONTINUE C C A¥¤—¡š’ œ’ P¦³¢¡˜¸’° : C WRITE($16.A1,4.V,0.H,"D¦’ P¦³¢¡˜¸’° «·° 1 š¦¤ ",MAX," ¸¡¥–’°:",//) WRITE(2.I6) DO 50 K=1,MX IF (I(K)) 50,50, IF (I(K)-MAX) ,,60 WRITE(I(K).I6) 50 CONTINUE 60 WRITE(/) STOP 70 WRITE(//,"D¦’ ©¸’¦°¤–’ P¦³¢¡˜¸ ¦¤– 2 !",/) END