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

PROGRAM	"StringCase"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

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

END FUNCTION
END PROGRAM