X = 1
   10 X = X*BASE
      Y = X + 1
      D = Y - X
      IF (D .EQ. 1) GO TO 10