CLEAR
SET ESCAPE ON 
FOR n=12 TO 24
   lcStr = SPACE(2^n-32) 
? 'lenght',LEN(lcStr)
    ltStart = seconds()
    lcX = chrtran( replicate( '*',  2^n-32), lcStr , lcStr )
?? seconds() - ltStart
next