home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / HM27.LSP < prev    next >
Encoding:
Text File  |  1991-04-11  |  571 b   |  22 lines
  1. ;****************************************
  2. ;* The program for erase .              *
  3. ;****************************************
  4. (defun era ()
  5. (setvar "cmdecho" 0)
  6. (setvar "blipmode" 0)
  7. (initget (+ 1 2 4) "1 2 3 4")
  8. (setq nam (getint "\n╤í ╘± ╔╛ │² ╠σ ╦╪(1:(╓∙,╫╢,┬▌╬╞,┐╒╡╢) 2:(╝ⁿ└α) 3:(│▌┬╓) 4:(╞Σ╦ⁿ)):"))
  9. (command "erase" "l" "")
  10. (setq nol no no (1- no))
  11.  (if (/= nam 4) 
  12.     (if (or (= ed "l")(= ed "L"))
  13.      (setq xb (+ xb l))
  14.      (setq xb (- xb l))
  15.      )
  16.   )
  17. (if (= nam 2)(setq nk (- nk 1)))
  18. (if (= nam 3)(setq nzl (- nzl 1)))
  19. (redraw)
  20. )
  21. (era)
  22.