failat 21

if not exists XEN-Icons
  echo "*n Please change current directory to that of MagicWB *n or start the installation from the Workbench!*n"
  quit
endif

if exists SYS:Prefs/Patterns
  if exists ENVARC:sys/def_kick.info
    echo "*N*N*N*N*N*n*n You have already installed an older version of MagicWB."
    echo " I would recommend you to UPDATE MagicWB rather than install it for new."
    Echo noline "*n Would you like to UPDATE MagicWB? "
    set > nil: InpVar ?

    if $InpVar eq "ja"
      skip update
    endif

    if $InpVar eq "j"
      skip update
    endif

    if $InpVar eq "y"
      skip update
    endif

    if $InpVar eq "yes"
      skip update
    endif

  endif
  echo "*e[1;1H*e[J"
endif


echo "*e[1;32m _________________________________________________________________________"
echo " *e[43m                                                                         *e[0m"
echo " *e[0;32;43m             Welcome to the INSTALLATION of MagicWB v2.1p*e[1m                *e[0m"
echo " *e[1;4;43m                                                                         *e[0m"
echo "*n*n This Installation will automatically install *e[32mMagicWB*e[0m to your SYS:"
echo " directory. Don't be afraid; the only things that will be replaced"
echo " (overwritten) by this installation are the old (and ugly-looking) Icons"
echo " from Commodore. These old Icons will be replaced by far better-looking"
echo " Icons (called XEN-Icons) from this *e[32mMagicWB*e[0m-Package.*n"
echo " MagicWB now DOES PRESERVE your original tooltypes, stack and default"
echo " tool settings! So (for your convenience) your personal modifications"
echo " within the Icons WILL NOT be overwritten by this installation. MagicWB"
echo " just REPLACES the IMAGES of your old Icons with those magic images"
echo " from MagicWB (even your snapshot positions will be preserved).*n"
echo " After all, you do have the old Icons by Commodore on your original"
echo " Installation Disks. Therefore you won't lose anything! So, if you dislike"
echo " the XEN-Icons - what I really cannot believe - then you can still replace"
echo " them with the old ones by reinstalling the Workbench again.*n"
echo noline "   [Return]"
set > nil: Return ?
echo "*e[1;1H*e[J"
echo "*n Second, this installation will install THREE new FONTS to your FONTS-"
echo " Drawer called 'XEN', 'XHelvetica' and 'XCourier'.*n"
echo " Third, your font.prefs in the ENVARC:SYS directory will be changed to use"
echo " the three new installed fonts (you can of course reconfigure these settings"
echo " to fit your own personal taste; NOTHING important will be deleted).*n"
echo " Fourth, your palette.ilbm will be changed to fit the XEN-Icons: You will"
echo " need at least 8 colors. This new palette will NOT change the standard"
echo " colors that you are probably using at the moment. These first four"
echo " standard colors are Gray, Black, White and Blue. So, you will have the"
echo " same standard-looking Workbench with its original colors (again: nothing"
echo " will get lost).*n"
echo noline "   [Return]"
set > nil: Return ?
echo "*e[1;1H*e[J"
echo "*n IMPORTANT: The only thing you have to do is to change SCREENMODE-PREFS to"
echo " a proportional resolution with 8 COLORS (e.g. 640x480 or 800x600 8 Colors)"
echo " after this installation is finished!*n"
echo " Finally, TWO Background-Patterns will be installed in the SYS:Prefs/Patterns"
echo " directory (will be created). By default these patterns are 'Marble_CLASSIC'"
echo " and 'MarbleDark'. After this installation you can manually copy all patterns"
echo " or just your desired ones to this directory and configure them via the"
echo " WBPattern-Prefs (only 3.x users) or the program 'NickPrefs' (for 2.x users;"
echo " to be found in the 'MagicWB/Patterns/NickPrefs' drawer of this package).*n"
echo " That's all! You can now proceed with this installation and in a few minutes"
echo " you will be the lucky user of *e[32mMagicWB*e[0m! This installation will be inter-"
echo " active, which means that you will be asked certain questions in order to"
echo " influence this installation.*n"
echo noline " Start the installation? "

set > nil: InpVar ?

if $InpVar eq "ja"
  skip Start
endif

if $InpVar eq "j"
  skip Start
endif

if $InpVar eq "y"
  skip Start
endif

if $InpVar eq "yes"
  skip Start
endif

echo "*n*e[32m Installation aborted! I hope I see you again..."
quit


lab Start
run >NIL: AboutMagicWB
echo "*e[1;1H*e[J"
echo " Installation in progress...*n"

assign Magic: ""
resident IU Magic:Programs/IconUpdate pure
if warn
  echo "*e[32m Installation aborted due to failure of the 'resident' command!*n This failure might be a bug in the Operating System with the*n 'IconX' command. Try to start the 'Install' script via the shell:"
  echo " Go to the MagicWB directory (with 'cd') and type 'execute install'."
  wait 20
  quit
endif


echo noline " Installing XEN-Icons to SYS:System..."
C:LIST > ram:MWB SYS:System/#?.info lformat "IU > NIL: tsd XEN-Icons/System/%n SYS:System/%n"
failat 21
execute > NIL: ram:MWB

if exists SYS:System/DiskCopy.info
  delete SYS:System/DiskCopy.info  ; Icon was redundant, without function!
endif
if exists SYS:System/CLI.info
  delete SYS:System/CLI.info  ; Icon was redundant.
endif
echo "..............................*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Utilities..."
C:LIST > ram:MWB SYS:Utilities/#?.info lformat "IU > NIL: tsdc XEN-Icons/Utilities/%n SYS:Utilities/%n"
failat 21
execute > NIL: ram:MWB
echo "...........................*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Tools..."
C:LIST > ram:MWB SYS:Tools/#?.info lformat "IU > NIL: tsdw XEN-Icons/Tools/%n SYS:Tools/%n"
failat 21
execute > NIL: ram:MWB
echo "...............................*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Tools/Commodities..."
C:LIST > ram:MWB SYS:Tools/Commodities/#?.info lformat "IU > NIL: tsd XEN-Icons/Tools/Commodities/%n SYS:Tools/Commodities/%n"
failat 21
execute > NIL: ram:MWB
echo "...................*e[33mDONE*e[0m"

