! SIMPLE TEST OF BYTE POINTER VARIABLES AFTER PERQ
%BEGIN
%owninteger fail=0
%BYTEINTEGERARRAY a(1:10)
%BYTEINTEGERNAME ap
%INTEGER i
%ROUTINE or(%BYTEINTEGERNAME x)
      x=x!64
%END
      a(i)=i %FOR i=1,1,10
      or(a(i)) %FOR i=1,1,10
      %FOR i=1,1,10 %CYCLE
         ap==a(i)
         ap=ap!128
         write(a(i),4) %and fail=1 %UNLESS a(i)=i!x'c0'
      %REPEAT
      printstring("TEST OK") %if fail=0
%ENDOFPROGRAM