home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / LSP / HJ152.LSP < prev    next >
Encoding:
Text File  |  1990-07-21  |  292 b   |  15 lines
  1. (defun hj01()
  2.  (setvar "cmdecho" 0)
  3.  (menucmd "s=hyhz")
  4.  (setq f 1)
  5.  (while (/= f "")
  6.   (setq f (getstring "\n╩Σ╚δ┤╩╫Θ╡─└α╨═╗≥<Enter>╜ß╩°:"))
  7.   (if (/= f "")
  8.   (progn
  9.   (princ "\n╕├└α╨═┤╩╫Θ╬─╝■╘┌ txt ╫╙─┐┬╝,╬─╝■├√: ")
  10.   (princ (strcat "HHJ" f ".TAT"))
  11.   ))
  12.  )
  13. (print "END!")
  14. )
  15.