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

Contents of /territories/Source/Utilities/TestCollate

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (show 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 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