11 lines
252 B
Text
11 lines
252 B
Text
|
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
|