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

Annotation of /territories/Source/Utilities/TestCollate

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: 662 byte(s)
Initial import.

1 james 19 REM > Territories:Utilities.TestCollate
2    
3     INPUT "Territory number: "z%
4    
5     REPEAT
6     PRINT
7     INPUT "String 1: "a$
8     INPUT "String 2: "b$
9     PRINT "Ignore case? ";
10     REPEAT: g$=GET$: UNTIL INSTR("YyNn", g$)
11     IF g$ = "Y" OR g$ = "y" THEN PRINT "Y": f% = 1: ELSE PRINT "N": f% = 0
12     PRINT "Ignore accents? ";
13     REPEAT: g$=GET$: UNTIL INSTR("YyNn", g$)
14     IF g$ = "Y" OR g$ = "y" THEN PRINT "Y": f% = f% OR 2: ELSE PRINT "N"
15    
16     SYS"Territory_Collate", z%, a$, b$, f% TO c%
17    
18     CASE TRUE OF
19     WHEN c% < 0: PRINT "" + a$ + "‘ < " + b$ + "‘"
20     WHEN c% = 0: PRINT "" + a$ + "‘ = " + b$ + "‘"
21     WHEN c% > 0: PRINT "" + a$ + "‘ > " + b$ + "‘"
22     ENDCASE
23    
24     UNTIL 0
25    

  ViewVC Help
Powered by ViewVC 1.1.26