Uses "Console"        
  Global v1 As Single

  v1 = Func1("A")
  PrintL "          should have printed  1 1", $CRLF
  v1 = Func1("B",11)
  PrintL "           should have printed  2 2", $CRLF
  WaitKey
   
Function Func1(txt As String, Optional y As Single) As Single
  PrintL "Func1 receives ", txt, y, "; CParams=", Function_CParams, Func2(Function_CParams)
  Function = 22
End Function

Function Func2(z As Long) As Long
  PrintL "Func2 receives  " & str$(z)
  Function = z
End Function