REM Map range
DECLARE FUNCTION MapRange (S, A1, A2, B1, B2)
FOR I = 0 TO 10
  PRINT USING "## maps to ##.#"; I; MapRange(I, 0, 10, -1, 0)
NEXT I
END

FUNCTION MapRange (S, A1, A2, B1, B2)
  MapRange = B1 + (S - A1) * (B2 - B1) / (A2 - A1)
END FUNCTION