RetroShare/supportlibs/pegmarkdown/peg-0.1.9/examples/fibonacci.bas

100 let n=32
110 gosub 200
120 print "fibonacci(",n,") = ", m
130 end

200 let c=n
210 let b=1
220 if c<2 then goto 400
230 let c=c-1
240 let a=1
300 let c=c-1
310 let d=a+b
320 let a=b
330 let b=d+1
340 if c<>0 then goto 300
400 let m=b
410 return