'===========================================================================
' Subject: BACKGROUND MUSIC PLAY             Date: 03-30-93 (06:58)       
' Author:  Unknown Author(s)                 Code: QB, QBasic, PDS        
' Keys:    BACKGROUND,MUSIC,PLAY           Packet: SOUND.ABC
'===========================================================================
ON PLAY(2) GOSUB MORE
SCREEN 1

PLAY ON

PLAY "T160 MB ML L8 O4 E E- E E- E <B >D C <A"
PLAY "O2 E A >C E A B"
PLAY "O2 E G# >E G# B >C"

PLAY "O2 E A >E"
STANZA% = 1

DO
X1 = RND * 320
X2 = RND * 320
Y1 = RND * 200
Y2 = RND * 200
COL = INT(RND * 4)
LINE (X1, Y1)-(X2, Y2), COL, B
LOOP WHILE INKEY$ = ""

PLAY OFF
DO
LOOP WHILE PLAY(0) > 0
CLS
END

MORE:
IF STANZA% = 1 THEN
STANZA% = 2
PLAY "MB ML L8 O4 E E- E E- E <B >D C A<"
PLAY "O2 E A >C E A B"
PLAY "O2 E G# >E >C <B A2. L8 N0"
ELSE
SATNZA% = 1
PLAY "MB ML L8 O4 E E- E E- E <B >D C <A"
PLAY "O2 E A >C E A B"
PLAY "O2 E G# >E G# B >C"
PLAY "O2 E A >E"
END IF
RETURN