Microsoft Small Basic

Program Listing:
Embed this in your website
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("")
Copyright (c) Microsoft Corporation. All rights reserved.