Code:(PRINC) (PROMPT "\n*AUTOLOAD WATSON SETUP* ") (SETQ PGPF NIL) (SETQ PGPLN "(LOAD \"Wat.lsp\")" ) (SETQ PGPFN (FINDFILE "ACAD2000.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2001.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2002.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2003.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2004.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2005.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2006.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2007.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2008.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2009.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2010.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2011.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2012.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2013.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2014.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2015.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2016.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2017.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2018.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "ACAD2019.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN (SETQ PGPFN (FINDFILE "acad2020.lsp" )) (IF (/= PGPFN NIL) (PROGN (SETQ PGPF (OPEN PGPFN "a")) (WRITE-LINE " " PGPF) (WRITE-LINE PGPLN PGPF) (PROMPT "\nWat.lsp added to ") (PRINC PGPFN) (CLOSE PGPF) ));END PROGN/IF PGPFN ;(IF (= PGPFN NIL) (SETQ PGPFN (GETFILED "LOCATE ACAD2000.LSP ACAD2020.LSP FILE" "" "LSP" 2)))