/usr/share/doc/peg/examples/fibonacci.bas is in peg 0.1.15-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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
|