echo noline " Installing XEN-Icons to SYS:WBStartup..."
C:LIST > ram:MWB SYS:WBStartup/#?.info lformat "IU > NIL: tsdc XEN-Icons/Tools/Commodities/%n SYS:WBStartup/%n"
failat 21
execute > NIL: ram:MWB
IU > NIL: tsdc Programs/Misc/TolleUhr.info SYS:WBStartup/TolleUhr.info
echo "...........................*e[33mDONE*e[0m"


if exists SYS:Devs/DataTypes
  echo noline " Installing XEN-Icons to SYS:Devs/DataTypes..."
  C:LIST > ram:MWB SYS:Devs/DataTypes/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/DataTypes/def_DataType.info %s%s"
  failat 21
  execute > NIL: ram:MWB
  if exists sys:Storage/DataTypes
    C:LIST > ram:MWB SYS:Storage/DataTypes/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/DataTypes/def_DataType.info %s%s"
    execute > NIL: ram:MWB
  endif
  echo "......................*e[33mDONE*e[0m"
endif


echo noline " Installing XEN-Icons to SYS:Devs/DOSDrivers..."
C:LIST > ram:MWB SYS:Devs/DOSDrivers/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/DOSDrivers/def_DOSDriver.info %s%s"
failat 21
execute > NIL: ram:MWB
if exists sys:Storage/DOSDrivers
  C:LIST > ram:MWB SYS:Storage/DOSDrivers/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/DOSDrivers/def_DOSDriver.info %s%s"
  execute > NIL: ram:MWB
endif
echo ".....................*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Devs/Keymaps..."
C:LIST > ram:MWB SYS:Devs/Keymaps/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/Keymaps/def_Keymap.info %s%s"
failat 21
execute > NIL: ram:MWB
if exists sys:Storage/Keymaps
  C:LIST > ram:MWB SYS:Storage/Keymaps/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/Keymaps/def_Keymap.info %s%s"
  execute > NIL: ram:MWB
endif
echo "........................*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Devs/Monitors..."
C:LIST > ram:MWB SYS:Devs/Monitors/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/Monitors/def_Monitor.info %s%s"
failat 21
execute > NIL: ram:MWB
if exists sys:Storage/Monitors
  C:LIST > ram:MWB SYS:Storage/Monitors/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/Monitors/def_Monitor.info %s%s"
  execute > NIL: ram:MWB
endif
echo ".......................*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Devs/Printers..."
C:LIST > ram:MWB SYS:Devs/Printers/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/Printers/def_Printer.info %s%s"
failat 21
execute > NIL: ram:MWB
if exists sys:Storage/Printers
  C:LIST > ram:MWB SYS:Storage/Printers/#?.info lformat "IU > NIL: tsdn XEN-Icons/Devs/Printers/def_Printer.info %s%s"
  execute > NIL: ram:MWB
endif
echo ".......................*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Prefs..."
C:LIST > ram:MWB SYS:Prefs/#?.info lformat "IU > NIL: tsd XEN-Icons/Prefs/%n SYS:Prefs/%n"
failat 21
execute > NIL: ram:MWB
echo "...............................*e[33mDONE*e[0m"


echo noline " Installing XEN-DEFAULT-Icons to ENVARC:Sys..."
copy > NIL: XEN-Icons/Prefs/Env-Archive/Sys/~(PaletteAGA|palette8bit.ilbm|WBPattern.prefs) TO ENVARC:Sys all
echo "......................*e[33mDONE*e[0m"


echo noline " Updating old Drawer-Icons in SYS:..."
C:LIST > ram:MWB SYS: dirs all lformat "if exists *"%f%n.info*" *n  C:LIST > ram:Length *"%f%n.info*" nohead nodates *n  search > NIL: ram:Length 1233 *n  if not warn *n  else *n    search > NIL: ram:Length 2625 *n    if not warn *n    else *n      IU > NIL: cwn XEN-Icons/Prefs/Env-Archive/Sys/def_Drawer.info *"%f%n.info*" *n    endif *n  endif *nendif*n"
execute > NIL: ram:MWB

if exists SYS:Trashcan.info
  IU > NIL: cw XEN-Icons/Prefs/Env-Archive/Sys/def_trashcan.info SYS:Trashcan.info
endif
echo "...............................*e[33mDONE*e[0m"
delete > NIL: ram:Length


version > NIL: exec.library 39
if warn
  skip Continue
endif
echo "*n Kickstart 3.x detected:*n"
set > NIL: Kick30 yep
echo noline " Installing Palette.prefs and WBPattern.prefs for Kickstart 3.x..."
delete > NIL: envarc:sys/sysfont.prefs ; file redundant for 3.x
delete > NIL: envarc:sys/wbfont.prefs  ; file redundant for 3.x
copy > NIL: XEN-Icons/Prefs/Env-Archive/Sys/PaletteAGA ENVARC:Sys/Palette.prefs CLONE
copy > NIL: XEN-Icons/Prefs/Env-Archive/Sys/WBPattern.prefs ENVARC:Sys
copy > NIL: XEN-Icons/Prefs/Env-Archive/Sys/palette8bit.ilbm ENVARC:Sys
echo "..*e[33mDONE*e[0m*n"

echo noline " Preparing MagicWB for Kickstart 3.x..."
if exists SYS:S/User-Startup
  search > NIL: SYS:S/User-Startup MagicWB-Demon
  if warn
    join Magic:Programs/AllocScript SYS:S/User-Startup TO RAM:User-Startup
    copy > NIL: RAM:User-Startup SYS:S
    delete > NIL: RAM:User-Startup
  endif
else
  copy Magic:Programs/AllocScript TO SYS:S/User-Startup
