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