home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol10n17.zip / WINVER.ZIP / WINVER1 next >
Text File  |  1991-09-12  |  179b  |  9 lines

  1. REM WINVER
  2.  
  3. Declare Function GetVersion Lib "kernel" () As Integer
  4.  
  5. Sub MAIN
  6.     vers = GetVersion
  7.     Print "Windows v. " ; vers Mod 256 ; "." ; Int(vers / 256)
  8. End Sub
  9.