home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / mutt / sysvar.mut < prev    next >
Text File  |  1988-03-01  |  406b  |  18 lines
  1.     ; allow the user to set/examine sysvars
  2. (defun
  3.   set-sysvar
  4.   {
  5.     (string svar 50)
  6.     (svar (complete "Set sysvar: " 16))
  7.     (sysvar svar 
  8.        (atoi (ask (concat "Current value of " svar " is " (sysvar svar)
  9.     ".  Set " svar " to: "))))
  10.   }
  11.   get-sysvar
  12.   {
  13.     (string svar 50)
  14.     (svar (complete "Get sysvar: " 16))
  15.     (msg "Current value of " svar " is " (sysvar svar))
  16.   }
  17. )
  18.