/* 

   subfib - Subroutine to calculate Fibonacci sequence.

*/

b
d = b
b = a + b
a = d
do "subfib"

