Indeed I did test with a very old freepascal because that was all I had. I also tested with virtual pascal, which actually was quite fast (15 seconds). (Virtual pascal has been dead since 2005) But I now have freepascal 64 bit version 3.0.4 thanks to srvaldez.(10 seconds) Anyway, I am a little disap...

You have W,H as single, but you integer divide
Should be
H = (pointY1-240)*2
W = H/9
H = H/9
I reckon.

Fair enough marcov.
But I still think that you should have a portable(zip, 7Z,whatever) version of FreePascal.
Other compilers have, Dev-C++, FreeBASIC of course, Haskell, ...
You might attract more punters (sorry ... developers).

Thank you marcov. svarldez's zip fpc works well here. Windows: I note that If I had used the installer and agreed to put fpc.exe on path then I would also have put a 67 KB gcc.exe on path, along with a multitude of other executable files. What then If I decide to download MinGW and have a gcc proper...

Suppose you select a random number from the range 0 to 10 Do this 20000000 and keep the counts in an array(0 to 10) array(0), array(1) ... should all be the same. Of course they are not in practice. Here are some observations about the array() from randomize 1 to randomize 4 (randomize 5 is too slow...

KeyPgOpStrptr is explicit about this possibility: In case of empty string (only for variable length strings), Operator Strptr returns a null pointer. Good. Maybe it should also be added to the help file, which n00bs are more likely to find and consult. So you should replace this end character at ea...

OK srvaldez.
I have your file.

-0.169075164
-0.169059907
10.42882303687671 seconds

I'll fix up my dev-pascal ide to use it.
Thanks again.

Thanks srvaldez.
I'll try that later.
The pascal code runs well on virtual pascal, with only two minor adjustments.
I copied the vp21 folder directly from my xP machine to Win 10.

I get about 15 seconds in virtual pascal.

I get about 10 seconds with -gen gcc -Wc -O3 I get about the same with srvaldez's c code compiling directly with gcc (obviously, it's the same thing) I get about 34 seconds with my freepascal compiler (selecting BEST speed in the ide which is O3 in the compile log) But my freepascal is old(I copied ...

running the actual pascal code in freepascal via


I get


so I have -gen gas beating freepascal (using somenumber^2 )

srvaldez for pascal sqr did you use Somenumber*somenumber or somenumber^2 ? Here is my translation Type body ' Body = record As String body Dim As Double x, y, z, _ vx, vy, vz,mass End Type Const pi = 3.141592653589793 Const solarMass = 4 * (pi)^2 Const daysPerYear = 365.24 'type Dim shared As body ...

HELP FILE; Reads a line from an open text file (opened for Input through a bound file number) and stores it in a string variable. A line of text ends at, but does not include the end of line characters. An end of line character may be the LF character (Chr(10)) or the CRLF character pair (Chr(13,10)...

Dim shared is not required. You could make everything very private. namespace Control dim as integer number(999) function dumb(k as integer) as integer function= number(k) end function end namespace type A_type as function(as integer) as integer number= @control.dumb end type var A=A_type Control.nu...

No problem here (Scientific Linux) Which is pretty much Red Hat Linux. [dodicat@localhost basic]$ fbc -v -profile worm.bas FreeBASIC Compiler - Version 1.05.0 (01-31-2016), built for linux-x86 (32bit) Copyright (C) 2004-2016 The FreeBASIC development team. target: linux-x86, 486, 32bit compiling: wo...

I get an error fxm Compiler output: Aborting due to runtime error 12 ("segmentation violation" signal) A simplification for a control array. dim shared as integer number(999) function dumb(k as integer) as integer function= number(k) end function type A_type as function(as integer) as inte...