|
|
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.