home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / TY / RLLL.LSP < prev    next >
Encoding:
Text File  |  1989-04-26  |  398 b   |  14 lines
  1. ;****** TY\RLLL.LSP ******
  2. (defun rlll (fn1)
  3.   (setq f1 (open fn1 "r"))
  4.      (if (/= f1 nil) (progn (setq lll (read-line f1))
  5.         (setq lll (cons fn1 (read (read-line f1)))) (close f1)))
  6.   (setq wxr (length lll) k 1 ll11 "")
  7.   (while (< k wxr)
  8.     (setq ll11 (strcat ll11 (itoa k) "." (nth k lll) "/"))
  9.     (setq k (1+ k))
  10.   )
  11.   (setq ll11 (strcat ll11 " enter XH:"))
  12.   (princ)
  13. )
  14.