'Licensed under a modified X11/FSF license.
'Copyright © 2005 Jonathan Harrison.  All rights reserved.

ON ERROR RESUME NEXT

CONST BEER = " of beer"
CONST WALL = " on the wall"
CONST TAKE = "...take "
CONST DOWN = " down, pass it around: "
CONST LINES = "569"
CONST VERSION = "The Bottles Song, v2005.04.22.0218"

BERMUDA = "FALSE"
COUNT = 99
COUNTING = 0
COUNTEDING = 0
GATE = "OPEN"
LEVEL = 0
LEVELING = 0
TENNER = 0
TENNERED = 0
UNBERMUDA = "FALSE"

	DO
HYPHEN = "-"
HYPHENED = "-"
TELEPORT = ""
VIEWBAR = "Press ""f"" to exit or ""h"" for help."
BOTTLES = " bottles"
DESCRIPTOR = "one"
BOTTLED = " bottles"
		IF COUNT < 2 THEN
BOTTLES = " bottle"
DESCRIPTOR = "it"
		ELSE
		IF COUNT < 3 THEN
BOTTLED = " bottle"
		END IF
		END IF

COUNTED = (COUNT - 1)

		IF ((COUNT / 9) = 10) OR ((COUNT / 8) = 10) OR ((COUNT / 7) = 10) OR ((COUNT / 6) = 10) OR ((COUNT / 5) = 10) OR ((COUNT / 4) = 10) OR ((COUNT / 3) = 10) OR ((COUNT / 2) = 10) OR ((COUNT / 1) = 10) THEN
HYPHEN = ""
		ELSE
		END IF

COUNTING = COUNT
TENNER = 0
		DO
			IF COUNTING > 9 THEN
COUNTING = (COUNTING - 10)
TENNER = (TENNER + 1)
			ELSE
			END IF
		IF COUNTING < 10 THEN EXIT DO
		LOOP

		IF COUNTING = 9 THEN
DISCIPLE = "nine"
		ELSE
		IF COUNTING = 8 THEN
DISCIPLE = "eight"
		ELSE
		IF COUNTING = 7 THEN
DISCIPLE = "seven"
		ELSE
		IF COUNTING = 6 THEN
DISCIPLE = "six"
		ELSE
		IF COUNTING = 5 THEN
DISCIPLE = "five"
		ELSE
		IF COUNTING = 4 THEN
DISCIPLE = "four"
		ELSE
		IF COUNTING = 3 THEN
DISCIPLE = "three"
		ELSE
		IF COUNTING = 2 THEN
DISCIPLE = "two"
		ELSE
		IF COUNTING = 1 THEN
DISCIPLE = "one"
		ELSE
		IF COUNTING = 0 THEN
DISCIPLE = ""
		ELSE
		END IF
		END IF
		END IF
		END IF
		END IF
		END IF
		END IF
		END IF
		END IF
		END IF

		IF TENNER = 9 THEN
NOMEN = "Ninety"&HYPHEN
OMEN = "ninety"&HYPHEN
		ELSE
		IF TENNER = 8 THEN
NOMEN = "Eighty"&HYPHEN
OMEN = "eighty"&HYPHEN
		ELSE
		IF TENNER = 7 THEN
NOMEN = "Seventy"&HYPHEN
OMEN = "seventy"&HYPHEN
		ELSE
		IF TENNER = 6 THEN
NOMEN = "Sixty"&HYPHEN
OMEN = "sixty"&HYPHEN
		ELSE
		IF TENNER = 5 THEN
NOMEN = "Fifty"&HYPHEN
OMEN = "fifty"&HYPHEN
		ELSE
		IF TENNER = 4 THEN
NOMEN = "Forty"&HYPHEN
OMEN = "forty"&HYPHEN
		ELSE
		IF TENNER = 3 THEN
NOMEN = "Thirty"&HYPHEN
OMEN = "thirty"&HYPHEN
		ELSE
		IF TENNER = 2 THEN
NOMEN = "Twenty"&HYPHEN
OMEN = "twenty"&HYPHEN
		ELSE
		IF TENNER = 1 THEN
			IF COUNTING = 9 THEN
DISCIPLE = "ineteen"
NOMEN = "N"
OMEN = "n"
			ELSE
			IF COUNTING = 8 THEN
DISCIPLE