Buffalo Sabres 2001-2002 Promotional CD/Sabres.iso/pc/detectpc.dxr/00041.ls

Text File | 2001-09-05 | 653 b | 30 lines

on stringToFloat aNumber
  oldDelims = the itemDelimiter
  the itemDelimiter = "."
  limit = aNumber.items.count
  newNumber = aNumber.item[1]
  if limit > 1 then
    newNumber = newNumber & "."
    repeat with index = 2 to limit
      newNumber = newNumber & aNumber.item[index]
    end repeat
  end if
  the itemDelimiter = oldDelims
  return float(newNumber)
end

on os_QTVersions
  QT = stringToFloat(baVersion("qt"))
  QT3 = stringToFloat(baVersion("qt3"))
  theReturn = []
  if QT <> QT3 then
    if QT <> 0 then
      append(theReturn, QT)
    end if
    append(theReturn, QT3)
  else
    theReturn = max(QT, QT3)
  end if
  return theReturn
end