PRINT COLOR 5,"Play Sequence Demo" PLAY SIMPLE:WAIT MusicSequenceIdx=0 '====================== MainLOOP: WAIT:PRINT AT 40,<>FRAME MusicSequenceCheck: IF MUSIC.PLAYING=0 THEN MusicSequenceX=MusicSequence(MusicSequenceIdx) MusicSequenceIdx=MusicSequenceIdx+1 PRINT AT 80+MusicSequenceIdx ON MusicSequenceX GOTO MLoop0, MLoop1, MLoopEnd END IF GOTO MainLOOP '====================== MLoop0: PLAY Sequence0:PRINT ".S0":GOTO MainLOOP MLoop1: PLAY Sequence1:PRINT ".S1":GOTO MainLOOP MLoopEnd: MusicSequenceIdx=0:GOTO MusicSequenceCheck 'Reset,check again. MusicSequence: DATA 0,0,0,0,1,1,0,0,1,0,1,2 '2=end! Sequence0: DATA 8 MUSIC C3,G3 MUSIC s,s MUSIC s,E3 MUSIC s,s MUSIC s,s 'Extra silence! MUSIC STOP Sequence1: DATA 8 MUSIC D3,A3 MUSIC s,s MUSIC s,F3 MUSIC s,s MUSIC s,s 'Extra silence! MUSIC STOP