/*********************************************************************************/ /* V10=ŽÐˆõƒR�[ƒh:V1,Z1=Šî–{‘ä’ ‚Ì�ŌÎnŠú:Z2=2004”N‚Ü‚Å‚Ì‘Ý—^—\’è”N—p—ñ�”: */ /* Z3,X3=‘S—ñ�”:V2=�ì‹Æ•ž‚`‚Ì‘Ý—^ŽnŠú�FV3=‚a‚Ì‘Ý—^ŽnŠú:V4=‚b‚Ì‘Ý—^ŽnŠú: */ /* X1�`X6=FOR NEXT:V7,X7=Œ»�Ý‘Ý—^ŠúŠÔ:V8=‘Ý—^—\’è•\‚Ì�擪”N�†:V9,X9=‰ü�³‘Ý—^ŠúŠÔ */ /*********************************************************************************/ FOR X1=1 TO BINDER("Šî–{‘ä’ "); G;Šî–{‘ä’ /%X1; FOR X2=H TO T; G;Šî–{‘ä’ /%X1; LET V10=[%X2,1]�GIF V10="" THEN CONTINUE; CS;Šî–{‘ä’ /%X1;@No =%V10;;;AAA/D; SORT;M;4;A/N;;;LET V1=[H,4];LET Z1=VAL(V1); G;AAA/%X1;DR;2/T;; LET Z2=2004-Z1+1;LET Z3=Z2+4;IC;D;N;6*%Z2;ESC;NUM;;R;2;7;%Z1;; LET V2=[4 ,4];LET V3=[5,4];LET V4=[6,4]; LET [4 ,@%V2 ]="��";LET [5 ,@%V3 ]="��";LET [6 ,@%V4 ]="��"; FOR X3=7 TO %Z3; �@ /*�‰Šú’l5‚Í�A‘Ý—^—\’è”N‚Ì�擪—ñ‚Ì—ñ”Ô*/ FOR X4=H TO T; LET V7=[X4,5];LET X7=VAL(V7); IF [X4,X3]="�›" & X3=(CN("@2002")) THEN CONTINUE; IF [X4,X3]<>"" THEN LET [X4,X3+X7]="�›"; NEXT; NEXT; DC;7,%(CN("@2000"));;IC;D;N;6*6;ESC; /*%(CN("@2000"))=�€–Ú–¼2000‚Ì—ñ”Ô*/ LET V8=[2,7];NUM;;R;2;7;%V8;; FOR X5=%(CN("@2002")) TO 12;�@�@�@�@�@/*�‰Šú’l‚Í%(CN("@2002"))=Šî�€”N‚Ì—ñ”Ô8*/ FOR X6=H TO T; LET V9=[X6,6];LET X9=VAL(V9); IF [X6,X5]<>"" THEN LET [X6,X5+X9]="�œ" NEXT; NEXT;CT;No1 2002”N‘Ý—^—\’è•\;P;2002”N‘Ý—^—\’è•\/N; NEXT; NEXT; STOP FOR X1=1 TO BINDER("2002”N‘Ý—^—\’è•\"); G;2002”N‘Ý—^—\’è•\/%X1;DC;7,10;; LET V1=[2,7];IC;D;N;6*4;ESC;NUM;;R;2;7;%V1;; FOR X2=7 TO 12; FOR X3=H TO T; LET V4=[X3,6];LET X4=VAL(V4); IF [X3,X2]<>"" THEN LET [X3,X2+X4]="�œ" NEXT; NEXT;CT;No2 2006”N‘Ý—^—\’è•\;P;2006”N‘Ý—^—\’è•\/N; NEXT; STOP FOR X1=1 TO BINDER("2002”N‘Ý—^—\’è•\"); G;2002”N‘Ý—^—\’è•\/%X1;DC;5,6/15,T;;DRL;A; IF 1=%X1MOD6 THEN GOTO $NP;GOTO $GO; $NP: P;2002ŒÂ�l•Ê‘Ý—^—\’è•\/N;CONTINUE; $GO: S;G;2002ŒÂ�l•Ê‘Ý—^—\’è•\/E;CPR;S1,E;E+1;P;*; NEXT; STOP