to inst make "inst1 listboxgetselect "instrument1 midimessage (list 192+1 first :inst1 0) setfocus [MswLogo Screen] make "inst2 listboxgetselect "instrument2 midimessage (list 192+2 first :inst2 0) setfocus [MswLogo Screen] make "inst3 listboxgetselect "instrument3 midimessage (list 192+ 3 first :inst3 0) setfocus [MswLogo Screen] make "inst4 listboxgetselect "instrument4 midimessage (list 192+ 4 first :inst4 0) setfocus [MswLogo Screen] end to midi4 ; Based on midi.lgo in the "Examples/Multimedia" ; files that come with MSW Logo and created by ; George Mills. ; ; Modifications made by J Fuller 2000 ; print midiopen windowcreate "root "main "main 0 0 400 286 [midisetup] midiinit end to midiinit listboxaddstring "instrument1 [0 Acoustic Grand Piano] listboxaddstring "instrument1 [1 Bright Acoustic Piano] listboxaddstring "instrument1 [2 Electric Grand Piano] listboxaddstring "instrument1 [3 Honky-tonk Piano] listboxaddstring "instrument1 [4 Rhodes Piano] listboxaddstring "instrument1 [5 Chorused Piano] listboxaddstring "instrument1 [6 Harpsichord] listboxaddstring "instrument1 [7 Clavinet] listboxaddstring "instrument1 [8 Celesta] listboxaddstring "instrument1 [9 Glockenspiel] listboxaddstring "instrument1 [10 Music box] listboxaddstring "instrument1 [11 Vibraphone] listboxaddstring "instrument1 [12 Marimba] listboxaddstring "instrument1 [13 Xylophone] listboxaddstring "instrument1 [14 Tubular Bells] listboxaddstring "instrument1 [15 Dulcimer] listboxaddstring "instrument1 [16 Hammond Organ] listboxaddstring "instrument1 [17 Percussive Organ] listboxaddstring "instrument1 [18 Rock Organ] listboxaddstring "instrument1 [19 Church Organ] listboxaddstring "instrument1 [20 Reed Organ] listboxaddstring "instrument1 [21 Accordian] listboxaddstring "instrument1 [22 Harmonica] listboxaddstring "instrument1 [23 Tango Accordian] listboxaddstring "instrument1 [24 Acoustic Guitar (nylon)] listboxaddstring "instrument1 [25 Acoustic Guitar (steel)] listboxaddstring "instrument1 [26 Electric Guitar (jazz)] listboxaddstring "instrument1 [27 Electric Guitar (clean)] listboxaddstring "instrument1 [28 Electric Guitar (muted)] listboxaddstring "instrument1 [29 Overdriven Guitar] listboxaddstring "instrument1 [30 Distortion Guitar] listboxaddstring "instrument1 [31 Guitar Harmonics] listboxaddstring "instrument1 [32 Acoustic Bass] listboxaddstring "instrument1 [33 Electric Bass (finger)] listboxaddstring "instrument1 [34 Electric Bass (pick)] listboxaddstring "instrument1 [35 Fretless Bass] listboxaddstring "instrument1 [36 Slap Bass 1] listboxaddstring "instrument1 [37 Slap Bass 2] listboxaddstring "instrument1 [38 Synth Bass 1] listboxaddstring "instrument1 [39 Synth Bass 2] listboxaddstring "instrument1 [40 Violin] listboxaddstring "instrument1 [41 Viola] listboxaddstring "instrument1 [42 Cello] listboxaddstring "instrument1 [43 Contrabass] listboxaddstring "instrument1 [44 Tremolo Strings] listboxaddstring "instrument1 [45 Pizzicato Strings] listboxaddstring "instrument1 [46 Orchestral Harp] listboxaddstring "instrument1 [47 Timpani] listboxaddstring "instrument1 [48 String Ensemble 1] listboxaddstring "instrument1 [49 String Ensemble 2] listboxaddstring "instrument1 [50 Synth Strings 1] listboxaddstring "instrument1 [51 Synth Strings 2] listboxaddstring "instrument1 [52 Choir Aahs] listboxaddstring "instrument1 [53 Voice Oohs] listboxaddstring "instrument1 [54 Synth Voice] listboxaddstring "instrument1 [55 Orchestra Hit] listboxaddstring "instrument1 [56 Trumpet] listboxaddstring "instrument1 [57 Trombone] listboxaddstring "instrument1 [58 Tuba] listboxaddstring "instrument1 [59 Muted Trumpet] listboxaddstring "instrument1 [60 French Horn] listboxaddstring "instrument1 [61 Brass Section] listboxaddstring "instrument1 [62 Synth Brass 1] listboxaddstring "instrument1 [63 Synth Brass 2] listboxaddstring "instrument1 [64 Soprano Sax] listboxaddstring "instrument1 [65 Alto Sax] listboxaddstring "instrument1 [66 Tenor Sax] listboxaddstring "instrument1 [67 Baritone Sax] listboxaddstring "instrument1 [68 Oboe] listboxaddstring "instrument1 [69 English Horn] listboxaddstring "instrument1 [70 Bassoon] listboxaddstring "instrument1 [71 Clarinet] listboxaddstring "instrument1 [72 Piccolo] listboxaddstring "instrument1 [73 Flute] listboxaddstring "instrument1 [74 Recorder] listboxaddstring "instrument1 [75 Pan Flute] listboxaddstring "instrument1 [76 Bottle Blow] listboxaddstring "instrument1 [77 Shakuhachi] listboxaddstring "instrument1 [78 Whistle] listboxaddstring "instrument1 [79 Ocarina] listboxaddstring "instrument1 [80 Lead 1 (square)] listboxaddstring "instrument1 [81 Lead 2 (sawtooth)] listboxaddstring "instrument1 [82 Lead 3 (caliope lead)] listboxaddstring "instrument1 [83 Lead 4 (chiff lead)] listboxaddstring "instrument1 [84 Lead 5 (charang)] listboxaddstring "instrument1 [85 Lead 6 (voice)] listboxaddstring "instrument1 [86 Lead 7 (fifths)] listboxaddstring "instrument1 [87 Lead 8 (brass + lead)] listboxaddstring "instrument1 [88 Pad 1 (new age)] listboxaddstring "instrument1 [89 Pad 2 (warm)] listboxaddstring "instrument1 [90 Pad 3 (polysynth)] listboxaddstring "instrument1 [91 Pad 4 (choir)] listboxaddstring "instrument1 [92 Pad 5 (bowed)] listboxaddstring "instrument1 [93 Pad 6 (metallic)] listboxaddstring "instrument1 [94 Pad 7 (halo)] listboxaddstring "instrument1 [95 Pad 8 (sweep)] listboxaddstring "instrument1 [96 FX 1 (rain)] listboxaddstring "instrument1 [97 FX 2 (soundtrack)] listboxaddstring "instrument1 [98 FX 3 (crystal)] listboxaddstring "instrument1 [99 FX 4 (atmosphere)] listboxaddstring "instrument1 [100 FX 5 (brightness)] listboxaddstring "instrument1 [101 FX 6 (goblins)] listboxaddstring "instrument1 [102 FX 7 (echoes)] listboxaddstring "instrument1 [103 FX 8 (sci-fi)] listboxaddstring "instrument1 [104 Sitar] listboxaddstring "instrument1 [105 Banjo] listboxaddstring "instrument1 [106 Shamisen] listboxaddstring "instrument1 [107 Koto] listboxaddstring "instrument1 [108 Kalimba] listboxaddstring "instrument1 [109 Bagpipe] listboxaddstring "instrument1 [110 Fiddle] listboxaddstring "instrument1 [111 Shanai] listboxaddstring "instrument1 [112 Tinkle Bell] listboxaddstring "instrument1 [113 Agogo] listboxaddstring "instrument1 [114 Steel Drums] listboxaddstring "instrument1 [115 Woodblock] listboxaddstring "instrument1 [116 Taiko Drum] listboxaddstring "instrument1 [117 Melodic Tom] listboxaddstring "instrument1 [118 Synth Drum] listboxaddstring "instrument1 [119 Reverse Cymbal] listboxaddstring "instrument1 [120 Guitar Fret Noise] listboxaddstring "instrument1 [121 Breath Noise] listboxaddstring "instrument1 [122 Seashore] listboxaddstring "instrument1 [123 Bird Tweet] listboxaddstring "instrument1 [124 Telephone Ring] listboxaddstring "instrument1 [125 Helicopter] listboxaddstring "instrument1 [126 Applause] listboxaddstring "instrument1 [127 Gunshot] listboxaddstring "instrument2 [0 Acoustic Grand Piano] listboxaddstring "instrument2 [1 Bright Acoustic Piano] listboxaddstring "instrument2 [2 Electric Grand Piano] listboxaddstring "instrument2 [3 Honky-tonk Piano] listboxaddstring "instrument2 [4 Rhodes Piano] listboxaddstring "instrument2 [5 Chorused Piano] listboxaddstring "instrument2 [6 Harpsichord] listboxaddstring "instrument2 [7 Clavinet] listboxaddstring "instrument2 [8 Celesta] listboxaddstring "instrument2 [9 Glockenspiel] listboxaddstring "instrument2 [10 Music box] listboxaddstring "instrument2 [11 Vibraphone] listboxaddstring "instrument2 [12 Marimba] listboxaddstring "instrument2 [13 Xylophone] listboxaddstring "instrument2 [14 Tubular Bells] listboxaddstring "instrument2 [15 Dulcimer] listboxaddstring "instrument2 [16 Hammond Organ] listboxaddstring "instrument2 [17 Percussive Organ] listboxaddstring "instrument2 [18 Rock Organ] listboxaddstring "instrument2 [19 Church Organ] listboxaddstring "instrument2 [20 Reed Organ] listboxaddstring "instrument2 [21 Accordian] listboxaddstring "instrument2 [22 Harmonica] listboxaddstring "instrument2 [23 Tango Accordian] listboxaddstring "instrument2 [24 Acoustic Guitar (nylon)] listboxaddstring "instrument2 [25 Acoustic Guitar (steel)] listboxaddstring "instrument2 [26 Electric Guitar (jazz)] listboxaddstring "instrument2 [27 Electric Guitar (clean)] listboxaddstring "instrument2 [28 Electric Guitar (muted)] listboxaddstring "instrument2 [29 Overdriven Guitar] listboxaddstring "instrument2 [30 Distortion Guitar] listboxaddstring "instrument2 [31 Guitar Harmonics] listboxaddstring "instrument2 [32 Acoustic Bass] listboxaddstring "instrument2 [33 Electric Bass (finger)] listboxaddstring "instrument2 [34 Electric Bass (pick)] listboxaddstring "instrument2 [35 Fretless Bass] listboxaddstring "instrument2 [36 Slap Bass 1] listboxaddstring "instrument2 [37 Slap Bass 2] listboxaddstring "instrument2 [38 Synth Bass 1] listboxaddstring "instrument2 [39 Synth Bass 2] listboxaddstring "instrument2 [40 Violin] listboxaddstring "instrument2 [41 Viola] listboxaddstring "instrument2 [42 Cello] listboxaddstring "instrument2 [43 Contrabass] listboxaddstring "instrument2 [44 Tremolo Strings] listboxaddstring "instrument2 [45 Pizzicato Strings] listboxaddstring "instrument2 [46 Orchestral Harp] listboxaddstring "instrument2 [47 Timpani] listboxaddstring "instrument2 [48 String Ensemble 1] listboxaddstring "instrument2 [49 String Ensemble 2] listboxaddstring "instrument2 [50 Synth Strings 1] listboxaddstring "instrument2 [51 Synth Strings 2] listboxaddstring "instrument2 [52 Choir Aahs] listboxaddstring "instrument2 [53 Voice Oohs] listboxaddstring "instrument2 [54 Synth Voice] listboxaddstring "instrument2 [55 Orchestra Hit] listboxaddstring "instrument2 [56 Trumpet] listboxaddstring "instrument2 [57 Trombone] listboxaddstring "instrument2 [58 Tuba] listboxaddstring "instrument2 [59 Muted Trumpet] listboxaddstring "instrument2 [60 French Horn] listboxaddstring "instrument2 [61 Brass Section] listboxaddstring "instrument2 [62 Synth Brass 1] listboxaddstring "instrument2 [63 Synth Brass 2] listboxaddstring "instrument2 [64 Soprano Sax] listboxaddstring "instrument2 [65 Alto Sax] listboxaddstring "instrument2 [66 Tenor Sax] listboxaddstring "instrument2 [67 Baritone Sax] listboxaddstring "instrument2 [68 Oboe] listboxaddstring "instrument2 [69 English Horn] listboxaddstring "instrument2 [70 Bassoon] listboxaddstring "instrument2 [71 Clarinet] listboxaddstring "instrument2 [72 Piccolo] listboxaddstring "instrument2 [73 Flute] listboxaddstring "instrument2 [74 Recorder] listboxaddstring "instrument2 [75 Pan Flute] listboxaddstring "instrument2 [76 Bottle Blow] listboxaddstring "instrument2 [77 Shakuhachi] listboxaddstring "instrument2 [78 Whistle] listboxaddstring "instrument2 [79 Ocarina] listboxaddstring "instrument2 [80 Lead 1 (square)] listboxaddstring "instrument2 [81 Lead 2 (sawtooth)] listboxaddstring "instrument2 [82 Lead 3 (caliope lead)] listboxaddstring "instrument2 [83 Lead 4 (chiff lead)] listboxaddstring "instrument2 [84 Lead 5 (charang)] listboxaddstring "instrument2 [85 Lead 6 (voice)] listboxaddstring "instrument2 [86 Lead 7 (fifths)] listboxaddstring "instrument2 [87 Lead 8 (brass + lead)] listboxaddstring "instrument2 [88 Pad 1 (new age)] listboxaddstring "instrument2 [89 Pad 2 (warm)] listboxaddstring "instrument2 [90 Pad 3 (polysynth)] listboxaddstring "instrument2 [91 Pad 4 (choir)] listboxaddstring "instrument2 [92 Pad 5 (bowed)] listboxaddstring "instrument2 [93 Pad 6 (metallic)] listboxaddstring "instrument2 [94 Pad 7 (halo)] listboxaddstring "instrument2 [95 Pad 8 (sweep)] listboxaddstring "instrument2 [96 FX 1 (rain)] listboxaddstring "instrument2 [97 FX 2 (soundtrack)] listboxaddstring "instrument2 [98 FX 3 (crystal)] listboxaddstring "instrument2 [99 FX 4 (atmosphere)] listboxaddstring "instrument2 [100 FX 5 (brightness)] listboxaddstring "instrument2 [101 FX 6 (goblins)] listboxaddstring "instrument2 [102 FX 7 (echoes)] listboxaddstring "instrument2 [103 FX 8 (sci-fi)] listboxaddstring "instrument2 [104 Sitar] listboxaddstring "instrument2 [105 Banjo] listboxaddstring "instrument2 [106 Shamisen] listboxaddstring "instrument2 [107 Koto] listboxaddstring "instrument2 [108 Kalimba] listboxaddstring "instrument2 [109 Bagpipe] listboxaddstring "instrument2 [110 Fiddle] listboxaddstring "instrument2 [111 Shanai] listboxaddstring "instrument2 [112 Tinkle Bell] listboxaddstring "instrument2 [113 Agogo] listboxaddstring "instrument2 [114 Steel Drums] listboxaddstring "instrument2 [115 Woodblock] listboxaddstring "instrument2 [116 Taiko Drum] listboxaddstring "instrument2 [117 Melodic Tom] listboxaddstring "instrument2 [118 Synth Drum] listboxaddstring "instrument2 [119 Reverse Cymbal] listboxaddstring "instrument2 [120 Guitar Fret Noise] listboxaddstring "instrument2 [121 Breath Noise] listboxaddstring "instrument2 [122 Seashore] listboxaddstring "instrument2 [123 Bird Tweet] listboxaddstring "instrument2 [124 Telephone Ring] listboxaddstring "instrument2 [125 Helicopter] listboxaddstring "instrument2 [126 Applause] listboxaddstring "instrument2 [127 Gunshot] listboxaddstring "instrument3[0 Acoustic Grand Piano] listboxaddstring "instrument3[1 Bright Acoustic Piano] listboxaddstring "instrument3[2 Electric Grand Piano] listboxaddstring "instrument3[3 Honky-tonk Piano] listboxaddstring "instrument3[4 Rhodes Piano] listboxaddstring "instrument3[5 Chorused Piano] listboxaddstring "instrument3[6 Harpsichord] listboxaddstring "instrument3[7 Clavinet] listboxaddstring "instrument3[8 Celesta] listboxaddstring "instrument3[9 Glockenspiel] listboxaddstring "instrument3[10 Music box] listboxaddstring "instrument3[11 Vibraphone] listboxaddstring "instrument3[12 Marimba] listboxaddstring "instrument3[13 Xylophone] listboxaddstring "instrument3[14 Tubular Bells] listboxaddstring "instrument3[15 Dulcimer] listboxaddstring "instrument3[16 Hammond Organ] listboxaddstring "instrument3[17 Percussive Organ] listboxaddstring "instrument3[18 Rock Organ] listboxaddstring "instrument3[19 Church Organ] listboxaddstring "instrument3[20 Reed Organ] listboxaddstring "instrument3[21 Accordian] listboxaddstring "instrument3[22 Harmonica] listboxaddstring "instrument3[23 Tango Accordian] listboxaddstring "instrument3[24 Acoustic Guitar (nylon)] listboxaddstring "instrument3[25 Acoustic Guitar (steel)] listboxaddstring "instrument3[26 Electric Guitar (jazz)] listboxaddstring "instrument3[27 Electric Guitar (clean)] listboxaddstring "instrument3[28 Electric Guitar (muted)] listboxaddstring "instrument3[29 Overdriven Guitar] listboxaddstring "instrument3[30 Distortion Guitar] listboxaddstring "instrument3[31 Guitar Harmonics] listboxaddstring "instrument3[32 Acoustic Bass] listboxaddstring "instrument3[33 Electric Bass (finger)] listboxaddstring "instrument3[34 Electric Bass (pick)] listboxaddstring "instrument3[35 Fretless Bass] listboxaddstring "instrument3[36 Slap Bass 1] listboxaddstring "instrument3[37 Slap Bass 2] listboxaddstring "instrument3[38 Synth Bass 1] listboxaddstring "instrument3[39 Synth Bass 2] listboxaddstring "instrument3[40 Violin] listboxaddstring "instrument3[41 Viola] listboxaddstring "instrument3[42 Cello] listboxaddstring "instrument3[43 Contrabass] listboxaddstring "instrument3[44 Tremolo Strings] listboxaddstring "instrument3[45 Pizzicato Strings] listboxaddstring "instrument3[46 Orchestral Harp] listboxaddstring "instrument3[47 Timpani] listboxaddstring "instrument3[48 String Ensemble 1] listboxaddstring "instrument3[49 String Ensemble 2] listboxaddstring "instrument3[50 Synth Strings 1] listboxaddstring "instrument3[51 Synth Strings 2] listboxaddstring "instrument3[52 Choir Aahs] listboxaddstring "instrument3[53 Voice Oohs] listboxaddstring "instrument3[54 Synth Voice] listboxaddstring "instrument3[55 Orchestra Hit] listboxaddstring "instrument3[56 Trumpet] listboxaddstring "instrument3[57 Trombone] listboxaddstring "instrument3[58 Tuba] listboxaddstring "instrument3[59 Muted Trumpet] listboxaddstring "instrument3[60 French Horn] listboxaddstring "instrument3[61 Brass Section] listboxaddstring "instrument3[62 Synth Brass 1] listboxaddstring "instrument3[63 Synth Brass 2] listboxaddstring "instrument3[64 Soprano Sax] listboxaddstring "instrument3[65 Alto Sax] listboxaddstring "instrument3[66 Tenor Sax] listboxaddstring "instrument3[67 Baritone Sax] listboxaddstring "instrument3[68 Oboe] listboxaddstring "instrument3[69 English Horn] listboxaddstring "instrument3[70 Bassoon] listboxaddstring "instrument3[71 Clarinet] listboxaddstring "instrument3[72 Piccolo] listboxaddstring "instrument3[73 Flute] listboxaddstring "instrument3[74 Recorder] listboxaddstring "instrument3[75 Pan Flute] listboxaddstring "instrument3[76 Bottle Blow] listboxaddstring "instrument3[77 Shakuhachi] listboxaddstring "instrument3[78 Whistle] listboxaddstring "instrument3[79 Ocarina] listboxaddstring "instrument3[80 Lead 1 (square)] listboxaddstring "instrument3[81 Lead 2 (sawtooth)] listboxaddstring "instrument3[82 Lead 3 (caliope lead)] listboxaddstring "instrument3[83 Lead 4 (chiff lead)] listboxaddstring "instrument3[84 Lead 5 (charang)] listboxaddstring "instrument3[85 Lead 6 (voice)] listboxaddstring "instrument3[86 Lead 7 (fifths)] listboxaddstring "instrument3[87 Lead 8 (brass + lead)] listboxaddstring "instrument3[88 Pad 1 (new age)] listboxaddstring "instrument3[89 Pad 2 (warm)] listboxaddstring "instrument3[90 Pad 3 (polysynth)] listboxaddstring "instrument3[91 Pad 4 (choir)] listboxaddstring "instrument3[92 Pad 5 (bowed)] listboxaddstring "instrument3[93 Pad 6 (metallic)] listboxaddstring "instrument3[94 Pad 7 (halo)] listboxaddstring "instrument3[95 Pad 8 (sweep)] listboxaddstring "instrument3[96 FX 1 (rain)] listboxaddstring "instrument3[97 FX 2 (soundtrack)] listboxaddstring "instrument3[98 FX 3 (crystal)] listboxaddstring "instrument3[99 FX 4 (atmosphere)] listboxaddstring "instrument3[100 FX 5 (brightness)] listboxaddstring "instrument3[101 FX 6 (goblins)] listboxaddstring "instrument3[102 FX 7 (echoes)] listboxaddstring "instrument3[103 FX 8 (sci-fi)] listboxaddstring "instrument3[104 Sitar] listboxaddstring "instrument3[105 Banjo] listboxaddstring "instrument3[106 Shamisen] listboxaddstring "instrument3[107 Koto] listboxaddstring "instrument3[108 Kalimba] listboxaddstring "instrument3[109 Bagpipe] listboxaddstring "instrument3[110 Fiddle] listboxaddstring "instrument3[111 Shanai] listboxaddstring "instrument3[112 Tinkle Bell] listboxaddstring "instrument3[113 Agogo] listboxaddstring "instrument3[114 Steel Drums] listboxaddstring "instrument3[115 Woodblock] listboxaddstring "instrument3[116 Taiko Drum] listboxaddstring "instrument3[117 Melodic Tom] listboxaddstring "instrument3[118 Synth Drum] listboxaddstring "instrument3[119 Reverse Cymbal] listboxaddstring "instrument3[120 Guitar Fret Noise] listboxaddstring "instrument3[121 Breath Noise] listboxaddstring "instrument3[122 Seashore] listboxaddstring "instrument3[123 Bird Tweet] listboxaddstring "instrument3[124 Telephone Ring] listboxaddstring "instrument3[125 Helicopter] listboxaddstring "instrument3[126 Applause] listboxaddstring "instrument3[127 Gunshot] listboxaddstring "instrument4[0 Acoustic Grand Piano] listboxaddstring "instrument4[1 Bright Acoustic Piano] listboxaddstring "instrument4[2 Electric Grand Piano] listboxaddstring "instrument4[3 Honky-tonk Piano] listboxaddstring "instrument4[4 Rhodes Piano] listboxaddstring "instrument4[5 Chorused Piano] listboxaddstring "instrument4[6 Harpsichord] listboxaddstring "instrument4[7 Clavinet] listboxaddstring "instrument4[8 Celesta] listboxaddstring "instrument4[9 Glockenspiel] listboxaddstring "instrument4[10 Music box] listboxaddstring "instrument4[11 Vibraphone] listboxaddstring "instrument4[12 Marimba] listboxaddstring "instrument4[13 Xylophone] listboxaddstring "instrument4[14 Tubular Bells] listboxaddstring "instrument4[15 Dulcimer] listboxaddstring "instrument4[16 Hammond Organ] listboxaddstring "instrument4[17 Percussive Organ] listboxaddstring "instrument4[18 Rock Organ] listboxaddstring "instrument4[19 Church Organ] listboxaddstring "instrument4[20 Reed Organ] listboxaddstring "instrument4[21 Accordian] listboxaddstring "instrument4[22 Harmonica] listboxaddstring "instrument4[23 Tango Accordian] listboxaddstring "instrument4[24 Acoustic Guitar (nylon)] listboxaddstring "instrument4[25 Acoustic Guitar (steel)] listboxaddstring "instrument4[26 Electric Guitar (jazz)] listboxaddstring "instrument4[27 Electric Guitar (clean)] listboxaddstring "instrument4[28 Electric Guitar (muted)] listboxaddstring "instrument4[29 Overdriven Guitar] listboxaddstring "instrument4[30 Distortion Guitar] listboxaddstring "instrument4[31 Guitar Harmonics] listboxaddstring "instrument4[32 Acoustic Bass] listboxaddstring "instrument4[33 Electric Bass (finger)] listboxaddstring "instrument4[34 Electric Bass (pick)] listboxaddstring "instrument4[35 Fretless Bass] listboxaddstring "instrument4[36 Slap Bass 1] listboxaddstring "instrument4[37 Slap Bass 2] listboxaddstring "instrument4[38 Synth Bass 1] listboxaddstring "instrument4[39 Synth Bass 2] listboxaddstring "instrument4[40 Violin] listboxaddstring "instrument4[41 Viola] listboxaddstring "instrument4[42 Cello] listboxaddstring "instrument4[43 Contrabass] listboxaddstring "instrument4[44 Tremolo Strings] listboxaddstring "instrument4[45 Pizzicato Strings] listboxaddstring "instrument4[46 Orchestral Harp] listboxaddstring "instrument4[47 Timpani] listboxaddstring "instrument4[48 String Ensemble 1] listboxaddstring "instrument4[49 String Ensemble 2] listboxaddstring "instrument4[50 Synth Strings 1] listboxaddstring "instrument4[51 Synth Strings 2] listboxaddstring "instrument4[52 Choir Aahs] listboxaddstring "instrument4[53 Voice Oohs] listboxaddstring "instrument4[54 Synth Voice] listboxaddstring "instrument4[55 Orchestra Hit] listboxaddstring "instrument4[56 Trumpet] listboxaddstring "instrument4[57 Trombone] listboxaddstring "instrument4[58 Tuba] listboxaddstring "instrument4[59 Muted Trumpet] listboxaddstring "instrument4[60 French Horn] listboxaddstring "instrument4[61 Brass Section] listboxaddstring "instrument4[62 Synth Brass 1] listboxaddstring "instrument4[63 Synth Brass 2] listboxaddstring "instrument4[64 Soprano Sax] listboxaddstring "instrument4[65 Alto Sax] listboxaddstring "instrument4[66 Tenor Sax] listboxaddstring "instrument4[67 Baritone Sax] listboxaddstring "instrument4[68 Oboe] listboxaddstring "instrument4[69 English Horn] listboxaddstring "instrument4[70 Bassoon] listboxaddstring "instrument4[71 Clarinet] listboxaddstring "instrument4[72 Piccolo] listboxaddstring "instrument4[73 Flute] listboxaddstring "instrument4[74 Recorder] listboxaddstring "instrument4[75 Pan Flute] listboxaddstring "instrument4[76 Bottle Blow] listboxaddstring "instrument4[77 Shakuhachi] listboxaddstring "instrument4[78 Whistle] listboxaddstring "instrument4[79 Ocarina] listboxaddstring "instrument4[80 Lead 1 (square)] listboxaddstring "instrument4[81 Lead 2 (sawtooth)] listboxaddstring "instrument4[82 Lead 3 (caliope lead)] listboxaddstring "instrument4[83 Lead 4 (chiff lead)] listboxaddstring "instrument4[84 Lead 5 (charang)] listboxaddstring "instrument4[85 Lead 6 (voice)] listboxaddstring "instrument4[86 Lead 7 (fifths)] listboxaddstring "instrument4[87 Lead 8 (brass + lead)] listboxaddstring "instrument4[88 Pad 1 (new age)] listboxaddstring "instrument4[89 Pad 2 (warm)] listboxaddstring "instrument4[90 Pad 3 (polysynth)] listboxaddstring "instrument4[91 Pad 4 (choir)] listboxaddstring "instrument4[92 Pad 5 (bowed)] listboxaddstring "instrument4[93 Pad 6 (metallic)] listboxaddstring "instrument4[94 Pad 7 (halo)] listboxaddstring "instrument4[95 Pad 8 (sweep)] listboxaddstring "instrument4[96 FX 1 (rain)] listboxaddstring "instrument4[97 FX 2 (soundtrack)] listboxaddstring "instrument4[98 FX 3 (crystal)] listboxaddstring "instrument4[99 FX 4 (atmosphere)] listboxaddstring "instrument4[100 FX 5 (brightness)] listboxaddstring "instrument4[101 FX 6 (goblins)] listboxaddstring "instrument4[102 FX 7 (echoes)] listboxaddstring "instrument4[103 FX 8 (sci-fi)] listboxaddstring "instrument4[104 Sitar] listboxaddstring "instrument4[105 Banjo] listboxaddstring "instrument4[106 Shamisen] listboxaddstring "instrument4[107 Koto] listboxaddstring "instrument4[108 Kalimba] listboxaddstring "instrument4[109 Bagpipe] listboxaddstring "instrument4[110 Fiddle] listboxaddstring "instrument4[111 Shanai] listboxaddstring "instrument4[112 Tinkle Bell] listboxaddstring "instrument4[113 Agogo] listboxaddstring "instrument4[114 Steel Drums] listboxaddstring "instrument4[115 Woodblock] listboxaddstring "instrument4[116 Taiko Drum] listboxaddstring "instrument4[117 Melodic Tom] listboxaddstring "instrument4[118 Synth Drum] listboxaddstring "instrument4[119 Reverse Cymbal] listboxaddstring "instrument4[120 Guitar Fret Noise] listboxaddstring "instrument4[121 Breath Noise] listboxaddstring "instrument4[122 Seashore] listboxaddstring "instrument4[123 Bird Tweet] listboxaddstring "instrument4[124 Telephone Ring] listboxaddstring "instrument4[125 Helicopter] listboxaddstring "instrument4[126 Applause] listboxaddstring "instrument4[127 Gunshot] scrollbarset "sc1vol 1 127 1 ;Volume Line1 scrollbarset "sc1oct 1 8 6 ;Octave Line1 scrollbarset "sc2vol 1 127 1 ;Volume Line2 scrollbarset "sc2oct 1 8 6 ;Octave Line2 scrollbarset "sc3vol 1 127 1 ;Volume Line3 scrollbarset "sc3oct 1 8 6 ;Octave Line3 scrollbarset "sc4vol 1 127 1 ;Volume Line4 scrollbarset "sc4oct 1 8 6 ;Octave Line4 volu octa inst end to midisetup groupboxcreate "main [group3] 7 0 380 20 scrollbarcreate "main [sc1vol] 45 25 10 40 [volu] scrollbarcreate "main [sc1oct] 45 85 10 40 [octa] scrollbarcreate "main [sc2vol] 145 25 10 40 [volu] scrollbarcreate "main [sc2oct] 145 85 10 40 [octa] scrollbarcreate "main [sc3vol] 245 25 10 40 [volu] scrollbarcreate "main [sc3oct] 245 85 10 40 [octa] scrollbarcreate "main [sc4vol] 345 25 10 40 [volu] scrollbarcreate "main [sc4oct] 345 85 10 40 [octa] listboxcreate "main [instrument1] 0 140 95 100 listboxcreate "main [instrument2] 100 140 95 100 listboxcreate "main [instrument3] 200 140 95 100 listboxcreate "main [instrument4] 300 140 95 100 buttoncreate "main [b1a] [Select] 20 240 50 10 [inst] buttoncreate "main [b1b] [Play] 20 252 50 10 [midimessage (list 144+1 :octa1 :volu1)] buttoncreate "main [b2a] [Select] 120 240 50 10 [inst] buttoncreate "main [b2b] [Play] 120 252 50 10 [midimessage (list 144+2 :octa2 :volu2)] buttoncreate "main [b3a] [Select] 220 240 50 10 [inst] buttoncreate "main [b3b] [Play] 220 252 50 10 [midimessage (list 144+3 :octa3 :volu3)] buttoncreate "main [b4a] [Select] 320 240 50 10 [inst] buttoncreate "main [b4b] [Play] 320 252 50 10 [midimessage (list 144+4 :octa4 :volu4)] buttoncreate "main [b3] [End] 150 263 100 10 [myend] staticcreate "main [st1vol] [Volume1] 30 65 60 10 staticcreate "main [st1oct] [Octave1] 30 125 60 10 staticcreate "main [st2vol] [Volume2] 130 65 60 10 staticcreate "main [st2oct] [Octave2] 130 125 60 10 staticcreate "main [st3vol] [Volume3] 230 65 60 10 staticcreate "main [st3oct] [Octave3] 230 125 60 10 staticcreate "main [st4vol] [Volume4] 330 65 60 10 staticcreate "main [st4oct] [Octave4] 330 125 60 10 staticcreate "main [st4] [Four Channel MIDI Control] 150 7 100 10 end to myend ; Closes the MIDI session and the main window. midiclose windowdelete "main end to octa ; Octave (frequency) make "octa1 12-scrollbarget "sc1oct staticupdate "st1oct (list "Octave1 "C :octa1-3) make "octa1 ((:octa1*12)-12) make "octa2 12-scrollbarget "sc2oct staticupdate "st2oct (list "Octave2 "C :octa2-3) make "octa2 ((:octa2*12)-12) make "octa3 12-scrollbarget "sc3oct staticupdate "st3oct (list "Octave3 "C :octa3-3) make "octa3 ((:octa3*12)-12) make "octa4 12-scrollbarget "sc4oct staticupdate "st4oct (list "Octave4 "C :octa4-3) make "octa4 ((:octa4*12)-12) setfocus [MswLogo Screen] end to volu ; Volume ; local "volu make "volu1 128-scrollbarget "sc1vol staticupdate "st1vol (list "Volume1 :volu1) midimessage (list 176+1 7 :volu1) make "volu2 128-scrollbarget "sc2vol staticupdate "st2vol (list "Volume2 :volu2) midimessage (list 176+1 7 :volu2) make "volu3 128-scrollbarget "sc3vol staticupdate "st3vol (list "Volume3 :volu3) midimessage (list 176+1 7 :volu3) make "volu4 128-scrollbarget "sc4vol staticupdate "st4vol (list "Volume4 :volu4) midimessage (list 176+1 7 :volu4) setfocus [MswLogo Screen] end Make "inst1 [9 Glockenspiel] Make "inst2 [8 Celesta] Make "inst3 [10 Music box] Make "inst4 [0 Acoustic Grand Piano] Make "octa1 60 Make "octa2 84 Make "octa3 120 Make "octa4 60 Make "volu1 127 Make "volu2 127 Make "volu3 127 Make "volu4 127