endif

search > NIL: SYS:S/Startup-Sequence MagicWB-Demon
if warn
  C:EDIT SYS:S/Startup-Sequence WITH Magic:Programs/SSScript
endif

copy > NIL: magic:Programs/MagicWB-Demon SYS:C
copy > NIL: magic:Programs/ataditm sys:s/mti.data
echo "..*e[33mDONE*e[0m*n"



echo "*e[1;1H*e[J"
echo noline "*n*n Do you have the AGA Chipset (A1200, A4000)? "

set > nil: AGA ?
echo "*e[1;1H*e[J"
if $AGA eq "ja"
  skip InstallAGA
endif
if $AGA eq "j"
  skip InstallAGA
endif
if $AGA eq "y"
  skip InstallAGA
endif
if $AGA eq "yes"
  skip InstallAGA
endif
skip Continue


lab InstallAGA

echo "*n MagicWB offers a special goody to all AGA-Users:*n"
echo " If you want, MagicWB will install a very special Background-Picture. This"
echo " Background-Picture will be an IntelOutside-Logo :) with a beautiful, blue"
echo " gradient on your WB (having more than 520 colors)! You can of course change"
echo " the colors of the gradient.*n"
echo " The magic thing about it is, that it will only need 50KB of Chip-Mem! And"
echo " the result is breathtaking. Second, it will need at least a 16-color-"
echo " screenmode.*n"
echo " If you are not sure about this, just try it out! You may always change this"
echo " configuration afterwards if you won't like it (but you will! ;).*n"
echo noline " Do you want to have this special AGA-Background installed? "

set > nil: AGAPic ?
echo "*e[1;1H*e[J"
if $AGAPic eq "ja"
  skip DoAGA
endif
if $AGAPic eq "j"
  skip DoAGA
endif
if $AGAPic eq "y"
  skip DoAGA
endif
if $AGAPic eq "yes"
  skip DoAGA
endif
skip Continue

lab DoAGA
echo "*e[1;1H*e[J"
echo "*n*n*e[32m I'm sorry! This feature is only available in the REGISTERED version.*e[0m"
wait 4
AboutMagicWB
set > NIL: AGAInstalled nope


lab Continue

echo " Installing XEN-SPECIAL-Icons:"
echo noline "     Installing Preset-Default-Icon to SYS:Prefs/Presets..."
copy > NIL: XEN-Icons/SPECIAL/Misc/Preset.info SYS:Prefs/Presets
echo ".........*e[33mDONE*e[0m"


echo noline "     Installing RAM-Icon to S:RAM.info......"
if exists SYS:S/RAM.info
  IU > NIL: dcw XEN-Icons/SPECIAL/Devices/RAM.info SYS:S/RAM.info
else
  copy > NIL: XEN-Icons/SPECIAL/Devices/RAM.info SYS:S
endif
if exists SYS:S/User-Startup
  search > NIL: SYS:S/User-Startup SYS:S/RAM.info
  if warn
    join Magic:Programs/RAMScript SYS:S/User-Startup TO RAM:User-Startup
    copy > NIL: RAM:User-Startup SYS:S
    delete > NIL: RAM:User-Startup
  endif
else
  copy > NIL: Magic:Programs/RAMScript TO SYS:S/User-Startup
endif
echo "........................*e[33mDONE*e[0m"


if exists SYS:Disk.info
  echo noline "*n Installing HardDisk-Icon to SYS:..."
  IU > NIL: dcw XEN-Icons/SPECIAL/Devices/HD.info SYS:Disk.info
  echo "................................*e[33mDONE*e[0m*n"
else
  lab Path
  echo noline "*n Please enter the PATH where the HardDisk-Icon should*n be installed (i.e. 'DH0:'): "
  set > NIL: Path ?
  if > NIL: not exists $Path
    echo " Wrong path, path does not exist! Try again...*n"
    skip back path
  endif
  echo noline " Installing HardDisk-Icon to $Path..."
  cd $Path
  IU > NIL: dcw Magic:XEN-Icons/SPECIAL/Devices/HD.info Disk.info
  cd Magic:
  echo "..*e[33mDONE*e[0m*n"
endif


lab HardDisk

echo noline " Do you want to have the HardDisk-Icon installed to other partitions? "
set > nil: HardDisk ?
echo "*e[1;1H*e[J"
if $HardDisk eq "ja"
  skip InstallHardDisk
endif
if $HardDisk eq "j"
  skip InstallHardDisk
endif
if $HardDisk eq "y"
  skip InstallHardDisk
endif
if $HardDisk eq "yes"
  skip InstallHardDisk
endif
skip Continue

lab InstallHardDisk
echo noline "*N Please enter the NAME of the desired partition (i.e. 'DH1:'): "
set > nil: Device [Return]
set > nil: Device ?
if not exists $Device
  echo " Wrong device, $Device does not exist! Try again..."
  skip back InstallHardDisk
endif
echo noline "*n Installing HardDisk-Icon to $Device..."
cd $Device
if exists Disk.info
  IU > NIL: dcw Magic:XEN-Icons/SPECIAL/Devices/HD.info Disk.info
else
  copy > NIL: Magic:XEN-Icons/SPECIAL/Devices/HD.info Disk.info
endif
cd Magic:
echo "................................*e[33mDONE*e[0m*n"
skip back HardDisk


lab Continue


echo "*e[1;1H*e[J"
Echo noline "*n Installing new Image-Drawer-Icons..."

IU > NIL: cw XEN-Icons/Special/ImageDrawers/DataTypes.info SYS:Devs/DataTypes.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/DataTypes.info SYS:storage/DataTypes.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/DOSDrivers.info SYS:Devs/DOSDrivers.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/DOSDrivers.info SYS:storage/DOSDrivers.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Keymaps.info SYS:Devs/Keymaps.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Keymaps.info SYS:storage/Keymaps.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Monitors.info SYS:Devs/Monitors.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Monitors.info SYS:storage/Monitors.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Printers.info SYS:Devs/Printers.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Printers.info SYS:storage/Printers.info

