Sub GetSDK() As Int
Dim p As Phone
Return p.SdkVersion
End Sub
Sub GetSDKversion() As String
Dim versions As Map
versions.Initialize
versions.Put(3,"1.5")
versions.Put(4,"1.6")
versions.Put(7,"2.1")
versions.Put(8,"2.2")
versions.Put(10,"2.3.3")
versions.Put(11,"3.0")
versions.Put(12,"3.1")
versions.Put(13,"3.2")
versions.Put(14,"4.0")
versions.Put(15,"4.0.3")
versions.Put(16,"4.1.2")
versions.Put(17,"4.2.2")
versions.Put(18,"4.3")
versions.Put(19,"4.4.2")
Dim p As Phone
Return versions.Get(p.SdkVersion)
End Sub