include "ConsoleWindow"

dim as Str255 a

a = "alphaBETA"

print a
print ucase$(a)
fn lcase(a)
print a