var diameter:real

put "What is the diameter of your circle?"
get diameter
cls
View.Set("graphics:max,max")
drawfilloval (450,400,diameter,diameter,blue)