(DEFUN C:WATCH( )

 

(PRINC "\nTHIS IS THE WATCH PROGRAM")

 

(ALERT "\nTHIS IS A RED ALERT!")

 

(SETQ STUFF (SSGET))

 

(SETQ STUFFSIZE (SSLENGTH STUFF))

 

(SETQ COUNTER 0)

 

(WHILE (/= COUNTER STUFFSIZE)

 

(SETQ MYSTUFF (SSNAME STUFF COUNTER))

 

(SETQ MYINSIDES (ENTGET MYSTUFF))

 

(PRINC MYSTUFF)

 

(PRINC "\n")(PRINC COUNTER)

 

(PRINC "\n*******************************************")

 

(PRINC "\n")

 

(SETQ FILTER1 (CAR MYINSIDES))

 

(SETQ FILTER2 (CADR MYINSIDES))

 

(SETQ FILTER3 (CADDR MYINSIDES))

 

(SETQ FILTER4 (CAR(CADDR MYINSIDES)))

 

;(PRINC MYINSIDES)

 

(PRINC FILTER1)

 

(PRINC FILTER2)

 

(PRINC FILTER3)

 

(PRINC "\n")

 

(PRINC FILTER1)

 

(PRINC "\n")

 

(PRINC FILTER2)

 

(PRINC "\n")

 

(PRINC FILTER3)

 

(PRINC "\n")

 

(PRINC (CDR FILTER2))

 

(PRINC "\n ")

 

(SETQ COUNTER (1+ COUNTER )))

 

(PRINC))