Contents of /territories/Source/Utilities/Collate1

REM > Territories:Utilities.Collate1

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


INPUT"File name: "f$
f% = OPENOUTf$
IF f% = 0 THEN ERROR 1, "Could not open file"

 FOR a% = 32 TO 126
  BPUT#f%, CHR$a%;
 NEXT

 FOR a% = 128 TO 255
  BPUT#f%, CHR$a%;
 NEXT

CLOSE#f%

OSCLI"SetType "+f$+" Text"
1	REM > Territories:Utilities.Collate1
2
3	LIBRARY"JLibraries:Error"
4	ON ERROR PROCError("Territories:Utilities.Collate1")
5
6
7	INPUT"File name: "f$
8	f% = OPENOUTf$
9	IF f% = 0 THEN ERROR 1, "Could not open file"
10
11	FOR a% = 32 TO 126
12	BPUT#f%, CHR$a%;
13	NEXT
14
15	FOR a% = 128 TO 255
16	BPUT#f%, CHR$a%;
17	NEXT
18
19	CLOSE#f%
20
21	OSCLI"SetType "+f$+" Text"