Hi All...
 
Here is some more of my odd-ball stuff . Feel free to 
use/modify/suggest/etc.
 
I use this little snippet for 1 of 2 things... If I want to show a 
"twirly" animation while scanning a *.DAT file,  If I want to show a 
percentage of the file that has been scanned for various criteria. (I 
even have a situation where I needed BOTH.) The key is to use your 
imagination. If anyone wants/needs a sample program or 2 to show how _I_ 
FULLY use these, just ask...I'll be happy to post something for you...:)
 
---------------------
'LOOK4ME.BAS - PUBLIC DOMAIN by Ronald Schlegel
 
DEFINT A-Z
 
X% = FREEFILE
 
OPEN "MYDATA.DAT" FOR RANDOM AS #X% LEN = LEN(MyData)
 NumRecs = LOF(X%)/LEN(MyData)
  FOR C = 1 TO NumRecs
   GET #X%, , MyData
 
    Twirley = Twirley + 1   'Assigns a value to Twirley
     IF Twirley = 5 THEN    'We only need 4, so if its 5...reset it
      Twirley = 1           'to 1 before we continue.
     END IF
 
     SELECT CASE Twirley    'Which one do we draw...
      CASE 1
       Twir$ = CHR$(179)    '|
      CASE 2
       Twir$ = CHR$(47)     '/
      CASE 3
       Twir$ = CHR$(196)    '-
      CASE 4
       Twir$ = CHR$(92)     '\
     END SELECT
 
    LOCATE ROW, 43: COLOR 13, 0: PRINT Twir$
 
'This routine allows me to return a percentage status of where I am
'in the data file.
 
RecsRead = C
 Percent = (RecsRead * 100)/NumRecs
 PCent = INT(Percent)
 LOCATE 24, 4: COLOR 12, 0: PRINT STR$(PCent);: COLOR 9, 0: PRINT " % Scanned 
for : ";: COLOR 10,0: PRINT Tsrch$
 
NEXT
 
------------------------------------
-Ron
 
 * RM 1.31 3129 * Junk is stuff we throw away. Stuff is junk we keep.
--- TriToss (tm) Professional 11.0 - #229
---------------