5000 Elefantes (QBASIC)

Version en QBASIC de la cancion infantil. 

Ultimamente me ha dado por usar MS-DOS 7.1, que fue la ultima version del popular sistema operativo, incluida con Windows 95, hace 24 años.

 Normalmente soy usuario de Linux, pero jugar Commander Keen en Dosbox no es lo mismo...

REM kilos de elefantes
REM by jon tohrs
REM send me money -_-

FOR x = 1 TO 5000
IF x = 1 THEN
a$ = " "
c$ = " "
r$ = " "
ELSE
a$ = "s "
c$ = "n "
r$ = "ron "
END IF
PRINT x; "elefante"; a$
SLEEP 1
PRINT "se columpiaba"; c$
SLEEP 1
PRINT "sobre la tela"
SLEEP 1
PRINT "de una arana"
SLEEP 1
PRINT "como veia"; c$
SLEEP 1
PRINT "que resistia"
SLEEP 1
PRINT "fue"; r$; "a llamar"
SLEEP 1
PRINT "a otro elefante"
SLEEP 1
PRINT
NEXT x
PRINT "y asi hasta el infinito..."