20 lines
415 B
Text
20 lines
415 B
Text
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]
|