f

but I get zero for all the values of n

For fun, Windows: #include "windows.bi" Function getSystemCPUTime(Byref totalTime As Ulongint, Byref idleTime As Ulongint)As boolean Dim As FILETIME ftSysIdle, ftSysKernel, ftSysUser If (GetSystemTimes(@ftSysIdle, @ftSysKernel, @ftSysUser))=0 Then Return false Dim As ULARGE_INTEGER sysKern...

These work also Private Sub MsWsParams.SaveMetrics2( filename As String ) Dim As Long f = FreeFile If FileExists( filename ) Then Kill ( filename ) Open filename For Binary As #f Put #f, , this Close #f End Sub Private Sub MsWsParams.LoadMetrics2( filename As String ) Dim As Long f = FreeFile Open f...

Why not be consistent and have to translate everything? width loword(width)+&H2 declare function Roman(as longint) as string Dim i As uByte Print "Starting For ... Next loop" For i = &H0 To &HFF-&H1 Print Roman(i), Sleep &HA Next i print Roman(i) Print "Completed F...

Settles to 1% CPU usage. Tested 32/64/gas64 #include "windows.bi" #include "vbcompat.bi" #include "crt.bi" Const xres=800 Const yres=600 Sub setfontsize(h As hdc,size As Long,style As zstring Ptr) SelectObject(h,CreateFont(size,0,0,0,400,0,0,0,DEFAULT_CHARSET,OUT_OUTLIN...

I have updated my quick runner to show runtime errors (keeps the console open no matter what, except power cuts).
viewtopic.php?p=264633#p264633

Hi SARG Yes, -gen gas64 is OK But -gen gcc doesn't give the error to the console in 64 bits (here anyway), It merely crashes. Which must be a bug in -exx flag for -gen gcc 64 bits. You would expect consistency, and it means my quickrunner.exe (A little command line runner), instead of a batch file, ...

-gen gas 32 bits OK I get the runtime error -gen gcc 32 bits OK I get the runtime error -gen gcc 64 bits NOT OK, crash with no runtime error. -gen gas64 OK I get the runtime error. fb 1.09.0 Win 10 (using -exx throughout of course) Tested applying the commands options in code and applying the comman...

Here is code with warnings and an error duff.bas #cmdline "-exx" dim as long ptr p=1 print *p sleep If I compile this with the 32 bit compiler to get duff.exe. I then run this duff.exe from the command line I get Aborting due to runtime error 12 ("segmentation violation" signal) ...

Far memory. Click run to start. Type Point As Single x,y,z As Ulong col As Single dx,dy As Single kx,ky End Type #define map(a,b,_x_,c,d) ((d)-(c))*((_x_)-(a))/((b)-(a))+(c) Function spline(p() As Point,t As Single) As Point #macro set(n) 0.5 *( (2 * P(2).n) +_ (-1*P(1).n + P(3).n) * t +_ (2*P(1).n ...

It is nice to have backward compatibility. Win XP is still used for some POS systems offline. (I know one newsagent who uses it, and he knows others) It is a really stable operating system. Even DOS is still used for this, but of course freebasic has a DOS compiler anyway. I never liked Win 2000 sin...

That's fine fxm, of course it is better understood expanded out.

That's fine.
Thanks.

That's much better fxm. I don't have #512 -unwindinfo, next one up from the official build I believe. For fun #cmdline "-exx" Sub evalue( fb_err_value as integer =__fb_err__) Dim As String s(...)={"no flag enabled","errorckeck","resumeerror","extraerrchk&...

You can somewhat simulate switch. #define nobreak(n) end select: select case n Dim As Integer x=6 Print "Where is ";x;" ?" Select Case x Case 6 Print 6 nobreak(x) Case 2 To 7 Print 2;" to ";7 nobreak(x) Case 9 To 14 Print 9;" to ";14 nobreak(x) Case 5 To 7 Pri...