>CLEAR ALL >CLEAR >LOCAL lnSeconds, lnRecords, lnI > >SET TALK OFF >SET ECHO OFF >CREATE CURSOR curTest (RecNum int, charfield C(30)) >INDEX on DELETED() TAG DelRecs BINARY >RAND(-1) >FOR lnI = 1 TO 300000 > INSERT INTO curTest VALUES (m.lni, PADR(m.lnI,30,'0')) > IF RAND() > 0.8 > DELETE IN curTest > ENDIF >NEXT > >*DELETE FOR RecNum >200000 > >SET DELETED ON > >SYS(1104) >lnSeconds = SECONDS() >SELECT COUNT(*) FROM curTest INTO ARRAY laTest >lnRecords = laTest[1] >RELEASE laTest > >?'Select COUNT(*): ', SECONDS()-m.lnSeconds, lnRecords > >SYS(1104) >lnSeconds = SECONDS() >LOCAL lnSelect >lnSelect = SELECT() >SELECT curTest >COUNT TO lnRecords >SELECT (m.lnSelect) >RELEASE m.lnSelect >?'Change Area and COUNT: ',SECONDS()-m.lnSeconds, lnRecords > >SYS(1104) >lnSeconds = SECONDS() >SELECT 1 FROM curTest TO SCREEN noconsole >lnRecords = _tally >?'Select to screen: ', SECONDS()-m.lnSeconds, lnRecords >CLOSE DATABASES all >