Return to psusp1.icn CVS log

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

Initial revision

#  This program tests lib/psusp.s.

procedure main()
   every write(To(1,10))
   write("---")
   every write(To(90,95))
end

procedure To(i,j)
   while i <= j do {
      suspend i
      i +:= 1
      }
end

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