home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HD0 / ACAD.LSP < prev    next >
Encoding:
Text File  |  1988-12-10  |  817 b   |  35 lines
  1. (DEFUN CHECK (FUNCNAME FUNCNAME1)
  2.  (CLA)
  3.  (SETQ FUNCNAME1 (STRCAT "\\HOUSE1\\LSP\\" FUNCNAME1))
  4.  (LOAD FUNCNAME1)
  5. )
  6. (DEFUN CHECK1 (FUNCNAME FUNCNAME1)
  7.  (CLA)
  8.  (SETQ FUNCNAME1 (STRCAT "\\HOUSE1\\LSP1\\" FUNCNAME1))
  9.  (LOAD FUNCNAME1)
  10. )
  11. (DEFUN TYPE (PATH NAME)
  12.  (IF (/= PATH "ACAD") (SETQ NAME (STRCAT PATH "\\" NAME))
  13.                       (SETQ NAME (STRCAT "\\" PATH "\\" NAME)))
  14.  (COMMAND "TYPE" NAME)
  15. )
  16. (DEFUN READM (F)
  17.  (SETQ P (OPEN (STRCAT "\\HOUSE1\\TST\\" F) "r"))
  18.  (SETQ L (READ-LINE P) M NIL)
  19.  (WHILE L
  20.   (SETQ M (CONS (READ L) M) L (READ-LINE P))
  21.  )
  22.  (CLOSE P) (SETQ M (REVERSE M))
  23. )
  24. (defun *error* (s)
  25.  (grtext)
  26.  (print "end!")
  27. )
  28. (SETQ MD 25)
  29. (DEFUN CLA ()
  30.  (SETQ ATOMLIST (MEMBER 'C:HTAB ATOMLIST))
  31. )
  32. (DEFUN C:HTAB ()
  33.  (COMMAND "TABLET" "CFG" 3 25 11 14 11 40 17 "y")
  34. )
  35.