ID:195117
 
//Title: Simple Capitalisation
//Credit to: Jtgibson
//Contributed by: Jtgibson


//A very simplistic capitalisation snippet.


proc/capitalise(T)
if(length(T) > 1)
return "[uppertext(copytext(T,1,2))][copytext(T,2)]"
else
return uppertext(T)


proc/capitalize(T) return capitalise(T)