(Defun nn_vmload( / $rr p_n p_o dyn ang dma lhz ana lpt clock ppo idx item points ogg old love lpt ppt)
(setq;|a000=You see encrypted DefunNames but with all TEXT-s|;
ogg "SNAPANG"
dma (list "\nFirst point of polyline: " "\nNext point of polyline" "\nEnter nextangle [11.25/22.5/45.0/60.0/90.0/eXit/Red/Magenta/Plinedo]" "\nGet-Default.Angle=" "\n[Clockwise/Anti-clockwise/Viewctr?")) (jc_ldc31 "0x24D7:C001" (list 8) (setq;|a000|;
ana (jc_ldc31 "0x40FE:C002" (list (nth 3 dma) (jc_ldc31 "0x4E37:C003" (list "USERR1"))) (jc_ldc31 "0x24D7:C004" (list 8) (setq;|a000|;
p_o (jc_ldc31 "0xA3DF:C005" (list (nth 0 dma))) (jc_ldc31 "0x24D7:C006" (list 8) (setq;|a000|;
p_n (jc_ldc31 "0xA3DF:C007" (list p_o (strcat (nth 1 dma) "(1)"))) (setq;|a000|;
ang (jc_ldc31 "0xEC47:C008" (list p_o p_n)) (setq;|a000|;
lhz (list ana 11.25 22.5 "3" 45.0 "5" 60.0 "7" "8" 90.0)) (setq;|a000|;
love (list ogg "ORTHOMODE" "USERR1")
Bold.Shx (jc_ldc31 "0x8C77:C009" (list love (list ang 1 ana))) (jc_ldc31 "0x898A:C010" (list) (setq;|a000|;
lpt (list p_n p_o)) (setq;|a000|;
ppo p_n) (setq;|a000|;
dyn "0") (progn (setq;|a000|;
idx 2) (while (/= dyn "X") (progn (jc_ldc31 "0x5D0D:C011" (list lpt 1) (setq;|a000|;
clock "") (setq;|a000|;
dyn (jc_ldc31 "0xE6D1:C012" (list "[012469XRYMP]" (nth 2 dma))) (if (= dyn "0") (setq;|a000|;
ang (jc_ldc31 "0x4E37:C013" (list "USERR1")) (if (= dyn "1") (setq;|a000|;
ang (nth 1 lhz)))) (if (= dyn "2") (setq;|a000|;
ang (nth 2 lhz))) (if (= dyn "4") (setq;|a000|;
ang (nth 4 lhz))) (if (= dyn "6") (setq;|a000|;
ang (nth 6 lhz))) (if (= dyn "9") (setq;|a000|;
ang (nth 9 lhz))) (if (= dyn "R") (jc_ldc31 "0x5D0D:C014" (list lpt "1") (if (= dyn "M") (jc_ldc31 "0x5D0D:C015" (list lpt "6") (if (= dyn "P") (jc_ldc31 "0xC4A3:C016" (list lpt) (setq;|a000|;
clock (if (jc_ldc31 "0x46CA:C017" (list dyn "[126]") (jc_ldc31 "0xE6D1:C018" (list "[CA]" (nth 4 dma)) "0"))))) (if (/= clock "0") (progn (if (= clock "C") (setq;|a000|;
ang (/ (* ang pi) 180.0)) (if (= clock "A") (setq;|a000|;
ang (/ (* ang (- 0 pi)) 180.0)))))) (jc_ldc31 "0x1C2B:C019" (list "SNAPANG" (+ (jc_ldc31 "0x4E37:C020" (list "SNAPANG") ang)) (setq;|a000|;
ppt (jc_ldc31 "0xA3DF:C021" (list ppo (strcat (jc_ldc31 "0xB118:C022" (list dma) "(" (itoa idx) ")="))) (setq;|a000|;
lpt (if ppt (jc_ldc31 "0x4DFA:C023" (list ppt lpt) lpt)
idx (+ idx (if ppt 1 0))) (setq;|a000|;
ppo (if ppt ppt ppo))))) (setq;|a000|;
dyn (jc_ldc31 "0xE6D1:C024" (list "[YN]" "\nBold.Shx[Yes/No/About]?")) (if (= dyn "Y") (jc_ldc31 "0x8C77:C025" (list love Bold.Shx) (if (= dyn "A") (jc_ldc31 "0x6E00:C026" (list readme.txtr)))
$rr)