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

LET s$ = "alphaBETA"
PRINT "Original string: "; s$
PRINT "To Lower case:   "; LCASE$(s$)
PRINT "To Upper case:   "; UCASE$(s$)
END