... aImages := Directory( cCft + "*.*" ) FOR nX1=1 TO LEN(aImages) cTemp := aImages[nX1,1] cItem := "" oSay:SetText( LTRIM( STR( ROUND( (nX1/LEN(aImages))*100, 2), 9, 3) ) + "% Complete . . ." ) Sysrefresh() FOR nX2:=1 TO LEN(cTemp) cChar := SUBSTR(cTemp,nX2,1) ...