Hi UEZ.
Works great here and I use fbide.

There are quite a few definitions of asynchronous callbacks, some say that waiting for a return value makes the callback synchronous. In this case the the C sort callback and my own quicksort callbacks are synchronous. Quote from stack overflow: "In computer programming, a callback is a piece o...

Quicksort case independent example. The callbacks are up or down. '========== quicksort setup ============== type direction as function(as string, as string,as long) as long Dim Shared As Ubyte u(255) #define lwr(s) iif(s<91 andalso s>64,s+32,s) For n As Long=0 To 255 u(n)=lwr(n) 'lookup Next Functi...

Try this one. #include "crt.bi" #define up <,> #define down >,< #macro SetQsort(datatype,fname,b1,b2,dot) Sub fname(array() As datatype,begin As Long,Finish As Ulong) Dim As Long i=begin,j=finish Dim As datatype x =array(((I+J)\2)) While I <= J While array(I)dot b1 X dot:I+=1:Wend While ar...

Nice simple example https://developer.mozilla.org/en-US/docs/Glossary/Callback_function translated function greeting(names as string) as long print "Hello " + names return 0 end function function processUserInput(callback as any ptr) as long dim as string s input "Please enter your na...

There are 90 ways to get a pair of numbers from 0 to 9, (P(10,2)=90) You can thus use 90 other ascii chartacters to substitute a pair, thus about 50% compression P(10,3)=720, so there are not enough characters to do that (substitute 3), you could do some of them of course to use up spare characters ...

I had to download glut32.dll to even get started with this new opengl.
But it will be fun experimenting without the old routines.

Random digits (0 to 9) are compressible by substitutions. Random ascii characters are not compressible by substitutions, from what source can you find the substitutions?--unicode characters?? Digits: #define Irange(f,l) Int(Rnd*((l+1)-(f)))+(f) Dim Shared As String setkey(0 To 99) Function SAR(s0 As...

OpenGL is a favourite. There are plenty of examples and nothing needs downloaded. Nearly every compiler can use openGL. Examples are all over the internet, it is a universal graphics machine. Example: #Include Once "GL/glu.bi" Dim As Integer xres,yres Screenres 1024,768,32,,2 Screeninfo xr...

I made a simple mid() version, only fb, no external includes. Mid() version versus ptr ptr version for a BIG string. #include "windows.bi" #include "crt.bi" Dim Shared SplitCount As Integer Function SplitChar(sText As ZString Ptr, iChar As Ubyte) As ZString Ptr Ptr Dim iPos As In...

Thanks TT, OK now.
xywhsoft.
Perhaps you should include windows.bi and crt.bi in your code.
Nevertheless, very fast.

The code doesn't run here even If I include crt.bi.
What is RtlMoveMemory for example?

Put the library file (.a or .dll) into the same folder as your code calling it. It will work perfectly well this way. If you really like the library (static .a), then do as Mr Swiss advises. Any .dll you like you can put into your system folder (system32 windows) and put the .dll.a file into the lib...

I don't see much benefit in wrapping an array in a udt (For this case) Type array As String s(1 To 255) As Long idx(1 To 255) Declare const Function find(As Long) As const String Declare Constructor() End Type Constructor array() static as long n if n=1 then print "Closed for business":ret...

Thanks for testing Grindstone. My Win 10 is brand new, I have no video codecs installed, If I see an icon with a snapshot of the video clip on a film strip frame mcisendstring usually plays it, and clicking that file plays it (Films & TV) The blue icon with a triangle doesn't play. .mp3 and .wav...