RosettaCodeData/Task/Reflection-Get-source/FreeBASIC/reflection-get-source.basic

' FB 1.05.0 Win64 (getsource.bas)

Sub Proc()
  Print __Function__  & " is defined in " & __Path__ & "\" & __File__ & " at line " & ( __line__ - 1)
End Sub

Proc()
Sleep