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
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