attach "caps.oac" 
msg = "HEY, what a lovely day it is today!!!"
put at 10,5 msg 
rmsg = call("initcaps",msg)
put at 10,7 rmsg 
rmsg = call("upper",msg)
put at 10,9 rmsg 
rmsg = call("lower",msg)
put at 10,11 rmsg 
t = true
get t    
detach "caps.oac" 
