home *** CD-ROM | disk | FTP | other *** search
- .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:
- path >NIL: P: add
- copy M:Diag/LPatch to P:
- copy c:delete to P:
- copy >NIL: c:echo to P:
- copy >NIL: c:if to P:
- copy >NIL: c:endif to P:
-
- ; Patch MSDOS_FileSystem:L/MSDOSFileSystem
- copy M:L/MSDOSFileSystem to P:
-
- ; Patch from V4.02a to V4.02a INTL
- echo ""
- echo "Try to patch to V4.02a INTL"
- P:lpatch -oP:MSDOSFileSystem.new -pMFS402aINTL.pch P:MSDOSFileSystem
- if NOT WARN
- copy P:MSDOSFileSystem.new P:MSDOSFileSystemINTL
- copy P:MSDOSFileSystem.new M:L/MSDOSFileSystemINTL
- endif
-
- ; Patch from V4.02a INTL to V4.02a DK
- echo ""
- echo "Try to patch to V4.02a DANISH"
- P:lpatch -oP:MSDOSFileSystem.new -pMFS402aDK.pch P:MSDOSFileSystemINTL
- if NOT WARN
- copy P:MSDOSFileSystem.new M:L/MSDOSFileSystemDK
- endif
-
- ; copy P: versions to installation disk
- echo ""
-
- delete P:#?
- assign P:
-
- lab EXIT
- assign M:
-