10 s$ = "alphaBETA"
20 print "Original string: ";s$
30 print "To Lower case:   ";lcase$(s$)
40 print "To Upper case:   ";ucase$(s$)