Reserve As Work 1,10000
Memory Fill Start(1) To Start(1)+5000,"aaaaddaaaaaaa"
Memory Fill Bank End(1) To Bank End(1)," "
T=Timer
For I=1 To 100
A=String Hunt(Start(1) To Bank End(1),0,-1,"aaddaa")
Next 
Print Timer-T
Print A
T=Timer
For I=1 To 100
A=String Hunt(Start(1) To Bank End(1),0,1," ")
Next 
Print Timer-T
Print A
Print Byte Hunt(Start(1) To Bank End(1),0,Asc(" ") To Asc(" "))