' by Jarno Peschier

%No = 0
%Yes = NOT %No

DIM Muziek AS SHARED INTEGER		'Achtergrondmuziek aan of uit?
DIM VolgendeMaat AS SHARED INTEGER	'Volgende maat voor in de buffer

ON PLAY(8) GOSUB MuziekBufferBijvullen	'Bijvullen als nog 8 noten in buffer
KEY 15, CHR$(&H08,50,&H77)		'Alt+M = hotkey voor muziek aan/uit
ON KEY(15) GOSUB MuziekHotkey
StartMuziek

'=== Zet hier je eigen programma
CLS
PRINT
PRINT
PRINT"Dit is een dummy programma in een loop."
PRINT
PRINT"Op de achtergrond loopt nu een muziekje."
PRINT"Zet de muziek aan/uit met Alt+M."
PRINT
PRINT"Gebruik hiervan is uit de source hopelijk wel duidelijk."
PRINT"Het enige waarop je letten moet is dat je in de SUB"
PRINT"SpeelVolgendeMaat de muziek in blokjes opslaat in de"
PRINT"SELECT-CASE in stukjes die allemaal ongeveer even lang zijn!"
PRINT"Neem bijvoorbeeld, zoals de naam van de SUB aangeeft, echt"
PRINT"maten van de bladmuziek."
PRINT
PRINT"Druk op een toets om te stoppen."
DO
  LOCATE 1,1
  PRINT TIME$
LOOP WHILE INKEY$=""
CLS
PRINT"Dit is werkelijk alles..."
'=== Einde eigen programma

StopMuziek
END


'áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá
' Routines voor de achtergrondmuziek
'šššššššššššššššššššššššššššššššššššššššššššššššššššššššššššššššššššššššššššš


MuziekHotKey:
  KEY(15) STOP				'Vang maar ‚‚m Alt+M tegelijk
  Muziek = NOT Muziek			'Toggle muziek flag
  IF Muziek THEN
    StartMuziek				'Zet muziek (weer) aan als nodig
  ELSE
    StopMuziek				'Zet muziek (weer) uit als nodig
    KEY(15) ON				'En kijk weer naar Alt+M
  END IF
RETURN


MuziekBufferBijvullen:
  SpeelVolgendeMaat			'Volgende maat in buffer zetten
RETURN


SUB StartMuziek INLINE
  Muziek = %Yes				'Muziek nu aan
  PLAY"MBT116L8O2MN"			'Instellingen (MB, tempo, octaaf)
  PLAY"O1MSE16P.E16P.E16P.E16P.O2MN"	'Intro spelen
  VolgendeMaat = 1			'De volgende maat is de eerst
  SpeelVolgendeMaat			'Zet die maar in de buffer
  PLAY ON				'Muziek loopt (bekijk bufferlengte)
  KEY(15) ON				'Bekijk Alt+M ook natuurlijk
END SUB


SUB SpeelVolgendeMaat INLINE
  PLAY"MB"				'De maat moet in de achtergrond!
  SELECT CASE VolgendeMaat		'Hier zet je de eigenlijke muziek
    CASE 1: PLAY"EF4G#A4B4 >C<B4>C<B>C16<B16AF"
    CASE 2: PLAY"MLE1MSEMN E4DC#DEC#"
    CASE 3: PLAY"D1 F4.C#D4F4 E1.F4D4"
  END SELECT
  INCR VolgendeMaat			'Hoog de teller op
  IF VolgendeMaat > 3 THEN VolgendeMaat = 1	'En begin muziek opnieuw
END SUB


SUB StopMuziek INLINE
  PLAY OFF				'Kijk niet meer naar muziekbuffer
  KEY(15) OFF				'Kijk niet meer naar Alt+M
  SOUND 0,0				'Stop muziek in de buffer direct
END SUB

DATA 20
DATA"mlt110o2l8c<b>l4c<gf>l8c<b>l4c<g","f>l8c<mnbmlb>c4.<l4gcl8mnb-2.ml>"
DATA"c<b>l4c<gf>l8c<b>l4c<gf>l8c<mnbml","b>c4mndmld4.mnfmlf2.ecd4.<mngml"
DATA"g4>ecd2.gcf4.mnemle4.mndd2.mlc<b",">l4c<gf>l8c<b>l4c<gf>l8c<mnbmlb>"
DATA"c4.<l4gcl8mnb-2.ml>c<b>l4c<gf>l8","c<b>l4c<gf>l8c<mnbmlb>c4mndmld4.."
DATA"mnfmlf2.ecd4.<mngmlg4>ecd2.gcf4.","mnemle4.mndmld4.mncc4mlc<b>l2mn"
DATA"c.mll8c<b>l2mnc.mll8c<b>c4.mndml","d4.mnfmlf2.ecd4.<mngmlg4>ecd2.gc"
DATA"f4.mnemle4.mndmld2.ecd4.<mngmlg4",">ecd2.t105gcf4.mnt100emlt97e4.mn"
DATA"t95dmlt92d4.mnt90ct87c4mlt100>c<","b>t110l4c<gf>l8c<b>l4c<gf>l8c<mn"
DATA"bmlb>c4.<l4gcl8mnb-2.ml>c<b>l4c<","gf>l8c<b>l4c<gf>l8c<mnbmlb>c<gf#"
DATA"g4>fef2.c<mnbmlb>c<gf#g4>fed2d4.mncmsc8p4.p2p2.","p1p1"