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

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com