home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / flyer / flyerv4.1a.dms / flyerv4.1a.adf / Install_VT_4.1B < prev    next >
Text File  |  1996-01-16  |  71KB  |  1,479 lines
  1. ;********************************************************;
  2. ;                                                        ;
  3. ;              Video Toaster 4.1B Installer              ;
  4. ;                                                        ;
  5. ;                      by Todd Hayes                     ;
  6. ;                    ©1995 NewTek, Inc.                  ;
  7. ;                                                        ;
  8. ; $VER: Video Toaster 4.1 CD Installer 4.1B (01-16-96)   ;
  9. ;                                                        ;
  10. ;********************************************************;
  11.  
  12. ;****************** INITIALIZATION ****************************
  13.  
  14. (set disk_label "4.1B_Disk")
  15. (set num_disks 2)
  16. (set flyer_drive_1 "Flyer_CD_4.1")
  17. (set default_drive (if (exists "Work:" (noreq))
  18.                        "Work:"
  19.                        (cat (getdevice "c:") ":")))
  20. (set machine_type (if (= (database "chiprev") "AA")
  21.                       "AGA"
  22.                       "NON-AGA"))
  23.  
  24. (set FLY_LIB_VERSION "4.09")  
  25.  
  26. (set install_flyer 0)
  27. (set toaster_type 1)
  28.  
  29. (set animals.aga 1710000)
  30. (set blinds.aga 390000)
  31. (set border.aga 14000000)
  32. (set control.aga 113000)
  33. (set digital.aga 18500000)
  34. (set dissolves.aga 6500000)
  35. (set organic.aga 14000000)
  36. (set overlays.aga 14800000)
  37. (set pagepeel.aga 3250000)
  38. (set people.aga 5200000)
  39. (set push-pull.aga 82000)
  40. (set shapes.aga 1100000)
  41. (set softedge.aga 7000000)
  42. (set space.aga 7050000)
  43. (set special.aga 28000000)
  44. (set sports.aga 6700000)
  45. (set trajectory.aga 7150000)
  46. (set weddings.aga 4780000)
  47. (set wipes.aga 9500000)
  48.  
  49. (set animals 750000)
  50. (set blinds 377000)
  51. (set border 3700000)
  52. (set control 113000)
  53. (set digital 14300000)
  54. (set dissolves 2360000)
  55. (set organic 6700000)
  56. (set overlays 1520000)
  57. (set pagepeel 300000)
  58. (set people 3301000)
  59. (set push-pull 82000)
  60. (set shapes 1095000)
  61. (set softedge 2605000)
  62. (set space 12)
  63. (set special 2800000)
  64. (set sports 3500000)
  65. (set trajectory 6601400)
  66. (set weddings 1170000)
  67. (set wipes 5050100)
  68.  
  69. (set arexx 1250000)
  70. (set brushes 2500000)
  71. (set cg 13500000)
  72. (set chromafx 19650000)
  73. (set framestore 18275000)
  74. (set images 59000000)
  75. (set objects 20800000)
  76. (set programs 14350000)
  77. (set projects 0)
  78. (set psfonts 4000000)
  79. (set colorfonts 33320966)
  80. (set scenes 650000)
  81. (set previews 8444972)
  82. (set surfaces 17000)
  83. (set envelopes 12)
  84. (set motions 200)
  85. (set plugins 665000)
  86. (set install 750000)
  87. (set lwimages 36000000)
  88. (set lwcontent (+ objects scenes surfaces envelopes motions lwimages))
  89.  
  90. (set effects_size 0)
  91. (if (= machine_type "AGA")
  92.    ((set effects_size (+ effects_size animals.aga blinds.aga border.aga control.aga digital.aga dissolves.aga))
  93.     (set effects_size (+ effects_size softedge.aga space.aga special.aga sports.aga trajectory.aga weddings.aga wipes.aga))
  94.     (set effects_size (+ effects_size organic.aga overlays.aga pagepeel.aga people.aga push-pull.aga shapes.aga))
  95.    )
  96.    ((set effects_size (+ effects_size animals blinds border control digital dissolves))
  97.     (set effects_size (+ effects_size softedge space special sports trajectory weddings wipes))
  98.     (set effects_size (+ effects_size organic overlays pagepeel people push-pull shapes))
  99.    ))
  100. (set full_size effects_size)
  101. (set full_size (+ full_size arexx brushes cg control envelopes framestore images))
  102. (set full_size (+ full_size install motions objects plugins previews programs))
  103. (set full_size (+ full_size projects psfonts colorfonts scenes surfaces chromafx)) 
  104. (set effects -1)
  105. (set num_effects 16)
  106. (set parts -1)
  107. (set num_parts 10)
  108.  
  109. (set not_enough_space (cat "\n\nSorry... Not enough space on drive "
  110.                            "for selected components. Please free up "))
  111.  
  112. ;************************ HELP TEXT ***********************************
  113.  
  114. (set toast_drive_help (cat "The VT 4.1B Installer needs to know where you "
  115.                       "would like to install the software.  In most cases "
  116.                       "you will want to choose the root of any drive that "
  117.                       "has enough room to install the parts of the "
  118.                       "software that you intend to install.  If you choose "
  119.                       "to install to a directory called 'NewTek', you will "
  120.                       "want to make sure that you answer 'NO' on the next "
  121.                       "requester which will ask if you would like to install "
  122.                       "the software inside a NewTek directory.  This option "
  123.                       "is provided for first time installation, when there "
  124.                       "is not usually an existing NewTek directory.  It "
  125.                       "will create a NewTek directory for you inside the "
  126.                       "directory that you have chosen. "))  
  127. (set install_type_help (cat "This option allows you to choose to install "
  128.                       "the full software (or a user-specified portion of "
  129.                       "it) or only install (update) the parts that may have "
  130.                       "changed since the last release."))
  131. (set parts_help (cat "This option allows you to choose the sections of the "
  132.                 "VT 4.1B software that you would like to install.  You may "
  133.                 "simply click 'PROCEED' to accept the defaults which will "
  134.                 "perform a full installation of all software and content "
  135.                 "to your hard drive.  If you do not have enough space on "
  136.                 "your hard drive to install the portions that you have "
  137.                 "selected, the VT 4.1B Installer will tell you how much "
  138.                 "more space you need, and you may either free that much "
  139.                 "more space on your drive, or the Installer will take you "
  140.                 "back to this screen to deselect some of these options. "))
  141. (set effects_help (cat "This option allows you to choose the types of "
  142.                 "effects that you would like to install.  You may "
  143.                 "simply click 'PROCEED' to accept the defaults which will "
  144.                 "perform a full installation of all effect types "
  145.                 "to your hard drive.  If you do not have enough space on "
  146.                 "your hard drive to install the portions that you have "
  147.                 "selected, the VT 4.1B Installer will tell you how much "
  148.                 "more space you need, and you may either free that much "
  149.                 "more space on your drive, or the Installer will take you "
  150.                 "back to this screen to deselect some of these options. "))
  151. (set start_option2_help (cat "While the Flyer hardware is started at bootup "
  152.                         "along with the necessary software to use any devices "
  153.                         "that may be attached, the Video Toaster software is "
  154.                         "normally not automatically started.  By choosing "
  155.                         "'YES' to this option, the Video Toaster software "
  156.                         "will automatically be started and entered at boot "
  157.                         "up."))
  158. (set user_startup_help (cat "These commands need to be added to your User-"
  159.                         "Startup file in order for the Video "
  160.                         "Toaster software/hardware to function properly.  "
  161.                         "These commands will then be automatically run at "
  162.                         "boot up."))
  163. (set next_disk_help (cat "The VT 4.1B Installer has finished reading data "
  164.                         "from the current disk and needs to read from the "
  165.                         "indicated disk.  Please insert the indicated disk "
  166.                         "so that the Installer may continue."))
  167. (set newtek_newtek_help (cat "The VT 4.1B Installer has detected that you "
  168.                         "have chosen to install the software in a "
  169.                         "directory called Newtek, and have also chosen to "
  170.                         "have the Installer create a NewTek directory "
  171.                         "(inside the existing NewTek directory) to install "
  172.                         "the software into.  This will result in a Newtek/"
  173.                         "Newtek directory, which is probably not what you "
  174.                         "wanted.  By choosing 'YES' you tell the Installer "
  175.                         "that you did understand what you were doing and "
  176.                         "really did want a NewTek/NewTek directory to be "
  177.                         "created.  If you choose 'NO' then you are telling "
  178.                         "the Installer that you would like it to install to "
  179.                         "the existing NewTek directory without making "
  180.                         "another NewTek directory that would be nested in "
  181.                         "the existing NewTek directory.")
  182. )
  183.  
  184. (set override_help (cat "You do not have enough space on the drive that "
  185.                                 "you have chosen to install the software components "
  186.                                 "that you have selected.  You may want to delete "
  187.                                 "some files from your selected drive to free up some "
  188.                                 "space before you continue, or you may want to "
  189.                                 "return to the component selection screen and deselect "
  190.                                 "some options so that the install requires less space. "
  191.                                 "If you already have a version of the Flyer software "
  192.                                 "installed on the selected drive, then many of the "
  193.                                 "existing files will be overwritten by newer files, "
  194.                                 "causing the install to require much less free space."
  195.                                 "If you would like to deselect some options then you "
  196.                                 "should choose 'Change Options' at this time.  If you "
  197.                                 "want to delete some files and try again, you should "
  198.                                 "also choose 'Change Options' then delete the files, "
  199.                                 "and proceed with the install without changing the "
  200.                                 "selected options.  This will allow the installer to "
  201.                                 "verify that you have freed up enough space for the "
  202.                                 "installer to complete.  You may also choose to "
  203.                                 "'Proceed Anyway' if you feel that you will have "
  204.                                 "enough space after the install overwrites any "
  205.                                 "existing files.")
  206. )
  207.  
  208. (set cdfs_help (cat "You may choose to skip the installation "
  209.                             "of the version of the CD-ROM filesystem "
  210.                             "included on the Flyer install floppy and use the one "
  211.                             "that is already installed on your system "
  212.                             "or you may choose to replace it with the "
  213.                             "version that is included with this Flyer "
  214.                             "software.")
  215. )
  216. ;*************** PROCEDURE DEFINITIONS ********************************
  217.  
  218. (procedure GETPARTS
  219.    (set parts (askoptions (prompt (cat "Please select the portions of the "
  220.                           "VT 4.1B software that you would like to install"))
  221.                           (choices (cat "Effects " (/ effects_size 1000) "K")
  222.                                               (cat "ChromaFX " (/ chromafx 1000) "K")
  223.                                    (cat "Brushes " (/ brushes 1000) "K")
  224.                                    (cat "Framestores " (/ framestore 1000) "K")
  225.                                    (cat "Seamless Images " (/ images 1000) "K")
  226.                                    (cat "CG Books " (/ cg 1000) "K")
  227.                                    (cat "PS Fonts " (/ psfonts 1000) "K")
  228.                                    (cat "ColorFonts " (/ colorfonts 1000) "K")
  229.                                    (cat "LW Content " (/ lwcontent 1000) "K")
  230.                                    (cat "LW Previews " (/ previews 1000) "K")
  231.                            (default parts)
  232.                            (help parts_help))))
  233. )
  234.  
  235. (procedure GETEFFECTS
  236.    (set effects (askoptions (prompt (cat "Please select the Toaster Effect "
  237.                                "categories that you would like to install."))
  238.                               (choices (cat "Animals " (/ animals 1000) "K")
  239.                                        (cat "Blinds/Weddings " (/ (+ weddings blinds) 1000) "K")
  240.                                        (cat "Border " (/ border 1000) "K")
  241.                                        (cat "Digital " (/ digital 1000) "K")
  242.                                        (cat "Dissolves " (/ dissolves 1000) "K")
  243.                                        (cat "Organic " (/ organic 1000) "K")
  244.                                        (cat "Overlays " (/ overlays 1000) "K")
  245.                                        (cat "PagePeel " (/ pagepeel 1000) "K")
  246.                                        (cat "People " (/ people 1000) "K")
  247.                                        (cat "PushPull/Shapes " (/ (+ shapes push-pull) 1000) "K")
  248.                                        (cat "SoftEdge " (/ softedge 1000) "K")
  249.                                        (cat "Space " (/ space 1000) "K")
  250.                                        (cat "Special " (/ special 1000) "K")
  251.                                        (cat "Sports " (/ sports 1000) "K")
  252.                                        (cat "Trajectory " (/ trajectory 1000) "K")
  253.                                        (cat "Wipes " (/ wipes 1000) "K"))
  254.                               (default effects)
  255.                               (help effects_help))))
  256. (procedure GETEFFECTS.AGA
  257.    (set effects (askoptions (prompt (cat "Please select the Toaster Effect "
  258.                                "categories that you would like to install."))
  259.                               (choices (cat "Animals " (/ animals.aga 1000) "K")
  260.                                        (cat "Blinds/Weddings " (/ (+ weddings.aga blinds) 1000) "K")
  261.                                        (cat "Border " (/ border.aga 1000) "K")
  262.                                        (cat "Digital " (/ digital.aga 1000) "K")
  263.                                        (cat "Dissolves " (/ dissolves.aga 1000) "K")
  264.                                        (cat "Organic " (/ organic.aga 1000) "K")
  265.                                        (cat "Overlays " (/ overlays.aga 1000) "K")
  266.                                        (cat "PagePeel " (/ pagepeel.aga 1000) "K")
  267.                                        (cat "People " (/ people.aga 1000) "K")
  268.                                        (cat "PushPull/Shapes " (/ (+ shapes.aga push-pull.aga) 1000) "K")
  269.                                        (cat "SoftEdge " (/ softedge.aga 1000) "K")
  270.                                        (cat "Space " (/ space.aga 1000) "K")
  271.                                        (cat "Special " (/ special.aga 1000) "K")
  272.                                        (cat "Sports " (/ sports.aga 1000) "K")
  273.                                        (cat "Trajectory " (/ trajectory.aga 1000) "K")
  274.                                        (cat "Wipes " (/ wipes.aga 1000) "K"))
  275.                               (default effects)
  276.                               (help effects_help))))
  277. (procedure GETPART_SIZE
  278.     (set part_size 0)
  279.     (set n1 0)
  280.     (while (< n1 num_parts)
  281.        ((if (IN parts n1)
  282.             (set part_size (+ part_size (select n1 effects_size
  283.                                                                   chromafx
  284.                                                   brushes
  285.                                                   framestore
  286.                                                   images
  287.                                                   cg
  288.                                                   psfonts
  289.                                                   colorfonts
  290.                                                   lwcontent
  291.                                                   previews))))
  292.         (set n1 (+ n1 1))
  293.        )    
  294.     )
  295.     (set part_size (+ part_size projects control programs arexx plug-ins install)) 
  296. )   
  297. (procedure GETEFFECTS_SIZE.AGA
  298.    (set effects_size 0)
  299.    (set n2 0)
  300.    (while (< n2 num_effects)
  301.       ((if (IN effects n2)
  302.            (set effects_size (+ effects_size (select n2 animals.aga
  303.                                                        (+ blinds.aga weddings.aga)
  304.                                                        border.aga
  305.                                                        digital.aga
  306.                                                        dissolves.aga
  307.                                                        organic.aga
  308.                                                        overlays.aga
  309.                                                        pagepeel.aga
  310.                                                        people.aga
  311.                                                        (+ push-pull.aga shapes.aga)
  312.                                                        softedge.aga
  313.                                                        space.aga
  314.                                                        special.aga
  315.                                                        sports.aga
  316.                                                        trajectory.aga
  317.                                                        wipes.aga))))
  318.         (set n2 (+ n2 1))
  319.        )
  320.     )
  321. )
  322. (procedure GETEFFECTS_SIZE
  323.    (set effects_size 0)
  324.    (set n2 0)
  325.    (while (< n2 num_effects)
  326.       ((if (IN effects n2)
  327.            (set effects_size (+ effects_size (select n2 animals
  328.                                                        (+ blinds weddings)
  329.                                                        border
  330.                                                        digital
  331.                                                        dissolves
  332.                                                        organic
  333.                                                        overlays
  334.                                                        pagepeel
  335.                                                        people
  336.                                                        (+ push-pull shapes)
  337.                                                        softedge
  338.                                                        space
  339.                                                        special
  340.                                                        sports
  341.                                                        trajectory
  342.                                                        wipes))))
  343.         (set n2 (+ n2 1))
  344.        )
  345.     )
  346. )
  347.  
  348. (procedure INSTALL_FLYER_SYSTEM
  349.    ((MAKEDIRS)
  350.     (DO_UPDATE_1)
  351.      (if install_flyer
  352.         ((run (cat "c:flyerinit " newtek_dir slash "Programs/Flyer_Support")) 
  353.          (run "c:mount cd6:")
  354.         )
  355.      )
  356.    )
  357. )
  358.  
  359. (procedure INSTALL_MAIN
  360.    ((copyfiles (source (cat flyer_drive_1 ":"))
  361.                (dest newtek_dir)
  362.                (pattern "#?.i")
  363.     )
  364.     (copyfiles (source (cat flyer_drive_1 ":effects"))
  365.                (dest (cat newtek_dir slash "Effects"))
  366.                (choices "ChromaFX.i")
  367.     )
  368.     (copyfiles (source (cat flyer_drive_1 ":effects/2000FX"))
  369.                (dest (cat newtek_dir slash "Effects"))
  370.                (pattern "Smooth#?")
  371.     )
  372.     (copyfiles (source (cat flyer_drive_1 ":Effects/2000fx/Control"))
  373.                (dest (cat newtek_dir slash "Effects/Control"))
  374.                     (optional "force")
  375.                (all))
  376.     (copyfiles (source (cat flyer_drive_1 ":Effects/2000fx/Control.I"))
  377.                         (optional "force")
  378.                (dest (cat newtek_dir slash "Effects")))
  379.      (if install_flyer
  380.         (
  381.          (copyfiles (source (cat flyer_drive_1 ":Programs"))
  382.                (dest (cat newtek_dir slash "Programs"))
  383.                (pattern "~(system_#?)"))
  384.         )
  385.         (
  386.          (copyfiles (source (cat flyer_drive_1 ":Programs"))
  387.                (dest (cat newtek_dir slash "Programs"))
  388.                (pattern "~(flyer#?|system_#?)"))
  389.         )
  390.     )
  391.     (copyfiles (source (cat flyer_drive_1 ":Programs/system_support"))
  392.                (dest "sys:")
  393.                (all)
  394.     )
  395.     (copyfiles (source (cat flyer_drive_1 ":Projects"))
  396.                (dest (cat newtek_dir slash "Projects"))
  397.                (all)
  398.     )
  399.     (copyfiles (source (cat flyer_drive_1 ":ARexx"))
  400.                (dest (cat newtek_dir slash "ARexx"))
  401.                (all)
  402.     )
  403.    )
  404. )
  405.  
  406. (procedure MAKEDIRS   
  407.    (
  408.      (if (NOT (exists newtek_dir))
  409.         (makedir newtek_dir)
  410.      )
  411.  
  412.     (if (NOT (exists (cat newtek_dir slash "Programs")))
  413.         (makedir (cat newtek_dir slash "Programs")))
  414.  
  415.     (if (NOT (exists (cat newtek_dir slash "ARexx")))
  416.         (makedir (cat newtek_dir slash "ARexx")))
  417.     (if (NOT (exists (cat newtek_dir slash "ARexx/CG")))
  418.         (makedir (cat newtek_dir slash "ARexx/CG")))
  419.     (if (NOT (exists (cat newtek_dir slash "ARexx/Editor")))
  420.         (makedir (cat newtek_dir slash "ARexx/Editor")))
  421.     (if (NOT (exists (cat newtek_dir slash "ARexx/LightWave")))
  422.         (makedir (cat newtek_dir slash "ARexx/LightWave")))
  423.     (if (NOT (exists (cat newtek_dir slash "ARexx/Modeler")))
  424.         (makedir (cat newtek_dir slash "ARexx/Modeler")))
  425.     (if (NOT (exists (cat newtek_dir slash "ARexx/Switcher")))
  426.         (makedir (cat newtek_dir slash "ARexx/Switcher")))
  427.     (if (NOT (exists (cat newtek_dir slash "ARexx/ToasterPaint")))
  428.         (makedir (cat newtek_dir slash "ARexx/ToasterPaint")))
  429.     (if (NOT (exists (cat newtek_dir slash "Brushes")))
  430.         (makedir (cat newtek_dir slash "Brushes")))
  431.     (if (NOT (exists (cat newtek_dir slash "CG")))
  432.         (makedir (cat newtek_dir slash "CG")))
  433.     (if (NOT (exists (cat newtek_dir slash "CG/Books")))
  434.         (makedir (cat newtek_dir slash "CG/Books")))
  435.     (if (NOT (exists (cat newtek_dir slash "CG/Crawls")))
  436.         (makedir (cat newtek_dir slash "CG/Crawls")))
  437.     (if (NOT (exists (cat newtek_dir slash "CG/Frames")))
  438.         (makedir (cat newtek_dir slash "CG/Frames")))
  439.     (if (NOT (exists (cat newtek_dir slash "CG/Keys")))
  440.         (makedir (cat newtek_dir slash "CG/Keys")))
  441.     (if (NOT (exists (cat newtek_dir slash "CG/Scrolls")))
  442.         (makedir (cat newtek_dir slash "CG/Scrolls")))
  443.     (if (NOT (exists (cat newtek_dir slash "CG/Textfiles")))
  444.         (makedir (cat newtek_dir slash "CG/Textfiles")))
  445.     (if (NOT (exists (cat newtek_dir slash "Effects")))
  446.         (makedir (cat newtek_dir slash "Effects")))
  447.     (if (NOT (exists (cat newtek_dir slash "Effects/ChromaFX")))
  448.         (makedir (cat newtek_dir slash "Effects/ChromaFX")))
  449.     (if (NOT (exists (cat newtek_dir slash "Envelopes")))
  450.         (makedir (cat newtek_dir slash "Envelopes")))
  451.     (if (NOT (exists (cat newtek_dir slash "Framestore")))
  452.         (makedir (cat newtek_dir slash "Framestore")))
  453.     (if (NOT (exists (cat newtek_dir slash "Images")))
  454.         (makedir (cat newtek_dir slash "Images")))
  455.     (if (NOT (exists (cat newtek_dir slash "Images/SeamlessImages")))
  456.         (makedir (cat newtek_dir slash "Images/SeamlessImages")))
  457.     (if (NOT (exists (cat newtek_dir slash "Motions")))
  458.         (makedir (cat newtek_dir slash "Motions")))
  459.     (if (NOT (exists (cat newtek_dir slash "Objects")))
  460.         (makedir (cat newtek_dir slash "Objects")))
  461.     (if (NOT (exists (cat newtek_dir slash "Programs/Plug-Ins")))
  462.         (makedir (cat newtek_dir slash "Programs/Plug-Ins")))
  463.     (if (NOT (exists (cat newtek_dir slash "Programs/Plug-Ins/CG")))
  464.         (makedir (cat newtek_dir slash "Programs/Plug-Ins/CG")))
  465.     (if (NOT (exists (cat newtek_dir slash "Programs/Plug-Ins/Editor")))
  466.         (makedir (cat newtek_dir slash "Programs/Plug-Ins/Editor")))
  467.     (if (NOT (exists (cat newtek_dir slash "Programs/Plug-Ins/LightWave")))
  468.         (makedir (cat newtek_dir slash "Programs/Plug-Ins/LightWave")))
  469.     (if (NOT (exists (cat newtek_dir slash "Programs/Plug-Ins/Modeler")))
  470.         (makedir (cat newtek_dir slash "Programs/Plug-Ins/Modeler")))
  471.     (if (NOT (exists (cat newtek_dir slash "Programs/Plug-Ins/Switcher")))
  472.         (makedir (cat newtek_dir slash "Programs/Plug-Ins/Switcher")))
  473.     (if (NOT (exists (cat newtek_dir slash "Programs/Plug-Ins/ToasterPaint")))
  474.         (makedir (cat newtek_dir slash "Programs/Plug-Ins/ToasterPaint")))
  475.     (if (NOT (exists (cat newtek_dir slash "Previews")))
  476.         (makedir (cat newtek_dir slash "Previews")))
  477.     (if (NOT (exists (cat newtek_dir slash "Projects")))
  478.         (makedir (cat newtek_dir slash "Projects")))
  479.     (if (NOT (exists (cat newtek_dir slash "PSFonts")))
  480.         (makedir (cat newtek_dir slash "PSFonts")))
  481.     (if (NOT (exists (cat newtek_dir slash "Scenes")))
  482.         (makedir (cat newtek_dir slash "Scenes")))
  483.     (if (NOT (exists (cat newtek_dir slash "Surfaces")))
  484.         (makedir (cat newtek_dir slash "Surfaces")))
  485.    )
  486. )
  487.  
  488. (procedure INSTALL_EFFECTS
  489.   ((set n3 0)
  490.    (set effects_src (cat flyer_drive_1 ":Effects/" (if (= machine_type "AGA")
  491.                                                        "4000fx"
  492.                                                        "2000fx")))
  493.    (while (< n3 num_effects)
  494.       ((if (IN effects n3)
  495.          (select n3
  496.             ((copyfiles (source (cat effects_src "/Animals"))
  497.                   (dest (cat newtek_dir slash "Effects/Animals"))
  498.                         (optional "force")
  499.                   (all))
  500.              (copyfiles (source (cat effects_src "/Animals.I"))
  501.                         (optional "force")
  502.                   (dest (cat newtek_dir slash "Effects"))))
  503.             (((copyfiles (source (cat effects_src "/Blinds"))
  504.                   (dest (cat newtek_dir slash "Effects/Blinds"))
  505.                         (optional "force")
  506.                   (all))
  507.              (copyfiles (source (cat effects_src "/Blinds.I"))
  508.                         (optional "force")
  509.                   (dest (cat newtek_dir slash "Effects"))))
  510.             ((copyfiles (source (cat effects_src "/Weddings"))
  511.                   (dest (cat newtek_dir slash "Effects/Weddings"))
  512.                         (optional "force")
  513.                   (all))
  514.              (copyfiles (source (cat effects_src "/Weddings.I"))
  515.                         (optional "force")
  516.                   (dest (cat newtek_dir slash "Effects")))))
  517.             ((copyfiles (source (cat effects_src "/Border"))
  518.                   (dest (cat newtek_dir slash "Effects/Border"))
  519.                         (optional "force")
  520.                   (all))
  521.              (copyfiles (source (cat effects_src "/Border.I"))
  522.                         (optional "force")
  523.                   (dest (cat newtek_dir slash "Effects"))))
  524.             ((copyfiles (source (cat effects_src "/Digital"))
  525.                   (dest (cat newtek_dir slash "Effects/Digital"))
  526.                         (optional "force")
  527.                   (all))
  528.              (copyfiles (source (cat effects_src "/Digital.I"))
  529.                         (optional "force")
  530.                   (dest (cat newtek_dir slash "Effects"))))
  531.             ((copyfiles (source (cat effects_src "/Dissolves"))
  532.                   (dest (cat newtek_dir slash "Effects/Dissolves"))
  533.                         (optional "force")
  534.                   (all))
  535.              (copyfiles (source (cat effects_src "/Dissolves.I"))
  536.                         (optional "force")
  537.                   (dest (cat newtek_dir slash "Effects"))))
  538.             ((copyfiles (source (cat effects_src "/Organic"))
  539.                   (dest (cat newtek_dir slash "Effects/Organic"))
  540.                         (optional "force")
  541.                   (all))
  542.              (copyfiles (source (cat effects_src "/Organic.I"))
  543.                         (optional "force")
  544.                   (dest (cat newtek_dir slash "Effects"))))
  545.             ((copyfiles (source (cat effects_src "/Overlays"))
  546.                   (dest (cat newtek_dir slash "Effects/Overlays"))
  547.                         (optional "force")
  548.                   (all))
  549.              (copyfiles (source (cat effects_src "/Overlays.I"))
  550.                         (optional "force")
  551.                   (dest (cat newtek_dir slash "Effects"))))
  552.             ((copyfiles (source (cat effects_src "/PagePeel"))
  553.                   (dest (cat newtek_dir slash "Effects/PagePeel"))
  554.                         (optional "force")
  555.                   (all))
  556.              (copyfiles (source (cat effects_src "/PagePeel.I"))
  557.                         (optional "force")
  558.                   (dest (cat newtek_dir slash "Effects"))))
  559.             ((copyfiles (source (cat effects_src "/People"))
  560.                   (dest (cat newtek_dir slash "Effects/People"))
  561.                         (optional "force")
  562.                   (all))
  563.              (copyfiles (source (cat effects_src "/People.I"))
  564.                         (optional "force")
  565.                   (dest (cat newtek_dir slash "Effects"))))
  566.             (((copyfiles (source (cat effects_src "/Push-Pull"))
  567.                   (dest (cat newtek_dir slash "Effects/Push-Pull"))
  568.                         (optional "force")
  569.                   (all))
  570.              (copyfiles (source (cat effects_src "/Push-Pull.I"))
  571.                         (optional "force")
  572.                   (dest (cat newtek_dir slash "Effects"))))
  573.             ((copyfiles (source (cat effects_src "/Shapes"))
  574.                   (dest (cat newtek_dir slash "Effects/Shapes"))
  575.                         (optional "force")
  576.                   (all))
  577.              (copyfiles (source (cat effects_src "/Shapes.I"))
  578.                         (optional "force")
  579.                   (dest (cat newtek_dir slash "Effects")))))
  580.             ((copyfiles (source (cat effects_src "/SoftEdge"))
  581.                   (dest (cat newtek_dir slash "Effects/SoftEdge"))
  582.                         (optional "force")
  583.                   (all))
  584.              (copyfiles (source (cat effects_src "/SoftEdge.I"))
  585.                         (optional "force")
  586.                   (dest (cat newtek_dir slash "Effects"))))
  587.             ((copyfiles (source (cat effects_src "/Space"))
  588.                   (dest (cat newtek_dir slash "Effects/Space"))
  589.                         (optional "force")
  590.                   (all))
  591.              (copyfiles (source (cat effects_src "/Space.I"))
  592.                         (optional "force")
  593.                   (dest (cat newtek_dir slash "Effects"))))
  594.             ((copyfiles (source (cat effects_src "/Special"))
  595.                   (dest (cat newtek_dir slash "Effects/Special"))
  596.                         (optional "force")
  597.                   (all))
  598.              (copyfiles (source (cat effects_src "/Special.I"))
  599.                         (optional "force")
  600.                   (dest (cat newtek_dir slash "Effects"))))
  601.             ((copyfiles (source (cat effects_src "/Sports"))
  602.                   (dest (cat newtek_dir slash "Effects/Sports"))
  603.                         (optional "force")
  604.                   (all))
  605.              (copyfiles (source (cat effects_src "/Sports.I"))
  606.                         (optional "force")
  607.                   (dest (cat newtek_dir slash "Effects"))))
  608.             ((copyfiles (source (cat effects_src "/Trajectory"))
  609.                   (dest (cat newtek_dir slash "Effects/Trajectory"))
  610.                         (optional "force")
  611.                   (all))
  612.              (copyfiles (source (cat effects_src "/Trajectory.I"))
  613.                         (optional "force")
  614.                   (dest (cat newtek_dir slash "Effects"))))
  615.             ((copyfiles (source (cat effects_src "/Wipes"))
  616.                   (dest (cat newtek_dir slash "Effects/Wipes"))
  617.                         (optional "force")
  618.                   (all))
  619.              (copyfiles (source (cat effects_src "/Wipes.I"))
  620.                         (optional "force")
  621.                   (dest (cat newtek_dir slash "Effects"))))
  622.           )
  623.        )
  624.        (set n3 (+ n3 1))
  625.       )
  626.     )
  627.   )
  628.  
  629. )
  630.  
  631. (procedure INSTALL_PARTS
  632.   ((set n4 0)
  633.    (while (< n4 num_parts)
  634.       ((if (IN parts n4)
  635.          (select n4
  636.             (INSTALL_EFFECTS)
  637.             (copyfiles (source (cat flyer_drive_1 ":Effects/ChromaFX"))
  638.                   (dest (cat newtek_dir slash "Effects/ChromaFX"))
  639.                         (optional "force")
  640.                   (all))
  641.             (copyfiles (source (cat flyer_drive_1 ":Brushes"))
  642.                   (dest (cat newtek_dir slash "Brushes"))
  643.                         (optional "force")
  644.                   (all))
  645.             (copyfiles (source (cat flyer_drive_1 ":Framestore"))
  646.                   (dest (cat newtek_dir slash "Framestore"))
  647.                         (optional "force")
  648.                   (all))
  649.             (copyfiles (source (cat flyer_drive_1 ":Images/SeamlessImages"))
  650.                   (dest (cat newtek_dir slash "Images/SeamlessImages"))
  651.                         (optional "force")
  652.                   (all))
  653.             (copyfiles (source (cat flyer_drive_1 ":CG"))
  654.                   (dest (cat newtek_dir slash "CG"))
  655.                         (optional "force")
  656.                   (all))
  657.             (copyfiles (source (cat flyer_drive_1 ":PSFonts"))
  658.                   (dest (cat newtek_dir slash "PSFonts"))
  659.                         (optional "force")
  660.                   (choices "AGFA" "B&PGraphics" "OldFonts" "SoftMaker"))
  661.             (copyfiles (source (cat flyer_drive_1 ":psfonts"))
  662.                   (dest (cat newtek_dir slash "PSFonts"))
  663.                         (optional "force")
  664.                   (choices "Colorfonts"))
  665.             ((copyfiles (source (cat flyer_drive_1 ":Objects"))
  666.                   (dest (cat newtek_dir slash "Objects"))
  667.                         (optional "force")
  668.                   (all))
  669.              (copyfiles (source (cat flyer_drive_1 ":Scenes"))
  670.                   (dest (cat newtek_dir slash "Scenes"))
  671.                         (optional "force")
  672.                   (all))
  673.              (copyfiles (source (cat flyer_drive_1 ":Surfaces"))
  674.                   (dest (cat newtek_dir slash "Surfaces"))
  675.                         (optional "force")
  676.                   (all))
  677.              (copyfiles (source (cat flyer_drive_1 ":Images"))
  678.                   (dest (cat newtek_dir slash "Images"))
  679.                         (optional "force")
  680.                   (pattern "~(Seam#?)"))
  681.              (copyfiles (source (cat flyer_drive_1 ":Motions"))
  682.                   (dest (cat newtek_dir slash "Motions"))
  683.                         (optional "force")
  684.                   (all))
  685.              (copyfiles (source (cat flyer_drive_1 ":Envelopes"))
  686.                   (dest (cat newtek_dir slash "Envelopes"))
  687.                         (optional "force")
  688.                   (all)))
  689.             (copyfiles (source (cat flyer_drive_1 ":Previews"))
  690.                   (dest (cat newtek_dir slash "Previews"))
  691.                         (optional "force")
  692.                   (all))
  693.          ))
  694.          (set n4 (+ n4 1)))
  695.       )
  696.    )
  697. )
  698.  
  699. (procedure DO_UPDATE_1
  700.    ((copyfiles (source (cat disk_label "1:c"))
  701.                     (dest "ram:")
  702.                     (choices "lz.decomp"))
  703.      (makedir "ram:NTTemp")
  704.      (makedir "ram:NTTemp/system")
  705.      (makedir "ram:NTTemp/newtek")
  706.      (run (cat "assign tempsys: " "ram:nttemp/system")) 
  707.      (run (cat "assign tempnt: " "ram:nttemp/newtek")) 
  708.      
  709.  
  710.      (working "\n\nDecompressing and installing VT 4.1B Files...")
  711.  
  712.     (run (cat "assign newtek: " newtek_dir)) 
  713.     (run (cat "ram:lz.decomp -m x " disk_label "1:System.lha tempsys:"))
  714.      (if install_asim
  715.         (run (cat "ram:lz.decomp -m x " disk_label "1:cd.lha tempsys:"))
  716.      )
  717.     (run (cat "ram:lz.decomp -m x " disk_label "1:NewTek.lha tempnt:"))
  718.      (copyfiles (source "ram:NTTemp/system")
  719.                     (dest "sys:")
  720.                     (all)
  721.                     (optional "force"))
  722.      (run "delete tempsys:#? all")
  723.     
  724.      (copyfiles (source "ram:NTTemp/newtek")
  725.                     (dest "newtek:")
  726.                     (all)
  727.                     (optional "force"))
  728.      (run "delete tempnt:#? all")
  729.     )
  730. )
  731.    
  732. (procedure DO_OTHER_DISKS
  733.    (set i1 2)
  734.    (while (<= i1 num_disks)
  735.      ((askdisk (prompt (cat "\n\n\nPlease insert " disk_label i1 " in any drive..."))
  736.                (dest (cat disk_label i1))
  737.                (help next_disk_help))
  738.        (working "\n\nDecompressing and installing VT 4.1B Files...")
  739.         (if (exists (cat disk_label i1 ":System.lha"))
  740.             (
  741.             (run (cat "ram:lz.decomp -m x " disk_label i1 ":System.lha tempsys:"))
  742.              (copyfiles (source "tempsys:")
  743.                             (dest "sys:")
  744.                             (all)
  745.                             (optional "force"))
  746.              (run "delete tempsys:#? all")
  747.             )
  748.         )
  749.         (if (exists (cat disk_label i1 ":NewTek.lha"))
  750.             (
  751.             (run (cat "ram:lz.decomp -m x " disk_label i1 ":NewTek.lha tempnt:"))
  752.              (copyfiles (source "tempnt:")
  753.                             (dest "newtek:")
  754.                             (all)
  755.                             (optional "force"))
  756.              (run "delete tempnt:#? all")
  757.             )
  758.         )
  759.        (set i1 (+ i1 1))
  760.      )
  761.    )
  762.     
  763.     (run "delete ram:NTTemp all")
  764.     (delete "ram:lz.decomp")
  765. )
  766.    
  767. (procedure DO_STARTUP
  768.    ((set start_lines (cat "assign REXX: " newtek_dir slash "ARexx add\n"))
  769.     (set start_lines (cat start_lines "assign TOASTER: " newtek_dir " add\n"))
  770.     (set start_lines (cat start_lines "assign HIIP: " newtek_dir slash
  771.                             "Programs/HIIP_Support\n"))
  772.      (if install_flyer
  773.         (set start_lines (cat start_lines "c:FlyerInit " 
  774.                             newtek_dir slash "Programs/Flyer_Support\n"))
  775.      )
  776.    (if start_option2
  777.       (if (exists "sys:WBStartup")
  778.          (copyfiles (source (cat newtek_dir slash "Programs"))
  779.                     (dest "sys:WBStartup")
  780.                     (pattern "StartToas#?"))
  781.          (set start_lines (cat start_lines "cd " newtek_dir slash "Programs\n"
  782.                                 "run VideoToaster\n"))
  783.       )
  784.    )
  785.    (startup "Flyer" (command start_lines)
  786.                     (help user_startup_help)
  787.                     (prompt (cat "\n\nThe following lines must be added to "
  788.                                  "your user-startup file:\n\n" start_lines)))
  789. ))
  790. (procedure GET_DRIVE
  791.    ((set toast_drive (askdir 
  792.                     (prompt (cat "Please Select a drive "
  793.                                  "to install the Video Toaster 4.1B "
  794.                                  "software on. "))
  795.                              (default default_drive)
  796.                              (help toast_drive_help)    
  797.                              (disk)))
  798.      (if (= ":" (substr toast_drive (- (strlen toast_drive) 1) 1))
  799.             (set newtek_dir (cat toast_drive "NewTek"))
  800.             (set newtek_dir (cat toast_drive "/NewTek"))
  801.      )
  802.     (set slash (if (= ":" (substr newtek_dir (- (strlen newtek_dir) 1) 1))
  803.                       ""
  804.                    "/"))
  805.     (if (= "NewTek/NewTek" (substr newtek_dir (- (strlen newtek_dir) 13) 13))
  806.         (set newtek_dir (if (askbool (prompt (cat "Are you sure that you "
  807.                                               "want to install the VT 4.1B "
  808.                                               "software to the " newtek_dir
  809.                                               " directory?\n\nIf you choose "
  810.                                               "'NO' then the VT 4.1B software "
  811.                                               "will be installed into the "
  812.                                               (substr newtek_dir 0 
  813.                                                  (- (strlen newtek_dir) 7)
  814.                                               ) " directory instead."))
  815.                                       (help newtek_newtek_help)
  816.                                       (default 0))
  817.                              newtek_dir
  818.                              (substr newtek_dir 0 (- (strlen newtek_dir) 7))))
  819.     )
  820.     )
  821. )
  822. (procedure GET_CHOICES
  823.    (set disk_avail (getdiskspace (cat (getdevice toast_drive) ":")))
  824.    (GETPARTS)
  825.    (if (IN parts 0)
  826.       (if (= machine_type "AGA")
  827.          ((GETEFFECTS.AGA)
  828.           (GETEFFECTS_SIZE.AGA))
  829.          ((GETEFFECTS)
  830.           (GETEFFECTS_SIZE)))
  831.       ((set effects_size 0)
  832.        (set effects 0))
  833.    )
  834.    (GETPART_SIZE)
  835.    (set whole_size (+ effects_size part_size))
  836.    (while (< disk_avail whole_size)
  837.         (if (askbool 
  838.                     (prompt (cat not_enough_space (- whole_size disk_avail)
  839.                              " bytes. Click on Proceed to change your "
  840.                              "selection of components to install.  You "
  841.                              "may also delete some files from your drive "
  842.                              "and leave your selection as it stands.\n "
  843.                              "Click on Proceed to continue\n" ))
  844.                 (help override_help)
  845.                 (choices "Change Options" "Proceed Anyway")
  846.              )
  847.              (
  848.                 (GETPARTS)
  849.                (if (IN parts 0)
  850.                    (if (= machine_type "AGA")
  851.                       ((GETEFFECTS.AGA)
  852.                       (GETEFFECTS_SIZE.AGA))
  853.                      ((GETEFFECTS)
  854.                       (GETEFFECTS_SIZE)))
  855.                   ((set effects_size 0)
  856.                    (set effects 0))
  857.                      )
  858.                 (GETPART_SIZE)
  859.                    (set whole_size (+ effects_size part_size))             
  860.                  (set disk_avail (getdiskspace toast_drive))
  861.              )
  862.              (
  863.                 (set whole_size 0)             
  864.               (set disk_avail (getdiskspace toast_drive))
  865.              )
  866.          )
  867.    )
  868. )  
  869.  
  870. (procedure GET_START_OPTIONS
  871.    (set start_option2 (askbool (prompt (cat "Would you like the Video Toaster "
  872.                                    "software to "
  873.                                    "be started as soon as the computer "
  874.                                    "is turned on?"))
  875.                            (help start_option2_help)))  
  876. )
  877.  
  878. (procedure REMOVE_ALLICONS
  879.    (if (exists "c:allicons")
  880.       ((textfile (dest "ram:remove.allicons")
  881.              (append (cat "cd " newtek_dir "\n"
  882.                           "c:allicons all delete\n")))
  883.        (run "execute ram:remove.allicons")
  884.        (delete "c:allicons")))
  885. )
  886.  
  887. (procedure REMOVE_DRIVERS_AND_BAD_FILES
  888.    (if (exists "devs:dosdrivers/fly0")
  889.       (delete "devs:dosdrivers/fly0")) 
  890.    (if (exists "devs:dosdrivers/fly0.info")
  891.       (delete "devs:dosdrivers/fly0.info"))  
  892.    (if (exists "devs:dosdrivers/fly1")
  893.       (delete "devs:dosdrivers/fly1")) 
  894.    (if (exists "devs:dosdrivers/fly1.info")
  895.       (delete "devs:dosdrivers/fly1.info"))  
  896.    (if (exists "devs:dosdrivers/fly2")
  897.       (delete "devs:dosdrivers/fly2")) 
  898.    (if (exists "devs:dosdrivers/fly2.info")
  899.       (delete "devs:dosdrivers/fly2.info"))  
  900.    (if (exists "sys:storage/dosdrivers/fly0")
  901.       (delete "sys:storage/dosdrivers/fly0"))   
  902.    (if (exists "sys:storage/dosdrivers/fly0.info")
  903.       (delete "sys:storage/dosdrivers/fly0.info")) 
  904.    (if (exists "sys:storage/dosdrivers/fly1")
  905.       (delete "sys:storage/dosdrivers/fly1"))   
  906.    (if (exists "sys:storage/dosdrivers/fly1.info")
  907.       (delete "sys:storage/dosdrivers/fly1.info")) 
  908.    (if (exists "sys:storage/dosdrivers/fly2")
  909.       (delete "sys:storage/dosdrivers/fly2"))   
  910.    (if (exists "sys:storage/dosdrivers/fly2.info")
  911.       (delete "sys:storage/dosdrivers/fly2.info")) 
  912.     (if (exists (cat newtek_dir slash "Effects/Digital/flip chrome edge !"))
  913.         (delete (cat newtek_dir slash "Effects/Digital/flip chrome edge !")))    
  914.     (if (exists (cat newtek_dir slash "Effects/Digital/flip chrome edge !.i"))
  915.         (delete (cat newtek_dir slash "Effects/Digital/flip chrome edge !.i")))    
  916.     (if (exists (cat newtek_dir slash "Effects/Digital/Fly Over Crumpled Edge !"))
  917.         (delete (cat newtek_dir slash "Effects/Digital/Fly Over Crumpled Edge !")))    
  918.     (if (exists (cat newtek_dir slash "Effects/Digital/Fly Over Crumpled Edge !.i"))
  919.         (delete (cat newtek_dir slash "Effects/Digital/Fly Over Crumpled Edge !.i")))    
  920.     (if (exists (cat newtek_dir slash "Arexx/Editor/AbsProjectVolume.Rexx"))
  921.         (delete (cat newtek_dir slash "Arexx/Editor/AbsProjectVolume.Rexx")))
  922.     (if (exists (cat newtek_dir slash "Arexx/Editor/Backup.Rexx"))
  923.         (delete (cat newtek_dir slash "Arexx/Editor/Backup.Rexx")))
  924.     (if (exists (cat newtek_dir slash "Arexx/Editor/RelProjectVolume.Rexx"))
  925.         (delete (cat newtek_dir slash "Arexx/Editor/RelProjectVolume.Rexx")))
  926.     (if (exists (cat newtek_dir slash "Arexx/Editor/Restore.Rexx"))
  927.         (delete (cat newtek_dir slash "Arexx/Editor/Restore.Rexx")))
  928.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/Blur.rexx"))
  929.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/Blur.rexx")))
  930.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/Clip2IFFfm.rexx"))
  931.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/Clip2IFFfm.rexx")))
  932.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/DSpeed.rexx"))
  933.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/DSpeed.rexx")))
  934.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/DSpeed4.rexx"))
  935.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/DSpeed4.rexx")))
  936.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/DSpeed8.rexx"))
  937.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/DSpeed8.rexx")))
  938.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/DSpeed8.rex"))
  939.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/DSpeed8.rex")))
  940.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/DumpList.rexx"))
  941.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/DumpList.rexx")))
  942.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/EmbossBorder.rexx"))
  943.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/EmbossBorder.rexx")))
  944.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/EmbossPic.rexx"))
  945.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/EmbossPic.rexx")))
  946.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/GrabFrame.rexx"))
  947.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/GrabFrame.rexx")))
  948.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/GrabFrameSF.rexx"))
  949.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/GrabFrameSF.rexx")))
  950.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/Gray.rexx"))
  951.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/Gray.rexx")))
  952.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/Grid.rexx"))
  953.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/Grid.rexx")))
  954.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/HalfSpeed.rexx"))
  955.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/HalfSpeed.rexx")))
  956.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/IFF2TPaint.rexx"))
  957.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/IFF2TPaint.rexx")))
  958.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/Negitive.Rexx"))
  959.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/Negitive.Rexx")))
  960.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/OTS.rexx"))
  961.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/OTS.rexx")))
  962.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/PicTile.rexx"))
  963.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/PicTile.rexx")))
  964.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/PT.rexx"))
  965.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/PT.rexx")))
  966.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/ShrinkPic.rexx"))
  967.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/ShrinkPic.rexx")))
  968.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/Strobe.Rexx"))
  969.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/Strobe.Rexx")))
  970.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPaintARexx.Doc"))
  971.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPaintARexx.Doc")))
  972.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPaintStryBd.rexx"))
  973.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPaintStryBd.rexx")))
  974.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPBars.rexx"))
  975.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPBars.rexx")))
  976.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPBlast.rexx"))
  977.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPBlast.rexx")))
  978.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPCols.rexx"))
  979.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPCols.rexx")))
  980.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPCommand.rexx"))
  981.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPCommand.rexx")))
  982.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPComposite.rexx"))
  983.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPComposite.rexx")))
  984.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPLaser.rexx"))
  985.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPLaser.rexx")))
  986.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPMap.rexx"))
  987.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPMap.rexx")))
  988.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TPSmiley.rexx"))
  989.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TPSmiley.rexx")))
  990.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/TxBrush.rexx"))
  991.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/TxBrush.rexx")))
  992.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/VarSpeed.Rexx"))
  993.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/VarSpeed.Rexx")))
  994.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/Vignette.rexx"))
  995.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/Vignette.rexx")))
  996.     (if (exists (cat newtek_dir slash "Arexx/ToasterPaint/wash.rexx"))
  997.         (delete (cat newtek_dir slash "Arexx/ToasterPaint/wash.rexx")))
  998.     (if (exists (cat newtek_dir slash "Programs/CustomStart"))
  999.         (delete (cat newtek_dir slash "Programs/CustomStart")))
  1000.     (if (exists (cat newtek_dir slash "Programs/CustomStart.info"))
  1001.         (delete (cat newtek_dir slash "Programs/CustomStart.info")))
  1002.     (if (exists (cat newtek_dir slash "Programs/drivespeed"))
  1003.         (delete (cat newtek_dir slash "Programs/drivespeed")))
  1004.     (if (exists (cat newtek_dir slash "Programs/DriveSpeed.info"))
  1005.         (delete (cat newtek_dir slash "Programs/DriveSpeed.info")))
  1006.     (if (exists (cat newtek_dir slash "Programs/FlyerFormat"))
  1007.         (delete (cat newtek_dir slash "Programs/FlyerFormat")))
  1008.     (if (exists (cat newtek_dir slash "Programs/FlyerFormat.info"))
  1009.         (delete (cat newtek_dir slash "Programs/FlyerFormat.info")))
  1010.     (if (exists (cat newtek_dir slash "Programs/GoDefault_Bin"))
  1011.         (delete (cat newtek_dir slash "Programs/GoDefault_Bin")))
  1012.     (if (exists (cat newtek_dir slash "Programs/GoDefault_BIN.info"))
  1013.         (delete (cat newtek_dir slash "Programs/GoDefault_BIN.info")))
  1014.     (if (exists (cat newtek_dir slash "Programs/GoSeagate_BIN"))
  1015.         (delete (cat newtek_dir slash "Programs/GoSeagate_BIN")))
  1016.     (if (exists (cat newtek_dir slash "Programs/GoSeagate_BIN.info"))
  1017.         (delete (cat newtek_dir slash "Programs/GoSeagate_BIN.info")))
  1018.     (if (exists (cat newtek_dir slash "Programs/LWStart"))
  1019.         (delete (cat newtek_dir slash "Programs/LWStart")))
  1020.     (if (exists (cat newtek_dir slash "Programs/LWStart.info"))
  1021.         (delete (cat newtek_dir slash "Programs/LWStart.info")))
  1022.     (if (exists (cat newtek_dir slash "Programs/Flyer_Support/Flyer.bin.DF"))
  1023.         (delete (cat newtek_dir slash "Programs/Flyer_Support/Flyer.bin.DF")))
  1024.     (if (exists (cat newtek_dir slash "Programs/Flyer_Support/Flyer.bin.sea"))        (delete (cat newtek_dir slash "Programs/Flyer_Support/Flyer.bin.sea")))
  1025. )
  1026.  
  1027. (procedure SETUP_FOR_AGA
  1028.    (if (exists (cat newtek_dir slash "programs/VideoToaster.aa"))
  1029.        ((if (exists (cat newtek_dir slash "programs/VideoToaster"))
  1030.             (delete (cat newtek_dir slash "programs/VideoToaster")))
  1031.         (rename (cat newtek_dir slash "programs/VideoToaster.aa") 
  1032.                 (cat newtek_dir slash "programs/VideoToaster"))))
  1033.    (if (exists (cat newtek_dir slash "programs/ToasterPaint2000"))
  1034.       (delete (cat newtek_dir slash "programs/ToasterPaint2000")))
  1035.     (if (exists (cat newtek_dir slash "programs/Switcher.main.3.0"))
  1036.        (delete (cat newtek_dir slash "programs/Switcher.main.3.0")))
  1037.     (if (exists (cat newtek_dir slash "programs/Switcher_Support/VTA.3.0"))
  1038.        (delete (cat newtek_dir slash "programs/Switcher_Support/VTA.3.0")))
  1039.     (if (exists (cat newtek_dir slash "programs/Switcher_Support/VTI.3.0"))
  1040.        (delete (cat newtek_dir slash "programs/Switcher_Support/VTI.3.0")))
  1041.     (if (exists (cat newtek_dir slash "programs/Switcher.main"))
  1042.        (delete (cat newtek_dir slash "programs/Switcher.main")))
  1043.     (if (exists (cat newtek_dir slash "programs/Patch3000"))
  1044.        (delete (cat newtek_dir slash "programs/Patch3000")))
  1045.     (if (exists (cat newtek_dir slash "programs/Patch3000.info"))
  1046.        (delete (cat newtek_dir slash "programs/Patch3000.info")))
  1047.     (if (exists (cat newtek_dir slash "programs/CustomStart"))
  1048.        (delete (cat newtek_dir slash "programs/CustomStart")))
  1049.     (if (exists (cat newtek_dir slash "programs/CustomStart.info"))
  1050.        (delete (cat newtek_dir slash "programs/CustomStart.info")))
  1051.     (if (exists (cat newtek_dir slash "programs/VideoToaster.info"))
  1052.        (delete (cat newtek_dir slash "programs/VideoToaster.info")))
  1053. )
  1054.  
  1055. (procedure SETUP_FOR_OLD_NON_AGA
  1056.    ((if (exists (cat newtek_dir slash "Programs/Switcher.main.3.0"))
  1057.        ((if (exists (cat newtek_dir slash "Programs/Switcher.main"))
  1058.             (delete (cat newtek_dir slash "Programs/Switcher.main")))
  1059.         (rename (cat newtek_dir slash "Programs/Switcher.main.3.0")
  1060.                 (cat newtek_dir slash "Programs/Switcher.main"))))
  1061.     (if (exists (cat newtek_dir slash "Programs/Switcher_Support/vta.3.0"))
  1062.        ((if (exists (cat newtek_dir slash "Programs/Switcher_support/vta"))
  1063.             (delete (cat newtek_dir slash "Programs/Switcher_Support/vta")))
  1064.         (rename (cat newtek_dir slash "Programs/Switcher_Support/vta.3.0")
  1065.             (cat newtek_dir slash "Programs/Switcher_Support/vta"))))
  1066.     (if (exists (cat newtek_dir slash "Programs/Switcher_Support/vti.3.0"))
  1067.        ((if (exists (cat newtek_dir slash "Programs/Switcher_support/vti"))
  1068.             (delete (cat newtek_dir slash "Programs/Switcher_Support/vti")))
  1069.         (rename (cat newtek_dir slash "Programs/Switcher_Support/vti.3.0")
  1070.             (cat newtek_dir slash "Programs/Switcher_Support/vti"))))
  1071.     (if (exists (cat newtek_dir slash "Programs/ToasterPaint2000"))
  1072.        ((if (exists (cat newtek_dir slash "Programs/ToasterPaint"))
  1073.             (delete (cat newtek_dir slash "Programs/ToasterPaint")))
  1074.         (rename (cat newtek_dir slash "Programs/ToasterPaint2000")
  1075.                 (cat newtek_dir slash "Programs/ToasterPaint"))))
  1076.     (if (exists (cat newtek_dir slash "programs/4000patch"))
  1077.        (delete (cat newtek_dir slash "programs/4000patch")))
  1078.     (if (exists (cat newtek_dir slash "programs/Switcher.main.aa"))
  1079.         (delete (cat newtek_dir slash "programs/Switcher.main.aa")))
  1080.     (if (exists (cat newtek_dir slash "programs/VideoToaster.aa"))
  1081.         (delete (cat newtek_dir slash "programs/VideoToaster.aa")))
  1082.     (if (exists (cat newtek_dir slash "programs/Switcher_Support/vta.aa"))
  1083.         (delete (cat newtek_dir slash "programs/Switcher_Support/vta.aa")))
  1084.      (if (exists (cat newtek_dir slash "programs/Switcher_Support/vta2.aa"))
  1085.          (delete (cat newtek_dir slash "programs/Switcher_Support/vta2.aa")))
  1086.     (if (exists (cat newtek_dir slash "programs/Switcher_Support/vti.aa"))
  1087.         (delete (cat newtek_dir slash "programs/Switcher_Support/vti.aa")))
  1088.     (if (exists (cat newtek_dir slash "programs/Switcher_Support/vti2.aa"))
  1089.         (delete (cat newtek_dir slash "programs/Switcher_Support/vti2.aa")))
  1090.  
  1091.    )
  1092. )
  1093.  
  1094. (procedure SETUP_FOR_NEW_NON_AGA
  1095.    (
  1096.     (if (exists (cat newtek_dir slash "Programs/ToasterPaint2000"))
  1097.        ((if (exists (cat newtek_dir slash "Programs/ToasterPaint"))
  1098.             (delete (cat newtek_dir slash "Programs/ToasterPaint")))
  1099.         (rename (cat newtek_dir slash "Programs/ToasterPaint2000")
  1100.                 (cat newtek_dir slash "Programs/ToasterPaint"))))
  1101.     (if (exists (cat newtek_dir slash "programs/4000patch"))
  1102.        (delete (cat newtek_dir slash "programs/4000patch")))
  1103.     (if (exists  (cat newtek_dir slash "programs/Switcher.main.3.0"))
  1104.         (delete (cat newtek_dir slash "programs/Switcher.main.3.0")))
  1105.     (if (exists  (cat newtek_dir slash "programs/Switcher_Support/VTA.3.0"))
  1106.         (delete (cat newtek_dir slash "programs/Switcher_Support/VTA.3.0")))
  1107.     (if (exists  (cat newtek_dir slash "programs/Switcher_Support/VTI.3.0"))
  1108.         (delete (cat newtek_dir slash "programs/Switcher_Support/VTI.3.0")))
  1109.     (if (exists  (cat newtek_dir slash "programs/Switcher.main.aa"))
  1110.         (delete (cat newtek_dir slash "programs/Switcher.main.aa")))
  1111.     (if (exists  (cat newtek_dir slash "programs/Switcher_Support/vta.aa"))
  1112.         (delete (cat newtek_dir slash "programs/Switcher_Support/vta.aa")))
  1113.     (if (exists  (cat newtek_dir slash "programs/Switcher_Support/vta2.aa"))
  1114.         (delete (cat newtek_dir slash "programs/Switcher_Support/vta2.aa")))
  1115.     (if (exists  (cat newtek_dir slash "programs/Switcher_Support/vti.aa"))
  1116.         (delete (cat newtek_dir slash "programs/Switcher_Support/vti.aa")))
  1117.     (if (exists  (cat newtek_dir slash "programs/Switcher_Support/vti2.aa"))
  1118.         (delete (cat newtek_dir slash "programs/Switcher_Support/vti2.aa")))
  1119.    )
  1120. )
  1121.  
  1122. (procedure DO_BACKUP
  1123.     (
  1124.         (if (AND (exists (cat newtek_dir slash "programs/edit_support/dirtabs")) 
  1125.                (NOT (exists (cat newtek_dir slash "programs/edit_support/dirtabs.bak"))))
  1126.             (rename  (cat newtek_dir slash "programs/edit_support/dirtabs")
  1127.                         (cat newtek_dir slash "programs/edit_support/dirtabs.bak"))
  1128.         )
  1129.         (if (AND (exists (cat newtek_dir slash "programs/cg_support/cg-config")) 
  1130.                (NOT (exists (cat newtek_dir slash "programs/cg_support/cg-config.bak"))))
  1131.             (rename  (cat newtek_dir slash "programs/cg_support/cg-config")
  1132.                         (cat newtek_dir slash "programs/cg_support/cg-config.bak"))
  1133.         )
  1134.         (if (AND (exists (cat newtek_dir slash "programs/switcher_support/hs")) 
  1135.                (NOT (exists (cat newtek_dir slash "programs/switcher_support/hs.bak"))))
  1136.             (rename  (cat newtek_dir slash "programs/switcher_support/hs")
  1137.                         (cat newtek_dir slash "programs/switcher_support/hs.bak"))
  1138.         )
  1139.  
  1140.         (if (AND (exists (cat newtek_dir slash "programs/lightwave_support/LW-config")) 
  1141.                (NOT (exists (cat newtek_dir slash "programs/lightwave_support/LW-config.bak"))))
  1142.             (rename  (cat newtek_dir slash "programs/lightwave_support/LW-config")
  1143.                         (cat newtek_dir slash "programs/lightwave_support/LW-config.bak"))
  1144.         )
  1145.         (if (AND (exists (cat newtek_dir slash "programs/lightwave_support/MOD-config")) 
  1146.                (NOT (exists (cat newtek_dir slash "programs/lightwave_support/MOD-config.bak"))))
  1147.             (rename  (cat newtek_dir slash "programs/lightwave_support/MOD-config")
  1148.                         (cat newtek_dir slash "programs/lightwave_support/MOD-config.bak"))
  1149.         )
  1150.  
  1151.     )
  1152. )
  1153.  
  1154. (procedure DO_RESTORE
  1155.     (
  1156.         (if (exists (cat newtek_dir slash "programs/edit_support/dirtabs.bak"))
  1157.             ((delete (cat newtek_dir slash "programs/edit_support/dirtabs"))
  1158.              (rename (cat newtek_dir slash "programs/edit_support/dirtabs.bak")
  1159.                         (cat newtek_dir slash "programs/edit_support/dirtabs"))
  1160.           )
  1161.         )
  1162.         (if (exists (cat newtek_dir slash "programs/edit_support/hs"))
  1163.             (delete (cat newtek_dir slash "programs/edit_support/hs"))
  1164.         )
  1165.         (if (exists (cat newtek_dir slash "programs/edit_support/hs.bak"))
  1166.              (rename (cat newtek_dir slash "programs/edit_support/hs.bak")
  1167.                         (cat newtek_dir slash "programs/edit_support/hs"))
  1168.         )
  1169.         (if (exists (cat newtek_dir slash "programs/cg_support/cg-config.bak"))
  1170.             ((delete (cat newtek_dir slash "programs/cg_support/cg-config"))
  1171.              (rename (cat newtek_dir slash "programs/cg_support/cg-config.bak")
  1172.                         (cat newtek_dir slash "programs/cg_support/cg-config"))
  1173.           )
  1174.         )
  1175.         (if (exists (cat newtek_dir slash "programs/lightwave_support/lw-config.bak"))
  1176.             ((delete (cat newtek_dir slash "programs/lightwave_support/lw-config"))
  1177.              (rename (cat newtek_dir slash "programs/lightwave_support/lw-config.bak")
  1178.                         (cat newtek_dir slash "programs/lightwave_support/lw-config"))
  1179.           )
  1180.         )
  1181.         (if (exists (cat newtek_dir slash "programs/lightwave_support/mod-config.bak"))
  1182.             ((delete (cat newtek_dir slash "programs/lightwave_support/mod-config"))
  1183.              (rename (cat newtek_dir slash "programs/lightwave_support/mod-config.bak")
  1184.                         (cat newtek_dir slash "programs/lightwave_support/mod-config"))
  1185.           )
  1186.         )
  1187.     )
  1188. )
  1189.  
  1190. (procedure REMOVE_BAD_FX_AREXX
  1191.     ((if (exists (cat newtek_dir slash "effects/Animals/Giraffe !"))
  1192.         (delete (cat newtek_dir slash "effects/Animals/Giraffe !")))    
  1193.     (if (exists (cat newtek_dir slash "effects/Animals/Giraffe !.i"))
  1194.         (delete (cat newtek_dir slash "effects/Animals/Giraffe !.i")))    
  1195.     (if (exists (cat newtek_dir slash "effects/Border/Bar Glass !"))
  1196.         (delete (cat newtek_dir slash "effects/Border/Bar Glass !")))    
  1197.     (if (exists (cat newtek_dir slash "effects/Border/Bar Glass !.i"))
  1198.         (delete (cat newtek_dir slash "effects/Border/Bar Glass !.i")))    
  1199.     (if (exists (cat newtek_dir slash "effects/Border/Bar Wide Jade !"))
  1200.         (delete (cat newtek_dir slash "effects/Border/Bar Wide Jade !")))    
  1201.     (if (exists (cat newtek_dir slash "effects/Border/Bar Wide Jade !.i"))
  1202.         (delete (cat newtek_dir slash "effects/Border/Bar Wide Jade !.i")))    
  1203.     (if (exists (cat newtek_dir slash "effects/People/Running Man !"))
  1204.         (delete (cat newtek_dir slash "effects/People/Running Man !")))    
  1205.     (if (exists (cat newtek_dir slash "effects/People/Running Man !.i"))
  1206.         (delete (cat newtek_dir slash "effects/People/Running Man !.i")))    
  1207.     (if (exists (cat newtek_dir slash "effects/Special/Watch !"))
  1208.         (delete (cat newtek_dir slash "effects/Special/Watch !")))    
  1209.     (if (exists (cat newtek_dir slash "effects/Special/Watch !.i"))
  1210.         (delete (cat newtek_dir slash "effects/Special/Watch !.i")))    
  1211.     (if (exists (cat newtek_dir slash "effects/Organic/Cloud Tunnel"))
  1212.         (delete (cat newtek_dir slash "effects/Organic/Cloud Tunnel")))    
  1213.     (if (exists (cat newtek_dir slash "effects/Organic/Cloud Tunnel.i"))
  1214.         (delete (cat newtek_dir slash "effects/Organic/Cloud Tunnel.i")))    
  1215.     (if (exists (cat newtek_dir slash "effects/People/Arobics-L"))
  1216.         (delete (cat newtek_dir slash "effects/People/Arobics-L")))    
  1217.     (if (exists (cat newtek_dir slash "effects/People/Arobics-L.i"))
  1218.         (delete (cat newtek_dir slash "effects/People/Arobics-L.i")))    
  1219.     (if (exists (cat newtek_dir slash "effects/People/Arobics-R"))
  1220.         (delete (cat newtek_dir slash "effects/People/Arobics-R")))    
  1221.     (if (exists (cat newtek_dir slash "effects/People/Arobics-R.i"))
  1222.         (delete (cat newtek_dir slash "effects/People/Arobics-R.i")))    
  1223.     (if (exists (cat newtek_dir slash "effects/People/HandGun"))
  1224.         (delete (cat newtek_dir slash "effects/People/HandGun")))    
  1225.     (if (exists (cat newtek_dir slash "effects/People/HandGun.i"))
  1226.         (delete (cat newtek_dir slash "effects/People/HandGun.i")))    
  1227.     (if (exists (cat newtek_dir slash "ARexx/CG/Ascii.rexx"))
  1228.         (delete (cat newtek_dir slash "ARexx/CG/Ascii.rexx")))    
  1229.     (if (exists (cat newtek_dir slash "ARexx/CG/BatchPages.rexx"))
  1230.         (delete (cat newtek_dir slash "ARexx/CG/BatchPages.rexx")))    
  1231.     (if (exists (cat newtek_dir slash "ARexx/CG/BoxMaker.Rexx"))
  1232.         (delete (cat newtek_dir slash "ARexx/CG/BoxMaker.Rexx")))    
  1233.     (if (exists (cat newtek_dir slash "ARexx/CG/BumpLines.Rexx"))
  1234.         (delete (cat newtek_dir slash "ARexx/CG/BumpLines.Rexx")))    
  1235.     (if (exists (cat newtek_dir slash "ARexx/CG/CGhaiku.Rexx"))
  1236.         (delete (cat newtek_dir slash "ARexx/CG/CGhaiku.Rexx")))    
  1237.     (if (exists (cat newtek_dir slash "ARexx/CG/DOS_Command.rexx"))
  1238.         (delete (cat newtek_dir slash "ARexx/CG/DOS_Command.rexx")))    
  1239.     (if (exists (cat newtek_dir slash "ARexx/CG/RexxLauncher.rexx"))
  1240.         (delete (cat newtek_dir slash "ARexx/CG/RexxLauncher.rexx")))    
  1241.     (if (exists (cat newtek_dir slash "ARexx/CG/SaveAttrib.Rexx"))
  1242.         (delete (cat newtek_dir slash "ARexx/CG/SaveAttrib.Rexx")))    
  1243.     (if (exists (cat newtek_dir slash "ARexx/CG/SpellCheck.rexx"))
  1244.         (delete (cat newtek_dir slash "ARexx/CG/SpellCheck.rexx")))    
  1245.     (if (exists (cat newtek_dir slash "ARexx/CG/TextOut.Rexx"))
  1246.         (delete (cat newtek_dir slash "ARexx/CG/TextOut.Rexx")))    
  1247.     )
  1248. )
  1249.  
  1250. (procedure REMOVE_FLYER_FILES
  1251.     (
  1252.     (if (exists "libs:flyer.library")
  1253.         (delete "libs:flyer.library"))    
  1254.     (if (exists "devs:flyerscsi.device")
  1255.         (delete "devs:flyerscsi.device"))    
  1256.     (if (exists "l:flyerfilesystem")
  1257.         (delete "l:flyerfilesystem"))    
  1258.     (if (exists "c:flyerinit")
  1259.         (delete "c:flyerinit"))
  1260.     (if (exists "devs:dosdrivers/fa0")
  1261.         ((delete "devs:dosdrivers/fa0")
  1262.          (delete "devs:dosdrivers/fa0.inf")))
  1263.     (if (exists "devs:dosdrivers/fb0")
  1264.         ((delete "devs:dosdrivers/fb0")
  1265.          (delete "devs:dosdrivers/fb0.info")))
  1266.     (if (exists "devs:dosdrivers/fc0")
  1267.         ((delete "devs:dosdrivers/fc0")
  1268.          (delete "devs:dosdrivers/fc0.info")))
  1269.     (if (exists "sys:storage/dosdrivers/fa0")
  1270.         ((delete "sys:storage/dosdrivers/fa0")
  1271.          (delete "sys:storage/dosdrivers/fa0.info")))
  1272.     (if (exists "sys:storage/dosdrivers/fa1")
  1273.         ((delete "sys:storage/dosdrivers/fa1")
  1274.          (delete "sys:storage/dosdrivers/fa1.info")))
  1275.     (if (exists "sys:storage/dosdrivers/fa2")
  1276.         ((delete "sys:storage/dosdrivers/fa2")
  1277.          (delete "sys:storage/dosdrivers/fa2.info")))
  1278.     (if (exists "sys:storage/dosdrivers/fa3")
  1279.         ((delete "sys:storage/dosdrivers/fa3")
  1280.          (delete "sys:storage/dosdrivers/fa3.info")))
  1281.     (if (exists "sys:storage/dosdrivers/fa4")
  1282.         ((delete "sys:storage/dosdrivers/fa4")
  1283.          (delete "sys:storage/dosdrivers/fa4.info")))
  1284.     (if (exists "sys:storage/dosdrivers/fa5")
  1285.         ((delete "sys:storage/dosdrivers/fa5")
  1286.          (delete "sys:storage/dosdrivers/fa5.info")))
  1287.     (if (exists "sys:storage/dosdrivers/fa6")
  1288.         ((delete "sys:storage/dosdrivers/fa6")
  1289.          (delete "sys:storage/dosdrivers/fa6.info")))
  1290.     (if (exists "sys:storage/dosdrivers/fb0")
  1291.         ((delete "sys:storage/dosdrivers/fb0")
  1292.          (delete "sys:storage/dosdrivers/fb0.info")))
  1293.     (if (exists "sys:storage/dosdrivers/fb1")
  1294.         ((delete "sys:storage/dosdrivers/fb1")
  1295.          (delete "sys:storage/dosdrivers/fb1.info")))
  1296.     (if (exists "sys:storage/dosdrivers/fb2")
  1297.         ((delete "sys:storage/dosdrivers/fb2")
  1298.          (delete "sys:storage/dosdrivers/fb2.info")))
  1299.     (if (exists "sys:storage/dosdrivers/fb3")
  1300.         ((delete "sys:storage/dosdrivers/fb3")
  1301.          (delete "sys:storage/dosdrivers/fb3.info")))
  1302.     (if (exists "sys:storage/dosdrivers/fb4")
  1303.         ((delete "sys:storage/dosdrivers/fb4")
  1304.          (delete "sys:storage/dosdrivers/fb4.info")))
  1305.     (if (exists "sys:storage/dosdrivers/fb5")
  1306.         ((delete "sys:storage/dosdrivers/fb5")
  1307.          (delete "sys:storage/dosdrivers/fb5.info")))
  1308.     (if (exists "sys:storage/dosdrivers/fb6")
  1309.         ((delete "sys:storage/dosdrivers/fb6")
  1310.          (delete "sys:storage/dosdrivers/fb6.info")))
  1311.     (if (exists "sys:storage/dosdrivers/fc0")
  1312.         ((delete "sys:storage/dosdrivers/fc0")
  1313.          (delete "sys:storage/dosdrivers/fc0.info")))
  1314.     (if (exists "sys:storage/dosdrivers/fc1")
  1315.         ((delete "sys:storage/dosdrivers/fc1")
  1316.          (delete "sys:storage/dosdrivers/fc1.info")))
  1317.     (if (exists "sys:storage/dosdrivers/fc2")
  1318.         ((delete "sys:storage/dosdrivers/fc2")
  1319.          (delete "sys:storage/dosdrivers/fc2.info")))
  1320.     (if (exists "sys:storage/dosdrivers/fc3")
  1321.         ((delete "sys:storage/dosdrivers/fc3")
  1322.          (delete "sys:storage/dosdrivers/fc3.info")))
  1323.     (if (exists "sys:storage/dosdrivers/fc4")
  1324.         ((delete "sys:storage/dosdrivers/fc4")
  1325.          (delete "sys:storage/dosdrivers/fc4.info")))
  1326.     (if (exists "sys:storage/dosdrivers/fc5")
  1327.         ((delete "sys:storage/dosdrivers/fc5")
  1328.          (delete "sys:storage/dosdrivers/fc5.info")))
  1329.     (if (exists "sys:storage/dosdrivers/fc6")
  1330.         ((delete "sys:storage/dosdrivers/fc6")
  1331.          (delete "sys:storage/dosdrivers/fc6.info")))
  1332.     (if (exists "sys:storage/dosdrivers/cd6")
  1333.         ((delete "sys:storage/dosdrivers/cd6")
  1334.          (delete "sys:storage/dosdrivers/cd6.info")))
  1335.     (if (exists (cat newtek_dir slash "programs/flyercalibrate"))
  1336.         (delete (cat newtek_dir slash "programs/flyercalibrate")))    
  1337.     (if (exists (cat newtek_dir slash "programs/flyercalibrate.info"))
  1338.         (delete (cat newtek_dir slash "programs/flyercalibrate.info")))    
  1339.     (if (exists (cat newtek_dir slash "programs/FlyerHDTools"))
  1340.         (delete (cat newtek_dir slash "programs/FlyerHDTools")))    
  1341.     (if (exists (cat newtek_dir slash "programs/FlyerHDTools.info"))
  1342.         (delete (cat newtek_dir slash "programs/FlyerHDTools.info")))    
  1343.     )
  1344. )
  1345.  
  1346. ;*********************** MAIN PROGRAM **************************************
  1347.  
  1348. (welcome)
  1349. (GET_DRIVE)
  1350. ;(set full_install (askchoice 
  1351. ;                      (prompt (cat "\n\nPlease choose the installation"
  1352. ;                                   " that you would like to perform:"))
  1353. ;                      (choices "Install VT 4.1B Software from CD"
  1354. ;                               "Update Existing VT 4.1B from floppy")
  1355. ;                      (help install_type_help)))
  1356.  
  1357. (set full_install 0)
  1358. (if (NOT (= machine_type "AGA"))
  1359.     (set toaster_type (askchoice (prompt (cat "Please select the model of "
  1360.                                              "Video Toaster that you have..."))
  1361.                                 (choices "Video Toaster" "Video Toaster 4000")
  1362.                                 (help "The Install needs to know which Toaster card you are using"))
  1363.     )
  1364. )
  1365.  
  1366. (set install_flyer (askbool (prompt (cat "\n\nWould you like to install the "
  1367.                                                     "software for the Video Toaster Flyer?\n"))
  1368.                                      (default 1)
  1369.                                      (help (cat "Choosing 'YES' will install the files "
  1370.                                                     "necessary to run the Video Toaster Flyer."))
  1371.                          )
  1372. )
  1373.  
  1374. (if (exists "devs:asimcdfs.device")
  1375.     (set install_asim (askchoice 
  1376.                                 (prompt (cat "\n\nThe installer has detected that "
  1377.                                     "a CD-ROM filesystem is already installed on "
  1378.                                     "this system."
  1379.                                     ))
  1380.                                 (choices "Use the version detected on this system" 
  1381.                                             "Install version on 4.1B floppy")
  1382.                                 (help cdfs_help)
  1383.                             )
  1384.     )
  1385.     (set install_asim 1)
  1386. )
  1387.  
  1388.  
  1389.  
  1390. (DO_BACKUP)
  1391. (if (NOT (exists ("c:more")))
  1392.    (copyfiles (source (cat disk_label  "1:c/more"))
  1393.               (dest "c:"))
  1394. )
  1395. (if (= 1 full_install)
  1396.    (DO_UPDATE_1)
  1397.    (
  1398.     (INSTALL_FLYER_SYSTEM)
  1399.      (if install_flyer
  1400.        ((run (cat disk_label "1:c/libcheck flyer.library"))
  1401.          (if (AND (<> (getenv "LibVer") "0.0") (<> (getenv "LibVer") FLY_LIB_VERSION))
  1402.           (if (NOT (askbool((prompt (cat "The Video Toaster Flyer is already "
  1403.                                         "running with a different version of software. "
  1404.                                         "You should reboot the system and re-start the "
  1405.                                         "installation.  Continuing with the installation "
  1406.                                         "without rebooting may cause the system to become "
  1407.                                         "unstable or crash."))
  1408.                                     (help (cat "The system is already running a different "
  1409.                                                 "version of Flyer software.  The installation "
  1410.                                                 "replaces many parts of the Flyer software. "
  1411.                                                 "If the Flyer is currently using something "
  1412.                                                 "that the installer needs to replace, then "
  1413.                                                 "a conflict may cause the installer, the "
  1414.                                                 "Flyer, or both to behave incorrectly.  A "
  1415.                                                 "reboot at this point is HIGHLY recommended."))
  1416.                                     (choices "Continue" "Abort"))))
  1417.                  (abort "Aborting Installation!\nPlease reboot and re-run "
  1418.                             "the installation.")
  1419.           )
  1420.          )
  1421.         )
  1422.      )
  1423.      (if (AND (exists "c:info") (NOT (exists "c:info.old")))
  1424.         (rename "c:info" "C:info.old"))
  1425.     (GET_CHOICES)
  1426.     (GET_START_OPTIONS)
  1427.      (REMOVE_BAD_FX_AREXX)
  1428.     (INSTALL_PARTS)
  1429.     (INSTALL_MAIN)
  1430.     (DO_UPDATE_1)
  1431.      (if (NOT (exists (cat newtek_dir ".info")))
  1432.         (run (cat "copy " flyer_drive_1 ":Programs/system_support/NewTek.info " newtek_dir ".info"))
  1433.      )
  1434.      (if (NOT (exists (cat newtek_dir slash "Programs.info")))
  1435.         (run (cat "copy " flyer_drive_1 ":Programs.info " newtek_dir slash "Programs.info")))
  1436.  
  1437.     (DO_STARTUP))
  1438. )
  1439. (if (> num_disks 1)
  1440.     (DO_OTHER_DISKS)
  1441. )
  1442.  
  1443. (working "\n\nPlease wait! \nCleaning up unnecessary files.\nThis may take a while...")
  1444. (if (= machine_type "AGA")
  1445.    (SETUP_FOR_AGA)
  1446.    (if toaster_type
  1447.       (SETUP_FOR_NEW_NON_AGA)
  1448.       (SETUP_FOR_OLD_NON_AGA)
  1449.    )
  1450. )
  1451. (REMOVE_ALLICONS)
  1452. (REMOVE_DRIVERS_AND_BAD_FILES)
  1453. (if (NOT install_flyer)
  1454.     (REMOVE_FLYER_FILES)
  1455. )
  1456. (run "c:voidall >nil:")
  1457.  
  1458. (DO_RESTORE)
  1459. (set @default-dest newtek_dir)
  1460. (complete 100)
  1461. (if (askbool (prompt (cat "\n\nThe ReadMe file has been updated with "
  1462.                                          "new features and bug fixes since the "
  1463.                                          "last update.  Please read this file "
  1464.                                          "before using the new software.  Would "
  1465.                                          "you like to view the ReadMe file now?"))
  1466.  
  1467.                     (help (cat "The ReadMe file has been updated with "
  1468.                                   "new features and bug fixes since the "
  1469.                                   "last update.  Please read this file "
  1470.                                   "before using the new software."))
  1471.                     (choices "Read it Now" "Read it Later"))
  1472.     
  1473.     (run (cat "run more " newtek_dir slash "readme"))
  1474. )
  1475.  
  1476. (message "Installation is now complete."
  1477.          "Please reboot your computer to allow all changes to take effect.")
  1478.  
  1479.