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"
