Windows 7 and above. Takes a couple of minutes to search. 'shell to include unicode declare function wsystem cdecl alias "_wsystem" (byval as wstring ptr) as long #Include "file.bi" function savefile(filename As String,p As String) as string Dim As long n=freefile If Open (filena...

Newbieforever
Rember also that asc() is overloaded.

PM's (Private Messages), inner sanctums, secret tête-à-tête's, pivate discussions about this and that and who to axe next ... I like it. A distant website? If it is distant from Richard it could be close to here (Principle Law of Antipodalism). If it is in the dark web Richard, I cannot join, the wi...

Could a byref function be more versatile than property? You can have many parameters, get and set, and the code is more readable and shorter. #include "crt.bi" type UDT extends OBJECT declare function Prop() byref as integer private: as integer ref=1 end type function UDT.Prop() byref as i...

I tried a union with this. const size=1000 type ub as ubyte b(1 to size*2) end type union wsize as wstring * size w as ub b end union function getstring(z as wsize) as string dim as string g for n as long=1 to size*2 g+=chr(z.b.b(n)) next n return g end function #Include "file.bi" Sub save...

Very nice.
I get 46 fps with 32 bits -O3
64 bits is half that speed.
About 30 -gen gas.
I waited a while for a fish, even a minnow.
The water looks too clear though (acid rain probably).

screen 8 is actually 640 by 200 but it shows about double it's height when seen. But underneath still 640 by 200. Wierd, maybe a qbasic throwback, not sure. screen 8 ' =640 by 200 dim as integer xres,yres screeninfo xres,yres print xres,yres print "Hello, screen 8, press a key" circle(320,...

jj2007 -- one reason, you could create a new utopia in your own dinner time. Function TALLY(SomeString As String,PartString As String) As Long Dim As Long LenP=Len(PartString),count Dim As Long position=Instr(SomeString,PartString) If position=0 Then Return 0 While position>0 count+=1 position=Instr...

I have it now jj2007, 24541 in quick succession.
Now I have two copies of the king James bible.
Is this some sort of sign jj2007 -- searching for "hell"?
What sort of ecumenical sign is <p>?
I am not even a member of the Church of England, my ancestors were Covenanters.

val2 mod 2 is equal to val2 and 1 which is faster.

results for hell 50 50 1 to 50 0.01733574143145233 dodicat find number hell true 50 50 0 to 62 0.07592501089675352 d.j.peters find number hell true 50 50 0 to 49 0.01150925422552973 grindstone find number hell true -------------------------- 50 50 1 to 50 0.01723137317458168 dodicat find number hell...

String epsilon I can't find strcasestr anywhere, I tried, looked in msvcrt.def, not there. So I couldn't include your functions. My tally is really very basic, fast at some searches, slow at others. Here are three comparisons for finding a number in a 10 million string of numbers. all different resu...

ssddata is empty.
I took the unpacked file to Linux, ssd.c compiled straight off,( I compiled to .o)

grindstone.
7-zip unpacks it.
I have 7-Zip portable on win 10.
The .c file doesn't compile on Win, so I cannot even create a library, it is a Linux file.
If you cannot get 7-zip I can put the unpacked files on mediafire in a .zip if you like.

Thanks Albert. Sadly it will probably all happen again so some other culture in some other place. Here is an update of my perpetual machine. Red - north pole, green - south pole, white stuff - magnetic insulator. It is boring to watch because perpetual motion will probably be boring when it is inven...