hi!
Had a look at your code seems like a pretty weird bug, though I did seem to have a bit of luck. But you'll have to try it out and let us know if it resolved yer probs.
replace the doloop function with this:
Function doloop()
For i=0 To 100000
;Show that the operation is actually doing something
If (i Mod 1000)=0 Then
Cls
Text 20,20,Str(i)
FlipCanvas workarea
EndIf
For j=0 To 100000
k=i*j
Next
If KeyDown(1) Exit
Next
End Function
Well good luck!!
Mr Brine
Had a look at your code seems like a pretty weird bug, though I did seem to have a bit of luck. But you'll have to try it out and let us know if it resolved yer probs.
replace the doloop function with this:
Function doloop()
For i=0 To 100000
;Show that the operation is actually doing something
If (i Mod 1000)=0 Then
Cls
Text 20,20,Str(i)
FlipCanvas workarea
EndIf
For j=0 To 100000
k=i*j
Next
If KeyDown(1) Exit
Next
End Function
Well good luck!!
Mr Brine