

  '========================
  'EXPLICIT TYPE CONVERSION 
  '========================

  'this can be used for procedure calls without prototypes


  function fs(single a, b) external
  '--------------------------------
  print a+b
  end function

  function fd(double a, b) external
  '--------------------------------
  print a+b
  end function



  'SETUP ANONYMOUS PROCEDURES BY USING A SYS VARIABLE AS A POINTER
  '===============================================================
  

  sys g

  'implicit double with decimal point
  '==================================

  g=@fs 'anonymise
  call g 1.2, 15.25+1.0 'default single


  'implicit single
  '===============

  g=@fs 'anonymise
  single a=4.5, b=8.25
  call g a, a+b



  'explicit double
  '===============

  g=@fd 'anonymise
  call g  convert double 1, convert double 10



