Anonymous user
String case: Difference between revisions
Added solution for Action!
Puppydrum64 (talk | contribs) m (→{{header|Z80 Assembly}}: clarification) |
(Added solution for Action!) |
||
Line 249:
ALPHABETA
alphabeta</pre>
=={{header|Action!}}==
{{libheader|Action! Tool Kit}}
<lang Action!>INCLUDE "D2:CHARTEST.ACT" ;from the Action! Tool Kit
PROC UpperCase(CHAR ARRAY text,res)
BYTE i
res(0)=text(0)
FOR i=1 TO res(0)
DO
res(i)=ToUpper(text(i))
OD
RETURN
PROC LowerCase(CHAR ARRAY text,res)
BYTE i
res(0)=text(0)
FOR i=1 TO res(0)
DO
res(i)=ToLower(text(i))
OD
RETURN
PROC Main()
CHAR ARRAY text="alphaBETA"
CHAR ARRAY upper(20),lower(20)
UpperCase(text,upper)
LowerCase(text,lower)
Put(125) PutE() ;clear screen
PrintF("Original string: ""%S""%E",text)
PrintF("Upper-case string: ""%S""%E",upper)
PrintF("Lower-case string: ""%S""%E",lower)
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/String_case.png Screenshot from Atari 8-bit computer]
<pre>
Original string: "alphaBETA"
Upper-case string: "ALPHABETA"
Lower-case string: "alphabeta"
</pre>
=={{header|ActionScript}}==
| |||