Annotation of /territories/!Territory/Utils/Choose

REM > !Territory.Utils.Choose

DIM Terr$(20), Terr%(20), b% 100

PRINT "Please choose a territory:"

z% = 0
 FOR t% = 1 TO 100
  SYS &43044, t% TO ;f%
   IF (f% AND %100) THEN
    Terr%(z%) = t%
    SYS &43043, t%, b%, 100 TO , Terr$(z%)
    PRINT " "+CHR$(65 + z%)+" "+Terr$(z%)
    z% += 1
   ENDIF
 NEXT

PRINT
PRINT "Choosing " + Terr$(0) + " in ";
x% = POS: y% = VPOS
PRINT "5 seconds"
s% = 5
 REPEAT
  g% = INKEY(100)
   IF g% = -1 THEN
    s% -= 1
     IF s% = 0 THEN
      PRINT TAB(0, y%) Terr$(0) + " territory chosen                        "'
      OSCLI"Set Territory$Name " + Terr$(0)
      OSCLI"SetEval Territory " + STR$Terr%(0)
      END
     ENDIF
    PRINT TAB(x%, y%) STR$s%
   ELSE
    IF g% > 96 THEN g% -= 32
   ENDIF
 UNTIL (g% > 64) AND (g% < (65 + z%))

PRINT TAB(0, y%) Terr$(g% - 65)+" territory chosen                        "'

OSCLI"Set Territory$Name " + Terr$(g% - 65)
OSCLI"SetEval Territory " + STR$Terr%(g% - 65)
1	james	19	REM > !Territory.Utils.Choose
2
3			DIM Terr$(20), Terr%(20), b% 100
4
5			PRINT "Please choose a territory:"
6
7			z% = 0
8			FOR t% = 1 TO 100
9			SYS &43044, t% TO ;f%
10			IF (f% AND %100) THEN
11			Terr%(z%) = t%
12			SYS &43043, t%, b%, 100 TO , Terr$(z%)
13			PRINT " "+CHR$(65 + z%)+" "+Terr$(z%)
14			z% += 1
15			ENDIF
16			NEXT
17
18			PRINT
19			PRINT "Choosing " + Terr$(0) + " in ";
20			x% = POS: y% = VPOS
21			PRINT "5 seconds"
22			s% = 5
23			REPEAT
24			g% = INKEY(100)
25			IF g% = -1 THEN
26			s% -= 1
27			IF s% = 0 THEN
28			PRINT TAB(0, y%) Terr$(0) + " territory chosen "'
29			OSCLI"Set Territory$Name " + Terr$(0)
30			OSCLI"SetEval Territory " + STR$Terr%(0)
31			END
32			ENDIF
33			PRINT TAB(x%, y%) STR$s%
34			ELSE
35			IF g% > 96 THEN g% -= 32
36			ENDIF
37			UNTIL (g% > 64) AND (g% < (65 + z%))
38
39			PRINT TAB(0, y%) Terr$(g% - 65)+" territory chosen "'
40
41			OSCLI"Set Territory$Name " + Terr$(g% - 65)
42			OSCLI"SetEval Territory " + STR$Terr%(g% - 65)