home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / EXTRACT.MPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  728 b   |  47 lines
  1. #
  2. #
  3. #This mpl has been created from a XPL file
  4. #
  5. # The XPL source file is : EXTRACT.xpl
  6. #
  7. #
  8.  
  9. # 12 INIT ( ) { 
  10. LABEL INIT
  11.  
  12. # 13 VAR CHANSAVED ; 
  13. # CHANSAVED -> V[100]
  14.  
  15. # 14 SAVEIN ( 0 ) ; 
  16. UNSAVEIN
  17.  
  18. # 17 CHANSAVED = 4 ; 
  19. V= 100 4.000000
  20.  
  21. # 19 } 
  22. END
  23.  
  24. # 23 MAIN ( ) { 
  25. LABEL MAIN
  26.  
  27. # 25 IF ( CHAN == CHANSAVED ) OUTMIDI ( ) ; 
  28. V=CHAN 2
  29. V= 3 0
  30. V==V 2 100
  31. V= 3 1
  32. V== 3 0
  33. GOTO LAB2
  34. OUTMIDI
  35.  
  36. # 27 DESCRIPT ( " THIS EFFECT WILL EXTRACT THE MIDI CHANNEL 4 " ) ; 
  37. LABEL LAB2
  38.  
  39. # 27 DESCRIPT ( "  THIS EFFECT WILL EXTRACT THE MIDI CHANNEL 4  " ) ; 
  40. DESCRIPT   THIS EFFECT WILL EXTRACT THE MIDI CHANNEL 4  
  41.  
  42. # 28 DESCRIPT ( " FROM ANY .MID FILE " ) ; 
  43. DESCRIPT  FROM ANY .MID FILE 
  44.  
  45. # 30 } 
  46. END
  47.