#!/usr/bin/perl

require "../oscpl/osc.pl";

osc_connect("infocalypse.al.cl.cam.ac.uk", 4500, "GPIB0::7::INSTR");

# calibrate, print, system, trace excluded
foreach $prefix ("acquire", "analog1", "analog2", "channel", "display",
    "function1", "function2", "hardcopy", "mask", "measure", "opee",
    "timebase", "trigger", "waveform") {
	print STDERR $prefix."\n";
	osc_write(":".$prefix."?") || die "osc_write: $!";
	(($bytes, $data{$prefix}) = osc_read()) || die "osc_read: $!";
}

foreach $prefix (sort keys %data) {
	print $data{$prefix}."\n";
}

