aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

24
Task/Rot-13/Microsoft-Small-Basic/rot-13.basic Normal file
View file

@ -0,0 +1,24 @@
Sub Rot13
EncodedString = ""
For i = 1 To Text.GetLength(String)
Code = Text.GetCharacterCode(Text.GetSubText(String, i, 1))
If Code >= 65 And Code <= 90 Then
EncodedCode = Code + 13
If EncodedCode > 90 Then
EncodedCode = 64 + EncodedCode - 90
EndIf
ElseIf Code >= 97 And Code <= 122 Then
EncodedCode = Code + 13
If EncodedCode > 122 Then
EncodedCode = 96 + EncodedCode - 122
EndIf
Else
EncodedCode = Code
EndIf
EncodedString = EncodedString + Text.GetCharacter(EncodedCode)
EndFor
EndSub
String = "Rosetta Code"
Rot13()
TextWindow.WriteLine(EncodedString)