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