(while(=n 2) (wh ile(<=j(-n 1)) (setq bjl(eval (read(strcat"b"(itoa D)) (setq bj2 (eval (read(strcat"b"(itoa(+j I)) (setq ajl (eval (read(strcat"a"(itoa D))) (setq aj2(eval (read(strcat"a"(itoa(+j D))) (setq cjl(eval (read(strcat"c"(itoa D)) (setq cj2(eval (read(strcat"c"(itoa(+j D))) (setq djl(eval(read(strcat"d"(itoa D)) (setq dj2(eval (read(strcat"d"(itoa(+j D)) ( setq ejl(eval(read(strcat"e"(itoa D)) (setq ej2(eval (read(strcat"e"(itoa(+j D))) ( setq fjl(eval (read(strcat"f"(itoa D)) (setq f]2(eval (read(strcat"f(itoa(+j ) ) (if(/=sl 1)(setq bbb bjl bjl bj2bj2 bbb)) (if (ANd(=SI 1)( bjl bj2))(BBBB) (if (ANd(= S1 2)(<bjl bj2))(BBBB) (setqj (+j D)) (re peat i (setq wg(eval (read(strcat"c"(itoa n))) (setq wb(eval (read(strcat"a"(itoa n))) (setq zx(eval (read(strcat"d"(itoa n))) (setq zk(eval (read (strcat"e"(itoa n))) (setq jd(eval(read(strcat"f(itoa n)))) (setq zk2 (cdr(assoc 41(tblsearch"style"zx))) zt(cdr(assoc 3 (tblsearch"style"ZX))) zt2(cdr(assoc 4 (tblsearch"style"zx))) (if(/=zk zk2) (if((strcase zx)"STANDARD") (command"style"zx" 0"zk""n""n""n") (command"style"zx"0"zk"0""n""n") (if(sl 1)(progn (setq xs(+x(sj (-n D)) (setq zb(list xs y)) (if(=fs"")(while (>= n 2) (setq j 1) (wh ile (<= j (- n 1)) (setq bj1 (eval (read (strcat "b" (itoa j))))) (setq bj2 (eval (read (strcat "b" (itoa (+ j 1)))))) (setq aj1 (eval (read (strcat "a" (itoa j))))) (setq aj2 (eval (read (strcat "a" (itoa (+ j 1)))))) (setq cj1 (eval (read (strcat "c" (itoa j))))) (setq cj2 (eval (read (strcat "c" (itoa (+ j 1)))))) (setq dj1 (eval (read (strcat "d" (itoa j))))) (setq dj2 (eval (read (strcat "d" (itoa (+ j 1)))))) (setq ej1 (eval (read (strcat "e" (itoa j))))) (setq ej2 (eval (read (strcat "e" (itoa (+ j 1)))))) (setq fj1 (eval (read (strcat "f" (itoa j))))) (setq fj2 (eval (read (strcat "f" (itoa (+ j 1)))))) ; (if (/= s1 1)(setq bbb bj1 bj1 bj2 bj2 bbb));----------------- (if (AND (= S1 1)(> bj1 bj2))(BBBB)) (if (AND (= S1 2)(< bj1 bj2))(BBBB)) (setq j (+ j 1)) ) (setq n (- n 1)) ) (setq n 0) (re peat i (setq n (+ n 1)) (setq wg (eval (read (strcat "c" (itoa n))))) (setq wb (eval (read (strcat "a" (itoa n))))) (setq zx (eval (read (strcat "d" (itoa n))))) (setq zk (eval (read (strcat "e" (itoa n))))) (setq jd (eval (read (strcat "f" (itoa n))))) (setq zk2 (cdr (assoc 41 (tblsearch "style" zx))) zt (cdr (assoc 3 (tblsearch "style" zx))) zt2 (cdr (assoc 4 (tblsearch "style" zx))) ) (if (/= zk zk2) (if (= (strcase zx) "STANDARD") (command "style" zx "" "0" zk "0" "n" "n" "n") (command "style" zx "" "0" zk "0" "n" "n") ) ) (if (= s1 1)(progn (setq xs (+ x (* sj (- n 1)))) (setq zb (list xs y)) ( if (= fs "")