99 bottles of beer: Difference between revisions

Content deleted Content added

Inline

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