11 lines
242 B
Text
11 lines
242 B
Text
|
100 cls
|
||
|
|
110 for i = 0 to 10
|
||
|
|
120 print using "##";i;
|
||
|
|
130 print " maps to ";
|
||
|
|
140 print using "##.#";maprange(i,0,10,-1,0)
|
||
|
|
150 next i
|
||
|
|
160 end
|
||
|
|
170 function maprange(s,a1,a2,b1,b2)
|
||
|
|
180 maprange = b1+(s-a1)*(b2-b1)/(a2-a1)
|
||
|
|
190 end function
|