SET ESCAPE ON CLEAR FOR N=10 TO 23 ? 'LENGHT ',INT(2^M.N) T1=SECONDS() =STRTRAN(SPACE(2^M.N),SPACE(1),SPACE(0)) STIME=SECONDS()-T1 ?? 'STRTRAN' AT 30, SECONDS()-T1 AT 40 T1=SECONDS() =CHRTRAN(SPACE(2^M.N),SPACE(1),SPACE(0)) CTIME=SECONDS()-T1 ?? 'CHRTRAN' AT 60,M.CTIME AT 70,'Ratio',M.CTIME/M.STIME AT 80 NEXTOf course, without destroy the good implementation for character translation:
SET ESCAPE ON CLEAR FOR N=10 TO 23 ? 'LENGHT ',INT(2^M.N) T1=SECONDS() =STRTRAN(SPACE(2^M.N),SPACE(1),SPACE(1)) STIME=SECONDS()-T1 ?? 'STRTRAN' AT 30, SECONDS()-T1 AT 40 T1=SECONDS() =CHRTRAN(SPACE(2^M.N),SPACE(1),SPACE(1)) CTIME=SECONDS()-T1 ?? 'CHRTRAN' AT 60,M.CTIME AT 70,'Ratio',M.CTIME/M.STIME AT 80 NEXT