home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / SWITCH.MPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  914 b   |  66 lines
  1. #
  2. #
  3. #This mpl has been created from a XPL file
  4. #
  5. # The XPL source file is : SWITCH.xpl
  6. #
  7. #
  8.  
  9. # 6 INIT ( ) { 
  10. LABEL INIT
  11.  
  12. # 7 VAR CHAN1 , CHAN2 ; 
  13. # CHAN1 -> V[100]
  14. # CHAN2 -> V[101]
  15.  
  16. # 10 CHAN1 = 2 ; 
  17. V= 100 2.000000
  18.  
  19. # 11 CHAN2 = 4 ; 
  20. V= 101 4.000000
  21.  
  22. # 13 SAVEIN ( 0 ) ; 
  23. UNSAVEIN
  24.  
  25. # 15 } 
  26. END
  27.  
  28. # 20 MAIN ( ) { 
  29. LABEL MAIN
  30.  
  31. # 21 IF ( CHAN == CHAN1 ) CHAN = CHAN2 ; 
  32. V=CHAN 2
  33. V= 3 0
  34. V==V 2 100
  35. V= 3 1
  36. V== 3 0
  37. GOTO LAB2
  38. CHAN=V 101
  39.  
  40. # 23 ELSE IF ( CHAN == CHAN2 ) CHAN = CHAN1 ; 
  41. GOTO LAB3
  42. LABEL LAB2
  43. V=CHAN 2
  44. V= 3 0
  45. V==V 2 101
  46. V= 3 1
  47. V== 3 0
  48. GOTO LAB4
  49. CHAN=V 100
  50.  
  51. # 25 OUTMIDI ( ) ; 
  52. LABEL LAB4
  53. LABEL LAB3
  54.  
  55. # 25 OUTMIDI ( ) ; 
  56. OUTMIDI
  57.  
  58. # 27 DESCRIPT ( " SWITCH TWO MIDI CHANNELS " ) ; 
  59. DESCRIPT  SWITCH TWO MIDI CHANNELS 
  60.  
  61. # 28 DESCRIPT ( " TO BE USED LIVE OR AS A POST-PROCESSOR " ) ; 
  62. DESCRIPT  TO BE USED LIVE OR AS A POST-PROCESSOR 
  63.  
  64. # 30 } 
  65. END
  66.