Igranje na inštrumente

to midi
   windowcreate "root "main "MIDI 0 0 185 203 []

   groupboxcreate "main "gr1 5 3 173 60
   staticcreate "main "t1 "Snemanje: 10 12 50 10
   buttoncreate "main "brec "Začni 50 10 40 12 [recordstart]
   buttoncreate "main "bstop "Ustavi 95 10 40 12 [recordstop]
   staticcreate "main "t2 "Oktava: 10 30 40 10
   staticcreate "main "t3 "Kanal: 10 40 40 10
   staticcreate "main "t4 "Jakost: 10 50 40 10
   scrollbarcreate "main "bar1 40 30 100 10 [oktava]
   scrollbarcreate "main "bar2 40 40 100 10 [kanal]
   scrollbarcreate "main "bar3 40 50 100 10 [jakost]
   staticcreate "main "t5 [] 145 30 15 10
   staticcreate "main "t6 [] 145 40 15 10
   staticcreate "main "t7 [] 145 50 15 10

   groupboxcreate "main "gr2 5 65 173 40
   buttoncreate "main "k01 "G# 20 75 11 11 []
   buttoncreate "main "k02 "A# 32 75 11 11 []
   buttoncreate "main "k03 "C# 56 75 11 11 []
   buttoncreate "main "k04 "D# 68 75 11 11 []
   buttoncreate "main "k05 "E# 92 75 11 11 []
   buttoncreate "main "k06 "G# 104 75 11 11 []
   buttoncreate "main "k07 "A# 116 75 11 11 []
   buttoncreate "main "k08 "C# 140 75 11 11 []
   buttoncreate "main "k09 "A 26 87 11 11 []
   buttoncreate "main "k10 "B 38 87 11 11 []
   buttoncreate "main "k11 "C 50 87 11 11 []
   buttoncreate "main "k12 "D 62 87 11 11 []
   buttoncreate "main "k13 "E 74 87 11 11 []
   buttoncreate "main "k14 "F 86 87 11 11 []
   buttoncreate "main "k15 "G 98 87 11 11 []
   buttoncreate "main "k16 "A 110 87 11 11 []
   buttoncreate "main "k17 "B 122 87 11 11 []
   buttoncreate "main "k18 "C 134 87 11 11 []

   groupboxcreate "main "gr3 5 107 173 63
   staticcreate "main "t8 "Predvajanje: 10 116 50 10
   buttoncreate "main "bplay "Začni 55 114 40 12 [recordplay]
   staticcreate "main "t9 "Hitrost: 10 134 50 10
   staticcreate "main "t10 "Glasnost: 10 144 50 10
   staticcreate "main "t11 "Inštrument: 10 157 50 10
   scrollbarcreate "main "bar4 50 134 90 10 [hitrost]
   scrollbarcreate "main "bar5 50 144 90 10 [glasnost]
   staticcreate "main "t12 [] 145 134 15 10
   staticcreate "main "t13 [] 145 144 15 10
   listboxcreate "main "foo 50 156 90 12
   buttoncreate "main "bins "Izberi 142 155 30 12 [inštrument]

   buttoncreate "main "bload "Odpri 10 175 45 12 [odpri]
   buttoncreate "main "bsave "Shrani 60 175 45 12 [shrani]
   buttoncreate "main "bend "Končaj 126 175 45 12 [windowdelete "main]

   listboxaddstring "foo [000 Acoustic Grand Piano]
   listboxaddstring "foo [001 Bright Acoustic Piano]
   listboxaddstring "foo [002 Electric Grand Piano]
   listboxaddstring "foo [003 Honky-tonk Piano]
   listboxaddstring "foo [004 Rhodes Piano]
   listboxaddstring "foo [005 Chorused Piano]
   listboxaddstring "foo [006 Harpsichord]
   listboxaddstring "foo [007 Clavinet]
   listboxaddstring "foo [008 Celesta]
   listboxaddstring "foo [009 Glockenspiel]
   listboxaddstring "foo [010 Music box]
   listboxaddstring "foo [011 Vibraphone]
   listboxaddstring "foo [012 Marimba]
   listboxaddstring "foo [013 Xylophone]
   listboxaddstring "foo [014 Tubular Bells]
   listboxaddstring "foo [015 Dulcimer]
   listboxaddstring "foo [016 Hammond Organ]
   listboxaddstring "foo [017 Percussive Organ]
   listboxaddstring "foo [018 Rock Organ]
   listboxaddstring "foo [019 Church Organ]
   listboxaddstring "foo [020 Reed Organ]
   listboxaddstring "foo [021 Accordian]
   listboxaddstring "foo [022 Harmonica]
   listboxaddstring "foo [023 Tango Accordian]
   listboxaddstring "foo [024 Acoustic Guitar (nylon)]
   listboxaddstring "foo [025 Acoustic Guitar (steel)]
   listboxaddstring "foo [026 Electric Guitar (jazz)]
   listboxaddstring "foo [027 Electric Guitar (clean)]
   listboxaddstring "foo [028 Electric Guitar (muted)]
   listboxaddstring "foo [029 Overdriven Guitar]
   listboxaddstring "foo [030 Distortion Guitar]
   listboxaddstring "foo [031 Guitar Harmonics]
   listboxaddstring "foo [032 Acoustic Bass]
   listboxaddstring "foo [033 Electric Bass (finger)]
   listboxaddstring "foo [034 Electric Bass (pick)]
   listboxaddstring "foo [035 Fretless Bass]
   listboxaddstring "foo [036 Slap Bass 1]
   listboxaddstring "foo [037 Slap Bass 2]
   listboxaddstring "foo [038 Synth Bass 1]
   listboxaddstring "foo [039 Synth Bass 2]
   listboxaddstring "foo [040 Violin]
   listboxaddstring "foo [041 Viola]
   listboxaddstring "foo [042 Cello]
   listboxaddstring "foo [043 Contrabass]
   listboxaddstring "foo [044 Tremolo Strings]
   listboxaddstring "foo [045 Pizzicato Strings]
   listboxaddstring "foo [046 Orchestral Harp]
   listboxaddstring "foo [047 Timpani]
   listboxaddstring "foo [048 String Ensemble 1]
   listboxaddstring "foo [049 String Ensemble 2]
   listboxaddstring "foo [050 Synth Strings 1]
   listboxaddstring "foo [051 Synth Strings 2]
   listboxaddstring "foo [052 Choir Aahs]
   listboxaddstring "foo [053 Voice Oohs]
   listboxaddstring "foo [054 Synth Voice]
   listboxaddstring "foo [055 Orchestra Hit]
   listboxaddstring "foo [056 Trumpet]
   listboxaddstring "foo [057 Trombone]
   listboxaddstring "foo [058 Tuba]
   listboxaddstring "foo [059 Muted Trumpet]
   listboxaddstring "foo [060 French Horn]
   listboxaddstring "foo [061 Brass Section]
   listboxaddstring "foo [062 Synth Brass 1]
   listboxaddstring "foo [063 Synth Brass 2]
   listboxaddstring "foo [064 Soprano Sax]
   listboxaddstring "foo [065 Alto Sax]
   listboxaddstring "foo [066 Tenor Sax]
   listboxaddstring "foo [067 Baritone Sax]
   listboxaddstring "foo [068 Oboe]
   listboxaddstring "foo [069 English Horn]
   listboxaddstring "foo [070 Bassoon]
   listboxaddstring "foo [071 Clarinet]
   listboxaddstring "foo [072 Piccolo]
   listboxaddstring "foo [073 Flute]
   listboxaddstring "foo [074 Recorder]
   listboxaddstring "foo [075 Pan Flute]
   listboxaddstring "foo [076 Bottle Blow]
   listboxaddstring "foo [077 Shakuhachi]
   listboxaddstring "foo [078 Whistle]
   listboxaddstring "foo [079 Ocarina]
   listboxaddstring "foo [080 Lead 1 (square)]
   listboxaddstring "foo [081 Lead 2 (sawtooth)]
   listboxaddstring "foo [082 Lead 3 (caliope lead)]
   listboxaddstring "foo [083 Lead 4 (chiff lead)]
   listboxaddstring "foo [084 Lead 5 (charang)]
   listboxaddstring "foo [085 Lead 6 (voice)]
   listboxaddstring "foo [086 Lead 7 (fifths)]
   listboxaddstring "foo [087 Lead 8 (brass + lead)]
   listboxaddstring "foo [088 Pad 1 (new age)]
   listboxaddstring "foo [089 Pad 2 (warm)]
   listboxaddstring "foo [090 Pad 3 (polysynth)]
   listboxaddstring "foo [091 Pad 4 (choir)]
   listboxaddstring "foo [092 Pad 5 (bowed)]
   listboxaddstring "foo [093 Pad 6 (metallic)]
   listboxaddstring "foo [094 Pad 7 (halo)]
   listboxaddstring "foo [095 Pad 8 (sweep)]
   listboxaddstring "foo [096 FX 1 (rain)]
   listboxaddstring "foo [097 FX 2 (soundtrack)]
   listboxaddstring "foo [098 FX 3 (crystal)]
   listboxaddstring "foo [099 FX 4 (atmosphere)]
   listboxaddstring "foo [100 FX 5 (brightness)]
   listboxaddstring "foo [101 FX 6 (goblins)]
   listboxaddstring "foo [102 FX 7 (echoes)]
   listboxaddstring "foo [103 FX 8 (sci-fi)]
   listboxaddstring "foo [104 Sitar]
   listboxaddstring "foo [105 Banjo]
   listboxaddstring "foo [106 Shamisen]
   listboxaddstring "foo [107 Koto]
   listboxaddstring "foo [108 Kalimba]
   listboxaddstring "foo [109 Bagpipe]
   listboxaddstring "foo [110 Fiddle]
   listboxaddstring "foo [111 Shanai]
   listboxaddstring "foo [112 Tinkle Bell]
   listboxaddstring "foo [113 Agogo]
   listboxaddstring "foo [114 Steel Drums]
   listboxaddstring "foo [115 Woodblock]
   listboxaddstring "foo [116 Taiko Drum]
   listboxaddstring "foo [117 Melodic Tom]
   listboxaddstring "foo [118 Synth Drum]
   listboxaddstring "foo [119 Reverse Cymbal]
   listboxaddstring "foo [120 Guitar Fret Noise]
   listboxaddstring "foo [121 Breath Noise]
   listboxaddstring "foo [122 Seashore]
   listboxaddstring "foo [123 Bird Tweet]
   listboxaddstring "foo [124 Telephone Ring]
   listboxaddstring "foo [125 Helicopter]
   listboxaddstring "foo [126 Applause]
   listboxaddstring "foo [127 Gunshot]

   scrollbarset "bar1 1 11 6
   scrollbarset "bar2 1 16 8
   scrollbarset "bar3 1 127 127
   scrollbarset "bar4 1 60 50
   scrollbarset "bar5 1 127 127

   oktava
   kanal
   jakost
   hitrost
   glasnost
   inštrument
end

to oktava
   make "oktava scrollbarget "bar1
   staticupdate "t5 :oktava - 3
end

to kanal
   make "kanal scrollbarget "bar2
   staticupdate "t6 :kanal
end

to jakost
   make "jakost scrollbarget "bar3
   staticupdate "t7 :jakost
end

to hitrost
   make "recordspeed scrollbarget "bar4
   staticupdate "t12 :recordspeed
end

to glasnost
   local "glasnost
   make "glasnost scrollbarget "bar5
   staticupdate "t13 :glasnost
end

to inštrument
   local "inštrument
   make "inštrument listboxgetselect "foo
end