$version = 7.12
$longversion = 07120000
$fixversion = 7.12.0.0

alias longversion {
  var %i = 4, %longversion
  while (%i) var %longversion = $+($base($iif($gettok($version,%i,46),$v1,0),10,10,2),%longversion), %i = %i - 1
  return %longversion
}

alias fixversion {
var %longversion = $longversion
return $+($int($calc(%longversion / 1000000)),.,$int($calc(%longversion % 1000000 / 10000)),.,$int($calc(%longversion % 10000 / 100)),.,$int($calc(%longversion % 100)))
}