Contents of /territories/Source/Utilities/Collate2

REM > Territories:Utilities.Collate2

LIBRARY"JLibraries:Error"
ON ERROR PROCError("Territories:Utilities.Collate2")

INPUT"Source file name: "f$
f% = OPENINf$
IF f% = 0 THEN ERROR 1, "Could not open source file"

DIM m% 255

 FOR c% = 0 TO 255
  z% = BGET#f%
  m%?z% = c%
 NEXT

INPUT"Destination file name: "g$
OSCLI"Save "+g$+" "+STR$~m%+" +100"
OSCLI"SetType "+g$+" Data"
1	REM > Territories:Utilities.Collate2
2
3	LIBRARY"JLibraries:Error"
4	ON ERROR PROCError("Territories:Utilities.Collate2")
5
6	INPUT"Source file name: "f$
7	f% = OPENINf$
8	IF f% = 0 THEN ERROR 1, "Could not open source file"
9
10	DIM m% 255
11
12	FOR c% = 0 TO 255
13	z% = BGET#f%
14	m%?z% = c%
15	NEXT
16
17	INPUT"Destination file name: "g$
18	OSCLI"Save "+g$+" "+STR$~m%+" +100"
19	OSCLI"SetType "+g$+" Data"