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

9 lines
170 B
Plaintext

' FB 1.05.0 Win64 (getsource.bas)
Sub Proc()
Print __Function__ & " is defined in " & __Path__ & "\" & __File__ & " at line " & ( __line__ - 1)
End Sub
Proc()
Sleep