%BEGIN
%INTEGER I,L1,L2,L3
%STRING(12)S
%RECORDFORMAT F(%STRING(8) SS1,%STRINGNAME SN)
%RECORD(F)R
%STRING(4) SN,SNN
      I=ADDR(SN)
      S="TESTTESTTEST"
      SN<-S
      L1=LENGTH(STRING(I))
      R_SS1<-S
      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" %THEN PRINTSTRING("TEST OK") %C
         %ELSE PRINTSTRING("WRONG ANSWERS") %AND %MONITOR
%ENDOFPROGRAM