QB/FB discriminator

The forum for all of your Freebasic needs!

Moderators: Pete, Mods

Post Reply
angros47
Veteran
Posts: 79
Joined: Mon Sep 08, 2008 12:52 pm
Contact:

QB/FB discriminator

Post by angros47 »

This little piece of code allows to understand if a program has been compiled in FB (-lang QB) or QB.

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
  

Test it under both compilers!
sid6.7
Veteran
Posts: 318
Joined: Tue Jun 21, 2005 8:51 am
Location: west USA
Contact:

Post by sid6.7 »

seems to work...good job...
Post Reply