sampler-populate-slot   scheme

(define (sampler-populate-slot inst filename index offset lgth bank print?)
  (if (and (cptr? inst)
           (> index 0)
           (< index 128))
      (set_sample_data_ inst
                        filename
                        (real->integer index)
                        (real->integer offset)
                        (real->integer lgth)
                        (real->integer bank)
                        (if (> print? 0) 1 0))))