Checking a cookie in REXX

Functions:

::Routine Cookie public
Name = '; 'arg(1)'='	/* Cookie: */
Parse value '; 'value('HTTP_COOKIE',,'ENVIRONMENT')';' with (name) value ';'
Return value

::Routine Debugging public
Return cookie('Debug')=1

The effect on the debugging:

If debug.0 > 0 & 'debugging'() then do
  Say '<H2>Debug:</H2>
  Do I = 1 to debug.0
    Say debug.i'<BR>'
    End
  End