| 'Rin ( @ 2005-03-29 09:14:00 |
| Entry tags: | children's music, computer program |
Basic Bears In the Bed
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