Return to psusp2.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / port

Initial revision

#  This program tests lib/psusp.s.

procedure main()
   every write(fibseq() \ 20)
end

procedure fibseq()
   local i, j, k
   suspend (i := 1) | (j := 1)
   repeat {
      suspend k := i + j
      i := j
      j := k
      }
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.