10 REM Muchomil elefantes
20 REM by Jon Tohrs
30 REM send me money -_-
40 FOR X=1 TO 5000 STEP 1
50 PRINT X;" elefante";
60 IF X<>1 THEN PRINT "s"
70 PRINT "se columpiaba";
80 IF X<>1 THEN PRINT "n"
90 PRINT "sobre la tela"
100 PRINT "de una araña"
110 PRINT "como veia";
120 IF X<>1 THEN PRINT "n"
130 PRINT "que resistia"
140 PRINT "fue";
150 IF X<>1 THEN PRINT "ron";
160 PRINT " a llamar"
170 PRINT "a otro elefante..."
180 PRINT ""
190 NEXT
5000 Elefantes (BASIC)
Seguimos con las oldies :) Version en BASIC de la cancion infantil. Probado en linux con bywater basic. Funcional, hasta donde yo se.
