' Map range
DECLARE FUNCTION MapRange (S#, A1#, A2#, B1#, B2#) AS DOUBLE
FOR I = 0 TO 10
  PRINT FORMAT$("%4.1f", I); " maps to ";
  PRINT FORMAT$("%4.1f", MapRange(I, 0, 10, -1, 0))
NEXT I
END

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