home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Online / NewsRogUpd / Update_1.8 < prev    next >
Text File  |  1999-10-14  |  16KB  |  459 lines
  1. ;;----------------------------------------------------------------------------
  2. ;;
  3. ;; Update-1.8 - NewsRog 1.x -> 1.8 update script
  4. ;;
  5. ;; Copyright © 1998 ShadowWorks Software, All Right reserved.
  6. ;;
  7. ;; Use following Icon tooltypes / Command line options:
  8. ;; APPNAME=NewsRog
  9. ;; MINUSER=AVERAGE
  10. ;;----------------------------------------------------------------------------
  11.  
  12.  
  13. ;;-- declare procedures ------------------------------------------------------
  14.  
  15. (procedure P_NRExists testdir
  16.   (and (exists (tackon testdir "NewsRog"))
  17.        (exists (tackon testdir "MUI/S5697_NNews.mcc"))
  18.        (exists (tackon testdir "MUI/S5697_AppBase.mcc"))
  19.        (exists (tackon testdir "MUI/S5697_NPost.mcc"))))
  20.  
  21. (procedure P_Abort abtmsg
  22.    (transcript abtmsg)
  23.    (abort abtmsg))
  24.  
  25. ;;-- initialization ----------------------------------------------------------
  26.  
  27. (complete 0)
  28. (set locale 0)
  29. (set @default-dest "RAM:")
  30. (set @app-name "NewsRog")
  31.  
  32. ;;------------------------------ english messages ----------------------------
  33.  
  34. (if (not (= @language "english"))
  35.    (P_Abort #halted))
  36.  
  37. (if (= @language "english")
  38.  (
  39.  
  40.    (set #welcome           (cat "Welcome to the " @app-name " 1.x->1.8 Update "
  41.                                 "process."))
  42.    (set #bad-MUI        (cat "You need at least MUI 3.8 to use " @app-name))
  43.    (set #bad-OS            (cat "You need at least OS 3.0 to use " @app-name
  44.                                 "2.0."))
  45.    (set #bad-NewsRog       (cat "You must have " @app-name " 1.0-1.4b installed "
  46.                                  "to use this update script."))
  47.  
  48.    (set #dir-choice        (cat "Select the directory where " @app-name
  49.                                 " is currently installed."))
  50.    
  51.    (set #copy            (cat "Copying " @app-name "..."))
  52.  
  53.    (set #copy-edit       (cat "Copying TextEditor class..."))
  54.  
  55.    (set #reinst-prompt     (cat "The " @app-name " directory was last "
  56.                                 "installed in %s.  Do you wish to update "
  57.                                 "NewsRog in this location?"))
  58.  
  59.    (set #shutdown-prompt   (cat "If NewsRog is running, it must be stopped "
  60.                                 "before this update.  Continue?"))
  61.  
  62.    (set #badarch           (cat "Bad archive.  File paths and empty directories "
  63.                                 "must be preserved when unarchiving: "))
  64.  
  65.    (set #nopd              (cat "This script only updates the commercial "
  66.                                 "version of NewsRog."))
  67.  
  68.    (set #halted            (cat "Installation halted."))
  69.  
  70.    (set #badabpatch        (cat "A shared library patch could not be "
  71.                                 "installed.  Make sure that a valid "
  72.                                 "commercial version of NewsRog has been "
  73.                                 "properly installed before applying this "
  74.                                 "patch."))
  75.  
  76.    (set #badabcksum        (cat "The file S5697_AppBase.mcc has an improper "
  77.                                 "checksum.  Please contact ShadowWorks "
  78.                                 "Software technical support for assistance "
  79.                                 "after verifying that you have correctly "
  80.                                 "installed the commercial version of "
  81.                                 "NewsRog from it's original archive using "
  82.                                 "the supplied installer script."))
  83. ))
  84.  
  85.  
  86. ;=============================================================================
  87. ; Installation procedure
  88. ;=============================================================================
  89.  
  90. ; -- check for existance of MUI: ---------------------------------------------
  91.  
  92. (welcome #welcome)
  93.  
  94. (if (< (exists "MUI:") 2)
  95.     (P_Abort #bad-MUI))
  96.  
  97. (if (< (getversion "exec.library" (resident)) 2555904)
  98.     (P_Abort #bad-OS))
  99.  
  100. (if (not (askbool (prompt #shutdown-prompt)
  101.                   (help   @askbool-help)
  102.                   (default 1)))
  103.     (P_Abort #halted))
  104.  
  105. ; -- check for proper archive ------------------------------------------------
  106.  
  107. (set scriptdir (pathonly @icon))
  108.  
  109. (set #n 0)
  110. (while (set thisfile (select #n
  111.             "MUI/S5697_NPost.mcc"
  112.             "MUI/S5697_NPostList.mcc"
  113.             "MUI/S5697_NTCPList.mcc"
  114.             "MUI/S5697_NTCP.mcc"
  115.             "MUI/S5697_NServerList.mcc"
  116.             "MUI/S5697_NServer.mcc"
  117.             "MUI/S5697_NNews.mcc"
  118.             "MUI/S5697_NArticleMgr.mcc"
  119.             "MUI/S5697_NGroup.mcc"
  120.             "MUI/S5697_NGroupList.mcc"
  121.             "MUI/S5697_NArticleView.mcc"
  122.             "MUI/S5697_NArticle.mcc"
  123.             "MUI/S5697_NDF_TextStyles.mcc"
  124.             "MUI/S5697_NDF_ScrollHdrs.mcc"
  125.             "MUI/S5697_NDF_Rewrap.mcc"
  126.             "MUI/S5697_NDF_HideSig.mcc"
  127.             "MUI/S5697_NDF_HideHeader.mcc"
  128.             "MUI/S5697_NDF_EmpHeader.mcc"
  129.             "MUI/S5697_NDF_HLPatt.mcc"
  130.             "MUI/S5697_NDF_MIME.mcc"
  131.             "MUI/S5697_NDF_EMail.mcc"
  132.             "MUI/S5697_NDF_URL.mcc"
  133.             "MUI/S5697_NDF_UUDecode.mcc"
  134.             "MUI/S5697_NDF_Substitute.mcc"
  135.             "MUI/S5697_NDF_CharMap.mcc"
  136.             "MUI/S5697_NSF_New.mcc"
  137.             "MUI/S5697_FileActs.mcc"
  138.             "MUI/S5697_DTImg.mcc"
  139.             "MUI/S5697_CText.mcc"
  140.             "MUI/S5697_AttrVal4.mcc"
  141.             "MUI/S5697_NHdrList.mcc"
  142.             "MUI/S5697_VarList.mcc"
  143.             "MUI/S5697_ListCol.mcc"
  144.             "MUI/S5697_ListSearch.mcc"
  145.             "MUI/S5697_NSFList.mcc"
  146.             "MUI/S5697_Classlist.mcc"
  147.             "MUI/S5697_NSF_AgeRange.mcc"
  148.             "MUI/S5697_NSF_SizeRange.mcc"
  149.             "MUI/S5697_NSF_HeaderMatch.mcc"
  150.             "MUI/S5697_NSF_MatchThread.mcc"
  151.             "MUI/S5697_NSF_MatchThreadBase.mcc"
  152.             "MUI/S5697_NSF_InGroup.mcc"
  153.             "MUI/S5697_NDF_TrimSpace.mcc"
  154.             "MUI/S5697_NDF_ROT13.mcc"
  155.             "MUI/S5697_NDF_HLQuotes.mcc"
  156.             "MUI/S5697_NAF_Decode.mcc"
  157.             "MUI/S5697_Support.library"
  158.             "Distrib/S5697_AppBase.1.0.pch"
  159.             "Distrib/S5697_AppBase.1.2.pch"
  160.             "Distrib/S5697_AppBase.1.4.pch"
  161.             "Distrib/S5697_AppBase.1.5.pch"
  162.             "Docs/English/NR-Reference.html"
  163.             "Docs/English/NR-Tutorial.html"
  164.             "Docs/English/NR-Req.html"
  165.             "Docs/English/NR-FAQ.html"
  166.             "Docs/English/NR-Credits.html"
  167.             "Docs/English/NR-History.html"
  168.             "Docs/English/Reference/NR-Ref-CmdLine.html"
  169.             "Docs/English/Reference/NR-Ref-MIME.html"
  170.             "Docs/English/Reference/NR-Ref-Spoilers.html"
  171.             "Docs/English/Reference/NR-Ref-PostRate.html"
  172.             "Docs/English/Reference/NR-Ref-Kbd.html"
  173.             "Docs/English/Reference/NR-Ref-ARexx.html"
  174.             "Docs/English/Reference/NR-Ref-HideSig.html"
  175.             "Docs/English/Reference/NR-Ref-HLPatt.html"
  176.             "Docs/English/Reference/NR-Ref-HLQuotes.html"
  177.             "Docs/English/Reference/NR-Ref-HideHeader.html"
  178.             "Docs/English/Reference/NR-Ref-EmpHeader.html"
  179.             "Docs/English/Reference/NR-Ref-SaveTxt.html"
  180.             "Docs/English/Reference/NR-Ref-Decode.html"
  181.             "Docs/English/Reference/NR-Ref-ActFlt.html"
  182.             "Docs/English/Reference/NR-Ref-DspFlt.html"
  183.             "Docs/English/Reference/NR-Ref-SelFlt.html"
  184.             "Docs/English/Reference/NR-Ref-Vars.html"
  185.             "Docs/English/Reference/NR-Ref-UUDecode.html"
  186.             "Docs/English/Reference/NR-Ref-TextStyles.html"
  187.             "Docs/English/Reference/NR-Ref-AgeRange.html"
  188.             "Docs/English/Reference/NR-Ref-MatchThreadBase.html"
  189.             "Docs/English/Reference/NR-Ref-LineRange.html"
  190.             "Docs/English/Reference/NR-Ref-ScrollHdrs.html"
  191.             "Docs/English/Reference/NR-Ref-Substitute.html"
  192.             "Docs/English/Reference/NR-Ref-ROT13.html"
  193.             "Docs/English/Reference/NR-Ref-Rewrap.html"
  194.             "Docs/English/Reference/NR-Ref-EMail.html"
  195.             "Docs/English/Reference/NR-Ref-URL.html"
  196.             "Docs/English/Reference/NR-Ref-CharMap.html"
  197.             "Docs/English/Tutorials/NR-Tut-InitConfig.html"
  198.             "Docs/English/Tutorials/NR-Tut-DspFlt.html"
  199.             "Docs/English/Tutorials/NR-Tut-MM.html"
  200.             "Docs/English/Tutorials/NR-Tut-Reading.html"
  201.             "Docs/English/Tutorials/NR-Tut-News.html"
  202.             "Docs/English/Tutorials/NR-Tut-Com.html"
  203.             "Docs/English/Tutorials/NR-Tut-Group.html"
  204.             "Docs/English/Tutorials/NR-Tut-Posts.html"
  205.             "Docs/English/Tutorials/NR-Tut-Config.html"
  206.             "Docs/English/Tutorials/NR-Tut-Servers.html"
  207.             "Docs/English/Tutorials/NR-Tut-FAQMgr.html"
  208.             "Docs/English/Tutorials/NR-Tut-SelFlt.html"
  209.             "Docs/English/Tutorials/NR-Tut-Groups.html"
  210.             "Docs/English/Tutorials/NR-Tut-Web.html"
  211.             "Docs/English/Graphics/Window-SGList.GIF"
  212.             "Docs/English/Graphics/Window-GRead.GIF"
  213.             "Docs/English/Graphics/NR-Tut-Groups-WinNew.GIF"
  214.             "Docs/English/Graphics/Window-PostQueue.GIF"
  215.             "Docs/English/Graphics/Window-PostQueueS.GIF"
  216.             "Docs/English/Graphics/NR-Tut-SelFlt-GlobInfo.GIF"
  217.             "Docs/English/Graphics/NR-Tut-SelFlt-FltTabs.GIF"
  218.             "Docs/English/Graphics/NR-Tut-DspFlt-FltTabs.GIF"
  219.             "Docs/English/Graphics/NR-Tut-Posts-PopEdit.GIF"
  220.             "Docs/English/Graphics/NR-Tut-Web-MSel.GIF"
  221.             "Docs/English/Graphics/NR-Tut-DspFlt-GlobInfo.GIF"
  222.             "Docs/English/Graphics/NR-Tut-Group-Stats.GIF"
  223.             "Docs/English/Graphics/NR-Tut-Groups-Opts.GIF"
  224.             "Docs/English/Graphics/NR-Tut-Com-Icons.GIF"
  225.             "Docs/English/Graphics/NR-Ref-HideHeader-UI.GIF"
  226.             "Docs/English/Graphics/NR-Ref-EmpHeader-UI.GIF"
  227.             "Docs/English/Graphics/NR-Ref-EmpHeader-Ex2.GIF"
  228.             "Docs/English/Graphics/NR-Ref-Rewrap-UI.GIF"
  229.             "Docs/English/Graphics/NR-Ref-Rewrap-UI1.GIF"
  230.             "Docs/English/Graphics/NR-Ref-Rewrap-Ex3.GIF"
  231.             "Docs/English/Graphics/NR-Ref-Rewrap-Ex4.GIF"
  232.             "Docs/English/Graphics/NR-Ref-CharMap-UI.GIF"
  233.             "Docs/English/Graphics/NR-Ref-UUDecode-UI.GIF"
  234.             "Docs/English/Graphics/NR-Ref-AgeRange-UI.GIF"
  235.             "Docs/English/Graphics/NR-Ref-ScrollHdrs-UI.GIF"
  236.             "Docs/English/Graphics/NR-Ref-ScrollHdrs-Ex1.GIF"
  237.             "Docs/English/Graphics/NR-Ref-ScrollHdrs-Ex2.GIF"
  238.             "Docs/English/Graphics/NR-Ref-PostRate-UI.GIF"
  239.             "Docs/English/Graphics/NR-Ref-Spoilers-UI.GIF"
  240.             "Docs/English/Graphics/NR-Ref-Spoilers-Ex1.GIF"
  241.             "Docs/English/Graphics/NR-Ref-Spoilers-Ex2.GIF"
  242.             "Docs/English/Graphics/NR-Ref-SizeRange-UI.GIF"
  243.             "Docs/English/Graphics/NR-Ref-New-UI.GIF"
  244.             "Docs/English/Graphics/NR-Ref-EMail-UI.GIF"
  245.             "Docs/English/Graphics/NR-Ref-URL-UI.GIF"
  246.             "Docs/English/Graphics/NR-Ref-HLPatt-UI.GIF"
  247.             "Docs/English/Graphics/NR-Ref-HLPatt-Ex.GIF"
  248.             "Docs/English/Graphics/NR-Ref-Substitute-UI.GIF"
  249.             "Docs/English/Graphics/NR-Ref-SubjMatch-UI.GIF"
  250.             "Docs/English/Graphics/NR-Ref-Substitute-Ex1.GIF"
  251.             "Docs/English/Graphics/NR-Ref-Substitute-Ex2.GIF"
  252.             "Docs/English/Graphics/NR-Tut-HLight.GIF"
  253.             "Docs/English/Graphics/NR-Tut-Groups-Opts.GIF"
  254.             "Docs/English/Graphics/NR-Tut-Groups-BatchDL.GIF"
  255.             "Docs/English/Graphics/NR-Tut-Groups-BatchProg.GIF"
  256.             "Docs/English/Graphics/Button-FAQ.GIF"
  257.             "Docs/English/Graphics/Button-Remove.GIF"
  258.             "Docs/English/Graphics/Button-HLight.GIF"
  259.             "Docs/English/Graphics/Button-eb_Bold.GIF"
  260.             "Docs/English/Graphics/Button-eb_Copy.GIF"
  261.             "Docs/English/Graphics/Button-eb_Cut.GIF"
  262.             "Docs/English/Graphics/Button-eb_Insert.GIF"
  263.             "Docs/English/Graphics/Button-eb_Italic.GIF"
  264.             "Docs/English/Graphics/Button-eb_Paste.GIF"
  265.             "Docs/English/Graphics/Button-eb_Save.GIF"
  266.             "Docs/English/Graphics/Button-eb_Uline.GIF"
  267.             "Docs/English/Graphics/Button-eb_Undo.GIF"
  268.             "Docs/English/Graphics/Button-eb_EditMode.GIF"
  269.             "Docs/English/Graphics/Button-eb_EditModeVR.GIF"
  270.             "Docs/English/Graphics/Window-PostEdit.GIF"
  271.             "Docs/English/Graphics/Window-Grp-Remove.GIF"
  272.             "Docs/English/Graphics/Window-Grp-FFTB.GIF"
  273.             "Docs/English/Graphics/Window-Groups.GIF"
  274.             "Docs/English/Graphics/Window-Grp-ALSrch.GIF"
  275.             "Docs/English/Graphics/Window-Servers.GIF"
  276.             "Docs/English/Graphics/Window-FAQMgr.GIF"
  277.             "Docs/English/Graphics/Window-Cfg-FetchPr.GIF"
  278.             "Docs/English/Graphics/Window-Cfg-Hdrs.GIF"
  279.             "Docs/English/Graphics/Window-Cfg-Proj.GIF"
  280.             "Docs/English/Graphics/Window-Cfg-News.GIF"
  281.             "Docs/English/Graphics/Window-Cfg-ListCol.GIF"
  282.             "Docs/English/Graphics/Window-Cfg-Misc.GIF"
  283.             "Docs/English/Graphics/Window-Cfg-Win.GIF"
  284.             "Docs/English/Graphics/Window-Cfg-Post.GIF"
  285.             "Docs/English/Graphics/Window-Cfg-User.GIF"
  286.             "Docs/English/Graphics/Window-Cfg-SelFlt.GIF"
  287.             "Docs/English/Graphics/Window-Cfg-Vars.GIF"
  288.             "Docs/English/Graphics/NR-Tut-Group-Cfg-1.GIF"
  289.             "Docs/English/Graphics/NR-Tut-Group-Cfg-2.GIF"
  290.             "Docs/English/Graphics/NR-Tut-Group-Cfg-3.GIF"
  291.             "Docs/English/Graphics/Toolbar-B3.jpg"
  292.             "Objects/MMAction.Search-Deja"
  293.             "Objects/MMAction.Search-Google"
  294.             "Objects/MMAction.Search-Yahoo"
  295.             "TextEditor.mcc"
  296.             "TextEditor.mcp"
  297.             "Images/Filter/Bird.jpg"
  298.             "Images/Filter/Cached.jpg"
  299.             "Images/Filter/Earth.jpg"
  300.             "Images/Filter/MonitorEye.jpg"
  301.             "Images/Filter/New.jpg"
  302.             "Images/Filter/ROT13.jpg"
  303.             "Images/Filter/Speed.jpg"
  304.             "Images/IFF.Remove"
  305.             "Images/IFF.HLight"
  306.             "Images/IFF.FAQ"
  307.             "Images/IFF.eb_Bold"
  308.             "Images/IFF.eb_Copy"
  309.             "Images/IFF.eb_Cut"
  310.             "Images/IFF.eb_Insert"
  311.             "Images/IFF.eb_Italic"
  312.             "Images/IFF.eb_Paste"
  313.             "Images/IFF.eb_Save"
  314.             "Images/IFF.eb_Uline"
  315.             "Images/IFF.eb_Undo"
  316.             "Images/IFF.eb_Redo"
  317.             "Images/IFF.eb_Copy_G"
  318.             "Images/IFF.eb_Cut_G"
  319.             "Images/IFF.eb_Undo_G"
  320.             "Images/IFF.eb_Redo_G"
  321.             "Images/NRLogo.L.TC"
  322.             "Images/NRLogo.L.R8"
  323.             "Images/NRLogo.S.TC"
  324.             "Images/NRLogo.S.R8"
  325.             "Images/NRLogo.S.R4"
  326.                         ""))
  327.   ((set #n (+ #n 1))
  328.    (if (not (exists (tackon scriptdir thisfile)))
  329.        (P_Abort (cat #badarch thisfile)))))
  330.  
  331. ; -- select our install dir --------------------------------------------------
  332.  
  333. (set LastDir "")
  334. (set NR-Dir  "")
  335.  
  336. (if (exists "ENV:NewsRog/NR-Dir")
  337.     ((set LastDir (getenv "NewsRog/NR-Dir"))
  338.      (if (not (exists (tackon LastDir "NewsRog/NewsRog")))
  339.          (set LastDir ""))))
  340.  
  341. (complete 10)
  342. (if LastDir
  343.     (if (askbool (prompt  (#reinst-prompt LastDir))
  344.                  (help    @askbool-help)
  345.                  (default 1))
  346.         (set NR-Dir (tackon LastDir "NewsRog"))))
  347.  
  348. (if (= NR-Dir "")
  349.     (set NR-Dir
  350.          (askdir (prompt #dir-choice)
  351.                  (help "")
  352.                  (default "SYS:Utilities")
  353.                  (newpath))))
  354.  
  355. (set @default-dest NR-Dir)
  356.  
  357. (if (not (P_NRExists NR-Dir))
  358.     (set NR-Dir (tackon NR-Dir @app-name)))
  359.  
  360. ; -- check for NewsRog installation ------------------------------------------
  361.  
  362. (if (not (P_NRExists NR-Dir))
  363.     (P_Abort #bad-NewsRog))
  364.  
  365. (set @default-dest NR-Dir)
  366.  
  367. (if (or (not (exists (tackon NR-Dir "NewsRog.key"))))
  368.     (P_Abort #nopd))
  369.  
  370. (complete 20)
  371.  
  372. (set @default-dest NR-Dir)
  373.  
  374. ; -- flush libs from memory --------------------------------------------------
  375.  
  376. (run (tackon NR-Dir "C/FlushLibs"))
  377.  
  378. ; -- patch the old versions of AppBase.mcc -----------------------------------
  379.  
  380. (set absum (getsum (tackon NR-Dir "MUI/S5697_AppBase.mcc")))
  381. (set abpatch "")
  382.  
  383. (if (= absum 1002760635)  (set abpatch "Distrib/S5697_AppBase.1.0.pch"))
  384. (if (= absum -1629425022) (set abpatch "Distrib/S5697_AppBase.1.2.pch"))
  385. (if (= absum -216674447)  (set abpatch "Distrib/S5697_AppBase.1.4.pch"))
  386. (if (= absum -216543375)  (set abpatch "Distrib/S5697_AppBase.1.5.pch"))
  387.  
  388. (if (not (= abpatch ""))
  389.     ((if (<> (run (cat "C/spatch " "-ot:NR1.8TMP \"-p"
  390.                        (tackon scriptdir abpatch)
  391.                        "\" " (tackon NR-Dir "MUI/S5697_AppBase.mcc")))
  392.              0)
  393.          (P_Abort #badabpatch))
  394.  
  395.      (copyfiles (prompt #copy) (help   @copyfiles-help)
  396.                 (source "t:NR1.8TMP")
  397.                 (dest (tackon NR-Dir "MUI")) (newname "S5697_AppBase.mcc"))
  398.  
  399.      (delete "t:NR1.8TMP")))
  400.  
  401.  
  402. (if (not (= (getsum (tackon NR-Dir "MUI/S5697_AppBase.mcc")) -1896684850))
  403.     (P_Abort #badabcksum))
  404.  
  405. ; -- copy the new files ------------------------------------------------------
  406.  
  407. (copyfiles
  408.  (prompt #copy) (help @copyfiles-help)
  409.  (infos)
  410.  (source scriptdir) (dest NR-Dir)
  411.  (choices "NewsRog" "MUI" "Readme_1.8.txt" "RegInfo" "Filters" "Docs" "Objects"))
  412.  
  413. (copyfiles
  414.  (prompt #copy) (help   @copyfiles-help)
  415.  (infos)
  416.  (source scriptdir) (dest NR-Dir) (optional "nofail")
  417.  (choices "Images"))
  418.  
  419. (copylib
  420.  (prompt #copy-edit)
  421.  (help @copylib-help)
  422.  (source "TextEditor.mcc")
  423.  (dest "MUI:libs/mui"))
  424.  
  425. (copylib
  426.  (prompt #copy-edit)
  427.  (help @copylib-help)
  428.  (source "TextEditor.mcp")
  429.  (dest "MUI:libs/mui"))
  430.  
  431. (if (exists (tackon NR-Dir "MUI/TextEditor.mcc"))
  432.     (delete (tackon NR-Dir "MUI/TextEditor.mcc")))
  433.  
  434. ; -- create missing ServerGroups directory -----------------------------------
  435.  
  436. (makedir (tackon NR-Dir "ServerGroups"))
  437.  
  438. ; -- create filters directory ------------------------------------------------
  439.  
  440. (makedir (tackon NR-Dir "Filters"))
  441.  
  442. ; -- move MUI environment ----------------------------------------------------
  443.  
  444. (if (exists "ENV:MUI/NEWSROG.1.prefs")
  445.     (rename "ENV:MUI/NEWSROG.1.prefs" "ENV:MUI/NEWSROG.prefs"))
  446.  
  447. (if (exists "ENVARC:MUI/NEWSROG.1.prefs")
  448.     (rename "ENVARC:MUI/NEWSROG.1.prefs" "ENVARC:MUI/NEWSROG.prefs"))
  449.  
  450. (complete 80)
  451.  
  452. (run (cat "run sys:utilities/multiview " (tackon NR-Dir "Readme_1.8.txt")))
  453.  
  454. ; -- cleanup -----------------------------------------------------------------
  455.  
  456. (complete 100)
  457.  
  458. (exit)
  459.