24 lines
738 B
Text
24 lines
738 B
Text
fibword: procedure options (main); /* 9 October 2013 */
|
|
declare (fn, fnp1, fibword) bit (32000) varying;
|
|
declare (i, ln, lnp1, lfibword) fixed binary(31);
|
|
|
|
fn = '1'b; fnp1 = '0'b; ln, lnp1 = 1;
|
|
put skip edit (1, length(fn), fn) (f(2), f(10), x(1), b);
|
|
put skip edit (2, length(fnp1), fnp1) (f(2), f(10), x(1), b);
|
|
do i = 3 to 37;
|
|
lfibword = lnp1 + ln;
|
|
ln = lnp1;
|
|
lnp1 = lfibword;
|
|
if i <= 10 then
|
|
do;
|
|
fibword = fnp1 || fn;
|
|
put skip edit (i, length(fibword), fibword) (f(2), f(10), x(1), b);
|
|
fn = fnp1; fnp1 = fibword;
|
|
end;
|
|
else
|
|
do;
|
|
put skip edit (i, lfibword) (f(2), f(10));
|
|
end;
|
|
end;
|
|
|
|
end fibword;
|