%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