10 let x=5
20 if x>1 then let b$=”bears” else let b$=”bear”
30 if x>1 then let s$=”roll over, roll over” else let s$=”I’m sleepy”
40 print x, b$, “in the bed, and the little one said”, s$
50 if x=1 then goto 90
60 print “So they all rolled over, and one fell out.”
70 let x=x-1
80 goto 20
90 end

Via www.livejournal.com/community/reformat_songs/19032.html and www.boingboing.net/2005/03/29/songs_as_basic_progr.html

One Response to ““Bears in the bed” in Basic”

1. Poppy says:

   3/30/2005 at 9:52 pm

   aw. That’s… endearing.

   Reply