/[james]/territories/Source/Utilities/SortChars
ViewVC logotype

Annotation of /territories/Source/Utilities/SortChars

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (hide annotations) (download)
Tue Feb 11 11:05:25 2003 UTC (21 years, 8 months ago) by james
File size: 370 byte(s)
Initial import.

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    

  ViewVC Help
Powered by ViewVC 1.1.26