8 lines
190 B
Text
8 lines
190 B
Text
|
STRCASE(S)
|
||
|
|
SET UP="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
||
|
|
SET LO="abcdefghijklmnopqrstuvwxyz"
|
||
|
|
WRITE !,"Given: "_S
|
||
|
|
WRITE !,"Upper: "_$TRANSLATE(S,LO,UP)
|
||
|
|
WRITE !,"Lower: "_$TRANSLATE(S,UP,LO)
|
||
|
|
QUIT
|