desc: AlOf  <Note De-Hanger>  v.1.0

@sample //=================================================================================================================================

while
(
  midirecv(offset,MD1,MD2,MD3)? // receive note
  (
		
		
		type=(MD1&$xF0)/$x10;
		type==9 && MD3==0 ?
		(
			MD1=MD1&$x0F+128; MD3=64;     
			midisend(offset,MD1,MD2,MD3); // TRUE OFF not zero velo note
		):( 
			midisend(offset,MD1,MD2,MD3); //through if not zero velo note
		);
  );       
);


@block //=================================================================================================================================     
		

play_old!=play_state?
(
	play_old=play_state;
	(play_old==0)||(play_old==2)||(play_old==6)? //is playstate stop or pause?
	(
		i01=15;  // iterating chan numbers                                                           
		while (i01>=0)                                                 
		( 
			MD1=$xB0+i01;
			MD2=123;
			MD3=127;
			midisend(offset,MD1,MD2,MD3); //send 
			MD3=0;
			midisend(offset,MD1,MD2,MD3);
			i01-=1;
		);     
	);
);

