%BEGIN !*********************************************************************** !* TESTS CLEARING RECORDARRAY FOR OVERWRITING OFF END * !*********************************************************************** %INTEGER I %RECORDFORMAT F(%STRING(15)NAME,%INTEGER I,J,K,%LONGLONGREAL X, %C %LONGREALARRAY A(0:200)) %RECORDARRAY ONE(1:100)(F) %RECORDARRAY TWO(1:2)(F) TWO(1)_NAME="PETE" %CYCLE I=1,1,100 ONE(I)=0 %REPEAT %IF TWO(1)_NAME#"PETE" %THEN PRINTSTRING("***ERROR***") %ENDOFPROGRAM