IU > NIL: cw XEN-Icons/Special/ImageDrawers/Presets.info SYS:Prefs/Presets.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Commodities.info SYS:Tools/Commodities.info

IU > NIL: cw XEN-Icons/Prefs.info SYS:Prefs.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/System.info SYS:System.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Tools.info SYS:Tools.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Utilities.info SYS:Utilities.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Devs.info SYS:Devs.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Storage.info SYS:Storage.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/WBStartup.info SYS:WBStartup.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Expansion.info SYS:Expansion.info

echo "..................*e[33mDONE*e[0m"


echo noline "*n Installing MagicWB-Fonts to FONTS:..."
copy > NIL: Fonts/#? TO FONTS: all
echo ".................*e[33mDONE*e[0m"


if not exists SYS:Prefs/Patterns
  makedir SYS:Prefs/Patterns
endif
version >NIL: exec.library 39
if warn
  echo noline "*N*n*n Installing ONE PATTERN to SYS:Prefs/Patterns*n (drawer will be created)..."
  copy > NIL: Patterns/Marble_CLASSIC TO SYS:Prefs/Patterns
else
  echo noline "*N*n*n Installing TWO PATTERNS to SYS:Prefs/Patterns*n (drawer will be created)..."
  SYS:Prefs/WBPattern FROM Magic:Programs/WBPattern.pre USE
  copy > NIL: Patterns/Marble_CLASSIC TO SYS:Prefs/Patterns
  copy > NIL: Patterns/MarbleDark TO SYS:Prefs/Patterns
endif
echo "..*e[33mDONE*e[0m"

wait 5

echo "*e[1;1H*e[J"
echo "*n*n Dock-Images are used to easily launch applications by just clicking on the"
echo " icon in the dock bar. Dock bars with MagicWB icons look very impressive"
echo " and professional. If you don't know what dock bars are, take a look at the"
echo " bottom of the MagicWB 'Preview' picture.*n*n"
echo " Do you want to install the MagicWB-Dock-Images to SYS:Prefs/MagicWB-Images?"
echo " The assign 'MagicWB:' for this directory will be added to 'S:User-Startup'"
echo " so that you only need to append the supplied MagicWB-Docks ToolManager-"
echo " configuration to your own ToolManager-config to enjoy the MagicWB-Docks."
echo noline "*n Would you like to have them installed? "
set > nil: docks ?
if $docks eq "ja"
  skip Installdocks
endif
if $docks eq "j"
  skip Installdocks
endif
if $docks eq "y"
  skip Installdocks
endif
if $docks eq "yes"
  skip Installdocks
endif
skip Continue

lab InstallDocks

echo "*e[1;1H*e[J"
echo "*n*n*e[32m I'm sorry! This feature is only available in the REGISTERED version.*e[0m"
wait 4
AboutMagicWB
lab continue
makedir > NIL: sys:prefs/MagicWB-Images
if exists SYS:S/User-Startup
  search > NIL: SYS:S/User-Startup "assign >NIL: MagicWB:"
  if warn
    echo >>sys:s/user-startup "assign >NIL: MagicWB: SYS:Prefs/MagicWB-Images"
    echo ".................*e[33mDONE*e[0m"
  endif
else
  echo >sys:s/user-startup "assign >NIL: MagicWB: SYS:Prefs/MagicWB-Images"
  echo "................*e[33mDONE*e[0m"
endif
copy >NIL: AboutMagicWB SYS:WBStartup
copy >NIL: XEN-Icons/SPECIAL/Misc/AboutMagicWB.info SYS:WBStartup
copy >NIL: Registration SYS:Prefs/MagicWB-Images CLONE

Echo "*n*N*n*n*n The installation of the UNREGISTERED version is now successfully finished."
echo > ENVARC:MagicWB "2.0"
echo "*n*n     [Return]"
set > nil: Return ?
echo "*e[1;1H*e[J"
echo "*n Finally some important information:*n"
echo "*n There are some things you immediately have to do after this installation"
echo " is finished."
echo "*n- You have to change the SCREENMODE-Preferences to a proportional resolution"
echo "  with at least 8 COLORS! Proportional resolutions are for example: 640x480,"
echo "  640x512, 800x600, 1024x768, 1280x1024 etc. But NOT a resolution like"
echo "  640x256 (=MedRes Pal) or similar resolutions where the horizontal pixels"
echo "  are nearly twice as much than the vertical amount of pixels. With these"
echo "  'non-square-pixel' resolutions the Icons and Fonts are being distorted."
echo "  So you have to use a proportional resolution to enjoy *e[32mMagicWB*e[0m as the"
echo "  author has planned it to be!"

if $AGAInstalled eq "yep"
  echo noline "*n     [Return]"
  set > nil: Return ?
  skip continue
endif

echo "*n  And you MUST select at least an 8 COLOR Workbench!"
echo "*e[J*n*e[32m  Now, by pressing RETURN, the ScreenMode-Prefs will appear. Please select"
echo "  a square-pixel-screenmode with 8 colors and click 'SAVE'...*e[0m"
echo "  (if a system requester asks you to close all windows, just move the"
echo "  requester aside and wait until this installation is finished, then"
echo "  it will disappear)"
echo noline "*n     [Return]"
set > nil: Return ?
SYS:Prefs/Screenmode

lab continue

echo "*e[1;1H*e[J*n*n- Second, you can find the patterns 'Marble_CLASSIC' and 'MarbleDark'"
echo "  in the SYS:Prefs/Patterns directory. These are the only patterns that have"
echo "  been installed to save diskspace. There are plenty of other patterns in"
echo "  the MagicWB/Patterns directory (over 50 patterns!) that you can copy"
echo "  to SYS:Prefs/Patterns if required.*n"

if $Kick30 eq "yep"
  skip continue
endif

