CLS
AT 0,2 SAY CHR(1)+"TVer 1.00"+CHR(1)+"T"
AT 0,22 SAY CHR(1)+"BzBASE FRONT END SYSTEM - SELECT FILE"+CHR(1)+"B"
AT 0,70 SAY CHR(1)+"T"+DATE()+CHR(1)+"T"
AT 1,0 SAY CHR(1)+"3Np-"
LET newfile$="        "
LET newun=0
AT 3,7 SAY "Please enter filename (Extention '.DBF' will be added) >>>"
AT 5,21 SAY "Leave the name blank to return to menu"
AT 3,66 GET newfile$
IF newfile$="        "
RELEASE newfile$,newun
RETURN
ENDIF
AT 5,21 SAY "                                      "
LET newfile$=UPPER(newfile$)
LET usefile$=TRIM(newfile$)+".DBF"
IF FILE(usefile$)=0
LET makeit$=" "
AT 3,6 SAY "That file does not exist - Would you like to create it? (Y/N) >>>     "
DO WHILE makeit$=" "
AT 3,72 GET makeit$
IF WHERE(makeit$,"YNyn")=0
LET makeit$=" "
ENDIF
ENDDO
IF UPPER(makeit$)="Y"
DO MAKEIT.PRG
ELSE
RELEASE usefile$,newfile$,makeit$,newun
RETURN
ENDIF
RELEASE makeit$
ENDIF
AT 2,0 SAY CHR(1)+"2C"+CHR(254)
AT 3,25 SAY "Selecting file - Please wait"
USE &usefile$
COPY TO TEMP.DEF STRUCTURE PD
SELECT 2
CREATE FIELDS.DBF FROM FIELDS.DEF
APPEND FROM TEMP.DEF PD
DELETE FILE TEMP.DEF
LET currfile$=newfile$
LET doing=1
DO WHILE doing
AT 2,0 SAY CHR(1)+"2C"+CHR(254)
AT 3,8 SAY "Please enter the name of the index file ('.NDX' will be added)"
AT 7,19 SAY "Leave name blank to create a new index file"
AT 5,36 GET newfile$
LET newfile$=UPPER(newfile$)
LET ndxfile$=TRIM(newfile$)+".NDX"
IF FILE(ndxfile$)=0
LET loopy=1
DO WHILE loopy
AT 2,0 SAY CHR(1)+"2C"+CHR(254)
LET key$="         "
AT 3,17 SAY "That file does not exist - It will be created"
AT 7,4 SAY "Enter the key field - It must be a string - Leave blank to abandon" 
AT 5,34 GET key$
IF key$="         "
LET doing=1
LET loopy=0
ELSE
LET key$=TRIM(UPPER(key$))
IF WHERE("$",key$)=0
LET key$=key$+"$"
ENDIF
LOCATE FOR TRIM(2:FIELD$)=key$
IF EOF()=1
AT 7,0 SAY CHR(1)+"2C"+CHR(254)
AT 7,20 SAY "That field does not exist - Press any key"
WAIT
ELSE
LET loopy=0
ENDIF
ENDIF
ENDDO
IF key$<>"         "
AT 2,0 SAY CHR(1)+"2C"+CHR(254)
AT 3,24 SAY "Creating index file - Please wait"
SELECT 2
USE
SELECT 1
APPEND BLANK
LET newun=1
INDEX ON &key$ TO &ndxfile$ 
SELECT 2
USE FIELDS.DBF
SELECT 1
LET doing=0
ENDIF
ELSE
LET doing=0
ENDIF
ENDDO
AT 2,0 SAY CHR(1)+"2C"+CHR(254)
AT 3,25 SAY "Selecting file - Please wait"
SELECT 2
CREATE TEMP1 FROM TRICK.DEF
LET newname$=TRIM(currndx$)
APPEND FROM &ndxfile$ SDF
GO TOP
LET currkey$=2:KEY$
USE
DELETE FILE TEMP1
USE FIELDS.DBF
SELECT 1
LET currndx$=newfile$
USE &usefile$ INDEX &ndxfile$
IF newun=1
LET 1:&currkey$="**"
ENDIF
RELEASE usefile$,newfile$,ndxfile$,loopy,newun,doing,newname$,key$
RETURN