Liren Large Software Subsidy 13/13.iso/p/p067/2.img/HD/HD46.LSP

Text File | 1988-12-10 | 2.7 KB | 23 lines

≤╚╛╩«┬√─┐ÿφî≤à╓ª≤▀╛╪¡═⌐î∙╧╢╚╛╧│├∙îδà╓ª≤╧┤┴╢═╡╚√Ä╝▐║▄│▀╕▐∙à╓ª≤┴╛┬«╧╢╚√Ä¿æ│╚ΦÖ∙à╓ª≤▀╛╪¬î╡î≤╦╛╪⌐╔║└√Äç┬HGnnhjdQτ¥ßôσû√Ä≥à╓ª≤┴╛┬«╧╢╚√Ä¿æ│╚Φƒ∙à╓ª≤▀╛╪¬î╡¥√ä╝╔»▐╛═╖î∙≡╡f?d0<l"f&û√Ä≥à╓ª≤┼╜î≤Æ√┬Ωîφà╓ª√î√î≤▄⌐├╝┬√ä╢╔╡┘╕┴┐î∙▀µ─┐ƒφÄ≥í╤î√î√î√î√î√î≤▀╛╪¬î╣î≤╦╛╪▓┬»î∙≡╡f?d0<lno=6û√Ä≥à╓ª√î√î√î√î√î√ä¿╔»▌√─√ä╝╔»┼╡╪√Äç┬HGnKnbnlmcJcsßî∙à≥í╤î√î√î√î√î√î≤▀╛╪¬î╣¥√₧∩£≥î≤▀╛╪¬î│¥√¥δ£≥í╤î√î√à╓ª√î√î≤▄⌐├╝┬√ä¿╔»▌√╬ΩîΩ₧δà√ä¿╔»▌√─Ωîφ£≥î≤▀╛╪¬î│îΘ£δà╓ª√î√î√î√î√î≤┼╜î≤ɵî╡¥√₧≥î≤▀╛╪¬î╣îΘ£δà≥í╤î√î√î√î√î√ä▓╩√ä║┬┐î≤ɵî╡¥√ÿ≥î≤Æ√┬ΩîΘà≥î≤▀╛╪¬î╣î∩£δà≥í╤î√î√î√î√î√ä▓╩√ä║┬┐î≤ɵî╡¥√Ü≥î≤Æ√┬Ωî∩à≥î≤▀╛╪¬î╣îφ£δà≥í╤î√î√à╓ª≥í╤ä¿╔»▌√▄√ä╝╔»▄┤┼╡╪√Äç┬HGiIGnOßî∙à≥í╤ä¿╔»┌║▐√Ä╣└▓▄╢├┐╔∙îδà╓ª≤─Ω¥≥í╤ä▓╩√äτæ√┬Ωîφà╓ª√î√î≤▄⌐├╝┬√ä¿╔»▌√▄Ωî≤└▓▀»î≤ç√ä╕═⌐î½₧≥î≤â√ÿδî╡à≥î≤ç√ä╕═┐▐√▄Θà√ä⌠îΦ£√┬≥à≥à╓ª√î√î√î√î√î√ä¿╔»▌√▐√ä⌠îΘÖ√┬≥à√ä¿╔»▌√└Ωî≤â√┬ΩîΘà≥í╤î√î√î√î√î√î≤▀╛╪¬î╖╞√ä⌠îΓ₧√┬≥à╓ª√î√î√î√î√î√ä¿╔»▌√└√ä╜┼úî╖¥≥à╓ª√î√î√î√î√î√ä▓╩√äσî╖¥√└≥î≤▀╛╪¬î╖î≤ç√└√¥≥à≥í╤î√î√î√î√î√î≤╧┤┴╢═╡╚√Ä╕┼⌐╧╖╔∙î½¥√▐≥í╤î√î√î√î√î√î≤╧┤┴╢═╡╚√Ä║▐⌐═óÄ√Ä╖Ä√Ä∙î∙▐∙îΩî╖î╖╞≥í╤î√î√à╓ª√î√î≤─Ω₧≥í╤à╓ª≤╧┤┴╢═╡╚√Ä╢┼⌐▐┤▐∙î∙█∙î½î½ƒ√Ä∙î≤├¿┬║▄√▄∩î∙╔╡╚∙à√▄Φî∙Ä≥í╤ä¿╔»┌║▐√Ä╣└▓▄╢├┐╔∙îΩà╓ª≤┴╛┬«╧╢╚√Ä¿æ¿╧⌐╔╛┬∙à╓ª≥í╤ù╓ª≤╚╛╩«┬√─Ω¥√ä≥í╤ä¿╔»▌√▄Ωî≤└▓▀»î≤ç√ä╕═⌐î½à√ä⌠îε£√┬≥à√ä≡î≤╧║╚⌐î½à√ä⌠î│¥√┬≥à≥à╓ª≤▀╛╪¬î½₧√ä╖┼¿╪√ä≡î≤╧║▐√▄Ωà√ä⌠î╣¥√┬≥à√ä≡î≤╧║╚⌐î½¥≥î≤â√─√┬≥à≥à╓ª≤▀╛╪¬î½ƒ√ä╖┼¿╪√ä╕═⌐î½¥≥î≤╧║╚⌐î½₧≥à≥í╤ä¿╔»▌√▄∩î≤└▓▀»î≤╧║▐√▄Θà√ä╕═┐▐√▄Ωà≥à╓ª≤╧┤┴╢═╡╚√Ä╖┼╡╔∙î½¥√▄Φî½₧√▄∩î∙╧∙à╓ª≤╧┤┴╢═╡╚√Ä│═»╧│Ä√Ä║┬¿┼Φ¥∙îΘ£√£√ļÄ√▄Ωî½₧√Ä∙à╓ª≤▀╛╪¬î½ƒ√ä╖┼¿╪√ä≡î≤╧║▐√▄≥î≤â√ä≡î≤â√╬√₧≥î≤ç√╬Ωîε£≥à√┬≥à√ä≡î≤╧║╚⌐î½à√ä⌠î≤ç√─√─Ωî│¥≥î╡à≥à≥í╤ä¿╔»▌√▄∩î≤└▓▀»î≤╧║▐√▄Φà√ä╕═┐▐√▄≥à≥í╤ä¿╔»▌√▄εî≤└▓▀»î≤╧║▐√▄≥î≤ç√ä╕═┐▐√▄≥î≤â√─Ωî╡à≥à≥í╤ä¿╔»▌√─▒î≤â√─Ωî╡à≥í╤ä╕├╢┴║┬┐î∙└▓┬╛Ä√▄εî½î½ÿ√Ä∙à╓ª≤╧┤┴╢═╡╚√Ä║▐⌐═óÄ√Ä╖Ä√Ä∙î∙▐∙îΘîΩî│╞≥í╤ä¿╔»▌√▄Ωî≤└▓▀»î≤ç√ä╕═⌐î½₧≥î≤â√₧δî╡à≥î≤ç√ä╕═┐▐√▄Θà√ä⌠îΘ£√┬≥à≥à╓ª≤▀╛╪¬î½₧√ä╖┼¿╪√ä╕═⌐î½¥≥î≤ü√ä╕═┐▐√▄Ωà√ä⌠î│î╡à≥à≥í╤ä╕├╢┴║┬┐î∙└▓┬╛Ä√▄Ωî½₧√ä╖┼¿╪√ä╕═⌐î½ÿ≥î≤╧║╚⌐î½₧≥à√Ä∙à╓ª≥í╤í╤ä┐╔╜┘╡î│¥Θî≤à╓ª≤▀╛╪¬î½¥√ä╖┼¿╪√ä÷î≤╧║▐√▄Ωà√ä⌠îΩÿδî╡à≥î≤ü√ä╕═┐▐√▄Ωà√ä⌠îΘ₧εî╡à≥à≥í╤ä¿╔»▌√▄Θî≤└▓▀»î≤╧║▐√▄Ωà√ä≡î≤╧║╚⌐î½₧≥î≤â√₧εî╡à≥à≥í╤ä▓╩√äσî╡¥√₧δà╓ª√î√î≤▄⌐├╝┬√ä¿╔»▌√╬╡═╢╔√Äç≡│├«▀╛¥ç≡│╚Φ≡ç▄½┴πƒ∙à√ä¿╔»▌√┬Θî≤â√ä⌠în1 2) 3))
           (setq n1 (fix n2))
           (if (> n2 n1) (setq n1 (+ n1 1)))
    )
    (progn (setq bname "\\house1\\hd3\\ppm82") (setq n2 (/ n1 4))
           (setq n1 (fix n2))
           (if (> n2 n1) (setq n1 (+ 1 n1)))
    )
 )
(setq x (/ 1 n))
(command "insert" "\\house1\\hd3\\ppm81" p1 x "" 0)
(command "insert" "\\house1\\hd3\\ppm80" p2 x "" 0)
(setq p1 (list (+ (car p1) (/ 190 n)) (cadr p1)))
(setq p2 (list (+ (car p2) (/ 190 n)) (+ (cadr p2) (/ 50 n))))
(command "line" p1 p2 "")
(setq lj (/ 20 n))
(command "array" "l" "" "r" 1 2 lj)
(command "insert" bname (list (car p1) (- (cadr p1) (/ 25 n))) x "" 0)
(setq lj (/ -250 n))
(command "array" "l" "" "r" n1 1 lj)
)
(hd46)