Confirm "This will install Free Pascal for MPW.¶n¶nDo 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.¶n¶nLicense information is located in the docs folder."