echo "  If you are user of the OS2.0 or OS2.1 you will have to install the program"
echo "  NickPrefs to use the Patterns of *e[32mMagicWB*e[0m. Please consult the documentation.*n"

lab continue

echo "- Programmers should take a look into the MagicWB/XEN-Icons/SPECIAL drawer!"
echo "  Here you can find Icons for your programs that have logically not been"
echo "  installed with this installation: AmigaGuide, ReadMe, templates,"
echo "  device icons, over 50 Image-Drawers etc.*n"
echo "- And everybody MUST take a look into the XEN-Icons/Dock-Brushes drawer!"
echo "  (The files in this drawer have NOT been installed to your system)"
echo "  Here you will find all the general purpose Images you will need in"
echo "  conjunction with ToolManager (or any other similar program) and MagicWB"
echo "  to get a really magic Workbench feeling!  ;)"
echo "*n*n     [Return]"
set > nil: Return ?
echo "*e[1;1H*e[J"
echo "*n*N*n Please support the author of *e[32mMagicWB*e[0m with your registration, making"
echo " future versions of *e[32mMagicWB*e[0m possible. Always remember:"
echo "*n*n*e[1;32m          ______________________________________________________"
echo "                                                                 "
echo "            A PRODUCT WORTH USING IS ALSO WORTH BEING SUPPORTED  "
echo "           *e[1;31m_____________________________________________________ "
echo "*n*N                 MagicWB © 1992-97 by Martin Huttenloher"
echo "*n                        - Released as SHAREWARE -*n*n"
echo "*n         Visit the official MagicWB homepage at: *e[32mhttp://www.sasg.com/*e[0m"
echo "*n*n    [Return]"
set > nil: Return ?
echo "*e[1;1H*e[J"
echo "*n*n*n Now have much fun with *e[32mMagicWB*e[0m...*n*n To enjoy MagicWB immediately you have to reset your AMIGA first,*n so that all configurations will be set properly!*n*n Bye, bye...*n*N"
echo "*e[32m Do not forget to read the 'About MagicWB 2.0' text in the 'Documents' directory!*e[0m"
echo "*n*n     [Return]"
set > nil: Return ?

resident > NIL: IU remove
assign > NIL: Magic: remove
delete > NIL: ram:MWB
run >NIL: AboutMagicWB
quit

;##################################################################################################
;##################################################################################################

lab update
echo "*e[1;1H*e[J"

echo "*e[1;32m ______________________________________________________________________"
echo " *e[43m                                                                      *e[0m"
echo " *e[0;32;43m              Welcome to MagicWB v2.1p: UPDATE MAGICWB*e[1m                *e[0m"
echo " *e[1;4;43m                                                                      *e[0m"
echo "*n*n This update will provide you with the most comfortable way of updating"
echo " all other MagicWB versions prior to version 2.0 of MagicWB."
echo "*n This installation should only be done if you have already installed a"
echo " previous version (1.0, 1.2p or 1.5) of MagicWB."
echo "*n To get to know about all the changes between version 2.0 and an older"
echo " version, please read the CHANGES chapter in the MagicWB.guide."
echo "*n*n*e[32m Please consider that this is version 2.1p, a reduced version of 2.0.*e[0m"
echo "*e[32m Do NOT update if you are already registered for MagicWB 2.0!*e[0m"

echo noline "*n*n Start the UPDATE? "

set > nil: InpVar ?

if $InpVar eq "ja"
  skip Start
endif

if $InpVar eq "j"
  skip Start
endif

if $InpVar eq "y"
  skip Start
endif

if $InpVar eq "yes"
  skip Start
endif

echo noline "*n*e[32m Update aborted."
quit

lab Start
assign Magic: ""
resident IU Magic:Programs/IconUpdate pure
if warn
  echo "*e[32m Update aborted due to failure of the 'resident' command!*n This failure might be a bug in the Operating System with the*n 'IconX' command. Try to start the 'Install' script via the shell:"
  echo " Go to the MagicWB directory (with 'cd') and type 'execute install'."
  wait 15
  quit
endif

run >NIL: AboutMagicWB
echo "*e[1;1H*e[J"
echo " Update in progress...*n"

echo noline " Updating XEN-Icons in SYS:System..."
C:LIST > ram:MWB SYS:System/#?.info lformat "IU > NIL: tsdc Magic:XEN-Icons/System/%n SYS:System/%n"
failat 21
execute > NIL: ram:MWB

if exists SYS:System/DiskCopy.info
  delete SYS:System/DiskCopy.info  ; Icon was redundant, without function!
endif
if exists SYS:System/CLI.info
  delete SYS:System/CLI.info  ; Icon was redundant.
endif
echo "..............................*e[33mDONE*e[0m"


echo noline " Updating XEN-Icons in SYS:Utilities..."
C:LIST > ram:MWB SYS:Utilities/#?.info lformat "IU > NIL: tsdc Magic:XEN-Icons/Utilities/%n SYS:Utilities/%n"
failat 21
execute > NIL: ram:MWB
echo "...........................*e[33mDONE*e[0m"


echo noline " Updating XEN-Icons in SYS:Tools..."
C:LIST > ram:MWB SYS:Tools/#?.info lformat "IU > NIL: tsdcw Magic:XEN-Icons/Tools/%n SYS:Tools/%n"
failat 21
execute > NIL: ram:MWB
echo "...............................*e[33mDONE*e[0m"


echo noline " Updating XEN-Icons in SYS:Tools/Commodities..."
C:LIST > ram:MWB SYS:Tools/Commodities/#?.info lformat "IU > NIL: tsdc Magic:XEN-Icons/Tools/Commodities/%n SYS:Tools/Commodities/%n"
failat 21
execute > NIL: ram:MWB
echo "...................*e[33mDONE*e[0m"

echo noline " Updating XEN-Icons in SYS:WBStartup..."
C:LIST > ram:MWB SYS:WBStartup/#?.info lformat "IU > NIL: tsdcw Magic:XEN-Icons/Tools/Commodities/%n SYS:WBStartup/%n"
failat 21
execute > NIL: ram:MWB
IU > NIL: tsdc Programs/Misc/TolleUhr.info SYS:WBStartup/TolleUhr.info
echo "...........................*e[33mDONE*e[0m"


