home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Netzwerk / scream_1.dms / in.adf / InstallScreamerNet < prev   
Encoding:
Text File  |  1994-06-21  |  26.2 KB  |  521 lines
  1. ;**********************************************;
  2. ;                                              ;
  3. ;         ScreamerNet Installer                ;
  4. ;                                              ;
  5. ;             by Todd Hayes                    ;
  6. ;           ©1994 NewTek, Inc.                 ;
  7. ;                                              ;
  8. ;   $VER: ScreamerNet Installer 1.0 (4-27-94)  ;
  9. ;                                              ;
  10. ;**********************************************;
  11.  
  12. (set @appname "ScreamerNet")
  13.  
  14. (set disk1 "ScreamerNetDisk1:")
  15. (set disk2 "ScreamerNetDisk2:")
  16. (set disk2_name (substr disk2 0 (- (strlen disk2) 1))) 
  17. (set disk2_prompt (cat "\n\n\nPlease insert " disk2_name " in any drive..."))
  18. (set batch_start (cat "d:\n"
  19.                       "ftp -n -s:batch.ftp ami\n"
  20.                       "start /low delay.cmd\n"))
  21.  
  22. (set ftp_start (cat "user ftp\n"
  23.                     "desk\n"
  24.                     "ascii\n"
  25.                     "get delay.cmd\n"
  26.                     "bye\n"))
  27.  
  28. (set delay_cmd (cat "cd \\raptor\ndelete foo.cmd\nrename batch.cmd "
  29.                     "foo.cmd\ndelete foo.cmd\n"
  30.                     ":loop\nif not exist \\lw\\done goto loop\n"
  31.                     "del \\lw\\done\n:down\n"
  32.                     "\\raptor\\shutdown \\\\.\ngoto down\n"))
  33.  
  34. (set batch_cmd (cat "if not exist \\raptor\\delay goto begin\n"
  35.                     "  delete \\raptor\\delay\n"
  36.                     "  delete \\lw\\done\n"
  37.                     ":begin\n\n"
  38.                     "mkdir \\lw\n"
  39.                     "cd \\lw\n"
  40.                     "ftp -n -s:\\raptor\\batch.ftp ami\n"
  41.                     "start startlw\n"
  42.                     "exit\n"))
  43.  
  44. (set batch_ftp (cat "user ftp\n"
  45.                     "desk\n"
  46.                     "binary\n"
  47.                     "get lw.exe\n"
  48.                     "bye\n"))
  49.  
  50. (set ftp_scr "open ami\nftp\ndesk\ndir\nbye\n\n")
  51.  
  52. (set script_ftp_body (cat "ftp\n" 
  53.                      "cd d:\n"
  54.                           "desk\n"
  55.                           "mkdir /lw\n"
  56.                           "cd /lw\n"
  57.                           "lcd net:\n"
  58.                           "binary\n"
  59.                           "put lw.exe\n"
  60.                           "ascii\n"
  61.                           "put ftp.scr\n"
  62.                           "put startlw.bat\n"
  63.                           "cd /raptor\n"
  64.                           "put batch.cmd\n"
  65.                           "put batch.ftp\n"
  66.                           "cd /lw\n"
  67.                           "put done\n"
  68.                           "bye\n"))
  69.  
  70. (set script_ftp_small  (cat "ftp\ndesk\ncd d:\ncd /lw\nlcd net:\n"
  71.                             "cd /lw\nbinary\nput lw.exe\nbye\n"))
  72.  
  73. (set startlw_main (cat "if not exist lw.new goto nonewlw\n\n"
  74.                        "del lw.exe\n"
  75.                        "rename lw.new lw.exe\n\n"
  76.                        ":nonewlw\n\n"
  77.                        "ftp -s:ftp.scr\n"
  78.                        "lw screamer00"))
  79.  
  80.  
  81. (set inet_size 910000)
  82. (set Lightwave_size 1182000)
  83. (set networks_size 13000)
  84. (set s2_util 0)
  85. (set default_drive (if (exists "Work:" (noreq))
  86.                        "Work:"
  87.                        (cat (getdevice "c:") ":")))
  88. (set @default-dest default_drive)
  89.  
  90. (set sanaII_devs_main (cat "# Sana II devices used by the inet.library\n"
  91.                            "#device name          Unit No IPType  ARPType"
  92.                            " (optional hardware address) Comment\n#------"
  93.                            "---------------------------------------------"
  94.                            "--------------------------------------------"
  95.                            "--\n"))
  96.  
  97. ; Setup Help strings
  98.  
  99. (set install_type_help (cat "\n\nThis panel allows you to choose the type of "
  100.                             "installation to perform. Choosing the 'Full " 
  101.                             "Installation' option will install all network "
  102.                             "software to your Amiga, the local version "
  103.                             "of Lightwave and Modeler to your Amiga, and "
  104.                             "the LW.EXE file to all available Screamer "
  105.                             "processors.  The 'Update Lightwave Software' "
  106.                             "option will allow you to install the new "
  107.                             "versions of the local and network Lightwave "
  108.                             "without reinstalling the network software. "))
  109.  
  110. (set lw_subinstall_help (cat "\n\nThis panel allows you to choose which "
  111.                              "Lightwave software you would like to "
  112.                              "install.  You may choose to install the "
  113.                              "version for your local machine, the version "
  114.                              "for the networked screamer CPUs, or both. "
  115.                              "These installations assume that you have "
  116.                              "already installed the ScreamerNet software "
  117.                              "on your system at some previous time using "
  118.                              "the 'Full Installation' option from the "
  119.                              "previous panel."))
  120.  
  121. (set network_drive_help (cat "\n\nThis panel allows you to choose the directory "
  122.                              "that you would like to install the network "
  123.                              "software to. A subdirectory called 'inet' "
  124.                              "will be created in this directory."))
  125.  
  126. (set sana2_drivers_help (cat "\n\nFor ScreamerNet to run, you must have "
  127.                              "a Sana-II Ethernet board and its related "
  128.                              "software on your system. This panel allows "
  129.                              "you to choose the Sana-II device that your "
  130.                              "board uses. These drivers are usually "
  131.                              "located in your devs:networks drawer.\n")) 
  132.  
  133. (set batch_start_help (cat "\n\nIn order for the installer to send the "
  134.                            "necessary files over to the Raptor, the "
  135.                            "Raptor must be kept from shutting itself "
  136.                            "down. To do this, the installer prepares a "
  137.                            "batch file that the Raptor will get upon "
  138.                            "startup and then execute. This file will "
  139.                            "keep the Raptor busy while the rest of the "
  140.                            "files are sent to it. "))
  141.  
  142. (set Lightwave_drive_help (cat "\n\nThis panel allows you to choose the "
  143.                                "directory that you would like to install "
  144.                                "the local version of the Lightwave software "
  145.                                "to.  If you have a Video Toaster installed "
  146.                                "in the system, and you would like to use "
  147.                                "the same version of Lightwave for the "
  148.                                "Toaster and ScreamerNet, then the directory "
  149.                                "that you choose from this panel should be "
  150.                                "your Toaster directory. NOTE: Choosing the "
  151.                                "Toaster directory will cause this install "
  152.                                "to completely replace any version of "
  153.                                "Lightwave that the Video Toaster installed."))
  154.  
  155. (set user_startup_help (cat "\n\nThese lines need to be added to your "
  156.                             "user-startup file in order for ScreamerNet "
  157.                             "to run. The lines tell the software where to "
  158.                             "look for certain files."))
  159.  
  160. (set network_devices_help (cat "\n\nThese devices need to be present in your "
  161.                                "Devs:networks directory in order for the "
  162.                                "software to run. If this directory does "
  163.                                "not exist, it will be created for you."))
  164.  
  165. (set start_option_help (cat "\n\nThe network software must be started "
  166.                             "before ScreamerNet will run. This can be "
  167.                             "done manually by double-clicking on the " 
  168.                             "Start-Screaming icon in the inet: drawer "
  169.                             "or it can be started automatically when "
  170.                             "the computer is started by choosing yes "
  171.                             "on this panel."))
  172.  
  173. (set copy_lz_help (cat "\n\nThe installer needs to copy lz.decomp to ram: "
  174.                        "during the installation. This minimizes the "
  175.                        "amount of disk swapping that must be done during "
  176.                        "the installation process. Lz.decomp will be "
  177.                        "deleted when the installer is done with it."))
  178.    
  179. (set disk2_help (cat "\n\nThe installer needs to get the Lightwave or LW files "
  180.                      "from the second disk."))
  181.  
  182. (set all_installed_help (cat "\n\nAll Screamers that were detected have "
  183.                              "been given the necessary files and "
  184.                              "should be restarted so that the new "
  185.                              "software will take effect. If any of your "
  186.                              "Screamers have apparently not received "
  187.                              "the necessary files, please check that "
  188.                              "they are communicating with the Amiga "
  189.                              "properly and restart the installer.")) 
  190. (set ether_card_help (cat "\nIn order for ScreamerNet to function, it "
  191.                           "needs to know what type of network card you "
  192.                           "will be using. It is important to note that "
  193.                           "while ScreamerNet is capable of utilizing the "
  194.                           "A2060 Arcnet board, the Raptor does not "
  195.                           "provide for Arcnet.  To use ScreamerNet with "
  196.                           "the Raptor, you must have a supported Ethernet "
  197.                           "board."))
  198.  
  199. (set ether_d_help (cat "\nScreamerNet needs to know where the device "
  200.                        "driver for your network board is located. If "
  201.                        "you have one of the listed boards, then the "
  202.                        "ScreamerNet installer will try to locate the "
  203.                        "board on its own. If you are using a supported, "
  204.                        "but unlisted board, or your driver for a listed "
  205.                        "board is not in the standard location of the "
  206.                        "DEVS:Networks drawer, then you will be asked to "
  207.                        "locate your driver. Please note that the Raptor "
  208.                        "does not currently support Arcnet boards, so "
  209.                        "those ScreamerNet users with Raptors must have "
  210.                        "a supported Ethernet board."))
  211.                        
  212. (set copy_device_help (cat "\nYou have chosen a board whose driver was "
  213.                            "not found in the usual location, but was "
  214.                            "provided with ScreamerNet. You may now choose "
  215.                            "to install that driver in the DEVS:Network "
  216.                            "drawer. This driver must be installed to run "
  217.                            "ScreamerNet."))
  218. (set ftp_help (cat "\nScreamerNet is capable of utilizing two different "
  219.                    "file transfer protocols: FTP and RCP.  Of these two, "
  220.                    "FTP is generally faster and more reliable.  However, "
  221.                    "if you experience problems with ScreamerNet that seem "
  222.                    "to be related to file transfer with FTP, you may wish "
  223.                    "to change to RCP to find out if that solves your "
  224.                    "problem.")) 
  225. (onerror
  226.    ((set del_n 0)
  227.     (while (set del_file (select del_n "lz.decomp" "batch.cmd" "batch.ftp"
  228.                                        "startlw.bat" "ftp.scr" "lw.exe"
  229.                                        "script.ftp" "delay.cmd" "done"
  230.                                        "psn" ""))
  231.            ((set del_file (cat "ram:" del_file))
  232.             (if (exists  del_file) (delete del_file))
  233.             (set del_n (+ del_n 1))))))
  234.  
  235. (welcome)
  236.  
  237. (set install_type (askchoice 
  238.                       (prompt (cat "\n\nPlease choose the installation"
  239.                                    " that you would like to perform:"))
  240.                       (choices "Full Installation"
  241.                                "Update Lightwave Software")
  242.                       (help install_type_help)))
  243.  
  244. (if (= install_type 0)
  245.     (
  246. ; Install Inet software...
  247.        (complete 0)
  248.        (set inet_drive (askdir 
  249.                           (prompt (cat "\n\nPlease Select the Drive where "
  250.                                        "you would like to install the "
  251.                                        "network software.\nNOTE: a new "
  252.                                        "directory called 'inet' will be "
  253.                                        "created on this drive."))
  254.                           (default default_drive)
  255.                           (help network_drive_help)    
  256.                           (disk)))
  257.        (set drive_space (getdiskspace (cat (getdevice inet_drive) ":")))
  258.        (while (< drive_space inet_size)
  259.               (  (message (cat "\n\nSorry... Not enough space on drive "
  260.                                "for network files. Please free up "
  261.                                (- inet_size drive_space)
  262.                               " bytes before proceeding."))
  263.                  (set drive_space (getdiskspace inet_drive))))
  264.        (copyfiles (source (cat disk1 "c/lz.decomp"))
  265.                   (dest "ram:")
  266.                   (help copy_lz_help))
  267.        (complete 1)
  268.        (working "\n\nDecompressing Network files...\n")
  269.        (if (= ":" (substr inet_drive (- (strlen inet_drive) 1) 1))
  270.            (run (cat "ram:lz.decomp -m x " disk1 "inet " inet_drive "\n"))
  271.            (run (cat "ram:lz.decomp -m x " disk1 "inet " inet_drive "/\n")))
  272.  
  273. ;Select Network card drivers
  274.        (complete 30)
  275.        (set ether_card (askchoice (choices "A2065 Ethernet Card"
  276.                                             "A2060 Arcnet Card"
  277.                                             "EB920 Ethernet Card"
  278.                                             "Other")
  279.                                    (prompt (cat "\n\nPlease select the Network "
  280.                                             "adapter that you will be using"
  281.                                             "with ScreamerNet..."))
  282.                                    (help ether_card_help)))
  283.        (if (= ether_card 0)
  284.            (if (NOT (exists "devs:networks/a2065.device" (NOREQ)))
  285.                ((set ether_d (askchoice (prompt (cat "\n\nNo driver was "
  286.                                                 "found for that card in "
  287.                                                 "DEVS:Networks.  Would "
  288.                                                 "you like to install the "
  289.                                                 "device driver for that "
  290.                                                 "card or locate the file "
  291.                                                 "for ScreamerNet?"))
  292.                                         (choices "Install Driver"
  293.                                                  "Locate Existing Driver")
  294.                                         (help ether_d_help))) 
  295.                 (if ether_d
  296.                   (copyfiles (source (cat disk1 "devs/networks/a2065.device"))
  297.                              (dest "devs:networks")
  298.                              (help copy_device_help))
  299.                   (set ether_card 3)))
  300.                (set driver "devs:networks/a2065.device")))
  301.        (if (= ether_card 1)    
  302.            (if (NOT (exists "devs:networks/a2060.device" (NOREQ)))
  303.                ((set ether_d (askchoice (prompt (cat "\n\nNo driver was "
  304.                                                 "found for that card in "
  305.                                                 "DEVS:Networks.  Would "
  306.                                                 "you like to install the "
  307.                                                 "device driver for that "
  308.                                                 "card or locate the file "
  309.                                                 "for ScreamerNet?"))
  310.                                         (choices "Install Driver"
  311.                                                  "Locate Existing Driver")
  312.                                         (help ether_d_help))) 
  313.                 (if ether_d
  314.                   (copyfiles (source (cat disk1 "devs/networks/a2060.device"))
  315.                              (dest "devs:networks")
  316.                              (help copy_device_help))
  317.                   (set ether_card 3)))
  318.                (set driver "devs:networks/a2060.device"))) 
  319.        (if (= ether_card 2)    
  320.            ((set s2_util 1)
  321.             (if (NOT (exists "devs:networks/eb920.device" (NOREQ)))
  322.                (set ether_card 3)
  323.                (set driver "devs:networks/eb920.device"))))
  324.        (if (= ether_card 3)
  325.           (set driver (askfile (prompt (cat "Please locate the device driver "
  326.                                             "used by your network card..."))
  327.                                (default "devs:networks")
  328.                                (help sana2_drivers_help))))
  329.        (textfile (dest (tackon inet_drive "inet/s/sana2_devs"))
  330.                  (append (cat sanaII_devs_main driver "  0  2048     2054\n")))
  331.  
  332. ; Set flags forLightwave installation
  333.        (set local_lw 1)
  334.        (set net_lw 1)
  335.        (set @default-dest (tackon inet_drive "inet"))
  336.     )
  337.     ((set lw_versions (askoptions (choices "Update Local Lightwave"
  338.                                            "Update Lightwave on Screamer(s)")
  339.                               (Prompt (cat "\n\nPlease select the versions of "
  340.                                            "the Lightwave software that "
  341.                                            "you would like to update."))
  342.                               (help lw_subinstall_help)))
  343.      (set local_lw (BITAND lw_versions 1))
  344.      (set net_lw   (BITAND lw_versions 2))
  345.     )                  
  346. )
  347.  
  348. ; Install Local Lightwave Software...
  349. (if local_lw
  350.     (  (complete 35)
  351.        (set lw_drive (askdir 
  352.                           (prompt (cat "\n\nPlease Select the Directory where "
  353.                                        "you would like to "
  354.                                        (if install_type "update " "install ")
  355.                                        "the Lightwave software.\n"))
  356.                           (default (cat default_drive "Toaster"))
  357.                           (help Lightwave_drive_help)    
  358.                           (disk)))
  359.        (if install_type ((set Lightwave_size (- Lightwave_size 
  360.                             (+ (getsize (tackon lw_drive "lightwave.fp"))
  361.                                (getsize (tackon lw_drive "modeler.fp")))))
  362.                          (copyfiles (source (cat disk1 "c/lz.decomp"))
  363.                                     (dest "ram:")
  364.                                     (help copy_lz_help))))
  365.        (set drive_space (getdiskspace lw_drive))
  366.        (while (< drive_space Lightwave_size)
  367.               (  (message (cat "\n\nSorry... Not enough space on drive "
  368.                                "for Lightwave files. Please free up "
  369.                                (- Lightwave_size drive_space)
  370.                                " bytes before proceeding."))
  371.                  (set drive_space (getdiskspace lw_drive))))
  372.        (askdisk (prompt disk2_prompt)
  373.                 (dest disk2_name)
  374.                 (help disk2_help))
  375.        (working "\n\nDecompressing Lightwave files...\n")
  376.        (if (= ":" (substr lw_drive (- (strlen lw_drive) 1) 1))
  377.            (run (cat "ram:lz.decomp -m x " disk2 "lwfp " lw_drive "\n"))
  378.            (run (cat "ram:lz.decomp -m x " disk2 "lwfp " lw_drive "/\n"))
  379.        )
  380.        (if (NOT net_lw)
  381.            (if (exists "ram:lz.decomp")
  382.                (delete "ram:lz.decomp")))
  383.        (if install_type
  384.            (set @default-dest lw_drive)
  385. ; Add assigns to User-Startup       
  386.            ((if (= ":" (substr inet_drive (- (strlen inet_drive) 1) 1))
  387.                 (set start_lines (cat "assign inet: " inet_drive "inet\n"))
  388.                 (set start_lines (cat "assign inet: " inet_drive "/inet\n")))
  389.             (run start_lines)
  390.             (set start_lines (cat start_lines "assign Toaster: " lw_drive "\n"))
  391.             (if s2_util
  392.                 ((set s2_line (cat "c:s2util dev=" driver 
  393.                                     " config sa 0.180.252.0.0.1"))
  394.                  (set start_lines (cat start_lines s2_line "\n"))))
  395.             (complete 57)
  396.             (set start_option (askbool (prompt (cat "Would you like the "
  397.                                                     "ScreamerNet network "
  398.                                                     "software to be started "
  399.                                                     "upon bootup?"))
  400.                                        (help start_option_help)))
  401.             (if start_option 
  402.                 (if (exists "sys:WBStartup")
  403.                     (copyfiles (source "inet:")
  404.                          (dest "sys:WBStartup")
  405.                          (choices "start-screaming" "start-screaming.info"))
  406.                     (set start_lines (cat start_lines
  407.                                         "execute inet:start-screaming\n"))))
  408.             (complete 60)
  409.             (startup "ScreamerNet" (command start_lines)
  410.                      (help user_startup_help)
  411.                      (prompt (cat "\n\nThe following lines must be added to "
  412.                                   "your user-startup file:\n\n" start_lines))))
  413.         )
  414.     )
  415. )
  416.  
  417. ; If necessary, extract lw.exe and start network...
  418.  
  419. (if net_lw
  420.     ((if (AND install_type (NOT local_lw))
  421.          (copyfiles (source (cat disk1 "c/lz.decomp"))
  422.                     (dest "ram:")
  423.                     (help copy_lz_help)))
  424.      (if (NOT local_lw)
  425.          (askdisk (prompt disk2_prompt) 
  426.                   (dest disk2_name)
  427.                   (help disk2_help)))
  428.      (complete 62)
  429.      (run s2_line)
  430.      (working "\n\nDecompressing Screamer files...\n")
  431.      (run (cat "ram:lz.decomp -m x " disk2 "lwexe ram:"))
  432.      (delete "ram:lz.decomp")
  433.      (if (NOT install_type)
  434.          (makeassign "inet" (tackon inet_drive "inet")))
  435.      (execute "inet:start-screaming")
  436.      (set ftp_option 1)
  437.      (if (AND install_type (AND (NOT local_lw) net_lw))
  438.          (set ftp_option (askchoice (prompt (cat "\n\nWhich method of file "
  439.                                            "transfer would you like to use?"
  440.                                            "\n\nNote: FTP is recommended."))
  441.                                     (choices "RCP" "FTP")
  442.                                     (default 1)
  443.                                     (help ftp_help))))
  444.      (if (NOT install_type)
  445.          ((textfile (dest "ram:batch.cmd") (append batch_start))
  446.           (textfile (dest "ram:batch.ftp") (append ftp_start))
  447.           (textfile (dest "ram:delay.cmd") (append delay_cmd))
  448.           (protect "ram:batch.cmd" "-w -d")
  449.           (protect "ram:batch.ftp" "-w -d")
  450.           (protect "ram:delay.cmd" "-w -d")
  451.           (complete 82)
  452.           (message (cat "\n\nPlease restart all of your Screamer "
  453.                         "processors now. When all processors have "
  454.                         "finished starting up, disk activity has "
  455.                         "stopped, and the Raptor appears to be "
  456.                         "sitting idle, then click proceed.")
  457.                    (help batch_start_help))
  458.           (protect "ram:batch.cmd" "+w +d")
  459.           (protect "ram:batch.ftp" "+w +d")
  460.           (protect "ram:delay.cmd" "+w +d")
  461.           (delete "ram:batch.cmd")
  462.           (delete "ram:batch.ftp")
  463.           (delete "ram:delay.cmd")
  464.           (textfile (dest "ram:batch.cmd") (append batch_cmd))
  465.           (textfile (dest "ram:batch.ftp") (append batch_ftp))
  466.           (textfile (dest "ram:ftp.scr") (append ftp_scr))
  467.           (textfile (dest "ram:done") (append "done\n"))))
  468.      (set screamer_list 0)
  469.      (set s_tot 0)
  470.      (set s_count 1)
  471.      (while (<= s_count 8)
  472.             ((working (cat "\n\nLooking for Screamer00" s_count "...\n")) 
  473.              (run (cat "inet:c/ping screamer00" s_count " >ram:psn\n"))
  474.              (if (getsize "ram:psn")
  475.                  ((working (cat "\n\nFound Screamer00" s_count "...\n"))
  476.                   (set s_tot (+ s_tot 1))
  477.                   (set screamer_list (BITOR screamer_list
  478.                                          (shiftleft 1 (- s_count 1))))))
  479.              (set s_count (+ s_count 1))      
  480.             ))
  481.      (delete "ram:psn")
  482.      (set s_count 1)
  483.      (set s_num 0)
  484.      (complete 95)
  485.      (while (<= s_count 8)
  486.             ((if (BITAND screamer_list (shiftleft 1 (- s_count 1)))            
  487.                  ((working (cat "\n\nSetting up Screamer00" s_count "...\n"))
  488.                   (set s_num (+ s_num 1))
  489.                   (textfile (dest "ram:script.ftp")
  490.                             (append (cat "open screamer00" s_count "\n"
  491.                                          (if install_type
  492.                                              script_ftp_small
  493.                                              script_ftp_body ))))
  494.                   (if (NOT install_type)
  495.                       (textfile (dest "ram:startlw.bat")
  496.                                 (append (cat startlw_main s_count " "
  497.                                              s_num " " 
  498.                                              (if ftp_option "ftp")
  499.                                              "\n:down\n" 
  500.                                              "\\raptor\\shutdown \\\\.\n"
  501.                                              "goto down\n"))))
  502.                   (run "inet:c/ftp <ram:script.ftp")))
  503.               (set s_count (+ s_count 1))))
  504.      (complete 99)
  505.      (set del_n 0)
  506.      (while (set del_file (select del_n "lz.decomp" "batch.cmd" "batch.ftp"
  507.                                         "startlw.bat" "ftp.scr" "lw.exe"
  508.                                         "script.ftp" "psn" "delay.cmd"
  509.                                         "done" ""))
  510.             ((set del_file (cat "ram:" del_file))
  511.              (if (exists  del_file) (delete del_file))
  512.              (set del_n (+ del_n 1))))
  513.      (message (cat "\n\nAll available Screamers have been "
  514.                    (if install_type "updated. " "installed. ")
  515.                    "\n\nTotal number of Screamers found: " s_tot "\n\n"
  516.                    "After the installation has finished, and all lights "
  517.                    "on the front panel of the Screamer are solidly lit, "
  518.                    "please restart the Screamer processors." )
  519.               (help all_installed_help))))
  520. (complete 100) 
  521.