Power-Programmierung/CD1.mdf/xbase/library/dbase/moss/set.prg

Text File | 1986-11-09 | 477b | 22 lines

* SET.PRG chooses an active database.
dab=space(8)
do while len(trim(dab))<1
@ 2,2 say "What database would you like to use [<Return> for a directory]:" get dab
read
if len(trim(dab))<1
 dir
endif
enddo
@ 3,0 clear to 5,79
indx=space(8)
@ 5,0 say "EXISTING INDEX FILES:"
run dir *.ndx/w
 @ 3,2 say "What's the index file for this database (<Return> for none)?" get indx
read
if len(trim(indx))>0
use &dab index &indx
else
use &dab
endif
filt="ALL "
return