if exists SYS:Devs/DataTypes
  echo noline " Updating XEN-Icons in SYS:Devs/DataTypes..."
  C:LIST > ram:MWB SYS:Devs/DataTypes/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/DataTypes/def_DataType.info *"%s%s*""
  failat 21
  execute > NIL: ram:MWB
  if exists sys:Storage/DataTypes
    C:LIST > ram:MWB SYS:Storage/DataTypes/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/DataTypes/def_DataType.info *"%s%s*""
    execute > NIL: ram:MWB
  endif
  echo "......................*e[33mDONE*e[0m"
endif


echo noline " Updating XEN-Icons in SYS:Devs/DOSDrivers..."
C:LIST > ram:MWB SYS:Devs/DOSDrivers/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/DOSDrivers/def_DOSDriver.info %s%s"
failat 21
execute > NIL: ram:MWB
if exists sys:Storage/DOSDrivers
  C:LIST > ram:MWB SYS:Storage/DOSDrivers/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/DOSDrivers/def_DOSDriver.info %s%s"
  execute > NIL: ram:MWB
endif
echo ".....................*e[33mDONE*e[0m"


echo noline " Updating XEN-Icons in SYS:Devs/Keymaps..."
C:LIST > ram:MWB SYS:Devs/Keymaps/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/Keymaps/def_Keymap.info %s%s"
failat 21
execute > NIL: ram:MWB
if exists sys:Storage/Keymaps
  C:LIST > ram:MWB SYS:Storage/Keymaps/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/Keymaps/def_Keymap.info %s%s"
  execute > NIL: ram:MWB
endif
echo "........................*e[33mDONE*e[0m"


echo noline " Updating XEN-Icons in SYS:Devs/Monitors..."
C:LIST > ram:MWB SYS:Devs/Monitors/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/Monitors/def_Monitor.info %s%s"
failat 21
execute > NIL: ram:MWB
if exists sys:Storage/Monitors
  C:LIST > ram:MWB SYS:Storage/Monitors/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/Monitors/def_Monitor.info %s%s"
  execute > NIL: ram:MWB
endif
echo ".......................*e[33mDONE*e[0m"


echo noline " Updating XEN-Icons in SYS:Devs/Printers..."
C:LIST > ram:MWB SYS:Devs/Printers/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/Printers/def_Printer.info %s%s"
failat 21
execute > NIL: ram:MWB
if exists sys:Storage/Printers
  C:LIST > ram:MWB SYS:Storage/Printers/#?.info lformat "IU > NIL: tsdcn Magic:XEN-Icons/Devs/Printers/def_Printer.info %s%s"
  execute > NIL: ram:MWB
endif
echo ".......................*e[33mDONE*e[0m"


echo noline " Updating XEN-Icons in SYS:Prefs..."
C:LIST > ram:MWB SYS:Prefs/#?.info lformat "IU > NIL: tsdc Magic:XEN-Icons/Prefs/%n SYS:Prefs/%n"
failat 21
execute > NIL: ram:MWB
echo "...............................*e[33mDONE*e[0m"


echo noline " Updating XEN-DEFAULT-Icons in ENVARC:Sys..."
copy > NIL: Magic:XEN-Icons/Prefs/Env-Archive/Sys/~(PaletteAGA|palette8bit.ilbm|WBPattern.prefs|font.prefs|sysfont.prefs|wbfont.prefs) TO ENVARC:Sys all
echo "......................*e[33mDONE*e[0m"


echo " Updating XEN-SPECIAL-Icons:*n"
echo noline "     Updating Preset-Default-Icon in SYS:Prefs/Presets..."
copy > NIL: Magic:XEN-Icons/SPECIAL/Misc/Preset.info SYS:Prefs/Presets
echo ".........*e[33mDONE*e[0m"


echo noline "     Updating RAM-Icon in S:RAM.info......"
if exists SYS:S/RAM.info
  IU > NIL: dcw Magic:XEN-Icons/SPECIAL/Devices/RAM.info SYS:S/RAM.info
else
  copy > NIL: Magic:XEN-Icons/SPECIAL/Devices/RAM.info SYS:S
endif
if exists SYS:S/User-Startup
  search > NIL: SYS:S/User-Startup SYS:S/RAM.info
  if warn
    join Magic:Programs/RAMScript SYS:S/User-Startup TO RAM:User-Startup
    copy > NIL: RAM:User-Startup SYS:S
    delete > NIL: RAM:User-Startup
  endif
else
  copy > NIL: Magic:Programs/RAMScript TO SYS:S/User-Startup
endif
echo "........................*e[33mDONE*e[0m"


if exists SYS:Disk.info
  echo noline "*n Updating HardDisk-Icon in SYS:..."
  IU > NIL: dcw Magic:XEN-Icons/SPECIAL/Devices/HD.info SYS:Disk.info
  echo "................................*e[33mDONE*e[0m*n"
else
  lab Path
  echo noline "*n Please enter the PATH where the HardDisk-Icon is located (i.e. 'DH0:'): "
  set > NIL: Path ?
  if > NIL: not exists $Path
    echo " Wrong path, path does not exist! Try again...*n"
    skip back path
  endif
  echo noline " Updating HardDisk-Icon in $Path..."
  cd $Path
  IU > NIL: dcw Magic:XEN-Icons/SPECIAL/Devices/HD.info Disk.info
  cd Magic:
  echo "..*e[33mDONE*e[0m*n"
endif


lab HardDisk

echo noline " Do you have the HardDisk-Icon on other partitions? "
set > nil: HardDisk ?
echo "*e[1;1H*e[J"
if $HardDisk eq "ja"
  skip InstallHardDisk
endif
if $HardDisk eq "j"
  skip InstallHardDisk
endif
if $HardDisk eq "y"
  skip InstallHardDisk
