(defun c:ALLY (/ i1 fh1 s1)
;ALLY - A Lisp Analyzer        Copyright 1990, 1991 Steve Waskow
;    Version 1.31                   Wasco Technical Software
   (setq i1 (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (command "ALLY!")
   (graphscr)
   (if (setq fh1 (open "ALLY.SCR" "r"))
      (progn
         (setq s1 (read-line fh1))
         (close fh1)
         (initget "Yes No")
         (if (/= "No" (getkword (strcat "Load file " (substr s1 7 (- (strlen s1) 8)) " ? <Y>: ")))
            (command "script" "ALLY"))))
   (setvar "cmdecho" i1)
   (princ)
)