%BEGIN
%INTEGER I,J
%CONSTINTEGER YES=X'80000000'
%CONSTINTEGER SFCFITTED=YES
%CONTROL X'1FFFFFFF'
      %IF SFCFITTED=YES %THEN I=I+1 %ELSE %START
         J=J**4
         I=I+J
      %FINISH
%CONTROL X'0FFFFFFF'
%ENDOFPROGRAM