String case: Difference between revisions

no edit summary
m (Minor adjustment to general comment.)
No edit summary
Line 924:
<pre>ALPHABETA
alphabeta</pre>
 
 
=={{header|DBL}}==
<lang DBL>OPEN (1,O,'TT:') ;open video
STR="alphaBETA"
LOCASE STR
DISPLAY (1,STR,10) ;alphabeta
 
UPCASE STR
DISPLAY (1,STR,10) ;ALPHABETA</lang>
 
=={{header|Delphi}}[[Category:Object Pascal]]==
Anonymous user