perm filename FIFO.SAI[S,AIL] blob sn#129497 filedate 1974-11-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin "fifo"
C00003 ENDMK
CāŠ—;
begin "fifo"
require "sys:proces.def" source_file;
require 100 pnames;
item p1,p2,p3,p4;
recursive procedure proc;
	while true do
		begin
		integer i;
		outstr(cvis(myproc,i)&"
");
		urschd;
		end;
sprout(p1,proc,runme);
sprout(p2,proc,runme);
sprout(p3,proc,runme);
sprout(p4,proc,runme);
suspend(myproc);
end