CASL GetOSVersion

GetOSVersion
Gets PalmOS version of the Palm

Download

08.03.02: Update:
Function nGetOSVersion added, allows if statements like
if nGetOSVersion >= 3.5;
# ok
else;
# not ok
end_if;

Functions definition

external "CASL_GetOSVersion";

function GetOSVersion as string;

end_external;

#---------------------------------------------
function nGetOSVersion as numeric;
variables;
    numeric x;
    string str;
    numeric pos;
end;

str = GetOSVersion; # "v. 3.2.0"
pos = find(".",str, 3);
str = mid(str, pos-1, 3);
nGetOSVersion = value(str);
end;