$include "windowssdk.inc"

openconsole
	PRINT
	PRINT "Playing 'My Bonnie Lies Over the Ocean'"
	endbeep()
	PRINT
	PRINT "Finished...press any key"
DO
	UNTIL INKEY$<>""
	CLOSECONSOLE
END

SUB endbeep()
BEEP(392,190)
BEEP(659,190)
BEEP(587,190)
BEEP(523,190)
BEEP(587,190)
BEEP(523,190)
BEEP(440,190)
BEEP(392,190)
BEEP(330,660)
BEEP(392,190)
BEEP(659,190)
BEEP(587,190)
BEEP(523,190)
BEEP(523,190)
BEEP(494,190)
BEEP(523,190)
BEEP(587,660)
ENDSUB