June 2018 Update

Task/String-case/BASIC/string-case-5.basic

@@ -1,5 +1,3 @@
-string s="alphaBETA"
-
-print lcase(s) " "+
-      ucase(s) " "+
-      ucase(left(s,1))+mid(s,2) 'capitalised
+s$ = "alphaBETA"
+upper$ = UCase(s$)  ;uppercase
+lower$ = LCase(s$)  ;lowercase

Task/String-case/BASIC/string-case-6.basic

@@ -1,3 +1,5 @@
-s$ = "alphaBETA"
-upper$ = UCase(s$)  ;uppercase
-lower$ = LCase(s$)  ;lowercase
+a$ ="alphaBETA"
+
+print a$           '=> alphaBETA
+print upper$(a$)   '=> ALPHABETA
+print lower$(a$)   '=> alphabeta

Task/String-case/BASIC/string-case-7.basic

@@ -1,5 +1,8 @@
-a$ ="alphaBETA"
+' Define 's'
+Dim s AS String = "alphaBETA"
 
-print a$           '=> alphaBETA
-print upper$(a$)   '=> ALPHABETA
-print lower$(a$)   '=> alphabeta
+' Change 's' to Upper Case.
+s =  s.ToUpper()
+
+' Change 's' to Lower Case.
+s = s.ToLower()

Task/String-case/BASIC/string-case-8.basic

@@ -1,8 +1,18 @@
-' Define 's'
-Dim s AS String = "alphaBETA"
-
-' Change 's' to Upper Case.
-s =  s.ToUpper()
-
-' Change 's' to Lower Case.
-s = s.ToLower()
+:"ABCDEFGHIJKLMNOPQRSTUVWXYZ"→Str9
+:"abcdefghijklmnopqrstuvwxyz"→Str0
+:Input ">",Str1
+:":"+Str1+":"→Str1
+:Prompt U
+:If U:Then
+:For(I,2,length(Str1))
+:If inString(Str0,sub(Str1,I,1)) and sub(Str1,I,1)≠":"
+:sub(Str1,1,I-1)+sub(Str9,inString(Str0,sub(Str1,I,1)),1)+sub(Str1,I+1,length(Str1)-I)→Str1
+:End
+:Else
+:For(I,2,length(Str1))
+:If inString(Str9,sub(Str1,I,1)) and sub(Str1,I,1)≠":"
+:sub(Str1,1,I-1)+sub(Str0,inString(Str9,sub(Str1,I,1)),1)+sub(Str1,I+1,length(Str1)-I)→Str1
+:End
+:End
+:sub(Str1,2,length(Str1)-2)→Str1
+:Pause Str1