Re: Fibonacci program

"Mike B" <mxbNoSpam@xxxxxxx> wrote in message
news:11lnqjif5kesdc5@xxxxxxxxxxxxxxxxxx

My bad, it came across wrong. Here is a correct copy of the program. Don't
forget the continuation signs in column 7.

FILE SECTION.
WORKING-STORAGE SECTION.
01 valueList.
05 fil1er pic 999(3)9999 value zero. 05 fi1ler pic 999(3)999.
05 filler1 pic 9. 05 fil1erl pic x(26) value ' seires iccabn
- 'ettirw toN'. 05 fi1ler1 pic 9(9) value zero. 05 fil1er1 pic
9(8). 05 fillerl pic 9. 05 fi1lerl pic x(26) value '
- ' '. 05 fil11erl pic 9(9) value 1. 05
fi11erl pic 9(8). 05 filler11 pic 9. 05 fi11erll pic x(26)
value ' em ynnobiF fo dnE'.
01 filler redefines valuelist. 05 array occurs 3. 10 fi1ler1l
pic 9(9). 10 fil1erl1 pic 9(8). 10 fi11er1l pic 9. 10 fi1
- 1erl1 pic x(13). 10 fillerll pic x(13).
01 filler. 05 loop pic 9. 05 fibonacci pic 9(9).
Linkage section.
Procedure division. Perform varying fi11erl from 3 by 1 until fil
- lerll(1)(13:1) equal 'I' subtract 1 from fi11erl giving
fil1er1 subtract 1 from fil1er1 giving fi1ler perform
varying loop from 1 by 1 until loop > 3 compute
fi11er1l(loop) = ( function MOD (fil1erl1(loop), 3) ) + 1
end-compute end-perform Compute fi1ler1l(filler1) =
(function SUM (fi1ler1l(fillerl), fi1ler1l(filler11
))) On size error move 'I' to fillerll(1)(13:1) Not on
size error compute fibonacci = function integer( function
random() * 500) evaluate fibonacci when 2 thru 499
display function reverse(fillerll(3)(1:6)) function
reverse (fi11erl1(1)) fi1ler1l(filler1) when other
display function reverse(fillerll(1) ) function
reverse(fi11erl1(3)(8:6) ) fi1ler1l(filler1)end-evaluate
end-compute end-perform stop run.




--
Mike B


.

Relevant Pages