September Morn Update

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

@@ -1,7 +1,3 @@
-input$ ="alphaBETA"
-
-print input$
-print upper$( input$)
-print lower$( input$)
-
-end
+100 INPUT PROMPT "String:     ":TX$
+110 PRINT "Lower case: ";LCASE$(TX$)
+120 PRINT "Upper case: ";UCASE$(TX$)

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

@@ -1,3 +1,7 @@
-s$ = "alphaBETA"
-upper$ = UCase(s$)  ;uppercase
-lower$ = LCase(s$)  ;lowercase
+input$ ="alphaBETA"
+
+print input$
+print upper$( input$)
+print lower$( input$)
+
+end

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

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

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

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

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

@@ -1,18 +1,8 @@
-:"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
+' Define 's'
+Dim s AS String = "alphaBETA"
+
+' Change 's' to Upper Case.
+s =  s.ToUpper()
+
+' Change 's' to Lower Case.
+s = s.ToLower()