Contents of /Public_Sound_Midi-1.0/miditest.pike: import .Midi; int main() { object midi = Control(); object device = Device(0); for(int i = 0; i < midi->count_devices() ; i++) { device->set_ID(i); write("interface " + i + ": " + device->get_interface() + "\n"); write("name: " + device->get_name() + "\n"); if (device->is_input()) { write("-> is input\n"); } if (device->is_output()) { write("-> is output\n"); } write("------------------------------------------------\n"); } /*device->set_ID(12); int err = device->open(); write("open: " + midi->get_error_text(err) + "\n"); for (int i = 0; i < 10; i++) { err = device->message(0x90, 60, 127); write("write: " + midi->get_error_text(err) + "\n"); sleep(1); err = device->message(0x90, 60, 0); write("write: " + midi->get_error_text(err) + "\n"); sleep(1); } err = device->close(); write("close: " + midi->get_error_text(err) + "\n");*/ return(0); }