Listing 2. A Benchmark Program

? TIME(
USE bench INDEX bench1,bench2
APPEND SDF FROM test.sdf
? TIME()
GOTO TOP
x_s = "seed"
x_a = 0
DO WHILE .NOT. EOF()
        x_y = field2
        REPLACE field2 WITH x_s
        x_s = x_y
        x_a = x_a + field1/1000         SKIP
ENDDO
? TIME()
? x_a
DELETE ALL
? TIME()
PACK
? TIME()