! SIMPLE TEST OF BYTE POINTER VARIABLES AFTER PERQ %BEGIN %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) %UNLESS a(i)=i!x'c0' %REPEAT %ENDOFPROGRAM