endif
if $HardDisk eq "yes"
  skip InstallHardDisk
endif
skip Continue

lab InstallHardDisk
echo noline "*N Please enter the NAME of the desired partition (i.e. 'DH1:'): "
set > nil: Device [Return]
set > nil: Device ?
if not exists $Device
  echo " Wrong device, $Device does not exist! Try again..."
  skip back InstallHardDisk
endif
echo noline "*n Updating HardDisk-Icon in $Device..."
cd $Device
if exists Disk.info
  IU > NIL: dcw Magic:XEN-Icons/SPECIAL/Devices/HD.info Disk.info
else
  copy > NIL: Magic:XEN-Icons/SPECIAL/Devices/HD.info Disk.info
endif
cd Magic:
echo "............................*e[33mDONE*e[0m*n"
skip back HardDisk


lab Continue

echo "*e[1;1H*e[J"

Echo noline "*n Installing new Image-Drawer-Icons..."

IU > NIL: cw XEN-Icons/Special/ImageDrawers/DataTypes.info SYS:Devs/DataTypes.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/DataTypes.info SYS:storage/DataTypes.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/DOSDrivers.info SYS:Devs/DOSDrivers.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/DOSDrivers.info SYS:storage/DOSDrivers.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Keymaps.info SYS:Devs/Keymaps.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Keymaps.info SYS:storage/Keymaps.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Monitors.info SYS:Devs/Monitors.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Monitors.info SYS:storage/Monitors.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Printers.info SYS:Devs/Printers.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Printers.info SYS:storage/Printers.info

IU > NIL: cw XEN-Icons/Special/ImageDrawers/Presets.info SYS:Prefs/Presets.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Commodities.info SYS:Tools/Commodities.info

IU > NIL: cw XEN-Icons/Prefs.info SYS:Prefs.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/System.info SYS:System.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Tools.info SYS:Tools.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Utilities.info SYS:Utilities.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Devs.info SYS:Devs.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Storage.info SYS:Storage.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/WBStartup.info SYS:WBStartup.info
IU > NIL: cw XEN-Icons/Special/ImageDrawers/Expansion.info SYS:Expansion.info

echo "...............................*e[33mDONE*e[0m"


echo noline "*n Updating old Drawer-Icons in SYS:..."
C:LIST > ram:MWB SYS: dirs all lformat "if exists *"%f%n.info*" *n  C:LIST > ram:Length *"%f%n.info*" nohead nodates *n  search > NIL: ram:Length 1233 *n  if not warn *n  else *n    search > NIL: ram:Length 2625 *n    if not warn *n    else *n      IU > NIL: cwn XEN-Icons/Prefs/Env-Archive/Sys/def_Drawer.info *"%f%n.info*" *n    endif *n  endif *nendif*n"
execute > NIL: ram:MWB
if exists SYS:Trashcan.info
  IU > NIL: cw Magic:XEN-Icons/Prefs/Env-Archive/Sys/def_trashcan.info SYS:Trashcan.info
endif
echo "...............................*e[33mDONE*e[0m"
delete > NIL: ram:Length


echo noline "*n Updating MagicWB-Fonts in FONTS:..."
copy > NIL: Magic:Fonts/#? TO FONTS: all
echo "................................*e[33mDONE*e[0m"

echo noline "*n Updating old patterns in SYS:Prefs/Patterns to the new format..."
version >NIL: exec.library 39
if warn
  copy > NIL: Patterns/Marble_CLASSIC TO SYS:Prefs/Patterns
else
  SYS:Prefs/WBPattern FROM Magic:Programs/WBPattern.pre USE
  C:LIST > ram:MWB SYS:Prefs/Patterns/#? files lformat "copy > NIL: Magic:Patterns/%n SYS:Prefs/Patterns/%n"
  execute > NIL: ram:MWB
  delete > NIL: SYS:Prefs/Patterns/NickPrefs.info
  wait 2
  SYS:Prefs/WBPattern FROM envarc:sys/WBPattern.prefs USE
endif
echo "...*e[33mDONE*e[0m"
echo "*n*n*e[32m ATTENTION:*e[0m  With  MagicWB 2.0  the  patterns  have another color format."
echo " Please  delete  all older MagicWB patterns in any other directories and"
echo " use the new ones in SYS:Prefs/Patterns and MagicWB/Patterns."
wait 10

;------------------------ OS3.x, AGA section, START ---------------------------
version > NIL: exec.library 39
if warn
  skip Continue
endif
echo "*n*n*n Kickstart 3.x detected:*n"


echo noline " Updating MagicWB for Kickstart 3.x..."
if exists SYS:S/User-Startup
  search > NIL: SYS:S/User-Startup MagicWB-Demon
  if warn
    join Magic:Programs/AllocScript SYS:S/User-Startup TO RAM:User-Startup
    copy > NIL: RAM:User-Startup SYS:S
    delete > NIL: RAM:User-Startup
  endif
else
  copy Magic:Programs/AllocScript TO SYS:S/User-Startup
endif

search > NIL: SYS:S/Startup-Sequence MagicWB-Demon
if warn
  C:EDIT SYS:S/Startup-Sequence WITH Magic:Programs/SSScript
endif

copy > NIL: magic:Programs/MagicWB-Demon SYS:C
copy > NIL: magic:Programs/ataditm sys:s/mti.data
C:LIST > RAM:PaletteCheck envarc:sys/palette.prefs
search > NIL: RAM:PaletteCheck AGA
if warn
  copy > NIL: magic:XEN-Icons/Prefs/Env-Archive/Sys/PaletteAGA ENVARC:Sys/Palette.prefs CLONE
endif
delete > NIL: RAM:PaletteCheck
copy > NIL: magic:XEN-Icons/Prefs/Env-Archive/Sys/palette8bit.ilbm ENVARC:Sys
echo "..............................*e[33mDONE*e[0m*n"


echo noline " Do you have the AGA Chipset (A1200, A4000)? "

