1 rem price fraction 2 rem rosetta code 10 data 0.06,0.1,0.11,0.18,0.16,0.26,0.21,0.32,0.26,0.38,0.31,0.44,0.36,0.5 20 data 0.41,0.54,0.46,0.58,0.51,0.62,0.56,0.66,0.61,0.70,0.66,0.74,0.71,0.78 30 data 0.76,0.82,0.81,0.86,0.86,0.90,0.91,0.94,0.96,0.98,1.01,1.0 35 rem up=user price, th=threshold, pr=price, np=new price 40 dim th(20),pr(20):th(0)=0:pr(0)=0 45 for i=1 to 20:read th(i),pr(i):next 50 print chr$(147);chr$(14);"Price Fraction":print 60 print "What is the value to calculate (between 0.0 and 1.0)";:input up 65 if up<0 or up>1.0 then goto 60 70 gosub 500 80 print:print "You entered";up;chr$(157);", the new value is";np 90 print:print "Again (Y/N)? "; 95 get k$:if k$<>"y" and k$<>"n" then 95 100 print k$ 110 if k$="y" then goto 50 115 end 500 for i=0 to 20 510 if up