home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / TY / WTY1.LSP < prev   
Encoding:
Text File  |  1991-06-01  |  271 b   |  8 lines
  1. ;************ TY\WTY1.LSP ************   5-27-91 BJ
  2. (setq ll '("wtysm1" "CHGCC" "JCX" "CHAW"))
  3. (setq wty (getint "\n 1.Chgcc/2.JCX/3.CHAW<1>:"))
  4. (if (null wty) (setq wty 1))
  5. (setq wty (nth wty ll))
  6. (al wty (strcat "ty/" wty))
  7. (eval (read (strcat "(C:" wty ")")))
  8.