dim integer mynm, fini
dim string mn
mynm = 1234567

timer=0

for i = 1 to 1000
mn = bin2str$(int64,mynm)
mynm = str2bin(int64,mn)
next

fini = timer

print fini