~ 99bot.mse - 3/13-16,19,20/2007 4/30/2007 - lrb

~ This is a 99 bottles of beer program in Mouse-83

~ Original version by Peter Grogono in "Mouse: A Language for
~ Microcomputers", Byte Magazine, July 1979, pp. 198 ff. and later revised
~ by David G. Simpson

"!Enter delay value [100,800] ? "?D:"!"

("How many verses? (99 max 0 to quit) "?s:"!"s.^100s.-[#V,s.;])

$V 1%[ ~ play a verse
 #N,1%;#B,1%;#W;",!"
 #N,1%;#B,1%;".!"
 #F;"!"
 #N,1%1-;#B,1%1-;#W;".!!"
 #D;
 #V,1%1-;
 ]@

$B " green bottle"1%1=0=["s"]" of Irish beer"@

$W " on the wall"@

$F "If one of those green bottles of Irish beer should happen to fall ..."@

$N ~ print bottle count in English
1%u:0w:
1%9>[
 1%10/w:1%10\v:
 w.1=[
  v.0=["Ten"@]