C-like for() statement using macros

[dodicat]

With -gen gcc (all these loops (while,for,do) are parsed to GOTO LABEL in the c code.
-gen gcc -Wc -O3 for example.
But after that it's up to the team at gcc HQ what happens next.
Even Fibonacci .

Code: Select all

 #macro forloop(a,b,c,instruction)
scope
a
#define labl  label:
labl
instruction
c
if b then goto labl
#undef label
end scope
#endmacro

dim as ulongint acc,ctr

forloop(dim as ulongint x=0,x<=5000000000000000000,x+=acc-(x-2)-(x-1),acc+=(x-1):ctr+=1:print ctr;tab(5);acc+1)
 
forloop(dim as long p=0,p<24,p+=1,print "=";)
 print
 sleep  

[dafhi]

my bad. i forgot to swap :)