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

input$ ="alphaBETA"

print input$
print upper$( input$)
print lower$( input$)

end