home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / SWITCH.XPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  324 b   |  31 lines
  1. /*  switch two midi channels */
  2.  
  3.  
  4.  
  5. init ()
  6. {
  7.     var chan1,chan2;
  8.  
  9.  
  10.     chan1=2;
  11.     chan2=4;
  12.  
  13.     savein (0);
  14.  
  15. }
  16.  
  17.  
  18.  
  19. main ()
  20. {
  21.     if (chan==chan1) chan=chan2;
  22.     else
  23.         if (chan==chan2) chan=chan1;
  24.  
  25.     outmidi ();
  26.  
  27.     descript ("Switch two midi channels");
  28.     descript ("To be used live or as a Post-Processor");
  29.  
  30. }
  31.