! 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