.key s,d

if "<s>" eq ""
   echo "Usage:  Execute Install Source Dest"
   echo "        Dest must be RAM: DF0: or DF1:"
   quit
endif

echo "Elements installation script    by MUSCA"
echo "----------------------------------------"

if "<d>" eq "df0:"
skip OK
else
if "<d>" eq "df1:"
skip OK
else
if "<d>" eq "ram:"
skip OK
else
   echo "Dest must be RAM: DF0: or DF1:"
endif
endif
endif
quit

lab OK
if not exists <s>
   echo "Source doesn't exist!"
   quit
endif
if not exists <d>
   echo "Destination doesn't exsist!"
   quit
endif

echo "*nParameters OK... Now making directoies requierd*n"

if not exists <d>elements
   echo "Making destination directory ELEMENTS"
   makedir <d>ELEMENTS
endif
if not exists <d>elements/data
   echo "Making destination directory DATA"
   makedir <d>ELEMENTS/DATA
endif
if not exists <d>FONTS
   echo "Making destination directory FONTS"
   makedir <d>fonts
endif
if not exists <d>fonts/CAMM
   echo "Making destination directory CAMM"
   makedir <d>fonts/CAMM
endif
if not exists <d>fonts/CAMMTopaz
   echo "Making destination directory CAMMTopaz"
   makedir <d>fonts/CAMMTopaz
endif
echo "*nDirectories ok. Now copying files.....*n"

copy <s>Elements        to <d>ELEMENTS
copy <s>Elements.info   to <d>ELEMENTS
copy <s>Readmefirst     to <d>ELEMENTS
copy <s>Elements.DAT    to <d>ELEMENTS/DATA
copy <s>Isotopes.DAT    to <d>ELEMENTS/DATA
copy <s>Info.DAT        to <d>ELEMENTS/DATA
copy <s>CAMM.font       to <d>fonts
copy <s>5               to <d>fonts/CAMM
copy <s>CAMMTopaz.font  to <d>fonts
copy <s>8               to <d>fonts/CAMMTopaz

echo "Installation finished..."
echo "Now you can remove all source-files if you want."

