home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / TY / RSSH.LSP < prev    next >
Encoding:
Text File  |  1989-10-27  |  490 b   |  18 lines
  1. ;****** TY\RSSH.LSP ****** 10-26-89 BJ
  2. (defun rssh (fn1 / sname)
  3.   (setq f1 (open fn1 "r"))
  4.   (setq k 1 lll (list "sss") ll11 "" wxr 1)
  5.   (read-line f1)
  6.   (while wxr
  7.     (setq sname (read-line f1))
  8.     (if (= sname nil) (setq wxr nil) (progn
  9.       (setq lll (cons (setq sname (read sname)) lll))
  10.       (setq ll11 (strcat ll11 (itoa k) "." sname "/"))
  11.       (setq k (1+ k))))
  12.   )
  13.   (close f1)
  14.   (setq lll (reverse lll))
  15.   (setq ll11 (strcat ll11 " enter XH:"))
  16.   (princ)
  17. )
  18.