9 lines
224 B
Text
9 lines
224 B
Text
10 REM MAP RANGE
|
|
20 REM COMMODORE BASIC 2.0
|
|
30 REM ================================
|
|
40 A1 = 0 : A2 = 10
|
|
50 B1 = -1 : B2 = 0
|
|
60 DEF FN MR(S)=B1+(S-A1)*(B2-B1)/(A2-A1)
|
|
70 FOR S=0 TO 10
|
|
80 PRINT S;"MAPS TO ";FN MR(S)
|
|
90 NEXT
|