-- card: 4110 from stack: in
-- bmap block id: 2522
-- flags: 0000
-- background id: 2702
-- name: 


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=313 top=217 right=234 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Program
----- HyperTalk script -----
on return
  put card field "Program" after card field "bozo"
end return



-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=238 top=248 right=270 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Send Program
----- HyperTalk script -----
on mouseUp
  put first line of card field "Program" into theProgram
  if theProgram > 127 or theProgram < 0 then
    beep
    answer "Program number must range from 0 - 127" with "OK"
  else
    repeat with theChannel = 1 to 16
      put "Channel " into ChannelNumber
      put theChannel after ChannelNumber
      if hilite of card button ChannelNumber is true then
        put 192 into ProgramChange -- MIDI program change status byte
        add theChannel - 1 to ProgramChange
        put " " after ProgramChange
        put theProgram after ProgramChange
        TxMIDI ProgramChange
      end if
    end repeat
  end if
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=76 right=94 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 3


-- part 6 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=93 right=111 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 4


-- part 7 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=110 right=128 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 5


-- part 8 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=127 right=145 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 6


-- part 9 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=144 right=162 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 7


-- part 10 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=161 right=179 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 8


-- part 11 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=178 right=196 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 9


-- part 12 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=195 right=213 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 10


-- part 13 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=212 right=230 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 11


-- part 14 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=229 right=247 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 12


-- part 15 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=246 right=264 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 13


-- part 16 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=263 right=281 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 14


-- part 17 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=280 right=298 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 15


-- part 19 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=59 right=77 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 2


-- part 20 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=42 right=60 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 1


-- part 21 (button)
-- low flags: 00
-- high flags: E005
-- rect: left=370 top=297 right=315 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Channel 16


-- part contents for card part 1
----- text -----
23

9