RosettaCodeData/Task/String-case/QBasic/string-case.basic

5 lines
123 B
Plaintext

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