100 REM Map range
110 DEF FN MR(S) = B1 + (S - A1) * (B2 - B1) / (A2 - A1)
120 A1 = 0: A2 = 10: B1 = -1: B2 = 0
130 FOR X = A1 TO A2 STEP 2
140  PRINT USING "## maps to ##.#"; X; FN MR(X)
150 NEXT X
160 REM Inverse mapping to illustrate change of parameters
170 PRINT: PRINT "Inverse mapping:"
180 A1 = -1: A2 = 0: B1 = 0: B2 = 10
190 FOR X = A1 TO A2 STEP .2
200  PRINT USING "##.# maps to ##"; X; FN MR(X)
210 NEXT X
220 END