85 lines
1.6 KiB
Plaintext
85 lines
1.6 KiB
Plaintext
|
*
|
||
|
|
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
|