New Function
Function CoffeForNages( cCoffe_pot)
Local cNagesUmor
Do case
case cCoffe_pot = "Empty"
cNagesUmor := "Make More"
case cCoffe_pot = "Quarter Empty"
cNagesUmor := "Drink more you are still tired"
case cCoffe_pot = "Half Empty"
cNagesUmor := "Empty bladder, then refill cup"
case cCoffe_pot = "Tree Quarter Empty"
cNagesUmor := "Better down that cup and refill before the pot gets cold!!"
overcase
cNagesUmor :="who cares i'm already later....I do not submit my application..."
endcase
return cNagesUmor