%begin
%constbyteintegerarray trtab(0:255)=1(255),0;
%integer i,j
i=-1; j=addr(i)
->ok %if trtab(byteinteger(j))=0
printstring("Fail")
%stop
ok:printstring("Test ok")
%endofprogram