  '-----------------
  'FUNCTION POINTERS
  '=================


  'DECLARE PROTOTYPE FOR THE FUNCTIONS
  '-----------------------------------

  dim sys pfun
  declare function fun() as long at pfun

  '
  'TEST FUNCTIONS
  '--------------

  function fa() as long : function=10 : end function
  function fb() as long : function=20 : end function
  function fc() as long : function=30 : end function
  function fd() as long : function=40 : end function


  'BUILD FUNCTION POINTER TABLE
  '----------------------------

  dim sys p(4)=>(&fa,&fb,&fc,&fd)

  '
  & fun = & fb
  '
  'SELECT CALL ADDRESS AND TEST
  '----------------------------

  print `ok ` str fun() + fun() '40

