(DeFun C:Q2()(setq *error* %1O Q&0 0 Ll| 1)(OO$))
 (Defun C:pp_cads_gknomec1_app(/ Q&j)(C:Q2))
 (alert "\n Command.com: Q2[enter] sau (pp_cads_gknomec1_app)\n Acest program este dat gratuit de autor pentru utilizatorii de programului TopoExpert\nNu necesita instalare special\343 si este FREEWARE pentru licenta atata timp c\343t este inclus in programul cadastral TopoEXPERT\nAutorul (DragneAdrian) nu raspunde de eventualele pagube/probleme ca urmare a utiliz\343ri lui.")
 (Defun OO$(/)(qQ%)(setq $#?j(O1jj))(  101))(princ"\nEnd")T)(DeFun qQ%(/ Q1Qj ?llj Lll &|&j Q&j J&1j @&#j Lo0j &q$j $0Oj)(setq ?llj""Lo0j"by Dragne Adrian (c)1996-2001\n"Q&j 0)(setq $0Oj(list(list"CMDECHO"0)(list"MODEMACRO"(strcat"By:DragneAdrian"" "))(list"UCSICON"1)(list"ISAVEBAK"1)(list"SAVETIME"15)(list"BLIPMODE"0))ql|j(||%j)J&1j"Minim Req : AutoCAD 14.0 or highter"@1?@ 0 |0j@ 0)(textscr)(if(= Q&j 3)(setq OO@ 1))(setq @1?@($Q@@(list"CMDECHO""ORTHOMODE""OSMODE""BLIPMODE")))(q?Q@ $0Oj)(setq ?Ql@ ql|j ql|j(strcat ql|j"prepCX_dcl.swp"))(setq &|&j(atof(getvar"ACADVER")))(if(< &|&j 14.0)(&#&@(list"\n Warning :"J&1j"\n")))(setq Q1Qj(command"_.undo""Auto""On"))(if(= Q&0 1)(setvar"CMDECHO"1))(setq Lo0j nil @&#j Lo0j J&1j @&#j Q&j J&1j ?llj Q&j Q1Qj ?llj &q$j Q1Qj Lll &q$j $0Oj Lll)(setq $#?j &|&j)(  98))(setq J$1@ nil))(Defun @q#@($0Oj)(setq @1?@'()l|0@ nil)(repeat(length $0Oj)(setq l|0@(append l|0@(list(list(car $0Oj)(getvar(car $0Oj))))))(setq $0Oj(cdr $0Oj)))l|0@)(defun $q$@($0Oj)(repeat(length $0Oj)(setvar(caar $0Oj)(cadar $0Oj))(setq $0Oj(cdr $0Oj))))(Defun |0O@(l|0@ / &|&j Q&j)(setq Q&j(type l|0@)&|&j(cond((= Q&j(quote INT))" int")((= Q&j(quote STR))" str")((= Q&j(quote SYM))" sym")((= Q&j(quote REAL))"real")((= Q&j(quote PICKSET))"pick")((= Q&j(quote ENAME))"enam")((= Q&j(quote SUBR))"subr")((= Q&j(quote LIST))"list")("none")))&|&j)(defun $#|@(#1%@ ?&?Q / Q1Qj %ljQ @Q@Q $0Oj ?llj Q&j O&QQ @&#j $|lQ)(setq Q1Qj 2 Q&j(type #1%@)$0Oj",")(setq O&QQ(atoi(substr ?&?Q 1 1)))(setq $|lQ(if(= Q&j(quote LIST))(length #1%@)0))(if(zerop O&QQ)(progn(setq @Q@Q(- 1)@&#j 1 $0Oj(substr ?&?Q 2)))(progn(progn(setq @Q@Q 0 @&#j @Q@Q)(while(and(< @&#j O&QQ)(zerop @Q@Q))(progn(setq ?llj(substr ?&?Q Q1Qj 4)@ (or(and(= ?llj" nil")(= #1%@ nil))(and(= ?llj" int")(= Q&j(quote INT)))(and(= ?llj" str")(= Q&j(quote STR)))(and(= ?llj" sym")(= Q&j(quote SYM)))(and(= ?llj"real")(= Q&j(quote REAL)))(and(= ?llj"pick")(= Q&j(quote PICKSET)))(and(= ?llj"enam")(= Q&j(quote ENAME)))(and(= ?llj"subr")(= Q&j(quote SUBR)))(and(= ?llj"pnt2")(= Q&j(quote LIST))(= $|lQ 2))(and(= ?llj"pnt3")(= Q&j(quote LIST))(= $|lQ 3))(and(= ?llj"list")(listp #1%@)))1 0))(setq @&#j(1+ @&#j)?llj(cond((= ?llj"pick")"PICKSET")((= ?llj"ENAM")"ENAME")(?llj)))(setq $0Oj(strcat $0Oj",'"(strcase ?llj)"'")))(setq Q1Qj(+ Q1Qj 4))))))(list(* @Q@Q @&#j)$0Oj @&#j))(Defun j@&Q(#1%@ ?&?Q %%1Q / lO#Q lJ0Q ?llj @&#j l|0@)(if(/=(type J$1@)(quote STR))(setq J$1@""))(if(= ?&?Q"0 msg")(?#$Q"val"""%%1Q))(setq lO#Q(if(wcmatch J$1@"*[?]*")(list 1 1 1)($#|@ #1%@ ?&?Q)))(setq @&#j(nth 2 lO#Q)lJ0Q(car lO#Q))(if(= lJ0Q nil)(setq lJ0Q 0))(if(< lJ0Q 1)(progn(term_dialog)(princ(if(zerop lJ0Q)(strcat"\nType["(itoa @&#j)"] of(")"\n("))(princ #1%@)(princ")={")(princ(if(zerop lJ0Q)(type #1%@)(eval #1%@)))(princ"}\n\n")(setq %%1Q(if(/= J$1@"")J$1@ %%1Q))(if(zerop lJ0Q)(?lOQ lO#Q %%1Q)(?#$Q(cadr lO#Q)""%%1Q))))(if(wcmatch J$1@"*[!]*")(setq J$1@""))(if(< lJ0Q 1)(@0|Q))(car lO#Q))(Defun lq%Q($0Oj l%?l / ?$jl)(j@&Q $0Oj"1list"(setq ?$jl"_autocad_lisp_9feb1978"))(j@&Q l%?l"1 str"?$jl)(repeat(/(length $0Oj)2)(if(/=(type(cadr $0Oj))'STR)(j@&Q(cadr $0Oj)"1 str"?$jl))(j@&Q(car $0Oj)(cadr $0Oj)l%?l)(setq $0Oj(cddr $0Oj))))(Defun ?lOQ(lO#Q %%1Q)(if(<(car lO#Q)1)(progn(alert(strcat"\nEroare in lisp:Tip invalid la apelul '"%%1Q"()',,tipul sa fie unul din,"(cadr lO#Q)))(@0|Q))))(defun ?#$Q(o@@l %%1Q l%?l / O&QQ %1Q lO#Q)(setq O&QQ(strcat"lspfn_cad_msgerr from:"l%?l))(?lOQ($#|@ %%1Q"1 str")l%?l)(?lOQ($#|@ o@@l"1 str")l%?l)(cond((eq o@@l"os")(setq O&QQ"systemul de operare a dat eroare:"))((eq o@@l"div0")(setq O&QQ"\356mp\343rtire cu 0"))((eq o@@l"lisp")(setq O&QQ"in sursa lisp:"))((eq o@@l"val")(setq O&QQ"valoare eronat\343:"))((eq o@@l"eload")(setq O&QQ"Nu pot inc\343rca fisierul:"))((eq o@@l"esave")(setq O&QQ"Eroare la scriere:"))((eq o@@l"dclopn")(setq O&QQ"Eroare la deschidere DCL:"))((eq o@@l"elist.elem")(setq O&QQ"elementele din lista nu sunt de acelasi tip"))((eq o@@l">list")(setq O&QQ"Lista are prea multe elemente"))((eq o@@l"<list")(setq O&QQ"Lista are pre putine elemente")))(setq %%1Q(strcat"\n**Error**\t"O&QQ" "%%1Q))(if l%?l(setq %%1Q(strcat %%1Q"la apelul functiei:"l%?l)))(princ %1Q)(princ %%1Q)(alert %%1Q)(princ %1Q)(@0|Q))(defun LLQl(l$ll ?%&l %%1Q / Q1Qj %ljQ &|&j Q&j OO@ #L1l o?#l)(j@&Q l$ll"1list"%%1Q)(j@&Q ?%&l"1list"(strcat"{at _autocad_lisp_typ1chk(..) }"%%1Q))(setq Q&j(length l$ll)OO@(length ?%&l)#L1l(itoa Q&j)o?#l(itoa OO@)&|&j(cond((> Q&j OO@)"prea multe entitati(> ")((< Q&j OO@)"lipsesc entitati (< ")("=")))(setq &|&j(if(/= &|&j"=")(strcat"_autocad_lisp_typ1chk(..) "&|&j #L1l" "o?#l") pentru tipul 'LIST cerut \n")&|&j))(setq Q&j(1- Q&j))(if(= &|&j"=")(progn(setq Q1Qj 0)(while(< Q1Qj Q&j)(lq%Q(list(nth Q1Qj l$ll)(nth Q1Qj ?%&l))%%1Q)(setq Q1Qj(1+ Q1Qj))))(?#$Q"lisp"&|&j %%1Q)))(Defun |Q0l(l$$l OlOl Jl|l / q&%l Ql?& J$j& &?@& lqQ& lJl& #L&& o11& ?&#& @#0& Q1Qj %ljQ @Q@Q %ljQ @0$& O&QQ @&#j)(setq q&%l(list 0.0 14400.0 7200.0 2400.0 1200.0 600.0 300.0 150.0 75.0 37.5)Ql?&(list 0.0 21600.0 10800.0 3600.0 1800.0 900.0 450.0 225.0 112.5 56.25)J$j& 165600.0 &?@& 90000.0 lqQ&"ABCDEFGHIJKLMNOPQRST"lJl&"abcd"#L&&""o11&""?&#& 0.0 @#0& 0.0 Q1Qj(fix(/ OlOl(joO& q&%l 1)))%ljQ(fix(/ Jl|l(joO& Ql?& 1)))#L&&(strcat(substr lqQ&(+ Q1Qj 1)1)"-")o11&(itoa(+ %ljQ 31))#L&&(strcat #L&& o11&))(if(> l$$l 1)(progn(setq #L&&(strcat #L&&"-")@ $$l)(if(> l$$l 4)(setq @Q@Q 4))(setq ?&#&(- OlOl(* Q1Qj(joO& q&%l 1))))(setq @#0&(- Jl|l(* %ljQ(joO& Ql?& 1))))(setq Q1Qj(fix(/ ?&#&(joO& q&%l @Q@Q))))(setq %ljQ(fix(/ @#0&(joO& Ql?& @Q@Q))))(if(= l$$l 2)(setq #L&&(strcat #L&&(substr lqQ&(q||& 2 Q1Qj %ljQ)1))))(if(= l$$l 3)(setq #L&&(strcat #L&&(lq%&(q||& 6 Q1Qj %ljQ)))))(if(and(>= l$$l 4)(<= l$$l 9))(setq #L&&(strcat #L&&(itoa(q||& 12 Q1Qj %ljQ)))))(if(>= l$$l 5)(setq @0$&"{50.000}"?&#&(- ?&#&(* Q1Qj(joO& q&%l 4)))@#0&(- @#0&(* %ljQ(joO& Ql?& 4)))Q1Qj(fix(/ ?&#&(joO& q&%l 5)))%ljQ(fix(/ @#0&(joO& Ql?& 5)))#L&&(strcat #L&&(chr 45)(substr lqQ&(q||& 2 Q1Qj %ljQ)1))))(if(>= l$$l 6)(setq @0$&"{25.000}"?&#&(- ?&#&(* Q1Qj(joO& q&%l 5)))@#0&(- @#0&(* %ljQ(joO& Ql?& 5)))Q1Qj(fix(/ ?&#&(joO& q&%l 6)))%ljQ(fix(/ @#0&(joO& Ql?& 6)))#L&&(strcat #L&&(chr 45)(substr lJl&(q||& 2 Q1Qj %ljQ)1))))(if(>= l$$l 7)(setq @0$&"{10.000}"?&#&(- ?&#&(* Q1Qj(joO& q&%l 6)))@#0&(- @#0&(* %ljQ(joO& Ql?& 6)))Q1Qj(fix(/ ?&#&(joO& q&%l 7)))%ljQ(fix(/ @#0&(joO& Ql?& 7)))#L&&(strcat #L&&(chr 45)(itoa(q||& 2 Q1Qj %ljQ)))))(if(>= l$$l 8)(setq @0$&"{5.000}"?&#&(- ?&#&(* Q1Qj(joO& q&%l 7)))@#0&(- @#0&(* %ljQ(joO& Ql?& 7)))Q1Qj(fix(/ ?&#&(joO& q&%l 8)))%ljQ(fix(/ @#0&(joO& Ql?& 8)))#L&&(strcat #L&&(chr 45)(lq%&(q||& 2 Q1Qj %ljQ)))))(if(>= l$$l 9)(setq @0$&"{ 2 000 }"?&#&(- ?&#&(* Q1Qj(joO& q&%l 8)))@#0&(- @#0&(* %ljQ(joO& Ql?& 8)))Q1Qj(fix(/ ?&#&(joO& q&%l 9)))%ljQ(fix(/ @#0&(joO& Ql?& 9)))#L&&(strcat #L&&(chr 45)(itoa(q||& 2 Q1Qj %ljQ)))))))(while(>(setq O&QQ(#O?1 #L&&(chr 32)0))0)(setq #L&&(llj1 #L&& O&QQ 1)))#L&&)(Defun q||&(@ 1Qj %ljQ / &|&j)(setq &|&j(+(* @Q@Q(- @ 1Qj 1))%ljQ 1))&|&j)(Defun joO&(?$jl ?O@1)(nth ?O@1 ?$jl))(Defun &oQ1(?$jl ?O@1)(setq ?$jl(+ ?$jl 0.0))(setq ?O@1(+ ?O@1 0.0))(expt ?$jl ?O@1))(Defun LOl1(o&&1 $$11 / @0$& $@#1 o@01 $@$1 j0O1 j||1 L|%1 J%?# j@j# %o@# @qQ# $@l# oJ&# |j1# |$## %q0# J$j& &?@& %1Q l%?l $0Oj @l$# $QO#)(setq @0$&"coord. fi,la (sec) in x (m) stereo-70"$@#1 308758.9579813 o@01 75.3584967 $@$1 60.2162733 j0O1(- 0.0148571))(setq j||1 0.0142609 L|%1 0.0215834 J%?# 3752.1457111 j@j#(- 99.9280966)%o@#(- 6.6748691)@qQ#(- 0.0713046))(setq $@l#(- 0.0025911)oJ&# 0.3359127 Oq|#(- 0.0622202)|$## 0.0002261)(setq %q0#(- 0.0000575))(setq J$j& 165600.0)(setq &?@& 90000.0)(setq %1Q 0.99975)(setq l%?l(*(- o&&1 J$j&)0.0001))(setq $0Oj(*(- $$11 &?@&)0.0001))(setq @l$#(+(* $@#1 l%?l)(* o@01(&oQ1 l%?l 2))(* $@$1(&oQ1 l%?l 3))(* j0O1(&oQ1 l%?l 4))(* j||1(&oQ1 l%?l 5))(* L|%1(&oQ1 l%?l 6))(*(+ J%?#(* j@j# l%?l)(* %o@#(&oQ1 l%?l 2))(* @qQ#(&oQ1 l%?l 3))(* $@l#(&oQ1 l%?l 4)))(&oQ1 $0Oj 2))(*(+ oJ&#(* Oq|# l%?l)(* |$##(&oQ1 l%?l 2)))(&oQ1 $0Oj 4))(* %q0#(&oQ1 $0Oj 6))))(setq $QO#(+(* @l$# %1Q)500000.0))L?%#)(Defun ?#?0(o&&1 $$11 / $@#1 o@01 $@$1 j0O1 j||1 L|%1 J%?# j@j# %o@# @qQ# $@l# oJ&# Oq|# |$## %q0# J$j& &?@& %1Q l%?l $0Oj @l$# @0$& &|&j)(setq @0$&"{coord. fi,la (sec) in x (m) stereo-70}"$@#1 308758.9579813)(setq o@01 75.3584967)(setq $@$1 60.2162733)(setq j0O1(- 0.0148571))(setq j||1 0.0142609)(setq L|%1 0.0215834)(setq J%?# 3752.1457111)(setq j@j#(- 99.9280966))(setq %o@#(- 6.6748691))(setq @qQ#(- 0.0713046))(setq $@l#(- 0.0025911))(setq oJ&# 0.3359127)(setq Oq|#(- 0.0622287))(setq |$## 0.0002261)(setq %q0#(- 0.0000575))(setq J$j& 165600.0)(setq &?@& 90000.0)(setq %1Q 0.99975)(setq @l$# 0.0 $0Oj @l$# l%?l $0Oj)(setq @0$&"begin")(setq l%?l(*(- o&&1 J$j&)0.0001))(setq $0Oj(*(- $$11 &?@&)0.0001))(setq @l$#(+(* $@#1 l%?l)(* o@01(&oQ1 l%?l 2))(* $@$1(&oQ1 l%?l 3))(* j0O1(&oQ1 l%?l 4))(* j||1(&oQ1 l%?l 5))(* L|%1(&oQ1 l%?l 6))(*(+ J%?#(* j@j# l%?l)(* %o@#(&oQ1 l%?l 2))(* @qQ#(&oQ1 l%?l 3))(* $@l#(&oQ1 l%?l 4)))(&oQ1 $0Oj 2))(*(+ oJ&#(* Oq|# l%?l)(* |$##(&oQ1 l%?l 2)))(&oQ1 $0Oj 4))(* %q0#(&oQ1 $0Oj 6))))(setq &|&j(+(* @l$# %1Q)500000.0))&|&j)(Defun %jj0( %Q0 / $@#1 o@01 $@$1 j0O1 j||1 J%?# j@j# %o@# @qQ# @Ol0 oJ&# Oq|# |$## %q0# %1Q q#&0 j|10 J##0 @0$& &|&j |&00 ?j$0 &JO0 #O|0)(setq @0$&"{coord. stereo-70 in fi (sec)}"$@#1 3238.7724276 J%?#(- 26.2457302)oJ&# 0.0033123 %q0#(- 0.0000002)o@01(- 0.2560279)j@j#(- 0.6202059)Oq|# 0.0001735 $@$1(- 0.0662169)%o@#(- 0.0099813)|$## 0.0000031 j0O1 0.0000313 @qQ#(- 0.0001893)j||1 0.0000109 $@l#(- 0.0000031)%1Q 1.000250063 J$j& 165600.0 J##0 0.0 j|10 J##0 q#&0 j|10 j|10(*(- lL@0 500000.0)%1Q(expt 10.0(- 5.0)))J##0(*(- O%Q0 500000.0)%1Q(expt 10.0(- 5.0)))q#&0(+(* $@#1 j|10)(* o@01(&oQ1 j|10 2))(* $@$1(&oQ1 j|10 3))(* j0O1(&oQ1 j|10 4))(* j||1(&oQ1 j|10 5))(*(+ J%?#(* j@j# j|10)(* %o@#(&oQ1 j|10 2))(* @qQ#(&oQ1 j|10 3))(* $@l#(&oQ1 j|10 4)))(&oQ1 J##0 2))(*(+ oJ&#(* Oq|# j|10)(* |$##(&oQ1 j|10 2)))(&oQ1 J##0 4))(* %q0#(&oQ1 J##0 6)))|&00(+(* $@#1 j|10)(* o@01(&oQ1 j|10 2))(* $@$1(&oQ1 j|10 3))(* j0O1(&oQ1 j|10 4))(* j||1(&oQ1 j|10 5)))?j$0(*(+ J%?#(* j@j# j|10)(* %o@#(&oQ1 j|10 2))(* @qQ#(&oQ1 j|10 3))(* $@l#(&oQ1 j|10 4)))(&oQ1 J##0 2))&JO0(*(+ oJ&#(* Oq|# j|10)(* |$##(&oQ1 j|10 2)))(&oQ1 J##0 4))#O|0(* %q0#(&oQ1 J##0 6))q#&0(+ |&00 ?j$0 &JO0 #O|0)&|&j(+ J$j& q#&0))&|&j)(Defun Ll%0( %Q0 / @0$& j|?$ $@j$ &&@$ JJQ$ l0l$ |1&$ ?l1$ Q##$ ?%0$ $@$$ %1Q j?O$ j|10 J##0 &|&j)(setq @0$&"{coord. stereo-70 in la (sec)}"j|?$ 4647.2845596)(setq ?l1$(- 0.5020804))(setq |l|$ 0.0001125)(setq $@j$ 75.3195104)(setq Q##$(- 0.0289995))(setq #$%$ 0.0000109)(setq &&@$ 1.5062413)(setq ?%0$(- 0.0011247))(setq JJQ$ 0.0289995)(setq $@$$(- 0.0000363))(setq l0l$ 0.0005624)(setq |1&$ 0.0000109)(setq %1Q 1.000250063)(setq J##0 0.0 j|10 J##0 j?O$ j|10)(setq @0$&"begin")(setq j|10(*(- lL@0 500000.0)%1Q 0.00001))(setq J##0(*(- O%Q0 500000.0)%1Q 0.00001))(setq j?O$(+(*(+ j|?$(* $@j$ j|10)(* &&@$(&oQ1 j|10 2))(* JJQ$(&oQ1 j|10 3))(* l0l$(&oQ1 j|10 4))(* |1&$(&oQ1 j|10 5)))J##0)(*(+ ?l1$(* Q##$ j|10)(* ?%0$(&oQ1 j|10 2))(* $@$$(&oQ1 j|10 3)))(&oQ1 J##0 3))(*(+ |l|$(* #$%$ j|10))(&oQ1 J##0 5))))(setq &|&j(+ &?@& j?O$))&|&j)(Defun &&?O(o&&1 $$11 / @0$& j|?$ |1&$ |l|$ $@j$ ?l1$ #$%$ &&@$ Q##$ JJQ$ ?%0$ l0l$ $@$$ J$j& &?@& %1Q l%?l $0Oj LojO &|&j)(setq @0$&"{coord. fi,la (sec) in y (m) stereo-70}"j|?$ 215179.4208377)(setq |1&$ 0.0004263)(setq |l|$(- 0.0086455))(setq $@j$(- 10767.8386289))(setq ?l1$(- 23.2138674))(setq #$%$ 0.00044969)(setq &&@$(- 128.6600287))(setq Q##$(- 1.9281015))(setq JJQ$(- 2.1060912))(setq ?%0$ 0.1316098)(setq l0l$(- 0.0495324))(setq $@$$(- 0.0023711))(setq J$j& 165600.0)(setq &?@& 90000.0)(setq %1Q 0.99975)(setq LojO 0.0 $0Oj LojO l%?l $0Oj)(setq @0$&"begin")(setq l%?l(*(- o&&1 J$j&)0.0001))(setq $0Oj(*(- $$11 &?@&)0.0001))(setq LojO(+(*(+ j|?$(* $@j$ l%?l)(* &&@$(&oQ1 l%?l 2))(* JJQ$(&oQ1 l%?l 3))(* l0l$(&oQ1 l%?l 4))(* |1&$(&oQ1 l%?l 5)))$0Oj)(*(+ ?l1$(* Q##$ l%?l)(* ?%0$(&oQ1 l%?l 2))(* $@$$(&oQ1 l%?l 3)))(&oQ1 $0Oj 3))(*(+ |l|$(* #$%$ l%?l))(&oQ1 $0Oj 5))))(setq &|&j(+(* LojO %1Q)500000.0))&|&j)(Defun   / O&QQ)(setq O&QQ""O&QQ(strcat O&QQ"topo_conversie_xy70TOfila : dialog {\n label = \"Transform coordonatele Stereografice(X,Y) \356n Geografice(fi,landa) si invers\";\n : boxed_column {\n label = \"Coordonatele StereoGrafice70\";\n : row {\n : edit_box { label = \"X(Nord):\";mnemonic = \"X\";key = \"x\";}\n : edit_box { label = \"Y(est):\";mnemonic = \"Y\";key = \"y\";}\n : button { label = \"De pe ecran/plan\";mnemonic = \"D\";key = \"pp\";}\n }\n }\n : row { : button { label = \"Transform (x,y)   -> (fi,la)\"; mnemonic ")O&QQ(strcat O&QQ"= \"T\";key = \"xy_fila\";}\n : button { label = \"Transform (fi,la) -> (x,y)\"; mnemonic = \"T\";key = \"fila_xy\";}\n }\n : boxed_column { label = \"Coordonatele Geografice (fi,landa)\";\n : row { : edit_box { label = \"____fi: [sexa]\";mnemonic = \"f\"; key = \"fi\";}\n : text {label = \" \356n sec \";}\n : text { label = \"1234567890.0\";key = \"fisec\";}\n }\n : row { : edit_box { label = \"landa: [sexa]\";mnemonic = \"l\"; key = \"la\";}\n : text {label = \"\356n sec \";}\n : text { label ")O&QQ(strcat O&QQ"= \"1234567890.0\";key = \"lasec\";}\n }\n }\n : row { : button { label = \"Nomenclatura trapezelor\"; mnemonic = \"N\";key = \"nom\";}\n : button { label = \"\316nchide aplicatie\"; mnemonic = \"i\";key = \"0\";is_cancel=true;}\n }\n : boxed_row { label = \"Quick Help / Ajutor\";\n : text { label = \"By: Dragne Adrian (c)2004 * Elipsoidul utilizat Krasovscki(1940/orientat la Pulcovo)\";key = \"qh\";}\n }\n}\n"))(setq O&QQ(|&lO O&QQ LlQO))O&QQ)(Defun ?L&O(@Q@Q / O&QQ)(setq O&QQ(cond((= @Q@Q 1)"Avertisment : A-ti introdus coordonata adev\343rat\343 se face translatia automat")((= @Q@Q 2)"Axa XX' are sensul pozitiv spre nord. XX' <-> fi (latitudinea = 46\260)")((= @Q@Q 3)"Axa YY' are sensul pozitiv spre est. YY' <-> landa (longitudineaEst 26\260...)")((= @Q@Q 4)"Precizia m(fi)=\2610'',0005 // Precizie m(X) = \2610.01m")((= @Q@Q 5)"Precizia m(landa)=\2610'',0005 // Precizie m(Y) = \2610.01m")((= @Q@Q 6)"***")((= @Q@Q 7)"A se utiliza doar cu TopoEXPERT by : de MocanIoan")((= @Q@Q 8)"Proiectia Gauss-Kruger este proiectie transversal\343,conform\343 si cilindric\343")("TopoExpert By : MocanIoan")))(set_tile"qh"O&QQ)(setq O&QQ nil)|@1O)(Defun %J#O(@ |0@ / Q&j)(setq l|0@(atof l|0@)Q&j 1)(if(minusp l|0@)(progn(?L&O 1)(setq l|0@(+ l|0@ 5e+5))(setq Q&j 0)))(if(= @Q@Q 1)(progn(setq j|10 l|0@)(?L&O(+ 1 Q&j))))(if(= @Q@Q 2)(progn(setq J##0 l|0@)(?L&O(if(zerop Q&j)Q&j 3)))))(Defun ?l0O(/ $0Oj Q1Qj)(action_tile"x""(%J#O 1 $value)")(action_tile"y""(%J#O 2 $value)")(action_tile"fi""(&&$O $value 1)")(action_tile"la""(&&$O $value 2)")(action_tile"pp""(done_dialog 2)")(action_tile"fila_xy""(QoOO)(?L&O 7)")(action_tile"xy_fila""(o?|O)(?L&O 6)")(action_tile"nom""($J%O 7 OlOl Jl|l)")(action_tile"0""(done_dialog -1)")(q&?|))(Defun q&?|(/ J1j| |j@| QlQ| %ql|)(set_tile"x"(rtos j|10 2 4))(set_tile"y"(rtos J##0 2 4))(set_tile"fi"OlOl)(set_tile"la"Jl|l)(if OlOl(progn(setq QlQ|(%%&| OlOl))(if QlQ|(progn(setq |j@|(rtos QlQ| 2 4))(set_tile"fisec"|j@|)))))(if Jl|l(progn(setq %ql|(%%&| Jl|l))(if %ql|(progn(setq J1j|(rtos %ql| 2 4))(set_tile"lasec"J1j|)))))(mode_tile"nom"(- 1 ?$jl))(mode_tile"fila_xy"(- 1 ?$jl))(mode_tile"xy_fila"?$jl)(mode_tile"x"?$jl)(mode_tile"y"?$jl)(mode_tile"fi"(- 1 ?$jl))(mode_tile"la"(- 1 ?$jl)))(Defun |l1|(/ j|10 J##0 OlOl Jl|l J$j& &?@& LlQO O1#| %@0| &|&j ?$jl OO@)(terpri)(setq J$j& 165600.0)(setq &?@& 90000.0)(setq OlOl""Jl|l""?$jl 0)(setq j|10 317397.586 J##0 440206.436 LlQO"topo_conversie_xy70TOfila"O1#|( ))(setq %@0| 1)(while(> %@0| 0)(progn(setq %@0|(if(< %@0| 9)(new_dialog LlQO O1#|)%ljQ))(if %@0|(progn(?l0O)(setq %@0|(start_dialog)))(setq %@0|(- 1)))(if(= %@0| 2)(progn(graphscr)(setq &|&j(getpoint"\nDati punctul stereografic1970:"))(if(/= &|&j nil)(setq J##0(car &|&j)j|10(cadr &|&j)?$jl 0))))))(done_dialog 0)(unload_dialog O1#|))(Defun o?|O(/)(setq OlOl(%jj0 j|10 J##0)Jl|l(Ll%0 j|10 J##0)OlOl(oL$| OlOl)Jl|l(oL$| Jl|l)?$jl 1)(q&?|))(Defun QoOO(/ &jO| Lj||)(setq ?$jl 0)(if(not OlOl)(alert"fi este null"))(if(not Jl|l)(alert"la este null"))(setq &jO|(%%&| OlOl)Lj||(%%&| Jl|l))(if(not &jO|)(alert"fo este null"))(if(not Lj||)(alert"lo este null"))(setq j|10(?#?0 &jO| Lj||)J##0(&&?O &jO| Lj||))(setq OlOl(oL$| &jO|)Jl|l(oL$| Lj||))(q&?|))(Defun &&$O(l|0@ %1Q /)(setq l|0@(%%&| l|0@))(if(= %1Q 1)(progn(setq OlOl(oL$| l|0@))(?L&O 4)))(if(= %1Q 2)(progn(setq Jl|l(oL$| l|0@))(?L&O 5))))(Defun O1jj()(|l1|))(Defun q&%|(@Q@Q / Ql?&)(setq Ql?&(list 0.0 21600.0 10800.0 3600.0 1800.0 900.0 450.0 225.0 112.5 56.25)@  @ ?&)))(Defun $|?%(@Q@Q / q&%l)(setq q&%l(list 0.0 14400.0 7200.0 2400.0 1200.0 600.0 300.0 150.0 75.0 37.5)@  @ &%l)))(Defun oO@j(%1Q / Q&j &q$j Lo0j)(setq &q$j"_.undo"Lo0j(getvar"CMDECHO")Q&j(getvar"UNDOCTL"))(setvar"CMDECHO"0)(if(= %1Q(chr 98))(progn(setq |0j% nil)(if(= 1(boole 1 Q&j 1))(progn(command &q$j"_BEGIN")(setq |0j% T)))))(if(and(= %1Q(chr 101))|0j%)(progn(command &q$j"_end")(setq |0j% nil)))(if(and(= %1Q(chr 117))|0j%)(progn(command &q$j"_end")(command &q$j"1")(setq |0j% nil)))(if(= %1Q(chr 49))(progn(if(=(boole 1 Q&j 2)2)(command &q$j"_control""_all"&q$j"_auto""_off")(if(/=(boole 1 Q&j 1)1)(command &q$j"_all"&q$j"_auto""_off")))(setq ?O@% Q&j)))(if(and(= %1Q(chr 48))(/= ?O@% nil))(progn(setq Q&j J1Q%)(if(/=(boole 1 Q&j 1)1)(command &q$j"_control""_none"))(if(=(boole 1 Q&j 2)2)(command &q$j"_control""_one"))))(setvar"CMDECHO"Lo0j))(Defun q?Q@($0Oj / Q&j Oll%)(progn(setq Q&j nil)(while(/= $0Oj nil)(if(/= $0Oj nil)(progn(setq $#?j(caar $0Oj)Oll%(getvar $#?j)Q&j(if Oll%(append Q&j(list(list $#?j(getvar $#?j))))Q&j)Oll%(if Oll%(setvar $#?j(cadar $0Oj))nil))))(setq $0Oj(cdr $0Oj))))(setq $#?j"")Q&j)(Defun $Q@@($0Oj / l|0@)(setq l|0@ nil)(repeat(length $0Oj)(setq l|0@(append l|0@(list(list(car $0Oj)(getvar(car $0Oj)))))$0Oj(cdr $0Oj)))(setq $0Oj nil)l|0@)(Defun &#&@(#L&% / Q&j)(foreach Q&j #L&%(princ Q&j)))(Defun @|1%(?llj @&#j / Q1Qj Q&j)(progn(setq Q&j""Q1Qj 1)(while(< Q1Qj @&#j)(setq Q&j(strcat Q&j ?llj))(setq Q1Qj(1+ Q1Qj))))Q&j)(Defun ||%j(/ Q&j %1Q Lo0j)(setq Lo0j" "Q&j"")(if(<(strlen Q&j)2)(setq Q&j(&l#%(getenv"TEMP")Lo0j)))(if(<(strlen Q&j)2)(setq Q&j(&l#%(getenv"TMP")Lo0j)))(if(<(strlen Q&j)2)(setq Q&j(&l#%(getvar"TEMPPREFIX")Lo0j)))(if(<(strlen Q&j)2)(setq Q&j(&l#%(getvar"XLOADPATH")Lo0j)))(if(>(strlen Q&j)0)(progn(setq %1Q(substr Q&j(strlen Q&j)))(if(/= %1Q"\\")(setq Q&j(strcat Q&j"\\")))))Q&j)(Defun O|0%(/ &|&j Q&j $0Oj &q$j)(setq Q&j(getvar"PROGRAM")&|&j 0 $0Oj(l1$% Q&j)&q$j(#LO% Q&j))(if(wcmatch &q$j"ICAD*")(setq &|&j 1))(if(wcmatch $0Oj"acad*")(setq &|&j 2))&|&j)(Defun %1O(%%1Q /)(if |0j%(  101)))(princ"\ncadsys:")(princ(if(wcmatch %%1Q"*quit*")"ok"(if(wcmatch %%1Q"*exit abort*")"abort"%%1Q)))(princ".")(setq *error* nil)(graphscr)(q?Q@ @1?@)(textscr))(Defun qj|%(@Q@Q @&#j Oll%)(J@%% @Q@Q @&#j Oll%))(Defun J@%%(@Q@Q @&#j Oll% / &|&j)(setq &|&j(cond((= Oll% nil)Oll%)((zerop @Q@Q)(cons @&#j(cdr Oll%)))((cons(car Oll%)(J@%%(setq @Q@Q(1- @Q@Q))@&#j(cdr Oll%)))))))(Defun @0|Q()(oO??j)(exit))(Defun Q#j?j(@Q@Q / O&QQ)(setq O&QQ(cond((= @Q@Q 1)"Coordonata 'fi' este latitudinea paralelui cu Ecuatorul")((= @Q@Q 2)"Coordonata 'landa' este longitudinea meridianului locului cu meridianul Greenwich")((= @Q@Q 4)"L-35 \356n care litera 'A'-'V' indic\343 zona geografic\343 iar num\343rul fusul geografic")((= @Q@Q 5)"Numerotarea pt. 1:500mii cuprinde 'A'-'D'")((= @Q@Q 6)"Numerotarea pt. 1:200mii cuprinde I - XXXVI")((= @Q@Q 7)"Numerotarea pt. 1:100mii cuprinde 1 - 144 adica \356mparte harta 1:1mil. \356n (12x12)")((= @Q@Q 8)"Numerotarea pt. 1:50mii cuprinde A - D adica (2x2)")((= @Q@Q 9)"Numerotarea pt. 1:25mii cuprinde a - d")((= @Q@Q 10)"Numerotarea pt. 1:10mii cuprinde 1 - 4")((= @Q@Q 11)"Utilizare : determinarea codului alfanumeric pentru foile de hart\343 topografice")("Utilizare : pentru completarea nomenclaturii pentru Fisele_Bunurilor_Imobile")))(set_tile"qh"O&QQ)(setq O&QQ nil)|@1O)(Defun $o@?j(LlQO / O&QQ)(setq O&QQ""O&QQ(strcat O&QQ"pp_cads_gknomec2 : dialog {\n label = \"Nomenclatura foilor de harta \356n proiectiile : Gauss-Kruger / StereoGrafica1970\";\n : boxed_row { label = \"Coordonatele geografice\";\n : edit_box { label = \"Latitudine fi:\";mnemonic = \"f\";key = \"fi\";}\n : edit_box { label = \"Longitudine landa:\";mnemonic = \"l\";key = \"la\";}\n }\n : row { children_fixed_height = true;\n children_fixed_width = true;\n : column {\n : popup_list { label = \"Scara trapezului\";mnemonic = \"S\";key = \"ns\";width ")O&QQ(strcat O&QQ"= 40;}\n : edit_box { label = \"Rezultat\";mnemonic = \"R\";key = \"rez\";width = 40;}\n }\n : column { : button { label = \"Determin Nomenclatura\";mnemonic = \"N\";key = \"calc\";width = 35;height = 2;is_default = true;}\n : button { label = \"Exit / Iesire\";key = \"0\";mnemonic = \"x\";is_cancel = true;width = 35;height = 2;}\n }\n }\n : boxed_row { label = \"Quick Help \";\n : text { label = \"By: Dragne Adrian (c)2004 * MyEmail :  .uk\";key = \"qh\";}\n")O&QQ(strcat O&QQ" }\n}\n"))(setq O&QQ(j%Q?j O&QQ LlQO))O&QQ)(Defun $J%O(l$$l OlOl Jl|l / LlQO ?$jl O1#| %@0| o|l?j qJ&?j)(if(null l$$l)(setq l$$l 7))(if(not OlOl)(setq OlOl(strcat"44"(chr 176)"21'14.9998")))(if(not Jl|l)(setq Jl|l(strcat"24"(chr 176)"15'00.1234")))(setq o|l?j"")(setq ?$jl 0)(setq LlQO"pp_cads_gknomec2"O1#|($o@?j LlQO))(setq qJ&?j(list"1:1000 000""1: 500 000""1: 200 000""1: 100 000""1:  50 000""1:  25 000""1:  10 000""1:   5 000""1:   2 000"))(oq1?j"ns"qJ&?j)(set_tile"ns""7")(q0#?j)(setq %@0|(start_dialog))(unload_dialog O1#|))(Defun q0#?j(/ $0Oj Q1Qj)(setq $0Oj(list"0""cancel"))(foreach Q1Qj $0Oj(action_tile Q1Qj"(done_dialog -1)"))(action_tile"fi""(Ll0?j $value 1)")(action_tile"la""(Ll0?j $value 2)")(action_tile"calc""(&o$?j)")(action_tile"ns""(setq l$$l(atoi(get_tile \"ns\")))(Q#j?j(+ l$$l 4))(&o$?j)")(set_tile"fi"OlOl)(set_tile"la"Jl|l)(?JO?j))(Defun Ll0?j(l|0@ %1Q /)(set_tile"rez""")(setq l|0@(%%&| l|0@))(if(= %1Q 1)(setq OlOl(oL$| l|0@))(setq Jl|l(oL$| l|0@)))(Q#j?j %1Q))(Defun ?JO?j(/)(set_tile"ns"(itoa l$$l)))(Defun &o$?j(/ Q&j &jO| Lj||)(setq &jO|(%%&| OlOl)Lj||(%%&| Jl|l)Q&j(|Q0l(+ l$$l 1)&jO| Lj||))(set_tile"rez"Q&j))(Defun llj1(?llj #L&% @l|?j / &|&j Q&j)(setq Q&j(strlen ?llj)&|&j"")(if(minusp #L&%)(setq #L&% 0))(if(minusp @l|?j)(setq @l|?j 0))(if(< #L&% Q&j)(setq &|&j(substr ?llj 1(if(> #L&% 0)(- #L&% 1)0))))(setq #L&%(+ #L&% @l|?j))(if(<= #L&% Q&j)(setq &|&j(strcat &|&j(substr ?llj(if(zerop #L&%)1 #L&%)))))&|&j)(DeFun #O?1(?llj %1Q #L&% / &|&j)(setq &|&j"1 str")(if(>(strlen %1Q)1)(setq %1Q(substr %1Q 1 1)))(setq &|&j(Lq%?j #L&% %1Q ?llj))&|&j)(Defun oL$|(&q$j / &|&j)(setq &|&j(##?jj(#ojjj &q$j)))&|&j)(Defun %%&|(&q$j / Lo0j l%?l J&1j O&QQ ?llj &|&j Lll Q&j Q1Qj)(setq l%?l"t_ang_dms2sec"Lll(j@&Q &q$j"2real str"l%?l))(if(= Lll 2)(setq &q$j(O?@jj &q$j)))(setq Lo0j 0.0)(if(/= &q$j 0.0)(progn(setq Lll(if(minusp &q$j)(- &q$j)&q$j)J&1j(oOQjj Lll)Q1Qj(#O?1 J&1j(chr 46)1))(while(zerop Q1Qj)(setq J&1j(strcat J&1j".0000")Q1Qj(#O?1 J&1j(chr 46)1)))(setq J&1j(strcat J&1j"0000"))(setq Q&j J&1j)(setq J&1j(strcat(substr Q&j 1 Q1Qj)(chr 48))O&QQ(strcat(substr Q&j(+ Q1Qj 1)2)".0")?llj(strcat(substr Q&j(+ Q1Qj 3)2)"."(substr Q&j(+ Q1Qj 5))))(setq J&1j(atof J&1j)O&QQ(atof O&QQ)?llj(atof ?llj)Lo0j nil)(if(= ?llj 60.0)(setq ?llj 0.0 O&QQ(+ O&QQ 1.0)))(if(= O&QQ 60.0)(setq O&QQ 0.0 J&1j(+ J&1j 1.0)))(setq J&1j(%Jljj(* J&1j(if(minusp &q$j)(- 1.0)1.0))))(setq Lo0j(and(> O&QQ(- 1.0))(< O&QQ 60.0)(> ?llj(- 1.0))(< ?llj 60.0)))(setq Lo0j(if Lo0j(+(*(+(* 60.0 J&1j)O&QQ)60.0)?llj)Lo0j))))Lo0j)(Defun j%Q?j(O&QQ LlQO / &|&j)(setq &|&j(|&lO O&QQ LlQO))(if(and(> &|&j(- 1))(not(new_dialog LlQO &|&j)))(setq &|&j(?#$Q"dclopn"ql|j LlQO)&|&j(- 3)))&|&j)(Defun |&lO(O&QQ LlQO / &|&j O1#| OO@)(setq &|&j 0)(if(>=(|$&jj ql|j O&QQ(chr 119))(- 1))(setq O1#|(load_dialog ql|j)&|&j(if(= O1#|(- 1))(- 1)&|&j))(setq &|&j(- 2)))(setq O&QQ"")(if(/= &|&j 0)(?#$Q(if(= &|&j(- 1))"eload""esave")ql|j LlQO))(setq &|&j(if(> O1#|(- 1))O1#| &|&j))&|&j)(Defun lq%&(Q&j / &|&j l%?l jL1jj ?0#jj %%0jj ql$jj Oll% O&QQ Lll %1Q ?$jl Q1Qj)(if(minusp Q&j)(setq Q&j(* Q&j(- 1.0))))(setq &|&j"")(while(> Q&j 1000)(setq Q&j(- Q&j 1000)&|&j(strcat &|&j"M")))(setq ql$jj 900 %%0jj 500 ?0#jj 400 jL1jj 100 Oll% 3)(while(> Q&j 0)(progn(if(= Oll% 3)(setq O&QQ(chr 77)Lll(chr 68)%1Q(chr 67)))(if(= Oll% 2)(setq O&QQ(chr 67)Lll(chr 76)%1Q(chr 88)))(if(= Oll% 1)(setq O&QQ(chr 88)Lll(chr 86)%1Q(chr 73)))(setq ?$jl(/ Q&j jL1jj))(if(= ?$jl 9)(setq Q&j(- Q&j ql$jj)&|&j(strcat &|&j %1Q O&QQ)))(if(= ?$jl 4)(setq Q&j(- Q&j ?0#jj)&|&j(strcat &|&j %1Q Lll)))(if(and(>= ?$jl 5)(<= ?$jl 8))(setq Q&j(- Q&j %%0jj)&|&j(strcat &|&j Lll)))(while(>= Q&j jL1jj)(setq Q&j(- Q&j jL1jj)&|&j(strcat &|&j %1Q)))(setq ql$jj(/ ql$jj 10)%%0jj(/ %%0jj 10)?0#jj(/ ?0#jj 10)jL1jj(/ jL1jj 10))(if(> Oll% 1)(setq Oll%(- Oll% 1)))))&|&j)(Defun &l#%(?llj %1Q / %1Ojj Q&j OO@)(setq Q&j"1 str")(setq %1Q(if(= %1Q"")" "%1Q))(setq %1Ojj(strlen %1Q))(setq Q&j ?llj)(setq OO@(+(-(strlen Q&j)%1Ojj)1))(while(> OO@ 0)(progn(setq OO@(if(/=(substr Q&j OO@ %1Ojj)%1Q)0 OO@)Q&j(if(/= OO@ 0)(substr Q&j 1(- OO@ 1))Q&j)OO@(if(/= OO@ 0)(+(-(strlen Q&j)%1Ojj)1)0))))(setq ?llj Q&j))(Defun #LO%(?llj /)(setq ?llj(strcase ?llj))?llj)(Defun l1$%(?llj /)(setq ?llj(strcase ?llj T))?llj)(Defun oO??j(/ OO@)(QL|jj"echo""")T)(Defun oq1?j(j#%jj q&?@j)(if(null q&?@j)(setq q&?@j(list"""")))(start_list j#%jj)(mapcar'add_list q&?@j)(end_list))(Defun Lq%?j(#L&% j|j@j ?j$0 / Q1Qj %1Q @ &j)(setq Q1Qj(if(zerop #L&%)1 #L&%)@  j| &j 0 ?j$0(strcat ?j$0" "))(progn(while(if(> #L&% 0)(and(<=(+ Q1Qj @Q@Q)(strlen ?j$0))(zerop Q&j))(<=(+ Q1Qj @Q@Q)(strlen ?j$0)))(setq Q&j(if(=(substr ?j$0 Q1Qj @ | 1Qj Q&j))(setq Q1Qj(1+ Q1Qj))))Q&j)(Defun #ojjj(&q$j / &|&j)(setq &|&j(l1@@j(/(*(/ &q$j 3600.0)pi)180)))&|&j)(Defun ##?jj(l|0@ / l%?l)(setq l%?l(oOQ@j(/(*(l1@@j l|0@)180.0)pi))))(Defun oOQjj(j|10 / Q&j OO@ | &@j &|&j @01@j)(setq | "LUNITS"))(setq @01@j"DIMZIN")(if(or(= |jl@j 4)(= |jl@j 5))(setq &|&j(rtos j|10))(progn(setq jj&@j(getvar @01@j))(setvar @  1 jj&@j(~ 8)))(setq Q&j(rtos j|10))(setvar @  7 jj&@j 8))(setq OO@(rtos j|10 |jl@j 15))(setvar @ &@j)(setq &|&j(if(equal(distof Q&j)(distof OO@)0.000001)Q&j OO@))))&|&j)(Defun O?@jj(&q$j /)(if(not(%?#@j &q$j))(setq &q$j(QO0@j"."""&q$j)&q$j(  176)"."&q$j)&q$j(  39)""&q$j)&q$j(QO0@j"\""""&q$j)))(atof &q$j))(Defun %Jljj(l|0@ /)(setq l|0@(/(*(LL$@j l|0@)180.0)pi))l|0@)(Defun |$&jj(@&#j ?llj O&QQ / %1Q @l|?j)(setq %1Q"1 str")(if(not O&QQ)(setq O&QQ(chr 97)))(setq O&QQ(l1$% O&QQ)O&QQ(if(= O&QQ(chr 119))(chr 119)(chr 97))%1Q(open @&#j O&QQ))(if %1Q(progn(write-line ?llj %1Q)(close %1Q)(setq %1Q 0))(setq %1Q(- 1)))%1Q)(Defun QL|jj(Q?O@j #L&% / ?llj)(setq ?llj"1 str")(Ql|@j(getenv"COMSPEC")(strcat" /C "Q?O@j" "#L&%)))(Defun l1@@j(l|0@ / #L&% &|&j ??%@j)(setq #L&%(+ pi pi)??%@j 6.2831853071795865)(if(minusp l|0@)(setq ??%@j(- ??%@j)&|&j(fix(/ l|0@ ??%@j))&|&j(+(* &|&j #L&%)l|0@)&|&j(+ #L&% &|&j)))(setq &|&j(fix(/ l|0@ ??%@j))&|&j(- l|0@(* &|&j #L&%)))&|&j)(Defun oOQ@j(&q$j / l%?l)(setq l%?l(nth 2(#$?Qj &q$j)))l%?l)(Defun  % @&#j $0Oj / Lll)(setq Lll(Lq%?j 1 Oll% $0Oj))(if(> Lll 0)(setq $0Oj(strcat(substr $0Oj 1(- Lll 1))@&#j(substr $0Oj(+ Lll(strlen Oll%))))))$0Oj)(Defun %?#@j(?llj / Q1Qj %1Q)(setq Q1Qj(Q&jQj ?llj)%1Q(if(= Q1Qj(strlen ?llj))(|o@Qj ?llj(chr 32))nil))%1Q)(Defun LL$@j(&q$j /)(setq &q$j(l1@@j(/(* &q$j pi)180.0)))&q$j)(Defun |#QQj(LllQj /)(&O&Qj LllQj 32"w"))(Defun &O&Qj(@&#j %1Q O&QQ / Q&j)(setq Q&j @&#j)(if(= %1Q nil)(setq %1Q 32))(setq O&QQ(cond((= O&QQ"a")O&QQ)((= O&QQ"w")O&QQ)("w")))(setq @&#j(open @&#j O&QQ)O&QQ nil)(if @&#j(progn(write-char 32 @&#j)(close @&#j)(setq O&QQ T)))(setq @&#j Q&j)O&QQ)(Defun #$?Qj(&q$j / &|&j)(setq &q$j(%Jljj &q$j)&|&j(lo1Qj &q$j))&|&j)(Defun lo1Qj(&q$j / Lll &|&j J&1j Q&j lq#Qj #L&% qq0Qj |?$Qj Q1Qj @Q@Q)(setq Lll(fix &q$j)&|&j(- &q$j Lll)J&1j(* &|&j 60)Q&j(fix J&1j)J&1j(*(- J&1j Q&j)60)lq#Qj(+(*(+(* Lll 60)Q&j)60)J&1j))(setq |?$Qj(rtos J&1j 2 4))(setq #L&%(strcat(rtos Lll 2 0)(chr 46)(itoa Q&j)|?$Qj(substr |?$Qj 2 4)))(setq Q&j(strcat(if(< Q&j 10)"0""")(itoa Q&j)(chr 39)))(setq |?$Qj(strcat(if(< J&1j 10.0)"0""")|?$Qj"\""))(setq @ (rtos Lll 2 0)(chr 176)Q&j |?$Qj))(list lq#Qj #L&% @Q@Q))(Defun |o@Qj(?llj %1Q / Q&j)(setq Q&j"1 str")(setq ?llj(oqOQj(&l#% ?llj %1Q)%1Q))?llj)(Defun Q&jQj(l$$l / Lll Q1Qj l%?l %1Q)(setq @&#j(strlen ?llj))(progn(setq Q1Qj 1 Lll 1)(while(and(<= Q1Qj @&#j)(= Lll 1))(setq %1Q(substr ?llj Q1Qj 1)Lll(if(or(wcmatch %1Q"*[0-9Ee+. ]*")(wcmatch %1Q"*-*"))1 0)Q1Qj(+ Q1Qj Lll))))(setq Q1Qj(cond((and(> @&#j 0)(zerop Lll))Q1Qj)((zerop @&#j)0)(@&#j)))Q1Qj)(Defun oqOQj(?llj %1Q / Q&j %1Ojj)(setq Q&j"1 str")(setq %1Q(if(= %1Q"")" "%1Q)%1Ojj(strlen %1Q)Q&j ?llj)(if(>=(strlen ?llj)%1Ojj)(while(=(substr Q&j 1 %1Ojj)%1Q)(setq Q&j(substr Q&j(+ %1Ojj 1)))))Q&j)