*
10000 * TAG TEST LETTER CODES ROUTINE
CRT @(0,1):CR
COL=0
POS=0
MAXCOL=70
MAXPOS=20
 QRAY=''
 SELECT WP 
 LOOP
  READNEXT ID ELSE ID='EOF'
 UNTIL ID='EOF' DO
  ID=OCONV(ID,'G0.1')
  LOCATE(ID,QRAY,1;NDX;'AL') ELSE
   QRAY=INSERT(QRAY,1,NDX;ID)
   QRAY=INSERT(QRAY,2,NDX;'0')
  END
 REPEAT
 QCT=DCOUNT(QRAY<1>,VM)
 FOR Q=1 TO QCT
  IF POS>=MAXPOS THEN COL=COL+10;POS=0
  POS=POS+1
  CRT @(COL,POS):QRAY<1,Q>
 NEXT Q
 CRT @(0,22):"Enter T(tag all), SPACE(toggle selection), X(clear all)":
 COL=0; POS=0
 FOR Q=1 TO QCT
  IF POS>=MAXPOS THEN COL=COL+10;POS=0
  POS=POS+1
  CRT @(COL,POS):RV:QRAY<1,Q>
  CRT @(COL,POS):
  INPUT ANS,1:
  CRT ERV
  BEGIN CASE
  CASE ANS=' '
   IF QRAY<2,Q> THEN
    CRT @(COL,POS):QRAY<1,Q>
    QRAY<2,Q>=0
   END ELSE
    CRT @(COL,POS):RV:QRAY<1,Q>:ERV
    QRAY<2,Q>=1
   END
  CASE ANS='T'
   COL=0;POS=0
   FOR Q=1 TO QCT
    IF POS>=MAXPOS THEN COL=COL+10;POS=0
    POS=POS+1
    QRAY<2,Q>=1
    CRT @(COL,POS):RV:QRAY<1,Q>:ERV
   NEXT Q
  CASE ANS='/'
   STOP
  CASE ANS='X' 
   COL=0;POS=0
   FOR Q=1 TO QCT
    IF POS>=MAXPOS THEN COL=COL+10;POS=0
    POS=POS+1
    QRAY<2,Q>=0
    CRT @(COL,POS):QRAY<1,Q>
   NEXT Q
  CASE 1
   IF QRAY<2,Q>=0 THEN
    CRT @(COL,POS):QRAY<1,Q>
   END ELSE
    CRT @(COL,POS):RV:QRAY<1,Q>:ERV
   END
  END CASE
 NEXT Q
 CRT @(0,22):CL:BEEP:"IS THIS CORRECT (Y/N)":
 INPUT ANS
 IF ANS='/' THEN STOP
 IF ANS='Y' ELSE GO 10000
 FOR Q=1 TO QCT
  IF QRAY<2,Q> THEN
   CRT @(0,1):CR
   CRT @(0,10):"NOW SORTING LPF.DAILY.LASER BY ZIP FOR TEST CODE:"
   CRT @(23,12):RV:"PLEASE WAIT!!!":ERV
   CRT @(0,15):STATEMENT
   EXECUTE STATEMENT
   LCD=QRAY<1,Q>
   GOSUB 100
  END
 NEXT Q
RETURN