Microsoft Small Basic

Program Listing: STJ159

List Program

TextWindow.WriteLine("Daţi-mi un nume şi vi-l învârt!")
abc=TextWindow.Read()
nume=Text.GetSubText(abc,1,Text.GetIndexOf(abc," ")-1)
prenume=Text.GetSubTextToEnd(abc,Text.GetIndexOf(abc," ")+1)
For i=1 To Text.GetLength(nume)
litera=Text.GetSubText(nume,Text.GetLength(nume)+1-i,1)
If i=1 Then
litera=Text.ConvertToUpperCase(litera)
Else
litera=Text.ConvertToLowerCase(litera)
EndIf
TextWindow.Write(litera)
EndFor
TextWindow.Write(" ")
For i=1 To Text.GetLength(prenume)
litera=Text.GetSubText(prenume,Text.GetLength(prenume)+1-i,1)
If i=1 Then
litera=Text.ConvertToUpperCase(litera)
Else
litera=Text.ConvertToLowerCase(litera)
EndIf
TextWindow.Write(litera)
EndFor
TextWindow.WriteLine("")