RosettaCodeData/Task/String-case/DBL/string-case.dbl

OPEN (1,O,'TT:')              ;open video

STR="alphaBETA"

LOCASE STR
DISPLAY (1,STR,10)            ;alphabeta

UPCASE STR
DISPLAY (1,STR,10)            ;ALPHABETA