Annotation 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	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