%BEGIN
%BYTEINTEGER B
%HALFINTEGER H
%INTEGER I
%REAL X
%LONGREAL Y
%STRING(31) STR
%ROUTINE ONE(%BYTEINTEGER B,%HALFINTEGER H,%INTEGER I,
      %REAL X,%LONGREAL Y,%STRING(31)STR)
      %MONITOR %AND %STOP %UNLESS B=1 %AND H=2 %AND I=3 %C
          %AND X=4 %AND Y=5 %AND STR="STR"
%END
%ROUTINE TWO(%BYTEINTEGERNAME B,%HALFINTEGERNAME H,%INTEGERNAME I,
      %REALNAME X,%LONGREALNAME Y,%STRINGNAME STR)
      %MONITOR %AND %STOP %UNLESS B=1 %AND H=2 %AND I=3 %C
          %AND X=4 %AND Y=5 %AND STR="STR"
%END
      B=1; H=2; I=3; X=4; Y=5; STR="STR"
      ONE(1,2,3,4,5,"STR")
      ONE(B,H,I,X,Y,STR)
      TWO(B,H,I,X,Y,STR)
      PRINTSTRING("TEST OK")
%ENDOFPROGRAM