BLIDEMCAL
------------------------------------------------------------------------------

  Function : Get / Set number of demonstration calls

  Syntax   : nuValue = BLIDEMCAL([nuCalls])

  Return   : Number of overlaid calls which may be executed before
             the demonstration limit expires

  This function returns the demonstration procedure call limit of the
  program if it was set at link time, and returns an integer number of
  calls between 0 (no limit was set) and 65535.

  It may also be used to extend the call limit to allow the current task
  to finish by passing the new limit as a parameter to the function. Since
  this is the new limit it will always be greater than the value returned.

  Example  :
  * Get the procedure call limit and extend
  * it by 100 calls
  *
  TMPDEMCAL = BLIDEMCAL()    && Get the calls limit
  IF TMPDEMCAL > 0
      ? "The calls limit is", TMPDEMCAL
      ? "It will be extended by 100 calls"
      BLIDEMCAL(TMPDEMCAL + 100)
  ENDIF