PROGRAM:BINARY :Disp "NUMBER TO" :Disp "CONVERT" :Input "Str1" :Disp real(25,Str1,10,2)