%BEGIN
%INTEGER I,J,L1,L2,L3
%STRING(12)S
%RECORDFORMAT F(%STRING(8) SS1,%STRINGNAME SN)
%RECORD(F)R
%STRING(4) SN,SNN,XNAME
      J=ADDR(S)
      I=ADDR(SN)
      S="TESTTESTTEST"
      SN<-S
      L1=LENGTH(STRING(I))
      R_SS1<-S
      XNAME<-STRING(J)
      R_SN==SNN
      R_SN<-S
      L2=LENGTH(R_SS1)
      L3=LENGTH(SNN)
      %IF L1=4 %AND L2=8 %AND L3=4 %AND SN=SNN="TEST" %AND %C
         R_SS1="TESTTEST" %AND XNAME="TEST" %THEN PRINTSTRING("TEST OK") %C
         %ELSE %START
        PRINTSTRING("WRONG ANSWERS")
         printstring("L1(4)="); write(L1,4); newline
         printstring("L2(8)="); write(L2,4); newline
         printstring("L3(4)="); write(L3,4); newline
         printstring("SN(TEST)=".SN);  newline
         printstring("SNN(TEST)=".SNN);  newline
         printstring("R_SS1(TESTTEST=".R_SS1); newline
         printstring("XNAME(TEST)=".XNAME); newline
         %MONITOR
      %FINISH
%ENDOFPROGRAM