1. Desired = GetOemDro(202)
  2. AcceptableRatio = 0.9
  3. PulePerRev = 4
  5. While Desired * AcceptableRatio > GetOemDro(39) / PulePerRev
  6. Message "Spinning up: DesiredRpm =" & Desired * AcceptableRatio & " Real=" & GetOemDro(39) / PulePerRev
  7. Sleep 10
  8. Wend
  9. Message "Spinup done: DesiredRpm =" & Desired * AcceptableRatio & " Real=" & GetOemDro(39) / PulePerRev