(LAMBDA(QOJ / Q$@ QO ENAME Q|J Q0 Q|)(COND(QOJ(PROMPT"\nSorting  ")(Q@)(SETQ QO -1 Q|(OPEN"temp1.$$$""w")QO@(CADR(TRANS(GETVAR"ExtMin")0 1)))(Q@)(WHILE(SETQ ENAME(SSNAME QOJ(SETQ QO(1+ QO))))(SETQ Q|J(ENTGET ENAME)Q0(RTOS(DISTANCE(SETQ Q$@(MAPCAR(quote (LAMBDA(QL Q&)QL))(TRANS(QQ 10 Q|J)ENAME 1)(quote (T T))))(LIST(CAR Q$@)QO@))2 5))(WRITE-LINE(STRCAT(SUBSTR"000000000"(-(STRLEN Q0)6))Q0(ITOA QO))Q|)(Q@))(SETQ Q|(CLOSE Q|))(Q@)(COMMAND"SH""SORT /R <TEMP1.$$$ >TEMP2.$$$")(PROMPT"Sorting  ")(Q@)(SETQ Q0(SSADD)Q|(OPEN"temp2.$$$""r"))(Q@)(WHILE(SETQ QO(READ-LINE Q|))(SSADD(SSNAME QOJ(ATOI(SUBSTR QO 17)))Q0)(Q@))(SETQ Q|(CLOSE Q|))(Q@)(COMMAND"SH""DEL TEMP?.$$$ > NUL")(Q@)(IF(NOT(ZEROP(SSLENGTH Q0)))Q0))))