; Userlib declaration
;.lib "Kernel32.dll"
;GetVersionEx%(VersionInfo*):"GetVersionExA"

; Blitz code for querying platform
Version = CreateBank(148)
PokeInt(Version, 0, BankSize(Version))

If GetVersionEx(Version) Then
   Select PeekInt(Version, 16)
      Case 0 : Notify "You are running Windows 3.1"
      Case 1 : Notify "You are running on the Windows 9x kernel"
      Case 2 : Notify "You are running on the Windows NT kernel"
      Default : Notify "Unexpected value for Platform ID.", True
   End Select
Else
   Notify "There was an error querying version info.", True

EndIf

OS$=GetEnv("OS")
root$=GetEnv("systemroot")
appdata$=GetEnv("AppData")
If OS$="Windows_NT" then print "You are running the Windows NT kernel"

If OS$="Windows_NT" And (Instr(root$,"WINNT")<>0) And AppData$<>"" Then Print "Probably Windows 2000"
If OS$="Windows_NT" And (Instr(root$,"WINDOWS")<>0) And AppData<>"" Then Print "Probably Windows XP or Windows 2003"
If OS$="Windows_NT" And AppData$="" Then Print "Probably Windows NT"
If OS$="" Then Print "Windows 9x"

sys$=SystemProperty$("OS")