home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / hypermid.sit / HyperMIDI / card_4110.txt < prev    next >
Text File  |  1988-02-23  |  6KB  |  296 lines
  1. -- card: 4110 from stack: in
  2. -- bmap block id: 2522
  3. -- flags: 0000
  4. -- background id: 2702
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=313 top=217 right=234 bottom=345
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Program
  20. ----- HyperTalk script -----
  21. on return
  22.   put card field "Program" after card field "bozo"
  23. end return
  24.  
  25.  
  26.  
  27. -- part 3 (button)
  28. -- low flags: 00
  29. -- high flags: A003
  30. -- rect: left=238 top=248 right=270 bottom=338
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Send Program
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   put first line of card field "Program" into theProgram
  42.   if theProgram > 127 or theProgram < 0 then
  43.     beep
  44.     answer "Program number must range from 0 - 127" with "OK"
  45.   else
  46.     repeat with theChannel = 1 to 16
  47.       put "Channel " into ChannelNumber
  48.       put theChannel after ChannelNumber
  49.       if hilite of card button ChannelNumber is true then
  50.         put 192 into ProgramChange -- MIDI program change status byte
  51.         add theChannel - 1 to ProgramChange
  52.         put " " after ProgramChange
  53.         put theProgram after ProgramChange
  54.         TxMIDI ProgramChange
  55.       end if
  56.     end repeat
  57.   end if
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 4 (button)
  63. -- low flags: 00
  64. -- high flags: E005
  65. -- rect: left=370 top=76 right=94 bottom=465
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Channel 3
  74.  
  75.  
  76. -- part 6 (button)
  77. -- low flags: 00
  78. -- high flags: E005
  79. -- rect: left=370 top=93 right=111 bottom=465
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Channel 4
  88.  
  89.  
  90. -- part 7 (button)
  91. -- low flags: 00
  92. -- high flags: E005
  93. -- rect: left=370 top=110 right=128 bottom=465
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Channel 5
  102.  
  103.  
  104. -- part 8 (button)
  105. -- low flags: 00
  106. -- high flags: E005
  107. -- rect: left=370 top=127 right=145 bottom=465
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Channel 6
  116.  
  117.  
  118. -- part 9 (button)
  119. -- low flags: 00
  120. -- high flags: E005
  121. -- rect: left=370 top=144 right=162 bottom=465
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Channel 7
  130.  
  131.  
  132. -- part 10 (button)
  133. -- low flags: 00
  134. -- high flags: E005
  135. -- rect: left=370 top=161 right=179 bottom=465
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Channel 8
  144.  
  145.  
  146. -- part 11 (button)
  147. -- low flags: 00
  148. -- high flags: E005
  149. -- rect: left=370 top=178 right=196 bottom=465
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Channel 9
  158.  
  159.  
  160. -- part 12 (button)
  161. -- low flags: 00
  162. -- high flags: E005
  163. -- rect: left=370 top=195 right=213 bottom=465
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Channel 10
  172.  
  173.  
  174. -- part 13 (button)
  175. -- low flags: 00
  176. -- high flags: E005
  177. -- rect: left=370 top=212 right=230 bottom=465
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Channel 11
  186.  
  187.  
  188. -- part 14 (button)
  189. -- low flags: 00
  190. -- high flags: E005
  191. -- rect: left=370 top=229 right=247 bottom=465
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Channel 12
  200.  
  201.  
  202. -- part 15 (button)
  203. -- low flags: 00
  204. -- high flags: E005
  205. -- rect: left=370 top=246 right=264 bottom=465
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: Channel 13
  214.  
  215.  
  216. -- part 16 (button)
  217. -- low flags: 00
  218. -- high flags: E005
  219. -- rect: left=370 top=263 right=281 bottom=465
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: Channel 14
  228.  
  229.  
  230. -- part 17 (button)
  231. -- low flags: 00
  232. -- high flags: E005
  233. -- rect: left=370 top=280 right=298 bottom=465
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Channel 15
  242.  
  243.  
  244. -- part 19 (button)
  245. -- low flags: 00
  246. -- high flags: E005
  247. -- rect: left=370 top=59 right=77 bottom=465
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 0 / 0
  250. -- text alignment: 1
  251. -- font id: 0
  252. -- text size: 12
  253. -- style flags: 0
  254. -- line height: 16
  255. -- part name: Channel 2
  256.  
  257.  
  258. -- part 20 (button)
  259. -- low flags: 00
  260. -- high flags: E005
  261. -- rect: left=370 top=42 right=60 bottom=465
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Channel 1
  270.  
  271.  
  272. -- part 21 (button)
  273. -- low flags: 00
  274. -- high flags: E005
  275. -- rect: left=370 top=297 right=315 bottom=465
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: Channel 16
  284.  
  285.  
  286. -- part contents for card part 1
  287. ----- text -----
  288. 23
  289.  
  290. 9
  291.  
  292.  
  293.  
  294.  
  295.  
  296.