; WWSpellCon v1.0
; Dictionary Converter for Wordworth

; Converts 1200/1400 Special Edition dictionary to 1.0 WW format

; Script by Tristan Greaves, 10th January 1997.

echo "*n*e[3mWWSpellCon v1.0,*e[0m by Tristan Greaves"
echo "Converts Wordworth AGA Dictionary Disk to Wordworth 1.0 Dictionary Disk*n"

echo "Warning! Please use a *backup* of your dictionary disk!*n"

ask "Do you wish to continue with the conversion? (Press Y or N)"

if warn

   echo "*nPlease insert your Wordworth AGA Dictionary Disk into a floppy drive."
   ask "Then press [RETURN]"

   echo "*nConverting ... Please wait"

   if exists WWSpell:

      relabel WWSpell: WordworthDict
      cd WordworthDict:Spell/
      rename Dictionary Brt17.LEX
      rename CoreLex2 Brt32.CLX
      rename CoreLex1 Brt16.CLX
      rename Phonetics BrtPhon.ENV
      rename Environment Brt.ENV

      echo "*nConversion Completed!"
      echo "The disk is now a Wordworth 1.0 dictionary disk."

   else

      echo "*nError: Can't find Wordworth AGA dictionary disk!"
      echo "(Disk should be labelled WWSpell)"

      quit

   endif

else

   echo "*nConversion aborted!"

endif

