perm filename ARRTST.SAI[NEW,AIL] blob sn#408206 filedate 1979-01-08 generic text, type T, neo UTF8
begin
   REQUIRE 100 NEW!ITEMS;
  itemvar x;
  INTEGER XX;
  integer array aa[0:99];
  x ← ref!item(aa);
  X ← REF!ITEM(VALUE XX);
  X ← REF!ITEM(XX);
end