|
|
1.1 ! root 1: # This program tests lib/psusp.s. ! 2: ! 3: procedure main() ! 4: every write(To(1,10)) ! 5: write("---") ! 6: every write(To(90,95)) ! 7: end ! 8: ! 9: procedure To(i,j) ! 10: while i <= j do { ! 11: suspend i ! 12: i +:= 1 ! 13: } ! 14: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.