'===========================================================================
' Subject:  BOTTLES OF BEER ON THE WALL    Date: 08-13-96 (20:58)       
' Author:  Tony Cave                         Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: SOUND.ABC
'===========================================================================
'Here's something for your computer to do when it gets bored.

CLS
song$ = "l8T255<<n25n25n25p8n20n20n20p8n25n25n25n25p8n24n25n26"
song$ = song$ + "n27n27n27p8n22n22n22n27p8n27n25p8n24p8n22p8"
song$ = song$ + "n24p8n24p8n24p8p8p8n24n24n24n24p8p8p8p8n20n20n20p8"
song$ = song$ + "n22n22n24p8n25n25n25n25"
up$ = "p8n20n22n24"
DO
FOR x = 99 TO 1 STEP -1
CLS
LOCATE RND * 22 + 1, 1
PRINT x; "bottles of beer on the wall,"; x; "bottles of beer."
PRINT " Take one down; pass it around. ";
IF x - 1 <> 0 THEN PRINT x - 1;  ELSE PRINT " No ";
PRINT "bottles of beer on the wall."
PLAY song$
IF x - 1 <> 0 THEN PLAY up$
a$ = INKEY$: IF a$ <> "" THEN SYSTEM
NEXT
CLS : LOCATE 1, 1
PRINT "One more time"
SLEEP 2&: m$ = INKEY$
IF m$ <> "" THEN DO: LOOP UNTIL m$ <> ""
LOOP