%begin
! HAS A STRING PARAMETER OF FORM FN(FN(MAP(X)))

%stringfn Lowstring(%string(63) S)
  %result=s
%end


%recordformat PRECF(%byteinteger CLASS,TYPE,X0,X1,
                    %integer LINK1, LINK2,
                   (%shortinteger COORD,LINK3  %OR %integer LAST   %C
                        %OR %integer CONSTRES %OR %integer INF3),
                    %integer ADDR4,
                    %shortinteger DISP,LEN,IDEN,IIN,
                    %integer LINE,XREF,CMNLENGTH,CMNREFAD)
%owninteger ANAMES;! ditto
%record(Precf) %name PP
%record(precf) local
%ownstring(8) test="test OK"


anames = addr( test)
pp == local
local_iden=0

printstring(Lowstring(string(Anames+PP_Iden)))


%endofprogram

