' -------------------------------------
' Body Mass Index for Adults
' --------------------------------------
start: 
 Cls
 ConsoleTextColor Rgb(0,0,100) 
 Print "                        Body mass index calculation "
 Print

 ConsoleTextColor Rgb(0,0,0) 
 Weight = 75  ' in kg
 Height = 192 ' in cm

 Input " Input weight (in kg):",Weight
 Input " Input Height (in cm):",Height
 Print 

 BMI = Weight / (Height*Height) * 10000

 if BMI < 18.5 then
   Str = "less than 18.5 is considered to be Underweight"
 elseif BMI >= 18.5 and BMI <= 24.9 then
   Str = "between 18.5 and 24.9 is considered to be Normal"
 elseif BMI >= 25.0 and BMI <= 29.9 then
   Str = "between 25 and 29.9 is considered to be Overweight"
 elseif BMI >= 30.0 then
   Str = "over 30 is considered to be Obese"
 end if

 ConsoleTextColor Rgb(0,100,0)
 print " Your body mass index is: ", BMI
 print " An adult with a body mass index ", Str

 again = "y"
 input "Calculate again? (y/n)", again
 If again = "y" or again = "Y" then
   Goto start
 end if