Microsoft Small Basic

Program Listing:
Embed this in your website
For i=-25To 25
For j=0To-Math.Abs(i)+25
c=Text.GetCharacter(65+j)
s=s+c
t=c+t
EndFor
TextWindow.WriteLine(s+Text.GetSubText(t,2,j))
s="
t="
EndFor
Copyright (c) Microsoft Corporation. All rights reserved.