set > nil: AGA ?
echo "*e[1;1H*e[J"
if $AGA eq "ja"
  skip InstallAGA
endif
if $AGA eq "j"
  skip InstallAGA
endif
if $AGA eq "y"
  skip InstallAGA
endif
if $AGA eq "yes"
  skip InstallAGA
endif
skip Continue


lab InstallAGA

echo "*n MagicWB offers a special goody to all AGA-Users:*n"
echo " If you want, MagicWB will install a very special Background-Picture. This"
echo " Background-Picture will be an IntelOutside-Logo :) with a beautiful, blue"
echo " gradient on your WB (having more than 520 colors)! You can of course change"
echo " the colors of the gradient.*n"
echo " The magic thing about it is, that it will only need 50KB of Chip-Mem! And"
echo " the result is breathtaking. Second, it will need at least a 16-color-"
echo " screenmode.*n"
echo " If you are not sure about this, just try it out! You may always change this"
echo " configuration afterwards if you won't like it (but you will! ;).*n"
echo noline " Do you want to have this special AGA-Background installed? "

set > nil: AGAPic ?
echo "*e[1;1H*e[J"
if $AGAPic eq "ja"
  skip DoAGA
endif
if $AGAPic eq "j"
  skip DoAGA
endif
if $AGAPic eq "y"
  skip DoAGA
endif
if $AGAPic eq "yes"
  skip DoAGA
endif
skip Continue

lab DoAGA
echo "*e[1;1H*e[J"
echo "*n*n*e[32m I'm sorry! This feature is only available in the REGISTERED version.*e[0m"
wait 5
AboutMagicWB
;------------------------ OS3.x, AGA section, END ---------------------------


lab Continue
echo "*e[1;1H*e[J"
echo "*n*n Dock-Images are used to easily launch applications by just clicking on the"
echo " icon in the dock bar. Dock bars with MagicWB icons look very impressive"
echo " and professional. If you don't know what dock bars are, take a look at the"
echo " bottom of the MagicWB 'Preview' picture.*n*n"
echo " Do you want to install the MagicWB-Dock-Images to SYS:Prefs/MagicWB-Images?"
echo " The assign 'MagicWB:' for this directory will be added to 'S:User-Startup'"
echo " so that you will only need to append the supplied MagicWB-Docks ToolManager-"
echo " configuration to your own ToolManager-config to enjoy the MagicWB-Docks."
echo noline "*n Would you like to have them installed? "
set > nil: docks ?
if $docks eq "ja"
  skip Installdocks
endif
if $docks eq "j"
  skip Installdocks
endif
if $docks eq "y"
  skip Installdocks
endif
if $docks eq "yes"
  skip Installdocks
endif
skip Continue

lab InstallDocks
echo "*e[1;1H*e[J"
echo "*n*n*e[32m I'm sorry! This feature is only available in the REGISTERED version.*e[0m"
wait 4
AboutMagicWB
lab continue
makedir > NIL: sys:prefs/MagicWB-Images
if exists SYS:S/User-Startup
  search > NIL: SYS:S/User-Startup "assign >NIL: MagicWB:"
  if warn
    echo >>sys:s/user-startup "assign >NIL: MagicWB: SYS:Prefs/MagicWB-Images"
    echo ".................*e[33mDONE*e[0m"
  endif
else
  echo >sys:s/user-startup "assign >NIL: MagicWB: SYS:Prefs/MagicWB-Images"
  echo "................*e[33mDONE*e[0m"
endif
copy >NIL: AboutMagicWB SYS:WBStartup
copy >NIL: XEN-Icons/SPECIAL/Misc/AboutMagicWB.info SYS:WBStartup
copy >NIL: Registration SYS:Prefs/MagicWB-Images CLONE

echo "*e[1;1H*e[J"
echo "*n*e[32m The update to the UNREGISTERED version 2.1p is now finished.*e[0m*n"
echo > ENVARC:MagicWB "2.0"
echo " In short the new features of MagicWB:*e[32m*n"
echo "   - MagicWB is now 2-3 times faster than any previous version"
echo "   - It needs over 67% less Chip-Mem compared to previous versions"
echo "   - New color allocation system provides a better color management"
echo "     for icons and patterns. There should be no color problems anymore"
echo "   - Higly improved palette especially for AGA- and graphics board users"
echo "   - Patterns now work under any Kickstart and are displayed much faster"
echo "   - New standard for drawers introducing content-specific image-drawers"
echo "     and a pool of over 50 different image-drawers for personal use"
echo "   - New XEN/11 font for higher resolutions (this time it is complete)"
echo "   - Many new beautiful patterns and a special AGA-support for a smashing"
echo "     IntelOutside-FullScreen-Pattern with more than 520 colors on-screen"
echo "   - More icons, default icons and dock-brushes"
echo "   - Overall improvement and rework of all MWB-Icons (Prefs, Devices...)"
echo "   - Support-Programs have been improved a lot (-> IconUpdate...)*e[0m"
echo " Please read the CHANGES chapter in the MagicWB.guide for detailed info.*n"
echo " *e[32m NOTE: Many of the new features are only available in the REGISTERED version!*e[0m"
echo "*n       Visit the official MagicWB homepage at: *e[32mhttp://www.sasg.com/*e[0m"
echo "*n*n [Return]"
set > NIL: Return ?
echo "*e[1;1H*e[J"
echo "*n*n*n NOTE: This installation has only updated the Drawer-Icons in your SYS:"
echo " directory (and of course all sub-directories of SYS:). So you may still find"
echo " old MagicWB-Drawers in other directories/partitions. If you also want to up-"
echo " date these Drawer-Icons (and make them less diskspace-consuming and faster),"
echo " please use the *"UPDATE DRAWERS*" installation of MagicWB. Thank you."
echo "*n [Return]"
set > NIL: Return ?

delete > NIL: ram:MWB
resident > NIL: IU remove
assign > NIL: magic: remove
run >NIL: AboutMagicWB
quit