STORE 'N' TO DNETAPPEND
STORE 1 TO CL
SET EXCLUSIVE OFF
STORE 0 TO CC
CLEAR
@ 1,30 SAY 'NETWORK TEST PROGRAM'
@ 2,30 SAY '--------------------'
@ 24,0 SAY 'Copyrite 1990 Computer Audio, Inc.'
@ 24,60 SAY 'Press ESC to EXIT'
STORE  '  ' TO NN
@ 5,0 SAY 'ENTER NODE NUMBER - ' GET NN
READ
PRESSED = LASTKEY()
IF PRESSED = 27
 @ 24,0 CLEAR
 @ 24,0 SAY 'PROCESS ABORTING ... '
 DELETE FILE &BBB
 DELETE FILE &CCC
 CLEAR
 QUIT
 RETURN
ENDIF
IF SUBSTR(NN,2,1) = ' '
 STORE '0' + SUBSTR(NN,1,1) TO NN
ENDIF
STORE 'NET1' + NN + '.DBF' TO AAA
STORE 'NET2' + NN + '.DBF' TO BBB
STORE 'NET3' + NN + '.DBF' TO CCC
STORE 'NET4' + NN + '.DBF' TO DDD
STORE 'NET5' + NN + '.DBF' TO EEE
STORE 'NET6' + NN + '.DBF' TO FFF
STORE 'NET7' + NN + '.DBF' TO GGG
STORE 'NET8' + NN + '.DBF' TO HHH
STORE 'NET9' + NN + '.DBF' TO III
STORE 'NET1' + NN + '.NTX' TO AAAI
STORE 'NET2' + NN + '.NTX' TO BBBI
STORE 'NET3' + NN + '.NTX' TO CCCI
STORE 'NET4' + NN + '.NTX' TO DDDI
STORE 'NET5' + NN + '.NTX' TO EEEI
STORE 'NET6' + NN + '.NTX' TO FFFI
STORE 'NET7' + NN + '.NTX' TO GGGI
STORE 'NET8' + NN + '.NTX' TO HHHI
STORE 'NET9' + NN + '.NTX' TO IIII
DO WHILE .T.
@ 8,0 SAY SPACE(80)
@ 10,0 SAY SPACE(80)
@ 12,0 SAY SPACE(80)
@ 14,0 SAY SPACE(80)
@ 16,0 SAY SPACE(80)
@ 8,0 SAY 'TRANSFERING FILES'
CLOSE DATA
STORE 'NETTEST' TO DNET
DO NETERROR
USE NETTEST.DBF
COPY TO &AAA
COPY TO &BBB
STORE 'NETTEST1' TO DNET
DO NETERROR
USE NETTEST1.DBF
COPY TO &CCC
COPY TO &DDD
STORE 'NETTEST2' TO DNET
DO NETERROR
USE NETTEST2.DBF
COPY TO &EEE
COPY TO &FFF
COPY TO &GGG
COPY TO &HHH
COPY TO &III
SET CONSOLE ON
PRESSED = LASTKEY()
PRESSED1 = INKEY()
@ 10,0 SAY 'DELETING FILES'
DELETE FILE &HHH
DELETE FILE &III
CLOSE DATA
@ 12,0 SAY 'INDEXING FILES'
USE &AAA
INDEX ON PLINE TO &AAAI
USE &BBB
INDEX ON PLINE TO &BBBI
USE &CCC
INDEX ON PLINE TO &CCCI
USE &DDD
INDEX ON PLINE TO &DDDI
USE &EEE
INDEX ON PLINE TO &EEEI
USE &FFF
INDEX ON PLINE TO &FFFI
USE &GGG
INDEX ON PLINE TO &GGGI
CLOSE DATA
SELECT 1
@ 14,0 SAY 'OPENING FILES'
SET EXCLUSIVE ON
USE &AAA INDEX &AAAI
SELECT 2
USE &BBB INDEX &BBBI
SELECT 3
USE &CCC INDEX &CCCI
SELECT 4
USE &DDD INDEX &DDDI
SELECT 5
USE &EEE INDEX &EEEI
SELECT 6
USE &FFF INDEX &FFFI
SELECT 7
USE &GGG INDEX &GGGI
@ 16,0 SAY 'RE-INDEXING FILES'
SELECT 1
REINDEX
SELECT 2
REINDEX
SELECT 3
REINDEX
SELECT 4
REINDEX
SELECT 5
REINDEX
SELECT 6
REINDEX
SELECT 7
REINDEX
SET EXCLUSIVE OFF
IF PRESSED = 27 .OR. PRESSED1 = 27
 CLEAR
 QUIT
 RETURN
ENDIF
@ 18,0 SAY 'PASS - ' + STR(CC,6,0)
STORE CC+1 TO CC
ENDDO