[编程交流] 基于标志的程序

(defun C:TEST ()
 (setq        door nil;_T is open, nil is closed
window nil ;_T is open, nil is closed
driving        T;_T is driving nil is not
 )
 (if (not door)
   (if        (not window)
     (if driving
(princ "\nYour door and window are closed, drive saftly!")
(princ "\nYour door and window are closed, you might start driving")
)
     (princ "your window is open, and you are not driving, such a waste!")
     )
     (princ "the car cant start until you close the door")
   )
   
 
(princ)
)

(defun C:TEST () 
 (setq door nil;_T is open, nil is closed 
       window nil ;_T is open, nil is closed 
       driving T;_T is driving nil is not
 )
(if door 
 (if window 
   (if driving 
     (princ "\nStop it right now, you #$@*") 
     (princ "\nPut your belt!  Don't forget the door!!") 
     ) 
   (if driving
     (princ "\nSami, one day you'll die!")
     (princ "\nClose the door and start your engine!!!")
     )
 )
 (if window
   (if driving
     (princ "\nYou know, this car has air conditioning...")
     (princ "\nFinaly, we can go! Just close the window, please")
     )
   (if driving
     (princ "\nYour door and window are closed, drive saftly!")
     (princ "\nYour door and window are closed, you might start driving")
     )
   )
 )
 (princ) 
)

(defun C:TEST ()
;driving     1
;open door   2
;open window 4
 (if
   (setq i (getint "\nEnter a number: "))
   (if (<= 0 i 7)
     (princ
       (strcat "\nYour car is "
         (if (= 1 (logand i 1)) " " "not ")
         "moving. The door is "
         (if (= 2 (logand i 2)) "open " "closed ")
         "and the window is "
         (if (= 4 (logand i 4)) "open!" "closed!")
       )
     )
   )
 )
 (princ)
)