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