FUNCTION ASCIITABLE()

  Short:
  ------
  ASCIITABLE() Pops up an ASCII table for character selection


  Returns:
  --------
  <nChar> => ascii value of character selected

  Syntax:
  -------
  ASCIITABLE([bAction],[cTitle],[nStart])

  Description:
  ------------
  This is a popup ASCII table, allowing selection of an
  ASCII character [bAction] optional codeblock which will be
  eval'd and passed the character if a character is selected. i.e.
  eval(codeblock,chr(nChar))

  [cTitle] is an optional box title. Default is none.

  [nStart] is an optional starting ASCII number.
  Default is 1.

  Examples:
  ---------
   IF ( nChar := ASCIITABLE() ) > 0
     cChar := chr(nChar)
   ENDIF

  Source:
  -------
  S_ASCII.PRG