Guru
Joined: 11/02/2018
Location: AustraliaPosts: 3319
| Posted: 11:05pm 08 Jul 2025 |
Reducing spaces then shortening variables.
PicoMite MMBasic RP2040 Edition V6.00.02
CPUSPEED 378000 KHz
> dim integer mynm=1234567, fini :dim string mn
> timer=0:for i=1 to 1000:mn=bin2str$(int64,mynm):mynm=str2bin(int64,mn):next:fini=timer :? fini;" mS"
40 mS
>
> dim integer m=1234567, f :dim string n
> timer=0:for i=1 to 1000:n=bin2str$(int64,m):m=str2bin(int64,n):next:f=timer :? f;" mS"
36 mS
CPUSPEED 378000 KHz
> dim integer mynm=1234567, fini :dim string mn
> timer=0:for i=1 to 1000:mn=bin2str$(int64,mynm):mynm=str2bin(int64,mn):next:fini=timer :? fini;" mS"
40 mS
>
> dim integer m=1234567, f :dim string n
> timer=0:for i=1 to 1000:n=bin2str$(int64,m):m=str2bin(int64,n):next:f=timer :? f;" mS"
36 mS
PicoMiteVGA MMBasic RP2350A Edition V6.00.02
OPTION RESOLUTION 800x600 @ 360000KHz
> dim integer m=1234567, f :dim string n
> timer=0:for i=1 to 1000:n=bin2str$(int64,m):m=str2bin(int64,n):next:f=timer :? f;" mS"
27 mS
>
OPTION RESOLUTION 800x600 @ 360000KHz
> dim integer m=1234567, f :dim string n
> timer=0:for i=1 to 1000:n=bin2str$(int64,m):m=str2bin(int64,n):next:f=timer :? f;" mS"
27 mS
>
Edited 2025-07-09 09:19 by phil99