ref: bc90c2ec4f3d8b0480c4cdb38e11dca49812fe1d
dir: /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