Annotation 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	james	19	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"