echo off
cls
if "%1==" goto nodrive
if %1==b: goto baddrive
if %1==B: goto baddrive
if %1==a: goto baddrive
if %1==A: goto baddrive
if %1==a goto baddrive
if %1==A goto baddrive
if %1==b goto baddrive
if %1==B goto baddrive
if %1==c goto nocolon
if %1==C goto nocolon
if %1==d goto nocolon
if %1==D goto nocolon
echo ┌─────────────────────────────────────────────────────────────────────┐
echo │                T u r b o C A S H   V e r s i o n  5                 │
echo ├─────────────────────────────────────────────────────────────────────┤
echo │                                                                     │
echo │ This procedure installs TurboCASH onto the hard disk named %1.      │
echo │                                                                     │
echo │ If you have already entered data into TurboCASH, this data will not │
echo │ be altered. If you have an earlier version of TurboCASH it will not │
echo │ be removed and you may use both versions simultaneously,although on │
echo │ different sets of accounts.                                         │
echo │                                                                     │
echo │ The installation requires around 600,000 bytes of disk space. Check │
echo │ the "bytes free" line to see if enough space is available on disk.  │
echo │                                                                     │
echo │ Press Ctrl+C to stop the procedure,or press another key to continue │
echo └─────────────────────────────────────────────────────────────────────┘
discfree %1
pause
md %1\tcash
cls
echo ┌───────────────────────────────────────┐
echo │ TurboCASH installation in progress... │
echo └───────────────────────────────────────┘
cd %1\tcash > nul
if exist acctb.skn goto st2
if exist %1acctb.skn goto st1
echo ┌─────────────────────────────────────────────────────────────┐
echo │ TurboCASH installation error:                               │
echo │ This diskette has not been serialised. Contact your dealer. │
echo └─────────────────────────────────────────────────────────────┘
goto finish
:st1
echo ┌─────────────────────────────────────────────────────────┐
echo │ We need to copy registration information from drive %1. │
echo │                                                         │
echo │ The installation diskette must not be write protected.  │
echo │ If you have a high density diskette drive the diskette  │
echo │ may not be readable from a lower density drive later.   │
echo │                                                         │
echo │ Press Ctrl+C to stop, any other key to continue.        │
echo └─────────────────────────────────────────────────────────┘
pause
copy %1acctb2.skn acctb.skn > nul
cls
echo ┌───────────────────────────────────────┐
echo │ TurboCASH installation in progress... │
echo └───────────────────────────────────────┘
goto skip15
:st2
copy acctb.skn %1 > nul
copy acctb.skn %1acctb2.skn > nul
if exist %1acctb.skn goto skip15
:nocolon
echo ┌────────────────────────────────────────────────────────────────┐
echo │ TurboCASH installation error:                                  │
echo │ Please specify a valid drive name followed by a colon (eg C:). │
echo │ Read the manual and try again.                                 │
echo └────────────────────────────────────────────────────────────────┘
goto finish
:skip15
if exist %1turbo.exe goto skip1
md %1\tcash\reptutor > nul
md %1\tcash\e_retail > nul
tutorial -r *.tut %1\tcash\reptutor > nul
tutorial -r *.ret %1\tcash\e_retail > nul
ren %1\tcash\reptutor\*.tut *.dat
ren %1\tcash\e_retail\*.ret *.dat
:skip1
tinst -r %1\tcash > nul
%1
cd\tcash
cls
echo ┌───────────────────────────────────────┐
echo │ TurboCASH installation has completed. │
echo │                                       │
echo │ Running program now...                │
echo └───────────────────────────────────────┘
goto finish1
:nodrive
echo ┌───────────────────────────────────────────────┐
echo │ TurboCASH installation error:                 │
echo │ Please specify a drive (eg C:) to install to. │
echo │ Read the manual and try again.                │
echo └───────────────────────────────────────────────┘
goto finish
:baddrive
echo ┌─────────────────────────────────────────────────────────┐
echo │ TurboCASH installation error:                           │
echo │ Drive %1 is used for a diskette drive, not a hard disk. │
echo │ Read the manual and try again.                          │
echo └─────────────────────────────────────────────────────────┘
:finish1
c:
cd\tcash
cash
:finish
echo on