home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p039 / h91 / 1.ddi / LISP.PAK / HY08.LSP < prev    next >
Encoding:
Text File  |  1989-05-27  |  404 b   |  15 lines
  1. (defun HJ01 ()
  2.  (setvar "cmdecho" 0)
  3.  (setq n (getint "\n╩Σ╚δ┤╣╧▀╡─╕∙╩²: "))
  4.  (while(/= n nil)
  5.   (setq q1 (getint "\n╩Σ╚δ┤╣╧▀╡─╝Σ╕⌠: "))
  6.   (setq a (getpoint "\n╩Σ╚δ┤╣╧▀╡─╞≡╡π: "))
  7.   (setq b (getpoint "\n╩Σ╚δ┤╣╧▀╡─╓╒╡π: "))
  8.   (setq c (list (car a) (cadr b)))
  9.   (command "line" a c "")
  10.   (command "array" a "" "r" 1 n q1)
  11.   (setq n (getint "\n╝╠╨°╩Σ╚δ┤╣╧▀╡─╕∙╩², ╗≥╗╪│╡╜ß╩°: "))
  12.  )
  13. )
  14. (hj01)
  15.