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

Text File | 1988-12-10 | 2.5 KB | 25 lines

≤Φ₧ΩÄΓ√Σƒ₧φî≤à╓ª≤▀╛╪¡═⌐î∙╧╢╚╛╧│├∙îδà╓ª≤╧┤┴╢═╡╚√Ä╝▐║▄│▀╕▐∙à╓ª≤┴╛┬«╧╢╚√Ä¿æ│╚Ωò∙à╓ª≤┼╡┼»╦╛╪√¥√Ä«î┐Ä≥í╤ä¿╔»▌√═║î≤╦╛╪¿╪⌐┼╡╦√Äç┬
]DjjAnhj[l^ßîτc)eîÇ∙åâ^n√≈ƒ±ßî∙à≥í╤ä╢╔╡┘╕┴┐î∙▀µ▀╕▐╛╔╡Ä≥í╤ä¿╔»▌√▄√ä╝╔»▄┤┼╡╪√Äç┬HGiIGnOßî∙à≥í╤ä¿╔»▌√▄Ωî½à╓ª≤┼╜î≤æ√═║î∙┘∙à╓ª√î√î≤▀╛╪¬î║╬√Ä▒╘ú¥ΓÄ√▄Ωî≤▄┤└║▐√▄√ä⌠î½┼√₧≥îΘÖ⌡₧≥î¿î÷£⌡ò√▄»î≤└▓▀»î≤ç√ä╕═⌐î½à√¥π£≥î≤ç√ä╕═┐▐√▄≥îΩöδà≥à╓ª√î√î≤▀╛╪¬î║╬√Ä▒╘ú¥εÄ√▄Ωî≤▄┤└║▐√▄√ä⌠î≤å√ƒ√▄▓à√₧≥îΘÖ⌡₧≥î¿îδéΓî½╪√ä╖┼¿╪√ä≡î≤╧║▐√▄≥îΩöδà√ä÷î≤╧║╚⌐î½à√¥π£≥à≥í╤à╓ª≤╧┤┴╢═╡╚√Äí├┤┴∙î∙█∙î½î½╪≥í╤ä¿╔»┌║▐√Ä╣└▓▄╢├┐╔∙îδà╓ª≤╧┤┴╢═╡╚√Ä▓┬¿╔⌐╪∙î║╬√▄√¥√£⌡ò√£≥í╤ä½▄≥í╤ä¿╔»▌√╧√£≥í╤ä¼─▓└╛î≤âµî╕î∙Γ∙à╓ª√î√ä▓╩√äµî╕î∙é∙à√í╤î√î√î≤▄⌐├╝┬√ä╢╔╡┘╕┴┐î∙▀µ─┐₧∩Ä≥í╤î√î√î√î≤┼╡┼»╦╛╪√ÄéîòÄ≥í╤î√î√î√î≤▀╛╪¬î╕î≤╦╛╪¿╪⌐┼╡╦√Äç┬g`TA    kn    nhDjjAj[\Σîτ⌡⌠Γσû√Ä≥à╓ª√î√î√à╓ª√î√î√ä½▐┤╦╡î≤▀╛╪¬î╡îΩà╓ª√î√î√î√ä╕├╢┴║┬┐î∙┼╡▀╛▐»Ä√Ä▒╘ú¥φÄ√▄ΩîΩî¿îδà╓ª√î√î√î√ä¿╔»▌√╬╣î≤╦╛╪¿╪⌐┼╡╦√¥√Äç┬HGkn    nhzlWßî∙à≥í╤î√î√î√î≤┼╜î≤æ√═║î∙╚∙à╓ª√î√î√î√ä╕├╢┴║┬┐î∙╪╛╘»Ä√Ä╕Ä√ä╖┼¿╪√ä≡î≤╧║▐√▄Ωà√òδà√ä≡î≤╧║╚⌐î½¥≥îΩà≥î∩îδî╣╬≥í╤î√î√î√î≤╧┤┴╢═╡╚√Ä»╔ú╪∙î∙╧∙î≤└▓▀»î≤ç√ä╕═⌐î½¥≥îΓ£≥î≤ü√ä╕═┐▐√▄Ωà√Ö⌡ƒ≥à√ÿ√£√╬╣à╓ª√î√î√î√à╓ª√î√î√î√ä½▄≥í╤î√î√î√î≤█│┼╖╔√ä⌠æ√╧√Ä⌡Ä≥î╓ª√î√î√î√î√ä╕├╢┴║┬┐î∙┼╡▀╛▐»Ä√Ä▒╘ú¥∞Ä√▄ΩîΩî¿îδà╓ª√î√î√î√î√ä¿╔»▌√╧√ä╝╔»▀»▐▓┬╝îΩî∙≡╡f?d0e3c î`^τéσ:f#î`^`thdyßî∙à≥í╤î√î√î√î√î≤┼╜î≤âµî╕î∙é∙à╓ª√î√î√î√î√î√ä½▐┤╦╡î≤▀╛╪¬î╣î╡à╓ª√î√î√î√î√î√î√î≤┴╛┬«╧╢╚√Ä¿æ│╚δ£∙à╓ª√î√î√î√î√î√î√î≤▀╛╪¬î║¥√ä╝╔»▀»▐▓┬╝îΩî∙≡╡f?d0e3co î`^`thdyßî∙à≥í╤î√î√î√î√î√î√î√ä╢╔╡┘╕┴┐î∙▀µ▀╕▐╛╔╡Ä≥í╤î√î√î√î√î√î√î√ä¿╔»▌√╚√ä╝╔»▀»▐▓┬╝îΩî∙≡╡f?d0e3c|=*û√Ä≥à╓ª√î√î√î√î√î√î√î≤┴╛┬«╧╢╚√Ä¿æ│╚Θ£∙à╓ª√î√î√î√î√î√î√î≤▀╛╪¬î╣¥√ä╝╔»▀»▐▓┬╝î∙≡╡f?d0~b`û√Ä≥à╓ª√î√î√î√î√î√î√î≤┴╛┬«╧╢╚√Ä¿æ│╚Φƒ∙à╓ª√î√î√î√î√î√î√î≤▀╛╪¬î║î≤╦╛╪¿╪⌐┼╡╦√Äç┬HGDjQßî∙à≥í╤î√î√î√î√î√î√î√ä╢╔╡┘╕┴┐î∙▀µ▀╕▐╛╔╡Ä≥í╤î√î√î√î√î√î√î√ä▓╩√äµî║═√Ä«Ä≥î≤▄⌐├╝┬╓ª√î√î√î√î√î√î√î≤▀╛╪¬î½¥√ä½├╖═⌐î½¥√ä⌠î≤å√ƒ√▄▓à√₧≥îφéΦà≥í╤î√î√î√î√î√î√î√ä╕├╢┴║┬┐î∙┼╡▀╛▐»Ä√Ä▒╘ú¥πÄ√▄ΩîΩîδéπîδî╣î╕î║¥√╚√╬Ωî║à╓ª√î√î√î√î√î√î√î≤▀╛╪¬î½¥√ä½├╖═⌐î½¥√ä⌠î½┼√₧≥îφéΦà≥à╓ª√î√î√î√î√î√î√î≤╧┤┴╢═╡╚√Ä▓┬¿╔⌐╪∙î∙╞ú╘Ωö∙î½¥√¥√£⌡ö√£√╬√╧√═Ωî┐î╣¥√═≥í╤î√î√î√î√î√î√î√à╓ª√î√î√î√î√î√î√î≤▄½à╓ª√î√î√î√î√î√î√î≤▀╛╪¬î╡î≤ç√┬√¥≥à╓ª√î√î√î√î√î√à╓ª√î√î√î√î√î√ä╕├╢┴and "erase" "l" "")
           )
   )
  )
)
)
(if (= aa "d")
    (setq p1 (list (car p1) (+ (cadr p1) 6.3)))
    (setq p1 (list (car p1) (- (cadr p1) 6.3)))
)
(setq p2 (list (+ (car p1) 180) (cadr p1)))
(setq p3 (list (+ (car p) 180) (cadr p)))
(command "pline" P "w" 0.3 0.3 P3 P2 P1 "C")
(setvar "blipmode" 1)
(menucmd "s=screen")
)
(defun pp ()
(if (= aa "u")
    (setq p1 (list (car p1) (+ (cadr p1) 6.3)))
    (setq p1 (list (car p1) (- (cadr p1) 6.3)))
)
)
(hd26)