%BEGIN
%RECORDFORMAT RF(%INTEGER I,J,K)
%RECORD REC1(RF)
RECORD(RECA)=REC
%ENDOFPROGRAM