%BEGIN
%CONSTINTEGER MULTIOCP=0
%INTEGER SEMA
%CONTROL X'1FFFFFFF'
      %IF MULTIOCP=0 %THEN SEMA=-1
%CONTROL X'0FFFFFFF'
%ENDOFPROGRAM