QB/FB discriminator
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