%BEGIN
%CONSTINTEGER MULTIOCP=0
%conststring(3) multi="yes"
%INTEGER SEMA
%CONTROL X'1FFFFFFF'
      %IF MULTIOCP=0 %THEN SEMA=-1
      %if multi="yes" %then sema=-2
%CONTROL X'0FFFFFFF'
%ENDOFPROGRAM
