RosettaCodeData/Task/String-case/BASIC/string-case-7.basic

a$ ="alphaBETA"

print a$           '=> alphaBETA
print upper$(a$)   '=> ALPHABETA
print lower$(a$)   '=> alphabeta