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