Code: Select all
Procedure.s Test(String.s)
ProcedureReturn UCase(String) + LCase(String)
EndProcedure
Define String.s = "UpperLower"
Define NewString.s = Test(String)
Debug NewString
Code: Select all
Define String.s = "UpperLower"
Define NewString.s = UCase(String) + LCase(String)
Debug NewString
