[figure: DO 200; IF; 100 CONTINUE; DO 300; T(J) = T(J) + X]