'===========================================================================
' Subject: BACKGROUND MUSIC PLAY              Date: 03-30-93 (06:58)       
'  Author: Unknown Author(s)                  Code: QB, QBasic, PDS        
'  Origin: 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