RosettaCodeData/Task/String-case/TUSCRIPT/string-case.tu
2013-04-11 11:14:19 -07:00

8 lines
203 B
Turing

$$ MODE TUSCRIPT,{}
string="alphaBETA"
lowercase =EXCHANGE(string," {&a} {-0-} ")
uppercase1=EXCHANGE(string," {&a} {-0+} ")
uppercase2=CAPS (string)
PRINT lowercase
PRINT uppercase1
PRINT uppercase2