RosettaCodeData/Task/String-case/EasyLang/string-case.easy

func$ toUpper s$ .
   for c$ in strchars s$
      code = strcode c$
      if code >= 97 and code <= 122
         code -= 32
      .
      res$ &= strchar code
   .
   return res$
.
func$ toLower s$ .
   for c$ in strchars s$
      code = strcode c$
      if code >= 65 and code <= 90
         code += 32
      .
      res$ &= strchar code
   .
   return res$
.
string$ = "alphaBETA"
print string$
print toUpper string$
print toLower string$
Data update 2023-09-16 17:28:03 -07:00			`func$ toUpper s$ .`
			`for c$ in strchars s$`
			`code = strcode c$`
Initial data commit 2023-07-01 11:58:00 -04:00			`if code >= 97 and code <= 122`
			`code -= 32`
			`.`
Data update 2023-09-16 17:28:03 -07:00			`res$ &= strchar code`
Initial data commit 2023-07-01 11:58:00 -04:00			`.`
Data update 2023-09-16 17:28:03 -07:00			`return res$`
Initial data commit 2023-07-01 11:58:00 -04:00			`.`
Data update 2023-09-16 17:28:03 -07:00			`func$ toLower s$ .`
			`for c$ in strchars s$`
			`code = strcode c$`
Initial data commit 2023-07-01 11:58:00 -04:00			`if code >= 65 and code <= 90`
			`code += 32`
			`.`
Data update 2023-09-16 17:28:03 -07:00			`res$ &= strchar code`
Initial data commit 2023-07-01 11:58:00 -04:00			`.`
Data update 2023-09-16 17:28:03 -07:00			`return res$`
Initial data commit 2023-07-01 11:58:00 -04:00			`.`
			`string$ = "alphaBETA"`
			`print string$`
Data update 2023-09-16 17:28:03 -07:00			`print toUpper string$`
			`print toLower string$`