NOTE  - EXTENDED COMMAND FILE INDEX.CMD
USE &FILE1
GO BOTTOM
STORE STR(#,6) TO REC:NO
ERASE
@  3,15 SAY '*** REFS.DBF PRESENTLY CONTAINS '+REC:NO+' RECORDS ***'
@  5,15 SAY '____________________________________________________'
@  6,14 SAY '|                                                    |'
@  7,14 SAY '|              *** IMPORTANT NOTE ***                |'
@  8,14 SAY '|                                                    |'
@  9,14 SAY '| Re-indexing the reference file on authors, source, |'
@ 10,14 SAY '| and key words  requires serveral  minutes.   The   |'
@ 11,14 SAY '| indexed  files are  ONLY  required  for  option 4  |'
@ 12,14 SAY '| (QUICKLY FIND ARTICLES)  to function.   If you do  |'
@ 13,14 SAY '| not intend to use this option STOP now! This will  |'
@ 14,14 SAY '| save many sectors of disk storage disk space!!!!!  |'
@ 15,14 SAY '|                                                    |'
@ 16,14 SAY '|           ** WANT TO CONTINUE? (Y/N) **            |'
@ 17,14 SAY '|____________________________________________________|'
@ 22,1 SAY ' '
WAIT TO ANSWER
IF !(ANSWER)='N'
     RELEASE REC:NO,ANSWER
     RETURN
ENDIF
ERASE
@ 12,16 SAY "**** INDEXING AUTHOR'S NAME(S) TO AUTHOR.NDX ****"
STORE DR+':AUTHORS' TO FILE
INDEX ON AUTHORS TO &FILE
USE &FILE1
ERASE
@ 11,28 SAY'**** INDEX COMPLETE ****'
@  5,26  SAY '** WANT TO CONTIUE? (Y/N) **'
@ 22,1 SAY ' '
WAIT TO ANSWER
IF !(ANSWER)='N'
     RELEASE REC:NO,ANSWER
     RETURN
ENDIF
ERASE
@ 12,19 SAY '**** INDEXING ON SOURCE TO SOURCE.NDX ****'
STORE DR+':SOURCE' TO FILE
INDEX ON SOURCE TO &FILE
USE &FILE1
ERASE
@ 11,28 SAY'**** INDEX COMPLETE ****'
@  5,26  SAY '** WANT TO CONTIUE? (Y/N) **'
@ 22,1 SAY ' '
WAIT TO ANSWER
IF !(ANSWER)='N'
     RELEASE REC:NO,ANSWER
     RETURN
ENDIF
ERASE
@ 12,18 SAY '**** INDEXING ON KEY WORDS TO KWORDS.NDX ****'
STORE DR+':KWORDS' TO FILE
INDEX ON KWORDS TO &FILE
USE 
ERASE
@ 11,28 SAY'**** INDEX COMPLETE ****'
@ 13,18  SAY '*** PRESS ANY KEY TO RETURN TO MAIN MENU ***'
@ 22,1 SAY ' '
WAIT
RELEASE REC:NO,ANSWER
RETURN