home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Shareware City / Sound / K1 Librarian 1.0.2 / Sample Scripts / 18 Send One Dump Request < prev    next >
Encoding:
Text File  |  1994-07-26  |  574 b   |  24 lines  |  [TEXT/ToyS]
  1. tell application "K1 Librarian"
  2.     --    activate
  3.     set ch to 14 -- set MIDI channel (1 - 16)
  4.     set kind to 0 -- set single/multi
  5.     -- 0 for single
  6.     -- 1 for multi    
  7.     set ie to 3 -- set I,i,E,e
  8.     -- 0 for I
  9.     -- 1 for i
  10.     -- 2 for E
  11.     -- 3 for e
  12.     set abcd to 1 -- set A,B,C,D
  13.     -- 0 for A
  14.     -- 1 for B
  15.     -- 2 for C
  16.     -- 3 for D
  17.     set num to 7 -- set patch num (1 - 8)
  18.     if (ie = 0) then set temp to 0
  19.     if (ie = 1) then set temp to 32
  20.     if (ie = 2) then set temp to 4096
  21.     if (ie = 3) then set temp to 32 + 4096
  22.     One Dump Request {(ch - 1) * 256 + kind * 64 + temp + abcd * 8 + num - 1}
  23. end tell
  24.