comment
    print lyrics to "99 bottles of beer"
    written for S-BASIC compiler for 8-bit CP/M systems
end

$constant maxbottles = 99

rem - computes p mod q
function mod(p, q = integer) = integer
end = p - q * (p/q)

function wordnumber(i = integer) = string
    var w = string
    if i < 11 then
        case i of
            0 : w = ""
            1 : w = "One "
            2 : w = "Two "
            3 : w = "Three "
            4 : w = "Four "
            5 : w = "Five "
            6 : w = "Six "
            7 : w = "Seven "
            8 : w = "Eight "
            9 : w = "Nine "
            10: w = "Ten "
        end
    else if i < 20 then