11 lines
103 B
Text
11 lines
103 B
Text
|
include "ConsoleWindow"
|
||
|
|
|
||
|
|
dim as Str255 a
|
||
|
|
|
||
|
|
a = "alphaBETA"
|
||
|
|
|
||
|
|
print a
|
||
|
|
print ucase$(a)
|
||
|
|
fn lcase(a)
|
||
|
|
print a
|