Data commit

Task/Caesar-cipher/Microsoft-Small-Basic/caesar-cipher.basic

@@ -0,0 +1,23 @@
+TextWindow.Write("Enter a 1-25 number key (-ve number to decode): ")
+key = TextWindow.ReadNumber()
+TextWindow.Write("Enter message: ")
+message = text.ConvertToUpperCase(TextWindow.Read())
+caeser = ""
+For n = 1 To Text.GetLength(message)
+  letter = Text.GetSubText(message,n,1)
+  code = Text.GetCharacterCode(letter)
+  If code = 32 Then
+    newCode = 32
+  Else
+    newCode = code + key
+    If newCode > 90 Then
+      newCode = newCode - 26
+    ElseIf newCode < 65 then
+      newCode = newCode + 26
+    EndIf
+  EndIf
+  codeLetter = Text.GetCharacter(newCode)
+  caeser = Text.Append(caeser,codeLetter)
+EndFor
+TextWindow.WriteLine(message)
+TextWindow.WriteLine(caeser)