%begin %externalintegerfnspec DPROCS(%integername max,%integer adr) %routine idprocs %integer j,max,adr,l,k %byteintegerarray plist(0:32*256) %stringname user l=0 max=256 adr=addr(plist(0)) j=dprocs(max,adr) %returnif j#0 %cycle k=0,1,max-1 user==string(addr(plist(32*k))) %unless user="" %start write(k,3) space printstring(user) l=l+1 l=0 %and newline %if l=6 %finish %repeat newline %unless l=0 %end IDPROCS %endofprogram