#!/usr/bin/env perl

# Veronica 1 Watt PLL Dip Switch SW1 and SW2 Calculator

while (!$frq || $frq > 108 || $frq < 87.5) {
	print "\n\nVeronica 1 Watt PLL Dip Switch SW1 and SW2 Calculator\n\n".
              "Enter desired frequency (87.5 - 108 MHz):  ";
	chomp($frq = <STDIN>);
	$frq =~ tr/0-9.\///csd;
}

$a = 4096 - (10 * $frq);

print "\n\nSwitch settings for $frq MHz:                 \n\n".
      "Dip switch SW1          Dip switch SW2            \n\n".
      "1                       1                         \n\n";

for ($i = 1; $i <= 12; $i++, $a <<= 1) {
        print $a & 0x800 ? 'ON ' : 'OFF ';
	if ($i % 6 == 0) {
	        print "\t";
	}
}

print "\n\n";