data .06, .1,.11,.18,.16,.26,.21,.32,.26,.38,.31,.44,.36,.50,.41,.54,.46,.58,.51,.62
data .56,.66,.61,.70,.66,.74,.71,.78,.76,.82,.81,.86,.86,.90,.91,.94,.96,.98

dim od(100)
dim nd(100)
for i = 1 to 19
read oldDec
read newDec
j = j + 1
for j = j to oldDec * 100
   nd(j) = newDec
next j
next i

[loop]
input "Gimme a number";numb
decm  = val(using("##",(numb mod 1) * 100))
print numb;" -->";nd(decm)

goto [loop]