// 99 bottles of beer
// Damien montgomery
// september 2006
//
FOR count% := 99 TO 1 STEP -1 DO
    bottles (count%, TRUE)
    bottles (count%, FALSE)
    PRINT "Take one down, pass it around."
    bottles (count% - 1, FALSE)
NEXT count%
END
//
PROC bottles (number%, wall) CL