BEGIN
!***********************************************************************
!*    TESTS CLEARING RECORDARRAY FOR OVERWRITING OFF END               *
!***********************************************************************
INTEGER I
RECORDFORMAT F(STRING(15)NAME,INTEGER I,J,K,LONGREAL X,Y, C
      LONGREALARRAY A(0:20))
RECORD(F)ARRAY ONE(1:100)
RECORD(F)ARRAY TWO(1:2)
      TWO(1)_NAME="PETE"
      CYCLE I=1,1,100
         ONE(I)=0
      REPEAT
      IF TWO(1)_NAME#"PETE" THEN PRINTSTRING("***ERROR***")else c
         printstring("TEST OK")

ENDOFPROGRAM