.key trgt
.def trgt MSDOS_FileSystem:
.bra {
.ket }

failat 100   ; return FAIL

echo "Install a copy of the CrossDOS installation disk in one of the drives."
echo "All patches are to be made to this disk."
assign M: "{trgt}"
if ERROR
    echo "CrossDOS installation disk not found."
    skip EXIT
endif

makedir ram:P
assign P: ram:P
copy c:copy to P:
P:copy M:Diag/LPatch to P:
P:copy c:delete to P:
P:copy c:echo to P:

; Patch MSDOS_FileSystem:L/MSDOSFileSystem
P:copy M:L/MSDOSFileSystem to P:

;   Patch from V4.00a to V4.00a INTL
P:echo ""
P:echo "Try to patch to V4.00a INTL"
P:lpatch -oP:MSDOSFileSystem.new -pMFS400aINTL.pch P:MSDOSFileSystem
if NOT WARN
    P:copy P:MSDOSFileSystem.new P:MSDOSFileSystemINTL
    P:copy P:MSDOSFileSystem.new M:L/MSDOSFileSystemINTL
endif

;   Patch from V4.00a INTL to V4.00a DK
P:echo ""
P:echo "Try to patch to V4.00a DANISH"
P:lpatch -oP:MSDOSFileSystem.new -pMFS400aDK.pch P:MSDOSFileSystemINTL
if NOT WARN
    P:copy P:MSDOSFileSystem.new M:L/MSDOSFileSystemDK
endif

;   copy P: versions to installation disk
P:echo ""

delete P:#?
assign P:
delete ram:P

lab EXIT
assign M: