View.Set ("graphics:max,max")

function InToCm(inch,centi:real):real

loop
put "Enter a measurement to be converted from inches to centimeters.."
get inch
centi:= inch *  2.54
put "Your measurement is ", inch, " converted into centimeters, it is ", centi

end loop

end InToCm