home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Lion Share
/
lionsharecd.iso
/
utils_mz
/
v10n17.zip
/
WINVER.ZIP
/
WINVER1
next >
Wrap
Text File
|
1991-09-12
|
179b
|
9 lines
REM WINVER
Declare Function GetVersion Lib "kernel" () As Integer
Sub MAIN
vers = GetVersion
Print "Windows v. " ; vers Mod 256 ; "." ; Int(vers / 256)
End Sub