“Bears in the bed” in Basic
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
This entry was posted on Wednesday, March 30th, 2005 at 2:25 am and is tagged with bears, goto. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback.
Add New Comment
Viewing 1 Comment
Thanks. Your comment is awaiting approval by a moderator.
Do you already have an account? Log in and claim this comment.
Do you already have an account? Log in and claim this comment.
Add New Comment
Trackbacks
(Trackback URL)