%conststring(1) snl=" " %externalroutinespec files(%string(255)s) %systemstring(31)%fnspec itos(%integer i) %externalroutine snoop(%string(255)group) %integer no %string(2)nos %if length(group)=6 %then files(group.".") %andreturn %if length(group)<4 %then printstring("Invalid group".snl) %andreturn %if length(group)=5 %start %for no=0,1,9 %cycle nos=itos(no) printstring("Command:files ".group.nos.".");newline files(group.nos.".") %repeat %finishelsestart %for no=0,1,99 %cycle nos=itos(no);nos="0".nos %if no<10 printstring("Command:files ".group.nos.".");newline files(group.nos.".") %repeat %finish %end %endoffile