home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / ha3upgs1.lha / ha3_update_gs01 / INSTALL next >
Text File  |  1997-02-15  |  18KB  |  640 lines
  1. ;Install script for Hack Attack III update files
  2. ;© 1997 Gerard Sweeney
  3. ;(v1.0)
  4. ;
  5. ;Install the main program
  6. ;
  7.  
  8.  
  9. (procedure P_update_guide
  10. ;trim the @endnode out of the original and copy to T:
  11.  
  12. (set full_path (cat "ha3_dir:" #ha3_letter "/" #ha3_letter ".guide"))
  13. (set temp_guide_path (cat "RAM:T/" #ha3_letter ".guide"))
  14. (set temp_text_path (cat "temp/" #ha3_letter ".txt"))
  15. (set new_temp_guide (cat "RAM:T/TEMP_" #ha3_letter ".guide"))
  16. (set run_main (cat "replace " full_path " ram:t/ "))
  17. (set run_command1 (cat run_main "@endnode  "))
  18. (set run_command2 (cat run_main "@ENDNODE  "))
  19. (set run_command3 (cat run_main "@EndNode  "))
  20. (set run_command4 (cat run_main "@endnode  "))
  21.  
  22.  
  23. (run run_command1)
  24. (run run_command2)
  25. (run run_command3)
  26. (run run_command4)
  27.  
  28.  
  29. (set Temp_HA3_Guide_Found (exists full_path (noreq)))
  30. (set Temp_New_Guide_Found (exists temp_text_path (noreq)))
  31. (set write_marker 9)
  32.  
  33.  
  34. (if (= temp_ha3_guide_found 1)
  35.  (
  36.  
  37.   (if (= temp_new_guide_found 1)
  38.    (
  39.     (set ha3_guide_found 1)
  40.     (set write_marker 1)
  41.    )
  42.   )
  43.  
  44.   (if (= temp_new_guide_found 0)
  45.    (
  46.     if (= write_marker 9)
  47.     (
  48.      (set ha3_guide_found 3)
  49.      (set write_marker 1)
  50.     )
  51.    )
  52.   )
  53.  )
  54. )
  55.  
  56.  
  57.  
  58.  
  59. (if (= temp_ha3_guide_found 0)
  60.  (
  61.  
  62.   (if (= temp_new_guide_found 1)
  63.    (
  64.     (set ha3_guide_found 0)
  65.     (set write_marker 1)
  66.    )
  67.   )
  68.  
  69.   (if (= temp_new_guide_found 0)
  70.    (
  71.     if (= write_marker 9)
  72.     (
  73.      (set ha3_guide_found 2)
  74.      (set write_marker 1)
  75.     )
  76.    )
  77.   )
  78.  )
  79. )
  80.  
  81.  
  82.  
  83.  
  84.  
  85. ;ha3_guide_found = 0 > HA3 index not found, New index found
  86. ;ha3_guide_found = 1 > HA3 index found, New index found
  87. ;ha3_guide_found = 2 > HA3 index not found, New index not found
  88. ;ha3_guide_found = 3 > HA3 index found, New index not found
  89.  
  90.  
  91. (if (= ha3_guide_found 1)
  92. (
  93.  (textfile
  94.   (Prompt "Creating a test text file")
  95.   (Help "Help me!!")
  96.   (dest new_temp_guide)
  97.   (include temp_guide_path)
  98.   (append "\n@{B}Update by ")
  99.   (append #hack_author)
  100.   (append ". Version ")
  101.   (append #hack_version)
  102.   (append ". Released on ")
  103.   (append #hack_date)
  104.   (append "@{UB}\n\n\n")
  105.   (include temp_text_path)
  106.   (append "\n@endnode\n")
  107.  )
  108. )
  109. )
  110.  
  111.  
  112. (if (= ha3_guide_found 3)
  113. (
  114.  (textfile
  115.   (Prompt "Creating a test text file")
  116.   (Help "Help me!!")
  117.   (dest new_temp_guide)
  118.   (include temp_guide_path)
  119.   (include temp_text_path)
  120.   (append "\n@endnode\n")
  121.  )
  122. )
  123. )
  124.  
  125.  
  126. (if (= ha3_guide_found 0)
  127. (
  128.  (textfile
  129.   (Prompt "Creating a test text file")
  130.   (Help "Help me!!")
  131.   (dest new_temp_guide)
  132.   (append "@DATABASE ")
  133.   (append '"')
  134.   (append #ha3_letter)
  135.   (append '"\n')
  136.   (append '@NODE "MAIN" "SPECCY POKES - ')
  137.   (append #ha3_letter)
  138.   (append '"\n')
  139.   (append '@TOC "MAIN"\n\n')
  140.   (append "              HACK ATTACK III - STAND ALONE HACKS UPDATE - ")
  141.   (append #ha3_letter)
  142.   (append "\n\n")
  143.   (append "                                @{U}PICK A GAME@{UU}\n\n")
  144.   (append "\n@{B}Update by ")
  145.   (append #hack_author)
  146.   (append ". Version ")
  147.   (append #hack_version)
  148.   (append ". Released on ")
  149.   (append #hack_date)
  150.   (append "@{UB}\n\n\n")
  151.   (include temp_text_path)
  152.   (append "\n@endnode\n")
  153.  )
  154. )
  155. )
  156.  
  157.  
  158. (if (= ha3_guide_found 2)
  159. (
  160.  (textfile
  161.   (Prompt "Creating a test text file")
  162.   (Help "Help me!!")
  163.   (dest new_temp_guide)
  164.   (append "@DATABASE ")
  165.   (append '"')
  166.   (append #ha3_letter)
  167.   (append '"\n')
  168.   (append '@NODE "MAIN" "SPECCY POKES - ')
  169.   (append #ha3_letter)
  170.   (append '"\n')
  171.   (append '@TOC "MAIN"\n\n')
  172.   (append "              HACK ATTACK III - STAND ALONE HACKS UPDATE - ")
  173.   (append #ha3_letter)
  174.   (append "\n\n")
  175.   (append "                           @{B}@{U}SORRY, NO HACKS HERE!@{UU}@{UB}")
  176.   (append "\n@endnode\n")
  177.  )
  178. )
  179. )
  180.  
  181.  
  182.   (set copy_command (cat "copy " new_temp_guide " " full_path))
  183.   (run copy_command)
  184.   (delete temp_guide_path)
  185.   (delete new_temp_guide)
  186.  
  187. )
  188.  
  189. ;end of PROCEDURE P_update_guide
  190.  
  191.  
  192.  
  193.  
  194. ; ******************************************************************
  195. ;
  196. ; START OF MAIN PROGRAM
  197. ;
  198. ; ******************************************************************
  199.  
  200.  
  201.  
  202.  
  203. ;VARIABLES
  204. ;
  205. ;PUT YOUR OWN DETAILS HERE
  206. ;hack_author = Your name
  207. ;hack_version= The release number (ie. is this your 1st release, 2nd etc)
  208. ;hack_date= The date it was released on (I used DD-MM-YY here)
  209.  
  210. (set #hack_author "Gerard Sweeney")
  211. (set #hack_version 1)
  212. (set #hack_date "14-02-97")
  213.  
  214. ; ******************************************************************
  215. ; END OF EDITABLE VARIABLES. DO NOT CHANGE ANYTHING FROM HERE ON
  216. ; ******************************************************************
  217.  
  218.  
  219. (set #HA3_NOT_INSTALLED 9)
  220. (set new_install 9)
  221.  
  222. (message "\nWelcome to the main installation program for the update to Hack Attack III.\n\n\nPOKES DETAILS\n\nAuthor:- "#hack_author"\nVersion:- "#hack_version"\nDate:- "#hack_date"\n\n\n\nClick Proceed when ready....")
  223.  
  224. (set #HA3_INSTALLED
  225.     (askbool
  226.         (prompt "Do you have the original Hack Attack III installed?")
  227.         (help "This is primarily an update to the original Hack Attack III. However, it can also be installed as a stand-alone unit with just these POKEs set up.")
  228.         (choices "No"
  229.                          "Yes")
  230.         (default 0)
  231.         )
  232. )
  233.  
  234.  
  235. ;HA3=0 -> HA3 is installed
  236.  
  237. (if (= #HA3_INSTALLED 0)
  238.  (
  239. (set #directory
  240.     (askdir
  241.         (prompt "Where do you keep the main Hack Attack III program?)")
  242.         (help "This program has to know where the main Hack Attack III program is kept so that the new POKEs can be copied over, and the menus updated....\n\nNote that only the directories will show up on this requester.. In other words, you won't actually SEE the Hack Attack III file, you just have to know where it is (use a file manager if at all unsure).")
  243.         (default "HA3:")
  244.     )
  245. )
  246.  
  247. (makeassign "HA3_Dir" #directory)
  248. (set @default-dest #directory)
  249.  
  250.  
  251. (set HA3_Found (exists "HA3_Dir:HACK_ATTACK_III.guide" (noreq)))
  252.  
  253. (if (= HA3_Found 1)
  254.  (
  255.  (set new_install 0)
  256.  )
  257. )
  258.  
  259.  
  260. (if (= HA3_Found 0)
  261.  (
  262.  (set #HA3_NOT_Found
  263.     (askbool
  264.         (prompt "This program couldn't find the main Hack Attack III program.\nThis indicates that you have probably selected the wrong directory.\n\nHowever, if you are sure you have sleceted this directory correctly (like perhaps you have already renamed/erased/moved the old Hack Attack III file, it can continue and will just install this as a stand-alone product.\nSo, Are you SURE this is the correct directory?\n\nAnswer:-\n\nYES ..... Installation will continue....\nNO ...... Installation will abort (sorry).")
  265.         (help "Just what it says there.\n\nI may as well take this time to say sorry I couldn't get it to jump back to the start.. I'm new at this script writing lark myself. Maybe if the Amiga had been shipped with a MANUAL for the installer program?!?!?")
  266.         (choices "No. Stop here"
  267.                          "Yes. Carry on regardless")
  268.         (default 0)
  269.         )
  270. )
  271.  
  272.  
  273. (if (= #HA3_NOT_Found 0)
  274.  (
  275.  (set INSTALL_GO 1)
  276.  (set new_install 1)
  277.  )
  278. )
  279.  
  280. (if (= #HA3_NOT_Found 1)
  281.  (
  282.  (exit "Try running this installation program once you have verified where the file HACK ATTACI III is kept.\n\nIf you are convinced you are doing everything properly, run a file manager like DOpus and manually copy the files in the A-Z directories to the matching HA3 directories, and use a text editor to update the A-Z menus" (QUIET))
  283. )
  284. )
  285. )
  286. )
  287. )
  288. ;end of "YES" option
  289.  
  290. (if (= #HA3_INSTALLED 1)
  291.  (
  292. (set #HA3_NOT_INSTALLED
  293.     (askbool
  294.         (prompt "This is an update to Hack Attack III. However, it can be used by iteslf (a sort of mini POKE guide with these POKEs. \n\nDo you want to continue and install this update by itself, or abort?\n\nAnswer:-\n\nYES ..... Installation will continue....\nNO ...... Installation will abort (sorry).")
  295.         (help "Just what it says there.\n\nI may as well take this time to say sorry I couldn't get it to jump back to the start.. I'm new at this script writing lark myself. Maybe if the Amiga had been shipped with a MANUAL for the installer program?!?!?")
  296.         (choices "No. Stop here"
  297.                          "Yes. Install it")
  298.         (default 0)
  299.  
  300. )
  301. )
  302. )
  303. )
  304. )
  305.  
  306. (if (= #HA3_NOT_INSTALLED 0)
  307.  (
  308. (set new_install 1)
  309. (set #directory
  310.     (askdir
  311.         (prompt "Where do you want to install the POKE Guide?)")
  312.         (help "Select somewhere you want to install the GUIDE?\n\nNote that only the directories will show up on this requester...")
  313.         (default "HA3:")
  314. )
  315. )
  316.  
  317. (makeassign "HA3_Dir" #directory)
  318. (set @default-dest #directory)
  319.  
  320. (run "copy temp/POKE_GUIDE.guide ha3_dir:")
  321. (run "copy temp/POKE_GUIDE.guide.info ha3_dir:")
  322. )
  323. )
  324.  
  325. (if (= #HA3_NOT_INSTALLED 1)
  326.  (
  327.  (exit "You have aborted\n\nYou can either re-install this as a stand alone product, or install Hack Attack III and then re-run this installation program.\n\nYou can get Hack Attack III from Aminet under misc/emu/acs-ha3.lha. It's on Aminet 5" (QUIET))
  328.  )
  329. )
  330.  
  331. (makeassign "HA3_Dir" #directory)
  332. (set @default-dest #directory)
  333.  
  334. ;COPY THE FILES TO THE ASSIGNED DIRECTORY (JUST THE POKES JUST NOW)
  335.  
  336. (copyfiles
  337.     (prompt "Copying New Hack Files")
  338.     (help @copyfiles-help)
  339.     (source "files")
  340.     (dest "HA3_Dir:")
  341.     (all)
  342.     )
  343.  
  344. ;Copy LIBS
  345.  
  346. (copylib
  347.    (prompt "Copying REXXARP.Library to Libs:" )
  348.    (help @copyfiles-help)
  349.    (source "lib/rexxarplib.library")
  350.    (dest "Libs:")
  351.    (infos)
  352.    (confirm)
  353. )
  354.  
  355. (copylib
  356.    (prompt "Copying SCREENSHARE.Library to Libs:" )
  357.    (help @copyfiles-help)
  358.    (source "lib/screenshare.library")
  359.    (dest "Libs:")
  360.    (infos)
  361.    (confirm)
  362. )
  363.  
  364.  
  365. ;copy the ZXAMRUN AREXX command
  366.  
  367. ;ZXAMEXISTS.... 9=Does not exist - copy
  368. ;               1=Delete old version, set to 9
  369. ;               2=Rename old version
  370. ;               3=Rename old version, set to 9
  371.  
  372. (set zxamcopy 1)
  373. (set #zxamexists 9)
  374.  
  375. (set zxamfound (exists "rexx:zxam_run.rexx" (noreq)))
  376.  
  377. (if (= zxamfound 1)
  378.  (
  379.  (set #zxamexists
  380.     (askoptions
  381.         (prompt "A script called ZXAM_RUN.DOPUS already exists in your REXX: directory!")
  382.         (help "It could be that this is from a previous installation of the program, or it could be an earlier version of the script.\nIf you are really sure that you don't need the version currently installed in the REXX: directory on your HD, then tick the first option ('Copy installation version').\nIf you want to copy the installation version, but keep a backup copy of the original version currently installed on your HD, tick both boxes.\nIf you want to only keep the version on your HD, don't tick either box'")
  383.         (choices "Install version from this installation."
  384.                          "Rename current version of script.")
  385.         (default 0)
  386.         )
  387.  )
  388. )
  389. )
  390.  
  391. ;If both ticked, rename prog. Set flag to 1
  392.  
  393. (if (= #zxamexists 3)
  394. (
  395.                 (rename "rexx:zxam_run.rexx" "rexx:zxam_run-backup.rexx")
  396.                 (delete "rexx:zxam_run.rexx")
  397.                  (copyfiles
  398.                  (prompt "copying")
  399.                  (source "rexx")
  400.                  (dest "rexx:")
  401.                  (all)
  402.                  (infos)
  403.                  )
  404. ))
  405.  
  406. (if (= #zxamexists 2)
  407. (
  408.                 (rename "rexx:zxam_run.rexx" "rexx:zxam_run-backup.rexx")
  409. ))
  410.  
  411.  
  412. (if (= #zxamexists 1)
  413. (
  414.                 (delete "rexx:zxam_run.rexx")
  415.                  (copyfiles
  416.                  (prompt "copying")
  417.                  (source "rexx")
  418.                  (dest "rexx:")
  419.                  (all)
  420.                  (infos)
  421.                  )
  422. ))
  423.  
  424.  
  425. (if (= #zxamexists 9)
  426. (
  427.                  (copyfiles
  428.                  (prompt "copying")
  429.                  (source "rexx")
  430.                  (dest "rexx:")
  431.                  (all)
  432.                  (infos)
  433.                  )
  434. ))
  435.  
  436.  
  437. (if (= #zxamexists 0)
  438. (
  439. (message "The installer version of the script has not been copied")
  440. ;do absolutely nothing at all hehehe
  441. ))
  442.  
  443.  
  444.  
  445. ;update the menu for each letter (this will be good!)
  446.  
  447. (if (= new_install 1)
  448.  (
  449.   (message "This program will now create new sub-index files in the directory you selected\n\nThis may take a few moments, so please be patient.")
  450.  )
  451. )
  452.  
  453.  
  454. (if (= new_install 0)
  455.  (
  456.   (message "This program will now update the existing Hack Attack III sub-indexes by adding the new hacks to the bottom of them.\n\nThis may take a few moments, so please be patient.")
  457.  )
  458. )
  459.  
  460.  
  461. (set #ha3_letter "A")
  462. (P_update_guide)
  463. (set #ha3_letter "B")
  464. (P_update_guide)
  465. (set #ha3_letter "C")
  466. (P_update_guide)
  467. (set #ha3_letter "D")
  468. (P_update_guide)
  469. (set #ha3_letter "E")
  470. (P_update_guide)
  471. (set #ha3_letter "F")
  472. (P_update_guide)
  473. (set #ha3_letter "G")
  474. (P_update_guide)
  475. (set #ha3_letter "H")
  476. (P_update_guide)
  477. (set #ha3_letter "I")
  478. (P_update_guide)
  479. (set #ha3_letter "J")
  480. (P_update_guide)
  481. (set #ha3_letter "K")
  482. (P_update_guide)
  483. (set #ha3_letter "L")
  484. (P_update_guide)
  485. (set #ha3_letter "M")
  486. (P_update_guide)
  487. (set #ha3_letter "N")
  488. (P_update_guide)
  489. (set #ha3_letter "O")
  490. (P_update_guide)
  491. (set #ha3_letter "P")
  492. (P_update_guide)
  493. (set #ha3_letter "Q")
  494. (P_update_guide)
  495. (set #ha3_letter "R")
  496. (P_update_guide)
  497. (set #ha3_letter "S")
  498. (P_update_guide)
  499. (set #ha3_letter "T")
  500. (P_update_guide)
  501. (set #ha3_letter "U")
  502. (P_update_guide)
  503. (set #ha3_letter "V")
  504. (P_update_guide)
  505. (set #ha3_letter "W")
  506. (P_update_guide)
  507. (set #ha3_letter "X")
  508. (P_update_guide)
  509. (set #ha3_letter "Y")
  510. (P_update_guide)
  511. (set #ha3_letter "Z")
  512. (P_update_guide)
  513. (set #ha3_letter "NUM")
  514. (P_update_guide)
  515.  
  516. (set #HA3_ASSIGN 9)
  517. (set exit_mess "Your updated HACK ATTACK III")
  518. (set assign_stat "was NOT")
  519.  
  520. (if (= new_install 1)
  521.  (
  522.   (set exit_mess "Your new stand alone POKE GUIDE")
  523.   (set #HA3_ASSIGN
  524.     (askbool
  525.         (prompt "Do you want an assign added to the USER-STARTUP file which points to the directory you have just installed the stand-alone POKE Guide to?\n\n** NOTE ** The assign is NOT required. The POKE Guide will work perfectly well without it - it is just for your convenience.")
  526.         (help "Just adds a simple line to the S:USER-STARTUP file which points an assign to where you have just installed the stand-alone POKE Guide to. It just saves you having to trawl through directories.")
  527.         (choices "No"
  528.                          "Yes")
  529.         (default 0)
  530.         )
  531.   )
  532.  
  533.   (if (= #HA3_ASSIGN 0)
  534.    (
  535.     (set #ASSIGN_NAME
  536.      (askstring
  537.       (prompt "Please enter the name of the assign you want. Be sure it does not clash with any other assigns!!\n\nIMPORTANT!!\n\nDo NOT put any colon (:) mark at the end. JUST the name....")
  538.       (help "Enter the name of the assign you want to give for this directory.\n\n. Be careful you do not select a name which is already used elsewhere (like ENV for example)")
  539.       (default "HA3_SA")
  540.      )
  541.     )
  542.     (makeassign #assign_name #directory)    
  543.     (set assign_line (cat "Assign " #ASSIGN_NAME ": " #directory "\n"))
  544.     (set assign_stat "was")
  545.  
  546.     (startup "POKE Guide - STAND ALONE"
  547.      (prompt "Updating USER-STARTUP")
  548.      (help "Adding line to S:USER-STARTUP which will create an assign")
  549.      (command assign_line)
  550.     )
  551. )
  552.   )
  553.  )
  554. )
  555.  
  556.   (set Dameon_found_message " ")
  557.   (set Dameon_end_message " ")
  558. (set start_message "\n\n\nYou can now just double click its icon to start. Or you can read the guide docs file supplied")
  559. ;
  560. ;
  561. ;
  562. ; UPDATE TOOLS DAEMON MENU....
  563.  
  564. (set DAEMON_FOUND (exists "sys:wbstartup/toolsdaemon" (noreq)))
  565.  
  566. (set bye_bye (cat exit_mess " can be found in the directory\n" #directory "\n\nAn assign " assign_stat " added to S:USER-STARTUP\n\n\nYou can now just double click its icon to start, or you can read the guide docs file supplied"))
  567.  
  568. (if (= daemon_found 1)
  569.  (
  570.   (set Dameon_found_message "Your ToolsDaemon menu was ")
  571.   (set #UPDATE_DAEMON
  572.     (askbool
  573.         (prompt "This progam has found Tools Daemon in your SYS:WBSTARTUP drawer.\n\nWould you like to add a menu pointing to the Guide?\n\n\n(Your old settings file will be backed up)")
  574.         (help "The program found the file TOOLSDAEMON in your SYS:WBSTARTUP drawer, and can add a menu to your existing ToolsDaemon setup which will point to your newly installed Guide.\n\nNote. If you say yes, the change will not be apparent until you either reboot the Amiga, or go to the TOOLSPREFS option under TOOLS on Workbench, and select SAVE when the setup screen appears.")
  575.         (choices "No"
  576.                          "Yes")
  577.         (default 0)
  578.         )
  579.   )
  580.  
  581. (set update_daemon_message "NOT")
  582. (if (= #update_daemon 0)
  583. (
  584.  
  585. (set start_message "\n\n\nYou can now just double click its icon or use the menu in your ToolsDaemon to start. Or you can read the guide docs file supplied")
  586. (set daemon_run_main (cat "replace sys:s/ToolsDaemon.menu ram:t/ "))
  587. (set daemon_run_command1 (cat daemon_run_main "END TITLEHACKERS|_ANONYMOUSPOKEHACKERS|_ANONYMOUSGUIDEHACKERS|_ANONYMOUSMENU\n"))
  588. (run daemon_run_command1)
  589.  
  590. (set daemon_run_main (cat "replace ram:t/ToolsDaemon.menu ram:env/ "))
  591. (set daemon_run_command1 (cat daemon_run_main 'HACKERS|_ANONYMOUS " "'))
  592. (run daemon_run_command1)
  593.  
  594. (set #POKE_NAME "Hack Attack III")
  595. (set #POKE_FILENAME "Hack_Attack_III.Guide")
  596.  
  597. (if (= new_install 1)
  598. (
  599.  (set #POKE_NAME "POKE Guide")
  600.  (set #POKE_FILENAME "POKE_GUIDE.Guide")
  601. )
  602. )
  603.  
  604. ;(message "UPDATING S:TOOLSDAEMON.Menu")
  605.  
  606.  (textfile
  607.   (Prompt "Creating a test text file")
  608.   (Help "Help me!!")
  609.   (dest "RAM:T/ToolsDaemon.menu_TEMP")
  610.   (include "ram:env/ToolsDaemon.menu")
  611.   (append "    ITEM ")
  612.   (append #POKE_NAME)
  613.   (append "\n")
  614.   (append '    (WB) "')
  615.   (append #directory)
  616.   (append "/")
  617.   (append #POKE_FILENAME)
  618.   (append '" []\nEND\n')
  619.  )
  620. (run "rename sys:s/ToolsDaemon.menu sys:s/toolsdaemon.menu_bak")
  621. (run "copy ram:t/toolsdaemon.menu_temp sys:s/ToolsDaemon.Menu")
  622. (message "\nTOOLSDAEMON UPDATED\n\nNote. The change to your ToolsDaemon will not be apparent until you either reboot the Amiga, or go to the TOOLSPREFS option under TOOLS on Workbench, and select SAVE when the setup screen appears.\n\n\nYour old settings have been saved as S:TOOLSDAEMON.MENU_BAK\n\nThis install utility will now try to load the PREFS program for ToolsDaemon. If successful, just click SAVE.")
  623. (run "sys:prefs/toolsprefs")
  624. )
  625. )
  626. )
  627. (set DAEMON_END (cat daemon_found_message update_daemon_message " updated."))
  628. )
  629.  
  630.  
  631. (set bye_bye (cat exit_mess " can be found in the directory\n" #directory "\n\nAn assign " assign_stat " added to S:USER-STARTUP\n\n" daemon_end_message start_message))
  632.  
  633.  
  634. ;Clean up your mess young man!
  635.  
  636. (makeassign "HA3_Dir")
  637. (run "delete RAM:T/TOOLS#?.#?")
  638. (run "delete RAM:ENV/TOOLSDAEMON.MENU")
  639. (exit bye_bye (QUIET))
  640.