99 bottles of beer: Difference between revisions
Content deleted Content added
Line 4,208: | Line 4,208: | ||
end</lang> |
end</lang> |
||
=={{header| |
=={{header|Runbasic}}== |
||
<lang |
<lang Runbasic>b$ = " bottles" |
||
for bottles = 99 To 1 Step -1 |
|||
main is |
|||
If (bottles = 1) then b$ = " bottle" |
|||
s :STR; |
|||
print bottles;b$;" of beer on the wall, " |
|||
print bottles ;b$;" of beer" |
|||
print "Take one down, pass it around, " |
|||
if bottles = 1 then |
|||
print "No bottles of beer on the wall" |
|||
else |
|||
#OUT + #FMT(p1 + w + "\n", i, "s"); |
|||
print bottles - 1;b$;" of beer on the wall.";chr$(10) |
|||
⚫ | |||
if i > 0 then #OUT + t; end; |
|||
next bottles</lang> |
|||
end; |
|||
⚫ | |||
end;</lang> |
|||
=={{header|Scala}}== |
=={{header|Scala}}== |