UniBasic Commands Reference - Rocket Software

In some implementations, the values are different:
AB 3 2
CD 6 2
EF 8 2
In the next example, the program segment compares processing time for the
REMOVE statement versus the EXTRACT statement:
1-678 UniBasic Commands Reference
MAINLINE
OPEN ' ', 'VOC' TO VOC ELSE STOP 'CANNOT OPEN VOC FILE!'
READ ITEM FROM VOC, 'BIGTEST' THEN
LINE.CNT = DCOUNT (ITEM, @AM)
PRINT "Bigtest in file VOC: "; LINE.CNT: " lines, ":
PRINT LEN(ITEM): "bytes."
GOSUB TIME.EXTRACT
GOSUM TIME.REMOVE
END ELSE
PRINT 'COULD NOT READ ITEM BIGTEST'
END
STOP
TIME.EXTRACT:
LINE.IDX = 1
START.TIME = TIME()
LOOP
UNTIL LINE.IDX LINE.CNT DO
LINE = ITEM
LINE.IDX += 1
REPEAT
END.TIME = TIME()
PRINT "EXTRACT: ": OCONV(END.TIME-START.TIME, 'MTS'):
RETURN
TIME.REMOVE
START.TIME = TIME()
LOOP
REMOVE LINE FROM ITEM SETTING MORE.LINES
WHILE MORE.LINES DO
REPEAT END.TIME = TIME()
PRINT "REMOVE: ": OCONV(END.TIME-START.TIME, 'MTS'):
RETURN
This results in the following:
Bigtest in file VOC: 6000 lines, 59999 bytes.
Processing time:
EXTRACT: 00:07:26
REMOVE: 00:00:03