home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / LSP / HJ151.LSP < prev    next >
Encoding:
Text File  |  1989-05-29  |  283 b   |  10 lines
  1. (GRTEXT -1 "╔Φ╓├╫╓╠σ╜╟╢╚")
  2. (setq d (getangle "\n╔Φ╓├╫╓╠σ╜╟╢╚<0>"))
  3. (if (= d nil) (setq d 0))
  4. (setvar "regenmode" 0)
  5. (if (= (getvar "textstyle") "HZ")
  6. (command "style" "" "" "" "" (angtos d 0 1) "" "")
  7. (command "style" "" "" "" "" (angtos d 0 1) "" "" ""))
  8. (grtext)
  9. (PRINC)
  10.