Contents of /territories/Source/Utilities/SortChars

REM > Territories:Utilities.SortChars

INPUT "Territory number: "z%

DIM c$(255)

FOR c% = 0 TO 255: c$(c%) = CHR$c%: NEXT

 REPEAT
  d% = TRUE
   FOR c% = 0 TO 254
    SYS &4305D, z%, c$(c%), c$(c%+1) TO a%
    IF a% > 0 THEN d% = FALSE: SWAP c$(c%), c$(c%+1)
   NEXT
 UNTIL d%

INPUT "File name: "f$
f% = OPENOUT f$
FOR c% = 0 TO 255: BPUT#f%, c$(c%);: NEXT
CLOSE#f%

1	REM > Territories:Utilities.SortChars
2
3	INPUT "Territory number: "z%
4
5	DIM c$(255)
6
7	FOR c% = 0 TO 255: c$(c%) = CHR$c%: NEXT
8
9	REPEAT
10	d% = TRUE
11	FOR c% = 0 TO 254
12	SYS &4305D, z%, c$(c%), c$(c%+1) TO a%
13	IF a% > 0 THEN d% = FALSE: SWAP c$(c%), c$(c%+1)
14	NEXT
15	UNTIL d%
16
17	INPUT "File name: "f$
18	f% = OPENOUT f$
19	FOR c% = 0 TO 255: BPUT#f%, c$(c%);: NEXT
20	CLOSE#f%
21