* BARNTX.PRG - Shows progress of index with bar chart
* Brought to you by: Auto Exec BBS - (508) 833-0508
*
* Specializing in CLIPPER/FoxBase/dBASE, 'C', Pascal
*
* Only need to register to download 450K/day.

SET COLOR TO W+/B,R/B,B,B
CLEAR
@12,33 SAY "I N D E X I N G"
@18,10 TO 23,69 DOUBLE
@21,11 TO 21,68 DOUBLE
@21,10 say "Ì"
@21,69 say "¹"
@19,14 say "     ÍÍ= P E R C E N T      C O M P L E T E ÍÍÍ"
@20,14 say "0   10   20   30   40   50   60   70   80   90   100"
store space(8) to dbtodo,iname
ikey=space(50)
@2,10 say "Enter Database Name: " get dbtodo picture "@!"
@3,10 say "Enter Index Key: " get ikey picture "@!"
@4,10 say "Enter Index Name: " get iname picture "@!"
READ
dbtodo=trim(dbtodo)
ikey=trim(ikey)
iname=trim(iname)
if file(dbtodo+".dbf")
USE &dbtodo       &&(Name of Database)
TotalRec=RECCOUNT()
SET COLOR TO R+/B,W+/B,B,B
INDEX ON Bar(ikey,TotalREc) TO &iname
ENDIF
RETURN


FUNCTION BAR
PARAMETERS IField, Tot
PRIVATE IField, Tot
IF RECNO() < Tot + 1
   Pct = RECNO() * 100 / Tot
   @22,14 say REPLICATE("²",(Pct/2)+1)  && CHR(219)
ENDIF
RETURN(IField)
* END:BAR