5000 Elefantes - Small Basic

Sigo con la nostalgia de los 80's... not...

De hecho, aun cuando el nombre suene similar, Small Basic tiene muy poco que ver con BASIC.  La primera version estable fue publicada en el 2011, lo que lo convierte en un lenguaje relativamente nuevo, al contrario de BASIC, que data de finales de los 60's y tuvo su auge durante la decada de los 80's.

'patomil elefantes
'jon tohrs
'send me money -_-

'Variables
elefantes = 1
one = " elefante"
more = " elefantes"
col = "se columpiaba"
cols = "se columpiaban"
ve = "como veia"
ves = "como veian"
va = "fue a llamar"
vas = "fueron a llamar"

'Loop
For elefantes = 1 To 5000 Step 1
  If elefantes  = 1 Then
     TextWindow.WriteLine(elefantes + one)
     TextWindow.WriteLine(col)
     TextWindow.WriteLine("sobre la tela")
     TextWindow.WriteLine("de una arana")
     TextWindow.WriteLine(ve)
     TextWindow.WriteLine("que resistia")
     TextWindow.WriteLine(va)
     TextWindow.WriteLIne("a otro elefante")
     TextWindow.WriteLIne("")
   Else 
     TextWindow.WriteLine(elefantes + more)
     TextWindow.WriteLine(cols)
     TextWindow.WriteLine("sobre la tela")
     TextWindow.WriteLine("de una arana")
     TextWindow.WriteLine(ves)
     TextWindow.WriteLine("que resistia")
     TextWindow.WriteLine(vas)
     TextWindow.WriteLIne("a otro elefante")
     TextWindow.WriteLIne("")
     EndIf
   EndFor
   
'Fin   
TextWindow.WriteLIne("y asi hasta el infinito...")