Confirm "This will install Free Pascal for MPW.nnDo you want to proceed ?"

Set installerdir `Directory`
Set destdir `GetFileName -wd -m 'Select where I should install the FreePascal folder' "{Boot}"`FreePascal:

# Write startup script
Echo "Set -e FPCDIR '{destdir}'" > "{MPW}Startup Items:FPC Startup"
Echo 'Set -e Commands "{Commands},{FPCDIR}bin:"' >> "{MPW}Startup Items:FPC Startup"

# Copy files
Set Exit 0
Delete -y "{destdir}"  Dev:Null
Set Exit 1
NewFolder "{destdir}"
Duplicate -y "{installerdir}Freepascal": "{destdir}"

# Write configuration file
Echo "# Configuration file for Free Pascal for MPW" > "{destdir}bin:fpc.cfg"
Echo "-Fu'{destdir}units:rtl:'" >> "{destdir}bin:fpc.cfg"
Echo "-l" >> "{destdir}bin:fpc.cfg"
Echo "-vi" >> "{destdir}bin:fpc.cfg"

Alert "The installation was successful. Please restart MPW.nnLicense information is located in the docs folder."
