O9965; /* SUB FOR O9961 */
       #1=ABS(#1);
       #3=ABS(#3);
       #1=FIX(#1);
       #3=FIX(#3);
       @1=0;
       #7=1;
N500   IF( #7 > #1) GOTO 1000;
         IF( ( #7 == (#3/2))  && ( #10>0 ) ) GOTO 550;
         @1=@1+#9;  // SUM=SUM+GAP_LEN
         GOTO 551;
N550     @1=@1+#10; // SUM=SUM+MIDDLE_LEN
N551   ;
       #7=#7+1;
       GOTO 500;
N1000  @1=-(@1+#13);   // SUM=SUM+MARGIN
       M99;
;AUTHOR:Yi-Wan LIN 11/26/1998
;FUNCTION:
;  A SUB(for O9961)THAT WILL RETURN X-POSITION(@1) OF EACH HOLE
;SYNTAX:
;  G65 P9965 A C I J M;
;ARGUMENT LIST:
;  C(#3) =TOTAL NUMBER OF COLUMNS
;  A(#1) =INDEX NO
;  M(#13)=MARGIN LENGTH
;  I(#9) =GAP LENGTH
;  J(#10)=MIDDLE LENGTH