Microsoft Small Basic

Program Listing:
Embed this in your website
' Challenge of the month December 2013 reflection of a picture by NaochanON

gui()

While NN<31
  NN=NN+1
  GraphicsWindow.BrushColor= GraphicsWindow.GetRandomColor()
  GFS=40+Math.GetRandomNumber(50)
  GraphicsWindow.FontSize=GFS
  SHP["L"][NN]=Shapes.AddText(Text.GetCharacter(LST[NN]))
  SHP["R"][NN]=Shapes.AddText(Text.GetCharacter(LST[NN]))
  RY=1000-Math.GetRandomNumber(2000)
  RY2=100+math.GetRandomNumber(200)
  Shapes.Move(SHP["L"][NN],-2000,RY)
  Shapes.Move(SHP["R"][NN], 2000,RY)
  Shapes.Animate(SHP["L"][NN],400-2-GFS,RY2,2000)
  Shapes.Animate(SHP["R"][NN],400+2,RY2,2000)
  Program.Delay(2010)
  Shapes.Animate(SHP["L"][NN],-2000,RY2-RY,2000)
  Shapes.Animate(SHP["R"][NN],2000,RY2-RY,2000)
endwhile
GraphicsWindow.FontSize=35
MSG=Shapes.AddText("How many characters are asymmetry?")
Shapes.Move(msg,50,2000)
Shapes.Animate(msg,50,100,3000)
Program.Delay(5000)
Program.End()


Sub gui
  GraphicsWindow.Width=800
  GraphicsWindow.Height=400
  GraphicsWindow.BackgroundColor="White"
  GraphicsWindow.BrushColor="Black"
  GraphicsWindow.FillRectangle(400-2,0,4,400)
  LST="1=9742;2=9745;3=9746;4=9747;5=9748;6=9749;7=9750;8=9751;9=9752;10=9753;11=9754;12=9755;"
  LST=LST+"13=9924;14=9991;15=9992;16=10048;17=10049;18=10050;19=10051;20=10052;21=10053;22=10054;23=10055;"
  LST=LST+"24=10056;25=10057;26=10058;27=10059;28=9728;29=9760;30=9792;31=9824"
EndSub

Copyright (c) Microsoft Corporation. All rights reserved.