home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / INVNOTE.MPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  847 b   |  64 lines
  1. #
  2. #
  3. #This mpl has been created from a XPL file
  4. #
  5. # The XPL source file is : INVNOTE.xpl
  6. #
  7. #
  8.  
  9. # 12 MAIN ( ) { 
  10. LABEL MAIN
  11.  
  12. # 13 VAR I ; 
  13. # I -> V[100]
  14.  
  15. # 15 I = NOTE ; 
  16. V=NOTE 2
  17. V=V 100 2
  18.  
  19. # 16 NOTE /= 12 ; 
  20. NOTE/= 12
  21.  
  22. # 20 NOTE *= 12 ; 
  23. NOTE*= 12
  24.  
  25. # 22 IF ( NOTE > I ) NOTE -= 12 ; 
  26. V=NOTE 2
  27. V= 3 0
  28. V>V 2 100
  29. V= 3 1
  30. V== 3 0
  31. GOTO LAB2
  32. NOTE-= 12
  33.  
  34. # 23 I -= NOTE ; 
  35. LABEL LAB2
  36.  
  37. # 23 V [ 100 ] -= NOTE ; 
  38. V=NOTE 2
  39. V-=V 100 2
  40.  
  41. # 25 NOTE += 12 ; 
  42. NOTE+= 12
  43.  
  44. # 26 NOTE -= I ; 
  45. NOTE-=V 100
  46.  
  47. # 28 OUTMIDI ( ) ; 
  48. OUTMIDI
  49.  
  50. # 31 DESCRIPT ( " AN INVERTER " ) ; 
  51. DESCRIPT  AN INVERTER 
  52.  
  53. # 32 DESCRIPT ( " PLAYS B# FOR A C# " ) ; 
  54. DESCRIPT  PLAYS B# FOR A C# 
  55.  
  56. # 33 DESCRIPT ( "       B FOR A D " ) ; 
  57. DESCRIPT        B FOR A D 
  58.  
  59. # 34 DESCRIPT ( "   ETC.... " ) ; 
  60. DESCRIPT    ETC.... 
  61.  
  62. # 36 } 
  63. END
  64.