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