Contents of /territories/Source/Utilities/TestCollate

REM > Territories:Utilities.TestCollate

INPUT "Territory number: "z%

 REPEAT
  PRINT
  INPUT "String 1: "a$
  INPUT "String 2: "b$
  PRINT "Ignore case? ";
  REPEAT: g$=GET$: UNTIL INSTR("YyNn", g$)
  IF g$ = "Y" OR g$ = "y" THEN PRINT "Y": f% = 1: ELSE PRINT "N": f% = 0
  PRINT "Ignore accents? ";
  REPEAT: g$=GET$: UNTIL INSTR("YyNn", g$)
  IF g$ = "Y" OR g$ = "y" THEN PRINT "Y": f% = f% OR 2: ELSE PRINT "N"

  SYS"Territory_Collate", z%, a$, b$, f% TO c%

   CASE TRUE OF
    WHEN c% < 0: PRINT "" + a$ + " < " + b$ + ""
    WHEN c% = 0: PRINT "" + a$ + " = " + b$ + ""
    WHEN c% > 0: PRINT "" + a$ + " > " + b$ + ""
   ENDCASE

 UNTIL 0

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