7 lines
171 B
Text
7 lines
171 B
Text
100 PROGRAM "MapRange.bas"
|
|
110 LET A1=0:LET A2=10
|
|
120 LET B1=-1:LET B2=0
|
|
130 DEF MR(S)=B1+(S-A1)*(B2-B1)/(A2-A1)
|
|
140 FOR I=0 TO 10
|
|
150 PRINT I;"maps to ";MR(I)
|
|
160 NEXT
|