/* Arexx macro to insert the preset number for a given GM instrument */
/* by Keith Barkley   10/93 */

/* Set up number/name array.  Names from GM document off of the internet. */
/* Well, some names are from my Dr Synth... 8^)                         */
/* Change it if you want to. */


name.       = "NULL"

name.1           = "GRAND PIANO"   ;  name.2           = "BRIGHT PIANO"  
name.3  = "ELECTRIC GRAND PIANO"   ;  name.4       = "HONKY-TONK PIANO" 
name.5      = "ELECTRIC PIANO 1"   ;  name.6       = "ELECTRIC PIANO 2"  
name.7           = "HARPSICHORD"   ;  name.8             = "CLAVICHORD"
name.9               = "CELESTA"   ;  name.10          = "GLOCKENSPIEL"  
name.11            = "MUSIC BOX"   ;  name.12            = "VIBRAPHONE" 
name.13              = "MARIMBA"   ;  name.14             = "XYLOPHONE" 
name.15        = "TUBULAR BELLS"   ;  name.16              = "DULCIMER"
name.17        = "DRAWBAR ORGAN"   ;  name.18      = "PERCUSSIVE ORGAN" 
name.19           = "ROCK ORGAN"   ;  name.20          = "CHURCH ORGAN" 
name.21           = "REED ORGAN"   ;  name.22             = "ACCORDION" 
name.23            = "HARMONICA"   ;  name.24             = "BANDONEON"
name.25     = "NYLON STR GUITAR"   ;  name.26     = "STEEL STR GUITAR" 
name.27          = "JAZZ GUITAR"   ;  name.28         = "CLEAN GUITAR"  
name.29         = "MUTED GUITAR"   ;  name.30    = "OVERDRIVEN GUITAR" 
name.31    = "DISTORTION GUITAR"   ;  name.32     = "GUITAR HARMONICS" 
name.33        = "ACOUSTIC BASS"   ;  name.34         = "FINGERED BASS" 
name.35          = "PICKED BASS"   ;  name.36         = "FRETLESS BASS" 
name.37          = "SLAP BASS 1"   ;  name.38           = "SLAP BASS 2"  
name.39         = "SYNTH BASS 1"   ;  name.40          = "SYNTH BASS 2"
name.41               = "VIOLIN"   ;  name.42                 = "VIOLA"  
name.43                = "CELLO"   ;  name.44            = "CONTRABASS" 
name.45      = "TREMOLO STRINGS"   ;  name.46     = "PIZZICATO STRINGS" 
name.47                 = "HARP"   ;  name.48               = "TIMPANI"
name.49              = "STRINGS"   ;  name.50          = "SLOW STRINGS" 
name.51      = "SYNTH STRINGS 1"   ;  name.52       = "SYNTH STRINGS 2" 
name.53           = "CHOIR AAHS"   ;  name.54            = "VOICE OOHS"
name.55          = "SYNTH VOICE"   ;  name.56         = "ORCHESTRA HIT" 
name.57              = "TRUMPET"   ;  name.58              = "TROMBONE"  
name.59                 = "TUBA"   ;  name.60         = "MUTED TRUMPET" 
name.61          = "FRENCH HORN"   ;  name.62               = "BRASS 1"
name.63        = "SYNTH BRASS 1"   ;  name.64         = "SYNTH BRASS 2" 
name.65          = "SOPRANO SAX"   ;  name.66              = "ALTO SAX" 
name.67            = "TENOR SAX"   ;  name.68          = "BARITONE SAX"  
name.69                 = "OBOE"   ;  name.70          = "ENGLISH HORN"
name.71              = "BASSOON"   ;  name.72              = "CLARINET" 
name.73              = "PICCOLO"   ;  name.74                 = "FLUTE" 
name.75             = "RECORDER"   ;  name.76             = "PAN FLUTE" 
name.77         = "BLOWN BOTTLE"   ;  name.78            = "SHAKUHACHI"
name.79              = "WHISTLE"   ;  name.80               = "OCARINA" 
name.81          = "SQUARE WAVE"   ;  name.82         = "SAWTOOTH WAVE" 
name.83       = "SYNTH CALLIOPE"   ;  name.84               = "CHIFFER"
name.85              = "CHARANG"   ;  name.86              = "SOLO VOX" 
name.87      =  "FIFTH SAW WAVE"   ;  name.88         = "BASS AND LEAD" 
name.89              = "FANTASIA"   ;  name.90                 = "WARM" 
name.91             = "POLYSYNTH"   ;  name.92          = "SPACE VOICE" 
name.93           = "BOWED GLASS"   ;  name.94                = "METAL" 
name.95                  = "HALO"   ;  name.96                = "SWEEP" 
name.97              = "ICE RAIN"   ;  name.98           = "SOUNDTRACK"  
name.99               = "CRYSTAL"   ;  name.100          = "ATMOSPHERE"
name.101           = "BRIGHTNESS"   ;  name.102              = "GOBLIN"  
name.103           = "ECHO DROPS"   ;  name.104          = "STAR THEME" 
name.105                = "SITAR"   ;  name.106               = "BANJO" 
name.107             = "SHAMISEN"   ;  name.108                = "KOTO"
name.109              = "KALIMBA"   ;  name.110             = "BAGPIPE" 
name.111               = "FIDDLE"   ;  name.112              = "SHANAI"
name.113          = "TINKLE BELL"   ;  name.114              = "AGOGO"
name.115          = "STEEL DRUMS"   ;  name.116          = "WOODBLOCK" 
name.117                = "TAIKO"   ;  name.118        = "MELODIC TOM"  
name.119           = "SYNTH DRUM"   ;  name.120     = "REVERSE CYMBAL" 
name.121    = "GUITAR FRET NOISE"   ;  name.122       = "BREATH NOISE" 
name.123             = "SEASHORE"   ;  name.124         = "BIRD TWEET" 
name.125            = "TELEPHONE"   ;  name.126         = "HELICOPTER" 
name.127             = "APPLAUSE"   ;  name.128            = "GUNSHOT"  

T= ' TITLE "GM Instrument Request"'


/* Get name or help request */
OPTIONS RESULTS
P = ' PROMPT "Type in the number of the patch."'
B = ' BUTTONS "_OK|_Quit"'

RequestNum T || P || B 

IF ( RC = 5 ) THEN EXIT 0 
 
IF ((RESULT  < 1) | (RESULT > 128) ) THEN EXIT 0
p = 'PROMPT  "Preset # ' || RESULT || ' is ' || name.RESULT || '"'
RequestNotify T || p

EXIT 0