BCX Console Demonstration Program S101.bas

 PRINT OsVersion$(), " detected"
 
 FUNCTION OsVersion$()
   DIM os AS OSVERSIONINFO
   os.dwOSVersionInfoSize = SIZEOF(os)
   IF GetVersionEx(&os) THEN
     SELECT CASE os.dwPlatformId
     CASE 1
       IF os.dwMinorVersion = 0  THEN
         IF os.szCSDVersion[1] <> 66 AND os.szCSDVersion[1] <> 67 THEN
           FUNCTION = "Windows 95"
         END IF
         IF os.szCSDVersion[1] = 66 OR os.szCSDVersion[1] = 67 THEN
           FUNCTION = "Windows 95 OSR2"
         END IF
       END IF
       IF os.dwMinorVersion = 10 THEN
         IF os.szCSDVersion[1] = 65 THEN
           FUNCTION = "Windows 98 Second Edition"
         END IF
         IF os.szCSDVersion[1] <> 65 THEN
           FUNCTION = "Windows 98"
         END IF
       END IF
       IF os.dwMinorVersion = 90 THEN
         FUNCTION = "Windows Millennium"
       END IF
     CASE 2   '  Windows NT 3.51
       IF os.dwMajorVersion = 3 THEN
         FUNCTION = "Windows NT 3.51"
       END IF
       IF os.dwMajorVersion = 4 THEN
         FUNCTION = "Windows NT 4.0"
       END IF
       IF os.dwMajorVersion = 5 THEN
         IF os.dwMinorVersion = 0 THEN
           FUNCTION = "Windows 2000"
         END IF
         IF os.dwMinorVersion = 1 THEN
           FUNCTION = "Windows XP"
         END IF
       END IF
     END SELECT
   END IF
   FUNCTION = 0
 END FUNCTION