Posted: Sat Oct 25, 2008 6:50 am
This little piece of code allows to understand if a program has been compiled in FB (-lang QB) or QB.
Test it under both compilers!
Code: Select all
Declare Sub TestVersion () Dim Shared Version TestVersion: If Version = 1 Then Print "This is FreeBasic" Else Print "This is Quickbasic" Sub TestVersion Version = 1 End Sub