Using a label in a macro with repeat calls. (The parsed fb code uses labels anyway for for loops.) The scope is needed only for different variables, not for labels. #macro forloop(a,b,c,instruction) scope a #define labl label: labl instruction c if b then goto labl #undef label end scope #endmacro f...

Thanks fxm. In that case perhaps, preserving the console: ' uses WinGUI(12) by Lothar Schirm '#Include "WinGUI.bi" #include "windows.bi" #Include "fbgfx.bi" function Window_Event_Close(h as hwnd, msg as msg) as boolean if msg.message=273 then return DestroyWindow(h) end...

Hi Albert. The highest power of two I can use is 32. The crt goes to 36 but that means using mod and div which is bound to slow things. So this type of reduction to a base will be too slow anyway I suppose. Here is the base 32 anyway: #include "crt.bi" function ULongToBase(N as ulongint,_b...

I'll try. Although the help file says the handle via screencontrol is an hwnd, it must be a different flavour of hwnd, because it won't work. The help file says that gfx_null is a bridge between fb screen and api hwnd. So why not use this instead? I've tried to simulate Lothar's subs, but I have nev...

jj2007 Works well on both compilers. Regarding #ifdef __FB_64BIT__ Yea, I shall remember dash dash FB dash 64BIT dash dash I have forgotten already. rdx and rcx and the mmx registers I note for 64 bit. Aside, non mmx cpu's don't work properly with fb since about version 18 I tested on my old Pentium...

Or I find easier to remember:

Instead of the asm, perhaps:

So it runs in 64 bit as well.

I think that is very nice code jj2007

Hi Richard. If you byval your input strings then a switch from original to bin back to original then = original. Albert, not as fast as Richard's, but I have a new method. dec to hex then hex to bin. The dec to hex I have to speed up. The hex to bin is very fast. I have yet to make hex to dec. Funct...

freeBASIC can handle old style line numbers. -gen gas is best 64 bit is useless 'rem prime factors #lang "fblite" 0 option gosub 1 lowers%=30000000 2 uppers%=30000100 10 For counts% = lowers% To uppers% 20 number% = counts% 30 40 Print number%;"= "; 50 divisor% = 2 60 if divisor%...

You can do a straight map using 0.. 2^31 -> 0...5 I am not sure how to incorporate the second parameter n2. The asm looks like an or then a subtraction. Function UlongToDouble( n1 As Ulong, n2 As Ulong = 0 ) As Double Asm movd xmm1, dword Ptr [n1] movd xmm0, dword Ptr [n2] punpckldq xmm0, xmm1 psrlq...

In an image pointer there are three reserved spaces: [5],[6] and [7] These can be used to store the x,y co-ordinates of a rectangle position and the fill option. So all the information aforementioned as being required in a type can stored in the image, thus within the type. type rectangle as any ptr...

..

Paul Doe. Could you repair your model slightly. Press any key to refresh, esc to end. Function resize(im As Any Ptr,Wdth As Single,Hght As Single) As Any Ptr Dim As Integer iw,ih,imx,imy Imageinfo im,iw,ih Dim As Any Ptr OutImage=Imagecreate(Wdth,Hght) For y As Long=0 To Hght-1 imy= ih*y\(Hght-1) Fo...

Actually deltarho[] ... In the UK we had 'O' levels, at age 16, and 'A' levels, at age 18. ... Scotland had O grades and Highers. We must not forget the UK is composed of four countries and a few independent islands. Each with different educational systems. Nice story. Basiccoder2 Hard labour? We ca...