Data update

Task/Map-range/GW-BASIC/map-range.basic

@@ -0,0 +1,13 @@
+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