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