Time for an 2014 update…

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

@@ -0,0 +1,5 @@
+S$ = "alphaBETA"
+
+UP$ = "" : FOR I = 1 TO LEN(S$) : C = ASC(MID$(S$, I, 1)) : UP$ = UP$ + CHR$(C - (C > 96 AND C < 123) * 32) : NEXT I : ? UP$
+
+LO$ = "" : FOR I = 1 TO LEN(S$) : C = ASC(MID$(S$, I, 1)) : LO$ = LO$ + CHR$(C + (C > 64 AND C < 91) * 32) : NEXT I : ? LO$

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

@@ -0,0 +1,7 @@
+      INSTALL @lib$+"STRINGLIB"
+
+      original$ = "alphaBETA"
+      PRINT "Original:   " original$
+      PRINT "Lower case: " FN_lower(original$)
+      PRINT "Upper case: " FN_upper(original$)
+      PRINT "Title case: " FN_title(original$)

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

@@ -0,0 +1,7 @@
+input$ ="alphaBETA"
+
+print input$
+print upper$( input$)
+print lower$( input$)
+
+end

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

@@ -0,0 +1,5 @@
+string s="alphaBETA"
+
+print lcase(s) " "+
+      ucase(s) " "+
+      ucase(left(s,1))+mid(s,2) 'capitalised

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

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

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

@@ -0,0 +1,5 @@
+a$ ="alphaBETA"
+
+print a$           '=> alphaBETA
+print upper$(a$)   '=> ALPHABETA
+print lower$(a$)   '=> alphabeta

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

@@ -0,0 +1,8 @@
+' Define 's'
+Dim s AS String = "alphaBETA"
+
+' Change 's' to Upper Case.
+s =  s.ToUpper()
+
+' Change 's' to Lower Case.
+s = s.ToLower()

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

@@ -0,0 +1,18 @@
+:"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