home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / LSP / HJ150.LSP next >
Encoding:
Text File  |  1989-06-03  |  268 b   |  10 lines
  1. (GRTEXT -1 "╔Φ╓├╫╓╠σ┐φ╢╚╥≥╫╙")
  2. (setq d (getreal "\n╔Φ╓├╫╓╠σ┐φ╢╚╥≥╫╙<0.8>"))
  3. (if (= d nil) (setq d 0.8))
  4. (setvar "regenmode" 0)
  5. (if (= (getvar "TEXTSTYLE") "HZ")
  6. (command "style" "" "" "" d "" "" "")
  7. (command "style" "" "" "" d "" "" "" ""))
  8. (grtext)
  9. (PRINC)
  10.