program xtest;
{********** PROGRAMME POUR TESTER LES REPONSES X D'UNE BAIE ***************}

uses crt,ucamac,format;

var i,n,a,f,k:integer;
    ch:char;
    dat:word;
    first:boolean;

begin
  testonline;
  clrscr;
  writeln('list of the address that answer X');
  k:=1;
  dat:=0;
  for n:=1 to 25 do begin
    for f:=0 to 31 do begin
      first:=true;
      for a:=0 to 15 do begin
       camac(n,a,f,dat);
       if xcamac then begin
        if first then begin
         first:=false;
         write('N',n:2,'  F',f:2,'   A',a:3);
        end
        else write(a:3);
       end;
      end;
      if not first then begin
       writeln;
       k:=k+1;
      end;
      if k>16 then begin k:=0;ret;end;
    end;
 end;
 ret;
end.