|  line  | 
 true  | 
 false  | 
 branch  | 
 
| 
313
 | 
 0  | 
 1  | 
 $^O eq 'MSWin32' ? :  | 
 
| 
314
 | 
 0  | 
 1  | 
 if ($Ham::Device::FT817COMM::OS_win) { }  | 
 
| 
316
 | 
 0  | 
 0  | 
 if $@  | 
 
| 
320
 | 
 0  | 
 1  | 
 if $@  | 
 
| 
328
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::OS_win) { }  | 
 
| 
330
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
334
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
336
 | 
 0  | 
 0  | 
 unless ref $$ob{'port'}  | 
 
| 
337
 | 
 0  | 
 0  | 
 unless $options{'baud'}  | 
 
| 
358
 | 
 0  | 
 0  | 
 unless $$self{'port'}->close  | 
 
| 
367
 | 
 0  | 
 0  | 
 if ($debugflag == '1')  | 
 
| 
368
 | 
 0  | 
 0  | 
 if ($debugflag == '0')  | 
 
| 
369
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug and $Ham::Device::FT817COMM::verbose)  | 
 
| 
370
 | 
 0  | 
 0  | 
 if (not $Ham::Device::FT817COMM::debug and $Ham::Device::FT817COMM::verbose)  | 
 
| 
378
 | 
 0  | 
 0  | 
 if ($bitwatcherflag == '1')  | 
 
| 
379
 | 
 0  | 
 0  | 
 if ($bitwatcherflag == '0')  | 
 
| 
380
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::bitwatch and $Ham::Device::FT817COMM::verbose)  | 
 
| 
381
 | 
 0  | 
 0  | 
 if (not $Ham::Device::FT817COMM::bitwatch and $Ham::Device::FT817COMM::verbose)  | 
 
| 
389
 | 
 0  | 
 0  | 
 if ($verboseflag == '1')  | 
 
| 
390
 | 
 0  | 
 0  | 
 if ($verboseflag == '0')  | 
 
| 
398
 | 
 0  | 
 0  | 
 if ($writeflag == '1')  | 
 
| 
399
 | 
 0  | 
 0  | 
 if ($writeflag == '0')  | 
 
| 
400
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow and $Ham::Device::FT817COMM::verbose)  | 
 
| 
401
 | 
 0  | 
 0  | 
 if (not $Ham::Device::FT817COMM::writeallow and $Ham::Device::FT817COMM::verbose)  | 
 
| 
402
 | 
 0  | 
 0  | 
 if (not $Ham::Device::FT817COMM::agreewithwarning and $Ham::Device::FT817COMM::writeallow and $Ham::Device::FT817COMM::verbose)  | 
 
| 
433
 | 
 0  | 
 0  | 
 if ($agreeflag == '1')  | 
 
| 
441
 | 
 0  | 
 0  | 
 if ($value eq 'DEBUG')  | 
 
| 
442
 | 
 0  | 
 0  | 
 if ($value eq 'VERBOSE')  | 
 
| 
443
 | 
 0  | 
 0  | 
 if ($value eq 'BITWATCH')  | 
 
| 
444
 | 
 0  | 
 0  | 
 if ($value eq 'WRITEALLOW')  | 
 
| 
445
 | 
 0  | 
 0  | 
 if ($value eq 'WARNED')  | 
 
| 
446
 | 
 0  | 
 0  | 
 unless ($value)  | 
 
| 
447
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
474
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
476
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
478
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
480
 | 
 0  | 
 0  | 
 if (length $startaddress < 4)  | 
 
| 
481
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
483
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
485
 | 
 0  | 
 0  | 
 if (length $startaddress == 5)  | 
 
| 
486
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
488
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
490
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
491
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
499
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
500
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
504
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
523
 | 
 0  | 
 0  | 
 if ($tuner eq 'MEMORY')  | 
 
| 
524
 | 
 0  | 
 0  | 
 if ($tuner eq 'VFO')  | 
 
| 
535
 | 
 0  | 
 0  | 
 if ($tuner eq 'Y')  | 
 
| 
536
 | 
 0  | 
 0  | 
 if ($tuner eq 'N')  | 
 
| 
555
 | 
 0  | 
 0  | 
 if ($frequency < $low or $frequency > $high)  | 
 
| 
556
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
570
 | 
 0  | 
 0  | 
 if ($frequency >= $low and $frequency <= $high)  | 
 
| 
571
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
575
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
587
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
590
 | 
 0  | 
 0  | 
 if ($bit ne 'ALL') { }  | 
 
| 
593
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
594
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
595
 | 
 0  | 
 0  | 
 if ($value != $testbit)  | 
 
| 
596
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
597
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose and $value)  | 
 
| 
602
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose and $status eq 'CHANGE')  | 
 
| 
603
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($status eq 'OK')  | 
 
| 
612
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
615
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
620
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
621
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::bitwatch)  | 
 
| 
629
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
631
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
638
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
639
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
642
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
643
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
651
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
653
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
660
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
661
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
664
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
665
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
673
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
675
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
680
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
694
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow != '1' and $Ham::Device::FT817COMM::agreewithwarning != '1')  | 
 
| 
695
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug or $Ham::Device::FT817COMM::verbose)  | 
 
| 
699
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
701
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
709
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
712
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
713
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
715
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
717
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
718
 | 
 0  | 
 0  | 
 if (length $NEWHEX1 < 2) { }  | 
 
| 
720
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
722
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
723
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
724
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
727
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
731
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
736
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
737
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
741
 | 
 0  | 
 0  | 
 if ($address == '0055' and $BIT == '1') { }  | 
 
| 
742
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
746
 | 
 0  | 
 0  | 
 if ($NEWHEX1 == $BYTE1 and $OLDBYTE2 == $BYTE2) { }  | 
 
| 
748
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
752
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
754
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::bitwatch)  | 
 
| 
766
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow != '1' and $Ham::Device::FT817COMM::agreewithwarning != '1')  | 
 
| 
767
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug or $Ham::Device::FT817COMM::verbose)  | 
 
| 
772
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
774
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
780
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
781
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
782
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
783
 | 
 0  | 
 0  | 
 if (length $VALUE < 2) { }  | 
 
| 
785
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
787
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
788
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
790
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
795
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
800
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
801
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
802
 | 
 0  | 
 0  | 
 if ($VALUE == $BYTE1 and $OLDBYTE2 == $BYTE2) { }  | 
 
| 
804
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
808
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
810
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::bitwatch)  | 
 
| 
822
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow != '1' and $Ham::Device::FT817COMM::agreewithwarning != '1')  | 
 
| 
823
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug or $Ham::Device::FT817COMM::verbose)  | 
 
| 
829
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
835
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
836
 | 
 0  | 
 0  | 
 if (length $VALUE < 2)  | 
 
| 
838
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
840
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
841
 | 
 0  | 
 0  | 
 if (length $VALUE2 < 2)  | 
 
| 
843
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
845
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
847
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
852
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
857
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
858
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
859
 | 
 0  | 
 0  | 
 if ($VALUE == $NEWBYTE1 and $VALUE2 == $NEWBYTE2) { }  | 
 
| 
861
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
865
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
867
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::bitwatch)  | 
 
| 
878
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow != '1' and $Ham::Device::FT817COMM::agreewithwarning != '1')  | 
 
| 
879
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug or $Ham::Device::FT817COMM::verbose)  | 
 
| 
883
 | 
 0  | 
 0  | 
 unless ($Ham::Device::FT817COMM::RESTOREAREAS{$area})  | 
 
| 
884
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
888
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
890
 | 
 0  | 
 0  | 
 if ($area eq '0055')  | 
 
| 
891
 | 
 0  | 
 0  | 
 if ($area eq '0057')  | 
 
| 
892
 | 
 0  | 
 0  | 
 if ($area eq '0058')  | 
 
| 
893
 | 
 0  | 
 0  | 
 if ($area eq '0059')  | 
 
| 
894
 | 
 0  | 
 0  | 
 if ($area eq '005B')  | 
 
| 
895
 | 
 0  | 
 0  | 
 if ($area eq '005C')  | 
 
| 
896
 | 
 0  | 
 0  | 
 if ($area eq '005D')  | 
 
| 
897
 | 
 0  | 
 0  | 
 if ($area eq '005E')  | 
 
| 
898
 | 
 0  | 
 0  | 
 if ($area eq '005F')  | 
 
| 
899
 | 
 0  | 
 0  | 
 if ($area eq '0060')  | 
 
| 
900
 | 
 0  | 
 0  | 
 if ($area eq '0061')  | 
 
| 
901
 | 
 0  | 
 0  | 
 if ($area eq '0062')  | 
 
| 
902
 | 
 0  | 
 0  | 
 if ($area eq '0063')  | 
 
| 
903
 | 
 0  | 
 0  | 
 if ($area eq '0064')  | 
 
| 
904
 | 
 0  | 
 0  | 
 if ($area eq '0065')  | 
 
| 
905
 | 
 0  | 
 0  | 
 if ($area eq '0066')  | 
 
| 
906
 | 
 0  | 
 0  | 
 if ($area eq '0067')  | 
 
| 
907
 | 
 0  | 
 0  | 
 if ($area eq '0068')  | 
 
| 
908
 | 
 0  | 
 0  | 
 if ($area eq '0069')  | 
 
| 
909
 | 
 0  | 
 0  | 
 if ($area eq '006A')  | 
 
| 
910
 | 
 0  | 
 0  | 
 if ($area eq '006B')  | 
 
| 
911
 | 
 0  | 
 0  | 
 if ($area eq '006C')  | 
 
| 
912
 | 
 0  | 
 0  | 
 if ($area eq '006D')  | 
 
| 
913
 | 
 0  | 
 0  | 
 if ($area eq '006E')  | 
 
| 
914
 | 
 0  | 
 0  | 
 if ($area eq '006F')  | 
 
| 
915
 | 
 0  | 
 0  | 
 if ($area eq '0070')  | 
 
| 
916
 | 
 0  | 
 0  | 
 if ($area eq '0071')  | 
 
| 
917
 | 
 0  | 
 0  | 
 if ($area eq '0072')  | 
 
| 
918
 | 
 0  | 
 0  | 
 if ($area eq '0073')  | 
 
| 
919
 | 
 0  | 
 0  | 
 if ($area eq '0074')  | 
 
| 
920
 | 
 0  | 
 0  | 
 if ($area eq '0079')  | 
 
| 
921
 | 
 0  | 
 0  | 
 if ($area eq '007A')  | 
 
| 
922
 | 
 0  | 
 0  | 
 if ($area eq '007B')  | 
 
| 
923
 | 
 0  | 
 0  | 
 if ($area eq '044F')  | 
 
| 
943
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output eq $lock)  | 
 
| 
944
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
948
 | 
 0  | 
 0  | 
 if ($lock ne 'ON' and $lock ne 'OFF')  | 
 
| 
949
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
952
 | 
 0  | 
 0  | 
 if ($lock eq 'ON')  | 
 
| 
953
 | 
 0  | 
 0  | 
 if ($lock eq 'OFF')  | 
 
| 
955
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
956
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
957
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq 'f0'  | 
 
| 
969
 | 
 0  | 
 0  | 
 if ($ptt ne 'ON' and $ptt ne 'OFF')  | 
 
| 
970
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
974
 | 
 0  | 
 0  | 
 if ($ptt eq 'ON')  | 
 
| 
975
 | 
 0  | 
 0  | 
 if ($ptt eq 'OFF')  | 
 
| 
977
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
978
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
979
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq 'f0'  | 
 
| 
993
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output eq $newfrequency)  | 
 
| 
994
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
998
 | 
 0  | 
 0  | 
 if (not $newfrequency =~ /\D/u and length $newfrequency == '8') { }  | 
 
| 
1010
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1011
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1012
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq 'f0'  | 
 
| 
1024
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output eq $newmode)  | 
 
| 
1025
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1031
 | 
 0  | 
 0  | 
 if ($mode eq '')  | 
 
| 
1032
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1036
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1037
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1038
 | 
 0  | 
 0  | 
 if not $mode or $Ham::Device::FT817COMM::output ne '00'  | 
 
| 
1050
 | 
 0  | 
 0  | 
 if ($clarifier ne 'ON' and $clarifier ne 'OFF')  | 
 
| 
1051
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1055
 | 
 0  | 
 0  | 
 if ($clarifier eq 'ON')  | 
 
| 
1056
 | 
 0  | 
 0  | 
 if ($clarifier eq 'OFF')  | 
 
| 
1058
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1059
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1060
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq 'f0'  | 
 
| 
1071
 | 
 0  | 
 0  | 
 if ($polarity ne 'POS' and $polarity ne 'NEG')  | 
 
| 
1072
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1077
 | 
 0  | 
 0  | 
 if (not $frequency =~ /\D/u and length $frequency == '4') { }  | 
 
| 
1085
 | 
 0  | 
 0  | 
 if ($polarity eq 'POS')  | 
 
| 
1086
 | 
 0  | 
 0  | 
 if ($polarity eq 'NEG')  | 
 
| 
1087
 | 
 0  | 
 0  | 
 if ($p)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($frequency)  | 
 
| 
1090
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1091
 | 
 0  | 
 0  | 
 unless $frequency  | 
 
| 
1092
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1093
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq 'f0'  | 
 
| 
1102
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1103
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1104
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq 'f0'  | 
 
| 
1116
 | 
 0  | 
 0  | 
 if ($split ne 'ON' and $split ne 'OFF')  | 
 
| 
1117
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1120
 | 
 0  | 
 0  | 
 if ($split eq 'ON')  | 
 
| 
1121
 | 
 0  | 
 0  | 
 if ($split eq 'OFF')  | 
 
| 
1125
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1126
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1127
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq 'f0'  | 
 
| 
1139
 | 
 0  | 
 0  | 
 if ($offsetmode ne 'POS' and $offsetmode ne 'NEG' and $offsetmode ne 'SIMPLEX')  | 
 
| 
1140
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1144
 | 
 0  | 
 0  | 
 if ($offsetmode eq 'POS')  | 
 
| 
1145
 | 
 0  | 
 0  | 
 if ($offsetmode eq 'NEG')  | 
 
| 
1146
 | 
 0  | 
 0  | 
 if ($offsetmode eq 'SIMPLEX')  | 
 
| 
1148
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1149
 | 
 0  | 
 0  | 
 if $datablock  | 
 
| 
1150
 | 
 0  | 
 0  | 
 unless $datablock  | 
 
| 
1160
 | 
 0  | 
 0  | 
 if (not $frequency =~ /\D/u and length $frequency == '8') { }  | 
 
| 
1171
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1172
 | 
 0  | 
 0  | 
 unless $frequency  | 
 
| 
1173
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1174
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq 'f0'  | 
 
| 
1186
 | 
 0  | 
 0  | 
 if ($ctcssdcs ne 'DCS' and $ctcssdcs ne 'CTCSS' and $ctcssdcs ne 'ON' and $ctcssdcs ne 'OFF')  | 
 
| 
1187
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1191
 | 
 0  | 
 0  | 
 if ($ctcssdcs eq 'DCS')  | 
 
| 
1192
 | 
 0  | 
 0  | 
 if ($ctcssdcs eq 'CTCSS')  | 
 
| 
1193
 | 
 0  | 
 0  | 
 if ($ctcssdcs eq 'ON')  | 
 
| 
1194
 | 
 0  | 
 0  | 
 if ($ctcssdcs eq 'OFF')  | 
 
| 
1196
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1197
 | 
 0  | 
 0  | 
 if $data  | 
 
| 
1198
 | 
 0  | 
 0  | 
 unless $data  | 
 
| 
1208
 | 
 0  | 
 0  | 
 if (not $tonefreq =~ /\D/u and length $tonefreq == '4') { }  | 
 
| 
1215
 | 
 0  | 
 0  | 
 unless $tonefreq  | 
 
| 
1218
 | 
 0  | 
 0  | 
 if ($tonefreq)  | 
 
| 
1219
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1220
 | 
 0  | 
 0  | 
 unless $tonefreq  | 
 
| 
1221
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1223
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output eq 'f0')  | 
 
| 
1229
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
1242
 | 
 0  | 
 0  | 
 if (not $code =~ /\D/u and length $code == '4') { }  | 
 
| 
1249
 | 
 0  | 
 0  | 
 if (not $code and $Ham::Device::FT817COMM::verbose)  | 
 
| 
1252
 | 
 0  | 
 0  | 
 if ($code)  | 
 
| 
1253
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1254
 | 
 0  | 
 0  | 
 unless $code  | 
 
| 
1255
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1256
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output eq 'f0')  | 
 
| 
1262
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
1276
 | 
 0  | 
 0  | 
 unless ($option)  | 
 
| 
1286
 | 
 0  | 
 0  | 
 if ($sq == 0)  | 
 
| 
1287
 | 
 0  | 
 0  | 
 if ($sq == 1)  | 
 
| 
1288
 | 
 0  | 
 0  | 
 if ($ctcssmatch == 0)  | 
 
| 
1289
 | 
 0  | 
 0  | 
 if ($ctcssmatch == 1)  | 
 
| 
1290
 | 
 0  | 
 0  | 
 if ($descriminator == 0)  | 
 
| 
1291
 | 
 0  | 
 0  | 
 if ($descriminator == 1)  | 
 
| 
1292
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1298
 | 
 0  | 
 0  | 
 if ($option eq 'VARIABLES')  | 
 
| 
1301
 | 
 0  | 
 0  | 
 if ($option eq 'HASH')  | 
 
| 
1313
 | 
 0  | 
 0  | 
 unless ($option)  | 
 
| 
1322
 | 
 0  | 
 0  | 
 if ($pttvalue == 0)  | 
 
| 
1323
 | 
 0  | 
 0  | 
 if ($pttvalue == 1)  | 
 
| 
1324
 | 
 0  | 
 0  | 
 if ($highswrvalue == 0)  | 
 
| 
1325
 | 
 0  | 
 0  | 
 if ($highswrvalue == 1)  | 
 
| 
1326
 | 
 0  | 
 0  | 
 if ($splitvalue == 0)  | 
 
| 
1327
 | 
 0  | 
 0  | 
 if ($splitvalue == 1)  | 
 
| 
1328
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1334
 | 
 0  | 
 0  | 
 if ($option eq 'VARIABLES')  | 
 
| 
1337
 | 
 0  | 
 0  | 
 if ($option eq 'HASH')  | 
 
| 
1352
 | 
 0  | 
 0  | 
 if ($formatted == 1)  | 
 
| 
1357
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1369
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1379
 | 
 0  | 
 0  | 
 if ($powerset ne 'ON' and $powerset ne 'OFF')  | 
 
| 
1380
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1385
 | 
 0  | 
 0  | 
 if ($powerset eq 'ON')  | 
 
| 
1386
 | 
 0  | 
 0  | 
 if ($powerset eq 'OFF')  | 
 
| 
1389
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1390
 | 
 0  | 
 0  | 
 if $Ham::Device::FT817COMM::output eq '00'  | 
 
| 
1391
 | 
 0  | 
 0  | 
 unless $Ham::Device::FT817COMM::output  | 
 
| 
1414
 | 
 0  | 
 0  | 
 unless ($address2)  | 
 
| 
1415
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1416
 | 
 0  | 
 0  | 
 if (not $address1 or length $address1 != 4)  | 
 
| 
1420
 | 
 0  | 
 0  | 
 if ($address2 and length $address2 != 4)  | 
 
| 
1425
 | 
 0  | 
 0  | 
 if ($times < 0)  | 
 
| 
1447
 | 
 0  | 
 0  | 
 if ($times == 1) { }  | 
 
| 
1469
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1488
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1507
 | 
 0  | 
 0  | 
 unless ($option)  | 
 
| 
1512
 | 
 0  | 
 0  | 
 if ($option eq 'CONSOLE')  | 
 
| 
1513
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1519
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose and $option eq 'DIGEST')  | 
 
| 
1522
 | 
 0  | 
 0  | 
 if ($option eq 'FILE')  | 
 
| 
1523
 | 
 0  | 
 0  | 
 unless ($filename)  | 
 
| 
1524
 | 
 0  | 
 0  | 
 if (-e $filename) { }  | 
 
| 
1530
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1531
 | 
 0  | 
 0  | 
 unless open FILE, '>>', "$filename"  | 
 
| 
1539
 | 
 0  | 
 0  | 
 if ($option eq 'DIGEST') { }  | 
 
| 
1543
 | 
 0  | 
 0  | 
 if ($size < 2)  | 
 
| 
1553
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1560
 | 
 0  | 
 0  | 
 if ($size < 2)  | 
 
| 
1565
 | 
 0  | 
 0  | 
 if ($hexsize < 2)  | 
 
| 
1567
 | 
 0  | 
 0  | 
 if ($option eq 'CONSOLE' or $Ham::Device::FT817COMM::verbose)  | 
 
| 
1570
 | 
 0  | 
 0  | 
 if ($buildfile == '1')  | 
 
| 
1578
 | 
 0  | 
 0  | 
 if ($buildfile == '1')  | 
 
| 
1594
 | 
 0  | 
 0  | 
 if ($block55[6] == '0')  | 
 
| 
1595
 | 
 0  | 
 0  | 
 if ($block55[6] == '1')  | 
 
| 
1596
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1605
 | 
 0  | 
 0  | 
 if ($block55[5] == '0')  | 
 
| 
1606
 | 
 0  | 
 0  | 
 if ($block55[5] == '1')  | 
 
| 
1607
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1616
 | 
 0  | 
 0  | 
 if ($block55[2] == '0')  | 
 
| 
1617
 | 
 0  | 
 0  | 
 if ($block55[2] == '1')  | 
 
| 
1618
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1626
 | 
 0  | 
 0  | 
 if ($block55[7] == '0')  | 
 
| 
1627
 | 
 0  | 
 0  | 
 if ($block55[7] == '1')  | 
 
| 
1628
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1637
 | 
 0  | 
 0  | 
 if ($block55[3] == '1')  | 
 
| 
1638
 | 
 0  | 
 0  | 
 if ($block55[3] == '0')  | 
 
| 
1639
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1640
 | 
 0  | 
 0  | 
 if ($home eq 'Y')  | 
 
| 
1641
 | 
 0  | 
 0  | 
 if ($home eq 'N')  | 
 
| 
1651
 | 
 0  | 
 0  | 
 if ($block55[1] == '0')  | 
 
| 
1652
 | 
 0  | 
 0  | 
 if ($block55[1] == '1')  | 
 
| 
1653
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1665
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1674
 | 
 0  | 
 0  | 
 if ($block55[5] == '0')  | 
 
| 
1675
 | 
 0  | 
 0  | 
 if ($block55[5] == '1')  | 
 
| 
1676
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1685
 | 
 0  | 
 0  | 
 if ($block55[3] == '0')  | 
 
| 
1686
 | 
 0  | 
 0  | 
 if ($block55[3] == '1')  | 
 
| 
1687
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1696
 | 
 0  | 
 0  | 
 if ($block55[2] == '0')  | 
 
| 
1697
 | 
 0  | 
 0  | 
 if ($block55[2] == '1')  | 
 
| 
1698
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1707
 | 
 0  | 
 0  | 
 if ($block55[1] == '1')  | 
 
| 
1708
 | 
 0  | 
 0  | 
 if ($block55[1] == '0')  | 
 
| 
1709
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1718
 | 
 0  | 
 0  | 
 if ($block55[0] == '1')  | 
 
| 
1719
 | 
 0  | 
 0  | 
 if ($block55[0] == '0')  | 
 
| 
1720
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1732
 | 
 0  | 
 0  | 
 if ($pwrmtr == '00')  | 
 
| 
1733
 | 
 0  | 
 0  | 
 if ($pwrmtr == '01')  | 
 
| 
1734
 | 
 0  | 
 0  | 
 if ($pwrmtr == '10')  | 
 
| 
1735
 | 
 0  | 
 0  | 
 if ($pwrmtr == '11')  | 
 
| 
1736
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1745
 | 
 0  | 
 0  | 
 if ($cwpaddle == '0')  | 
 
| 
1746
 | 
 0  | 
 0  | 
 if ($cwpaddle == '1')  | 
 
| 
1747
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1756
 | 
 0  | 
 0  | 
 if ($kyr == '0')  | 
 
| 
1757
 | 
 0  | 
 0  | 
 if ($kyr == '1')  | 
 
| 
1758
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1767
 | 
 0  | 
 0  | 
 if ($bk == '0')  | 
 
| 
1768
 | 
 0  | 
 0  | 
 if ($bk == '1')  | 
 
| 
1769
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1778
 | 
 0  | 
 0  | 
 if ($vlt == '0')  | 
 
| 
1779
 | 
 0  | 
 0  | 
 if ($vlt == '1')  | 
 
| 
1780
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1789
 | 
 0  | 
 0  | 
 if ($block55[0] == '0')  | 
 
| 
1790
 | 
 0  | 
 0  | 
 if ($block55[0] == '1')  | 
 
| 
1791
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1802
 | 
 0  | 
 0  | 
 if ($value ne 'A' and $value ne 'B')  | 
 
| 
1803
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1807
 | 
 0  | 
 0  | 
 if ($value eq 'A')  | 
 
| 
1808
 | 
 0  | 
 0  | 
 if ($value eq 'B')  | 
 
| 
1810
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1825
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1834
 | 
 0  | 
 0  | 
 if ($color == '1') { }  | 
 
| 
1836
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1845
 | 
 0  | 
 0  | 
 if ($backlight == '00')  | 
 
| 
1846
 | 
 0  | 
 0  | 
 if ($backlight == '01')  | 
 
| 
1847
 | 
 0  | 
 0  | 
 if ($backlight == '10')  | 
 
| 
1848
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1862
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1871
 | 
 0  | 
 0  | 
 if ($beepfreq == '1')  | 
 
| 
1872
 | 
 0  | 
 0  | 
 if ($beepfreq == '0')  | 
 
| 
1873
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1885
 | 
 0  | 
 0  | 
 if ($resumescan == '00')  | 
 
| 
1886
 | 
 0  | 
 0  | 
 if ($resumescan == '01')  | 
 
| 
1887
 | 
 0  | 
 0  | 
 if ($resumescan == '10')  | 
 
| 
1888
 | 
 0  | 
 0  | 
 if ($resumescan == '11')  | 
 
| 
1889
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1898
 | 
 0  | 
 0  | 
 if ($pktrate == '0')  | 
 
| 
1899
 | 
 0  | 
 0  | 
 if ($pktrate == '1')  | 
 
| 
1900
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1909
 | 
 0  | 
 0  | 
 if ($scope == '0')  | 
 
| 
1910
 | 
 0  | 
 0  | 
 if ($scope == '1')  | 
 
| 
1911
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1920
 | 
 0  | 
 0  | 
 if ($cwid == '0')  | 
 
| 
1921
 | 
 0  | 
 0  | 
 if ($cwid == '1')  | 
 
| 
1922
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1931
 | 
 0  | 
 0  | 
 if ($mainstep == '0')  | 
 
| 
1932
 | 
 0  | 
 0  | 
 if ($mainstep == '1')  | 
 
| 
1933
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1942
 | 
 0  | 
 0  | 
 if ($artsmode == '00')  | 
 
| 
1943
 | 
 0  | 
 0  | 
 if ($artsmode == '01')  | 
 
| 
1944
 | 
 0  | 
 0  | 
 if ($artsmode == '10')  | 
 
| 
1945
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1961
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1970
 | 
 0  | 
 0  | 
 if ($lockmode == '00')  | 
 
| 
1971
 | 
 0  | 
 0  | 
 if ($lockmode == '01')  | 
 
| 
1972
 | 
 0  | 
 0  | 
 if ($lockmode == '10')  | 
 
| 
1973
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
1982
 | 
 0  | 
 0  | 
 if ($opfilter == '00')  | 
 
| 
1983
 | 
 0  | 
 0  | 
 if ($opfilter == '01')  | 
 
| 
1984
 | 
 0  | 
 0  | 
 if ($opfilter == '10')  | 
 
| 
1985
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2002
 | 
 0  | 
 0  | 
 unless ($option)  | 
 
| 
2003
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2012
 | 
 0  | 
 0  | 
 if ($ars144 == '0') { }  | 
 
| 
2014
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2023
 | 
 0  | 
 0  | 
 if ($ars430 == '0') { }  | 
 
| 
2025
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2034
 | 
 0  | 
 0  | 
 if ($sqlbit == '0') { }  | 
 
| 
2036
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2051
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2065
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2077
 | 
 0  | 
 0  | 
 if ($chargetime == '00')  | 
 
| 
2078
 | 
 0  | 
 0  | 
 if ($chargetime == '01')  | 
 
| 
2079
 | 
 0  | 
 0  | 
 if ($chargetime == '10')  | 
 
| 
2080
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2092
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2106
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2115
 | 
 0  | 
 0  | 
 if ($disabledial == '0') { }  | 
 
| 
2117
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2132
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2141
 | 
 0  | 
 0  | 
 if ($emergency == '0')  | 
 
| 
2142
 | 
 0  | 
 0  | 
 if ($emergency == '1')  | 
 
| 
2143
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2152
 | 
 0  | 
 0  | 
 if ($catrate == '00')  | 
 
| 
2153
 | 
 0  | 
 0  | 
 if ($catrate == '01')  | 
 
| 
2154
 | 
 0  | 
 0  | 
 if ($catrate == '10')  | 
 
| 
2155
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2169
 | 
 0  | 
 0  | 
 if ($apotime == '0')  | 
 
| 
2170
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2179
 | 
 0  | 
 0  | 
 if ($memgroup == '0')  | 
 
| 
2180
 | 
 0  | 
 0  | 
 if ($memgroup == '1')  | 
 
| 
2181
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2190
 | 
 0  | 
 0  | 
 if ($digmode == '000')  | 
 
| 
2191
 | 
 0  | 
 0  | 
 if ($digmode == '001')  | 
 
| 
2192
 | 
 0  | 
 0  | 
 if ($digmode == '010')  | 
 
| 
2193
 | 
 0  | 
 0  | 
 if ($digmode == '011')  | 
 
| 
2194
 | 
 0  | 
 0  | 
 if ($digmode == '100')  | 
 
| 
2195
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2209
 | 
 0  | 
 0  | 
 if ($tottime == 0)  | 
 
| 
2210
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2219
 | 
 0  | 
 0  | 
 if ($dcsinv == '00')  | 
 
| 
2220
 | 
 0  | 
 0  | 
 if ($dcsinv == '01')  | 
 
| 
2221
 | 
 0  | 
 0  | 
 if ($dcsinv == '10')  | 
 
| 
2222
 | 
 0  | 
 0  | 
 if ($dcsinv == '11')  | 
 
| 
2223
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2237
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2246
 | 
 0  | 
 0  | 
 if ($micscan == '0')  | 
 
| 
2247
 | 
 0  | 
 0  | 
 if ($micscan == '1')  | 
 
| 
2248
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2262
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2271
 | 
 0  | 
 0  | 
 if ($mickey == '0')  | 
 
| 
2272
 | 
 0  | 
 0  | 
 if ($mickey == '1')  | 
 
| 
2273
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2287
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2301
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2315
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2324
 | 
 0  | 
 0  | 
 if ($extmenu == '0')  | 
 
| 
2325
 | 
 0  | 
 0  | 
 if ($extmenu == '1')  | 
 
| 
2326
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2340
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2354
 | 
 0  | 
 0  | 
 if ($decvalue >= 0 and $decvalue <= 300)  | 
 
| 
2355
 | 
 0  | 
 0  | 
 if ($decvalue > 65235)  | 
 
| 
2357
 | 
 0  | 
 0  | 
 if ($newvalue != '0')  | 
 
| 
2358
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2371
 | 
 0  | 
 0  | 
 if ($decvalue >= 0 and $decvalue <= 300)  | 
 
| 
2372
 | 
 0  | 
 0  | 
 if ($decvalue > 65235)  | 
 
| 
2374
 | 
 0  | 
 0  | 
 if ($newvalue != '0')  | 
 
| 
2375
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2387
 | 
 0  | 
 0  | 
 if ($decvalue >= 0 and $decvalue <= 30)  | 
 
| 
2388
 | 
 0  | 
 0  | 
 if ($decvalue > 224)  | 
 
| 
2390
 | 
 0  | 
 0  | 
 if ($newvalue != '0')  | 
 
| 
2391
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2403
 | 
 0  | 
 0  | 
 if ($decvalue >= 0 and $decvalue <= 30)  | 
 
| 
2404
 | 
 0  | 
 0  | 
 if ($decvalue > 224)  | 
 
| 
2406
 | 
 0  | 
 0  | 
 if ($newvalue != '0')  | 
 
| 
2407
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2419
 | 
 0  | 
 0  | 
 if ($decvalue >= 0 and $decvalue <= 30)  | 
 
| 
2420
 | 
 0  | 
 0  | 
 if ($decvalue > 224)  | 
 
| 
2422
 | 
 0  | 
 0  | 
 if ($newvalue != '0')  | 
 
| 
2423
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2435
 | 
 0  | 
 0  | 
 if ($decvalue >= 0 and $decvalue <= 30)  | 
 
| 
2436
 | 
 0  | 
 0  | 
 if ($decvalue > 224)  | 
 
| 
2438
 | 
 0  | 
 0  | 
 if ($newvalue != '0')  | 
 
| 
2439
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2451
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2460
 | 
 0  | 
 0  | 
 if ($pri == '0')  | 
 
| 
2461
 | 
 0  | 
 0  | 
 if ($pri == '1')  | 
 
| 
2462
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2471
 | 
 0  | 
 0  | 
 if ($dw == '0')  | 
 
| 
2472
 | 
 0  | 
 0  | 
 if ($dw == '1')  | 
 
| 
2473
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2482
 | 
 0  | 
 0  | 
 if ($scn == '00')  | 
 
| 
2483
 | 
 0  | 
 0  | 
 if ($scn == '10')  | 
 
| 
2484
 | 
 0  | 
 0  | 
 if ($scn == '11')  | 
 
| 
2485
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2494
 | 
 0  | 
 0  | 
 if ($arts == '0')  | 
 
| 
2495
 | 
 0  | 
 0  | 
 if ($arts == '1')  | 
 
| 
2496
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2509
 | 
 0  | 
 0  | 
 if ($value eq 'HF')  | 
 
| 
2510
 | 
 0  | 
 0  | 
 if ($value eq '6M')  | 
 
| 
2511
 | 
 0  | 
 0  | 
 if ($value eq 'FMBCB')  | 
 
| 
2512
 | 
 0  | 
 0  | 
 if ($value eq 'AIR')  | 
 
| 
2513
 | 
 0  | 
 0  | 
 if ($value eq 'VHF')  | 
 
| 
2514
 | 
 0  | 
 0  | 
 if ($value eq 'UHF')  | 
 
| 
2515
 | 
 0  | 
 0  | 
 if ($antenna == 0)  | 
 
| 
2516
 | 
 0  | 
 0  | 
 if ($antenna == 1)  | 
 
| 
2517
 | 
 0  | 
 0  | 
 if ($value and $value ne 'ALL')  | 
 
| 
2518
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2520
 | 
 0  | 
 0  | 
 if (not $value or $value eq 'ALL')  | 
 
| 
2526
 | 
 0  | 
 0  | 
 if ($antenna == 0)  | 
 
| 
2527
 | 
 0  | 
 0  | 
 if ($antenna == 1)  | 
 
| 
2542
 | 
 0  | 
 0  | 
 if ($spl == '0')  | 
 
| 
2543
 | 
 0  | 
 0  | 
 if ($spl == '1')  | 
 
| 
2544
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2558
 | 
 0  | 
 0  | 
 if ($test == '0')  | 
 
| 
2559
 | 
 0  | 
 0  | 
 if ($test == '1')  | 
 
| 
2560
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::charger eq 'OFF')  | 
 
| 
2561
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2563
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::charger eq 'ON')  | 
 
| 
2564
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2579
 | 
 0  | 
 0  | 
 unless ($value)  | 
 
| 
2580
 | 
 0  | 
 0  | 
 if ($vfo ne 'A' and $vfo ne 'B' and $vfo ne 'MTQMB' and $vfo ne 'MTUNE')  | 
 
| 
2581
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2585
 | 
 0  | 
 0  | 
 if ($vfo eq 'MTQMB')  | 
 
| 
2586
 | 
 0  | 
 0  | 
 if ($vfo eq 'MTUNE')  | 
 
| 
2589
 | 
 0  | 
 0  | 
 if ($testvfoband eq '')  | 
 
| 
2590
 | 
 0  | 
 0  | 
 if ($band ne 'MTQMB' and $band ne 'MTUNE')  | 
 
| 
2591
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2597
 | 
 0  | 
 0  | 
 if (not $testoptions and $value ne 'ALL')  | 
 
| 
2598
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2604
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
2610
 | 
 0  | 
 0  | 
 if ($vfo eq 'A')  | 
 
| 
2611
 | 
 0  | 
 0  | 
 if ($vfo eq 'B')  | 
 
| 
2613
 | 
 0  | 
 0  | 
 if ($value eq 'MODE' or $value eq 'ALL')  | 
 
| 
2620
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2621
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2628
 | 
 0  | 
 0  | 
 if ($value eq 'NARFM' or $value eq 'ALL')  | 
 
| 
2634
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
2635
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
2636
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2637
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2643
 | 
 0  | 
 0  | 
 if ($value eq 'NARCWDIG' or $value eq 'ALL')  | 
 
| 
2649
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
2650
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
2651
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2652
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2658
 | 
 0  | 
 0  | 
 if ($value eq 'RPTOFFSET' or $value eq 'ALL')  | 
 
| 
2664
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '00')  | 
 
| 
2665
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '01')  | 
 
| 
2666
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '10')  | 
 
| 
2667
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '11')  | 
 
| 
2668
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2669
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2675
 | 
 0  | 
 0  | 
 if ($value eq 'TONEDCS' or $value eq 'ALL')  | 
 
| 
2681
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '00')  | 
 
| 
2682
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '01')  | 
 
| 
2683
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '10')  | 
 
| 
2684
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '11')  | 
 
| 
2685
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2686
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2692
 | 
 0  | 
 0  | 
 if ($value eq 'ATT' or $value eq 'ALL')  | 
 
| 
2698
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
2699
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
2700
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2701
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2707
 | 
 0  | 
 0  | 
 if ($value eq 'IPO' or $value eq 'ALL')  | 
 
| 
2713
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
2714
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
2715
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2716
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2722
 | 
 0  | 
 0  | 
 if ($value eq 'FMSTEP' or $value eq 'ALL')  | 
 
| 
2728
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2729
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2735
 | 
 0  | 
 0  | 
 if ($value eq 'AMSTEP' or $value eq 'ALL')  | 
 
| 
2741
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2742
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2748
 | 
 0  | 
 0  | 
 if ($value eq 'SSBSTEP' or $value eq 'ALL')  | 
 
| 
2754
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '00')  | 
 
| 
2755
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '01')  | 
 
| 
2756
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '10')  | 
 
| 
2757
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2758
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2764
 | 
 0  | 
 0  | 
 if ($value eq 'CTCSSTONE' or $value eq 'ALL')  | 
 
| 
2771
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2772
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2778
 | 
 0  | 
 0  | 
 if ($value eq 'DCSCODE' or $value eq 'ALL')  | 
 
| 
2785
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2786
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2792
 | 
 0  | 
 0  | 
 if ($value eq 'CLARIFIER' or $value eq 'ALL')  | 
 
| 
2798
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
2799
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
2800
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2801
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2807
 | 
 0  | 
 0  | 
 if ($value eq 'CLAROFFSET' or $value eq 'ALL')  | 
 
| 
2815
 | 
 0  | 
 0  | 
 if ($decvalue > 999)  | 
 
| 
2816
 | 
 0  | 
 0  | 
 if ($decvalue >= 0 and $decvalue <= 999)  | 
 
| 
2818
 | 
 0  | 
 0  | 
 if ($vallength == 1)  | 
 
| 
2819
 | 
 0  | 
 0  | 
 if ($vallength == 2)  | 
 
| 
2820
 | 
 0  | 
 0  | 
 if ($vallength == 3)  | 
 
| 
2825
 | 
 0  | 
 0  | 
 if ($vallength == 4)  | 
 
| 
2831
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2832
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2838
 | 
 0  | 
 0  | 
 if ($value eq 'RXFREQ' or $value eq 'ALL')  | 
 
| 
2849
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2850
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2856
 | 
 0  | 
 0  | 
 if ($value eq 'RPTOFFSETFREQ' or $value eq 'ALL')  | 
 
| 
2866
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2867
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
2872
 | 
 0  | 
 0  | 
 if ($value eq 'ALL')  | 
 
| 
2888
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '201')  | 
 
| 
2889
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '202')  | 
 
| 
2890
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2902
 | 
 0  | 
 0  | 
 if ($number eq 'M-PL')  | 
 
| 
2903
 | 
 0  | 
 0  | 
 if ($number eq 'M-PU')  | 
 
| 
2904
 | 
 0  | 
 0  | 
 if ($number < 1 or $number > 202)  | 
 
| 
2905
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2913
 | 
 0  | 
 0  | 
 if ($test == '0')  | 
 
| 
2914
 | 
 0  | 
 0  | 
 if ($test == '1')  | 
 
| 
2915
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2923
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2931
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output eq 'ACTIVE')  | 
 
| 
2942
 | 
 0  | 
 0  | 
 if ($encoder eq 'TONE' or $encoder eq 'TONETSQ') { }  | 
 
| 
 | 
 0  | 
 0  | 
 elsif ($encoder eq 'DCS') { }  | 
 
| 
2950
 | 
 0  | 
 0  | 
 if ($currentmem == '201')  | 
 
| 
2951
 | 
 0  | 
 0  | 
 if ($currentmem == '202')  | 
 
| 
2953
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2960
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2972
 | 
 0  | 
 0  | 
 if ($subtype eq 'M-PL')  | 
 
| 
2973
 | 
 0  | 
 0  | 
 if ($subtype eq 'M-PU')  | 
 
| 
2978
 | 
 0  | 
 0  | 
 unless ($value)  | 
 
| 
2979
 | 
 0  | 
 0  | 
 if ($type ne 'HOME' and $type ne 'QMB' and $type ne 'M-PL' and $type ne 'M-PU' and $type ne 'MEM')  | 
 
| 
2980
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2985
 | 
 0  | 
 0  | 
 if (not $testoptions and $value ne 'ALL')  | 
 
| 
2986
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
2992
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
2998
 | 
 0  | 
 0  | 
 if ($type eq 'HOME')  | 
 
| 
2999
 | 
 0  | 
 0  | 
 if ($type eq 'QMB')  | 
 
| 
3000
 | 
 0  | 
 0  | 
 if ($type eq 'MEM')  | 
 
| 
3002
 | 
 0  | 
 0  | 
 if ($type eq 'MEM')  | 
 
| 
3003
 | 
 0  | 
 0  | 
 if ($memnum > 1)  | 
 
| 
3009
 | 
 0  | 
 0  | 
 if ($value eq 'READY' or $value eq 'ALL')  | 
 
| 
3015
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3016
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3017
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3021
 | 
 0  | 
 0  | 
 if ($value eq 'MODE' or $value eq 'ALL')  | 
 
| 
3028
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3029
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3035
 | 
 0  | 
 0  | 
 if ($value eq 'HFVHF' or $value eq 'ALL')  | 
 
| 
3041
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3042
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3043
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3044
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3050
 | 
 0  | 
 0  | 
 if ($value eq 'TAG' or $value eq 'ALL')  | 
 
| 
3056
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3057
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3058
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3059
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3065
 | 
 0  | 
 0  | 
 if ($value eq 'FREQRANGE' or $value eq 'ALL')  | 
 
| 
3071
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '000')  | 
 
| 
3072
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '001')  | 
 
| 
3073
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '010')  | 
 
| 
3074
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '011')  | 
 
| 
3075
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '100')  | 
 
| 
3076
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '101')  | 
 
| 
3077
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3078
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3084
 | 
 0  | 
 0  | 
 if ($value eq 'NARFM' or $value eq 'ALL')  | 
 
| 
3090
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3091
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3092
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3093
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3099
 | 
 0  | 
 0  | 
 if ($value eq 'NARCWDIG' or $value eq 'ALL')  | 
 
| 
3105
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3106
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3107
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3108
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3114
 | 
 0  | 
 0  | 
 if ($value eq 'UHF' or $value eq 'ALL')  | 
 
| 
3120
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3121
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3122
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3123
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3129
 | 
 0  | 
 0  | 
 if ($value eq 'RPTOFFSET' or $value eq 'ALL')  | 
 
| 
3135
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '00')  | 
 
| 
3136
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '01')  | 
 
| 
3137
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '10')  | 
 
| 
3138
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '11')  | 
 
| 
3139
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3140
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3146
 | 
 0  | 
 0  | 
 if ($value eq 'TONEDCS' or $value eq 'ALL')  | 
 
| 
3152
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '00')  | 
 
| 
3153
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '01')  | 
 
| 
3154
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '10')  | 
 
| 
3155
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '11')  | 
 
| 
3156
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3157
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3163
 | 
 0  | 
 0  | 
 if ($value eq 'ATT' or $value eq 'ALL')  | 
 
| 
3169
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3170
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3171
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3172
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3178
 | 
 0  | 
 0  | 
 if ($value eq 'IPO' or $value eq 'ALL')  | 
 
| 
3184
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3185
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3186
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3187
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3193
 | 
 0  | 
 0  | 
 if ($value eq 'MEMSKIP' or $value eq 'ALL')  | 
 
| 
3199
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3200
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3201
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3202
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3208
 | 
 0  | 
 0  | 
 if ($value eq 'FMSTEP' or $value eq 'ALL')  | 
 
| 
3214
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3215
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3221
 | 
 0  | 
 0  | 
 if ($value eq 'AMSTEP' or $value eq 'ALL')  | 
 
| 
3227
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3228
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3234
 | 
 0  | 
 0  | 
 if ($value eq 'SSBSTEP' or $value eq 'ALL')  | 
 
| 
3240
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '00')  | 
 
| 
3241
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '01')  | 
 
| 
3242
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '10')  | 
 
| 
3243
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3244
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3250
 | 
 0  | 
 0  | 
 if ($value eq 'CTCSSTONE' or $value eq 'ALL')  | 
 
| 
3257
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3258
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3264
 | 
 0  | 
 0  | 
 if ($value eq 'DCSCODE' or $value eq 'ALL')  | 
 
| 
3271
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3272
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3278
 | 
 0  | 
 0  | 
 if ($value eq 'CLARIFIER' or $value eq 'ALL')  | 
 
| 
3284
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '1')  | 
 
| 
3285
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::output == '0')  | 
 
| 
3286
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3287
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3293
 | 
 0  | 
 0  | 
 if ($value eq 'CLAROFFSET' or $value eq 'ALL')  | 
 
| 
3300
 | 
 0  | 
 0  | 
 if ($decvalue > 999)  | 
 
| 
3301
 | 
 0  | 
 0  | 
 if ($decvalue >= 0 and $decvalue <= 999)  | 
 
| 
3303
 | 
 0  | 
 0  | 
 if ($vallength == 1)  | 
 
| 
3304
 | 
 0  | 
 0  | 
 if ($vallength == 2)  | 
 
| 
3305
 | 
 0  | 
 0  | 
 if ($vallength == 3)  | 
 
| 
3310
 | 
 0  | 
 0  | 
 if ($vallength == 4)  | 
 
| 
3316
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3317
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3323
 | 
 0  | 
 0  | 
 if ($value eq 'RXFREQ' or $value eq 'ALL')  | 
 
| 
3334
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3335
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3341
 | 
 0  | 
 0  | 
 if ($value eq 'RPTOFFSETFREQ' or $value eq 'ALL')  | 
 
| 
3351
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3352
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3358
 | 
 0  | 
 0  | 
 if ($value eq 'LABEL' or $value eq 'ALL')  | 
 
| 
3375
 | 
 0  | 
 0  | 
 unless ($label)  | 
 
| 
3376
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3377
 | 
 0  | 
 0  | 
 if ($value eq 'ALL') { }  | 
 
| 
3382
 | 
 0  | 
 0  | 
 if ($value eq 'ALL')  | 
 
| 
3415
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3431
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow != '1' and $Ham::Device::FT817COMM::agreewithwarning != '1')  | 
 
| 
3432
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug or $Ham::Device::FT817COMM::verbose)  | 
 
| 
3436
 | 
 0  | 
 0  | 
 unless ($calfile)  | 
 
| 
3437
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3440
 | 
 0  | 
 0  | 
 unless open CALFILE, "$calfile"  | 
 
| 
3441
 | 
 0  | 
 0  | 
 if ($error) { }  | 
 
| 
3442
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3453
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3456
 | 
 0  | 
 0  | 
 if ($test ne '00')  | 
 
| 
3458
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if (length($ln[0]) + length($ln[3]) != 6)  | 
 
| 
3461
 | 
 0  | 
 0  | 
 if ($linecount != '77')  | 
 
| 
3462
 | 
 0  | 
 0  | 
 if ($error) { }  | 
 
| 
3463
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3470
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3473
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3476
 | 
 0  | 
 0  | 
 if ($test ne '00')  | 
 
| 
3477
 | 
 0  | 
 0  | 
 if ($skip == 0)  | 
 
| 
3478
 | 
 0  | 
 0  | 
 if ($skip == 1)  | 
 
| 
3479
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3482
 | 
 0  | 
 0  | 
 if ($writestatus ne 'OK')  | 
 
| 
3486
 | 
 0  | 
 0  | 
 if (not $error) { }  | 
 
| 
3487
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3490
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3503
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow != '1' and $Ham::Device::FT817COMM::agreewithwarning != '1')  | 
 
| 
3504
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug or $Ham::Device::FT817COMM::verbose)  | 
 
| 
3507
 | 
 0  | 
 0  | 
 unless ($cfgfile)  | 
 
| 
3508
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3511
 | 
 0  | 
 0  | 
 unless open CFGFILE, "$cfgfile"  | 
 
| 
3512
 | 
 0  | 
 0  | 
 if ($error) { }  | 
 
| 
3513
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3525
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3528
 | 
 0  | 
 0  | 
 if ($test < 1)  | 
 
| 
3530
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 unless ($ln[0] or $ln[1] or $ln[2])  | 
 
| 
3533
 | 
 0  | 
 0  | 
 if ($linecount != '50')  | 
 
| 
3534
 | 
 0  | 
 0  | 
 if ($error) { }  | 
 
| 
3535
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3539
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3542
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3545
 | 
 0  | 
 0  | 
 if ($test < 1)  | 
 
| 
3548
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3560
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3572
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 unless ($value)  | 
 
| 
3573
 | 
 0  | 
 0  | 
 if (-e $value)  | 
 
| 
3574
 | 
 0  | 
 0  | 
 unless open FILE, '>>', "$value"  | 
 
| 
3579
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3584
 | 
 0  | 
 0  | 
 if ($ready eq 'YES')  | 
 
| 
3590
 | 
 0  | 
 0  | 
 if ($currentmem > 1)  | 
 
| 
3601
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3607
 | 
 0  | 
 0  | 
 if ($size < 2)  | 
 
| 
3609
 | 
 0  | 
 0  | 
 if ($size < 2)  | 
 
| 
3620
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3633
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow != '1' and $Ham::Device::FT817COMM::agreewithwarning != '1')  | 
 
| 
3634
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug or $Ham::Device::FT817COMM::verbose)  | 
 
| 
3637
 | 
 0  | 
 0  | 
 unless ($memfile)  | 
 
| 
3638
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3641
 | 
 0  | 
 0  | 
 unless open MEMFILE, "$memfile"  | 
 
| 
3642
 | 
 0  | 
 0  | 
 if ($error) { }  | 
 
| 
3643
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3655
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3659
 | 
 0  | 
 0  | 
 if ($test < 1)  | 
 
| 
3661
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 unless ($ln[0] or $ln[1])  | 
 
| 
3664
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($testnumber != '26')  | 
 
| 
3667
 | 
 0  | 
 0  | 
 if ($error)  | 
 
| 
3668
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3671
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3673
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3682
 | 
 0  | 
 0  | 
 if ($test < 1)  | 
 
| 
3684
 | 
 0  | 
 0  | 
 if ($ln[0] > 1)  | 
 
| 
3694
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3700
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus ne 'OK')  | 
 
| 
3704
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 unless ($error)  | 
 
| 
3707
 | 
 0  | 
 0  | 
 if (not $error) { }  | 
 
| 
3708
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3711
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3725
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 unless ($value)  | 
 
| 
3727
 | 
 0  | 
 0  | 
 if (-e $value)  | 
 
| 
3728
 | 
 0  | 
 0  | 
 unless open FILE, '>>', "$value"  | 
 
| 
3786
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3796
 | 
 0  | 
 0  | 
 if ($value ne 'MTUNE' and $value ne 'MEMORY')  | 
 
| 
3797
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3803
 | 
 0  | 
 0  | 
 if ($value eq $currentmtune)  | 
 
| 
3804
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3807
 | 
 0  | 
 0  | 
 if ($value eq 'MTUNE')  | 
 
| 
3808
 | 
 0  | 
 0  | 
 if ($value eq 'MEMORY')  | 
 
| 
3809
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3810
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
3821
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
3822
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3828
 | 
 0  | 
 0  | 
 if ($value eq $currentmtqmb)  | 
 
| 
3829
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3832
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
3833
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
3834
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3835
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
3846
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
3847
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3853
 | 
 0  | 
 0  | 
 if ($value eq $currentqmb)  | 
 
| 
3854
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3857
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
3858
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
3859
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3860
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
3871
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
3872
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3878
 | 
 0  | 
 0  | 
 if ($value eq $currenthome)  | 
 
| 
3879
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3882
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
3883
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
3884
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3885
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
3896
 | 
 0  | 
 0  | 
 if ($value ne 'A' and $value ne 'B')  | 
 
| 
3897
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3903
 | 
 0  | 
 0  | 
 if ($value eq $currentvfo)  | 
 
| 
3904
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3907
 | 
 0  | 
 0  | 
 if ($value eq 'A')  | 
 
| 
3908
 | 
 0  | 
 0  | 
 if ($value eq 'B')  | 
 
| 
3909
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3910
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
3921
 | 
 0  | 
 0  | 
 if ($value ne 'MEMORY' and $value ne 'VFO')  | 
 
| 
3922
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3928
 | 
 0  | 
 0  | 
 if ($value eq $currenttuner)  | 
 
| 
3929
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3932
 | 
 0  | 
 0  | 
 if ($value eq 'MEMORY')  | 
 
| 
3933
 | 
 0  | 
 0  | 
 if ($value eq 'VFO')  | 
 
| 
3934
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3935
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
3947
 | 
 0  | 
 0  | 
 if ($value ne 'AUTO' and $value ne 'SLOW' and $value ne 'FAST' and $value ne 'OFF')  | 
 
| 
3948
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3954
 | 
 0  | 
 0  | 
 if ($value eq $currentagc)  | 
 
| 
3955
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3959
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
3960
 | 
 0  | 
 0  | 
 if ($value eq 'SLOW')  | 
 
| 
3961
 | 
 0  | 
 0  | 
 if ($value eq 'FAST')  | 
 
| 
3962
 | 
 0  | 
 0  | 
 if ($value eq 'AUTO')  | 
 
| 
3965
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3966
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
3978
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
3979
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3985
 | 
 0  | 
 0  | 
 if ($value eq $currentnb)  | 
 
| 
3986
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3989
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
3990
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
3991
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
3992
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4004
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4005
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4011
 | 
 0  | 
 0  | 
 if ($value eq $currentdsp)  | 
 
| 
4012
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4015
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4016
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4017
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4018
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4030
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4031
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4037
 | 
 0  | 
 0  | 
 if ($value eq $currentpbt)  | 
 
| 
4038
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4041
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4042
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4043
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4044
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4056
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4057
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4063
 | 
 0  | 
 0  | 
 if ($value eq $currentlock)  | 
 
| 
4064
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4067
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4068
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4069
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4070
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4082
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4083
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4089
 | 
 0  | 
 0  | 
 if ($value eq $currenttuning)  | 
 
| 
4090
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4093
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4094
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4095
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4096
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4108
 | 
 0  | 
 0  | 
 if ($value ne 'PWR' and $value ne 'ALC' and $value ne 'SWR' and $value ne 'MOD')  | 
 
| 
4109
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4115
 | 
 0  | 
 0  | 
 if ($value eq $currentpwrmtr)  | 
 
| 
4116
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4120
 | 
 0  | 
 0  | 
 if ($value eq 'PWR')  | 
 
| 
4121
 | 
 0  | 
 0  | 
 if ($value eq 'ALC')  | 
 
| 
4122
 | 
 0  | 
 0  | 
 if ($value eq 'SWR')  | 
 
| 
4123
 | 
 0  | 
 0  | 
 if ($value eq 'MOD')  | 
 
| 
4126
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4127
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4139
 | 
 0  | 
 0  | 
 if ($value ne 'NORMAL' and $value ne 'REVERSE')  | 
 
| 
4140
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4146
 | 
 0  | 
 0  | 
 if ($value eq $currentcwpaddle)  | 
 
| 
4147
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4150
 | 
 0  | 
 0  | 
 if ($value eq 'NORMAL')  | 
 
| 
4151
 | 
 0  | 
 0  | 
 if ($value eq 'REVERSE')  | 
 
| 
4152
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4153
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4165
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4166
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4172
 | 
 0  | 
 0  | 
 if ($value eq $currentkyr)  | 
 
| 
4173
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4176
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4177
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4178
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4179
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4191
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4192
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4198
 | 
 0  | 
 0  | 
 if ($value eq $currentbk)  | 
 
| 
4199
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4202
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4203
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4204
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4205
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4217
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4218
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4224
 | 
 0  | 
 0  | 
 if ($value eq $currentvlt)  | 
 
| 
4225
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4228
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4229
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4230
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4231
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4243
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4244
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4250
 | 
 0  | 
 0  | 
 if ($value eq $currentvox)  | 
 
| 
4251
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4254
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4255
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4256
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4257
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4271
 | 
 0  | 
 0  | 
 if ($vfo ne 'A' and $vfo ne 'B')  | 
 
| 
4272
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4277
 | 
 0  | 
 0  | 
 if ($testvfoband eq '')  | 
 
| 
4278
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4284
 | 
 0  | 
 0  | 
 if ($currentband eq $value)  | 
 
| 
4285
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4289
 | 
 0  | 
 0  | 
 if ($vfo eq 'A')  | 
 
| 
4290
 | 
 0  | 
 0  | 
 if ($vfo eq 'B')  | 
 
| 
4293
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4294
 | 
 0  | 
 0  | 
 if ($writestatus eq 'OK') { }  | 
 
| 
4307
 | 
 0  | 
 0  | 
 if ($value < 1 or $value > 12)  | 
 
| 
4308
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4314
 | 
 0  | 
 0  | 
 if ($value eq $currentcontrast)  | 
 
| 
4315
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4326
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4327
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4339
 | 
 0  | 
 0  | 
 if ($value ne 'BLUE' and $value ne 'AMBER')  | 
 
| 
4340
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4346
 | 
 0  | 
 0  | 
 if ($currentcolor eq $value)  | 
 
| 
4347
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4350
 | 
 0  | 
 0  | 
 if ($value eq 'BLUE')  | 
 
| 
4351
 | 
 0  | 
 0  | 
 if ($value eq 'AMBER')  | 
 
| 
4352
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4353
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4365
 | 
 0  | 
 0  | 
 if ($value ne 'OFF' and $value ne 'ON' and $value ne 'AUTO')  | 
 
| 
4366
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4372
 | 
 0  | 
 0  | 
 if ($value eq $currentbacklight)  | 
 
| 
4373
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4377
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4378
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4379
 | 
 0  | 
 0  | 
 if ($value eq 'AUTO')  | 
 
| 
4382
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4383
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4396
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 100)  | 
 
| 
4397
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4403
 | 
 0  | 
 0  | 
 if ($value eq $currentbeepvol)  | 
 
| 
4404
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4413
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4414
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4427
 | 
 0  | 
 0  | 
 if ($value == '440' and $value == '880')  | 
 
| 
4428
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4434
 | 
 0  | 
 0  | 
 if ($currentbeepfreq eq $value)  | 
 
| 
4435
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4438
 | 
 0  | 
 0  | 
 if ($value == '440')  | 
 
| 
4439
 | 
 0  | 
 0  | 
 if ($value == '880')  | 
 
| 
4440
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4441
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4454
 | 
 0  | 
 0  | 
 if ($value ne 'OFF' and $value ne '3' and $value ne '5' and $value ne '10')  | 
 
| 
4455
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4461
 | 
 0  | 
 0  | 
 if ($value eq $currentresumescan)  | 
 
| 
4462
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4466
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4467
 | 
 0  | 
 0  | 
 if ($value eq '3')  | 
 
| 
4468
 | 
 0  | 
 0  | 
 if ($value eq '5')  | 
 
| 
4469
 | 
 0  | 
 0  | 
 if ($value eq '10')  | 
 
| 
4472
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4473
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4485
 | 
 0  | 
 0  | 
 if ($value != '1200' and $value != '9600')  | 
 
| 
4486
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4492
 | 
 0  | 
 0  | 
 if ($currentpktrate eq $value)  | 
 
| 
4493
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4496
 | 
 0  | 
 0  | 
 if ($value == '1200')  | 
 
| 
4497
 | 
 0  | 
 0  | 
 if ($value == '9600')  | 
 
| 
4498
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4499
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4511
 | 
 0  | 
 0  | 
 if ($value ne 'CONT' and $value ne 'CHK')  | 
 
| 
4512
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4518
 | 
 0  | 
 0  | 
 if ($currentscope eq $value)  | 
 
| 
4519
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4522
 | 
 0  | 
 0  | 
 if ($value eq 'CONT')  | 
 
| 
4523
 | 
 0  | 
 0  | 
 if ($value eq 'CHK')  | 
 
| 
4524
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4525
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4537
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4538
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4544
 | 
 0  | 
 0  | 
 if ($currentcwid eq $value)  | 
 
| 
4545
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4548
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4549
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4550
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4551
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4563
 | 
 0  | 
 0  | 
 if ($value ne 'COURSE' and $value ne 'FINE')  | 
 
| 
4564
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4570
 | 
 0  | 
 0  | 
 if ($currentmainstep eq $value)  | 
 
| 
4571
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4574
 | 
 0  | 
 0  | 
 if ($value eq 'FINE')  | 
 
| 
4575
 | 
 0  | 
 0  | 
 if ($value eq 'COURSE')  | 
 
| 
4576
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4577
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4589
 | 
 0  | 
 0  | 
 if ($value ne 'OFF' and $value ne 'ALL' and $value ne 'RANGE')  | 
 
| 
4590
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4596
 | 
 0  | 
 0  | 
 if ($value eq $currentartsmode)  | 
 
| 
4597
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4601
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4602
 | 
 0  | 
 0  | 
 if ($value eq 'RANGE')  | 
 
| 
4603
 | 
 0  | 
 0  | 
 if ($value eq 'ALL')  | 
 
| 
4606
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4607
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4621
 | 
 0  | 
 0  | 
 if ($value < 300 or $value > 1000)  | 
 
| 
4622
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4626
 | 
 0  | 
 0  | 
 if ($testvalue != '00' and $testvalue != '50')  | 
 
| 
4627
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4633
 | 
 0  | 
 0  | 
 if ($value eq $currentcwpitch)  | 
 
| 
4634
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4646
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4647
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4659
 | 
 0  | 
 0  | 
 if ($value ne 'DIAL' and $value ne 'FREQ' and $value ne 'PANEL')  | 
 
| 
4660
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4666
 | 
 0  | 
 0  | 
 if ($value eq $currentlockmode)  | 
 
| 
4667
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4671
 | 
 0  | 
 0  | 
 if ($value eq 'DIAL')  | 
 
| 
4672
 | 
 0  | 
 0  | 
 if ($value eq 'FREQ')  | 
 
| 
4673
 | 
 0  | 
 0  | 
 if ($value eq 'PANEL')  | 
 
| 
4676
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4677
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4689
 | 
 0  | 
 0  | 
 if ($value ne 'OFF' and $value ne 'SSB' and $value ne 'CW')  | 
 
| 
4690
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4696
 | 
 0  | 
 0  | 
 if ($value eq $currentopfilter)  | 
 
| 
4697
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4701
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4702
 | 
 0  | 
 0  | 
 if ($value eq 'SSB')  | 
 
| 
4703
 | 
 0  | 
 0  | 
 if ($value eq 'CW')  | 
 
| 
4706
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4707
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4722
 | 
 0  | 
 0  | 
 if ($testvalue < 25 or $testvalue > 45)  | 
 
| 
4723
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4730
 | 
 0  | 
 0  | 
 if ($currentcwweight eq $testcwweight)  | 
 
| 
4731
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4743
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4744
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4756
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4757
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4763
 | 
 0  | 
 0  | 
 if ($currentars144 eq $value)  | 
 
| 
4764
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4767
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4768
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4769
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4770
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4782
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
4783
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4789
 | 
 0  | 
 0  | 
 if ($currentars430 eq $value)  | 
 
| 
4790
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4793
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
4794
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
4795
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4796
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4808
 | 
 0  | 
 0  | 
 if ($value ne 'RFGAIN' and $value ne 'SQUELCH')  | 
 
| 
4809
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4815
 | 
 0  | 
 0  | 
 if ($currentknob eq $value)  | 
 
| 
4816
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4819
 | 
 0  | 
 0  | 
 if ($value eq 'RFGAIN')  | 
 
| 
4820
 | 
 0  | 
 0  | 
 if ($value eq 'SQUELCH')  | 
 
| 
4821
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4822
 | 
 0  | 
 0  | 
 if ($writestatus eq 'OK') { }  | 
 
| 
4835
 | 
 0  | 
 0  | 
 if ($value < 10 or $value > 2500)  | 
 
| 
4836
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4840
 | 
 0  | 
 0  | 
 if ($testvalue != '0')  | 
 
| 
4841
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4847
 | 
 0  | 
 0  | 
 if ($value eq $currentcwdelay)  | 
 
| 
4848
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4856
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4857
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4870
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 100)  | 
 
| 
4871
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4874
 | 
 0  | 
 0  | 
 if (length $value == 0)  | 
 
| 
4875
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4881
 | 
 0  | 
 0  | 
 if ($value eq $currentsidetonevol)  | 
 
| 
4882
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4892
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4893
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4906
 | 
 0  | 
 0  | 
 if ($value < 4 or $value > 60)  | 
 
| 
4907
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4914
 | 
 0  | 
 0  | 
 if ($value eq $currentcwspeed)  | 
 
| 
4915
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4926
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4927
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
4943
 | 
 0  | 
 0  | 
 if ($chargerstatus eq 'ON')  | 
 
| 
4944
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4947
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
4948
 | 
 0  | 
 0  | 
 if ($value != 10 and $value != 6 and $value != 8) { }  | 
 
| 
4949
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4954
 | 
 0  | 
 0  | 
 if ($value == 6 and $chargebits == $six or $value == 8 and $chargebits == $eight or $value == 10 and $chargebits == $ten)  | 
 
| 
4961
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
4963
 | 
 0  | 
 0  | 
 if ($value == '6')  | 
 
| 
4964
 | 
 0  | 
 0  | 
 if ($value == '8')  | 
 
| 
4965
 | 
 0  | 
 0  | 
 if ($value == '10')  | 
 
| 
4968
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
4969
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug)  | 
 
| 
4971
 | 
 0  | 
 0  | 
 if ($value == '6')  | 
 
| 
4972
 | 
 0  | 
 0  | 
 if ($value == '8')  | 
 
| 
4973
 | 
 0  | 
 0  | 
 if ($value == '10')  | 
 
| 
4976
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4977
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK' and $writestatus2 eq 'OK') { }  | 
 
| 
4990
 | 
 0  | 
 0  | 
 if ($value < 1 or $value > 100)  | 
 
| 
4991
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
4997
 | 
 0  | 
 0  | 
 if ($value eq $currentvoxgain)  | 
 
| 
4998
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5008
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5009
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5021
 | 
 0  | 
 0  | 
 if ($value ne 'ENABLE' and $value ne 'DISABLE')  | 
 
| 
5022
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5028
 | 
 0  | 
 0  | 
 if ($currentdial eq $value)  | 
 
| 
5029
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5032
 | 
 0  | 
 0  | 
 if ($value eq 'ENABLE')  | 
 
| 
5033
 | 
 0  | 
 0  | 
 if ($value eq 'DISABLE')  | 
 
| 
5034
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5035
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5048
 | 
 0  | 
 0  | 
 if ($value < 100 or $value > 2500)  | 
 
| 
5049
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5053
 | 
 0  | 
 0  | 
 if ($testvalue != '00')  | 
 
| 
5054
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5060
 | 
 0  | 
 0  | 
 if ($value eq $currentvoxdelay)  | 
 
| 
5061
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5072
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5073
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5085
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
5086
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5092
 | 
 0  | 
 0  | 
 if ($value eq $currentemergency)  | 
 
| 
5093
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5096
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
5097
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5098
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5099
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5111
 | 
 0  | 
 0  | 
 if ($value != '4800' and $value != '9600' and $value != '38400')  | 
 
| 
5112
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5118
 | 
 0  | 
 0  | 
 if ($value eq $currentcatrate)  | 
 
| 
5119
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5123
 | 
 0  | 
 0  | 
 if ($value == '4800')  | 
 
| 
5124
 | 
 0  | 
 0  | 
 if ($value == '9600')  | 
 
| 
5125
 | 
 0  | 
 0  | 
 if ($value == '38400')  | 
 
| 
5128
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5129
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5142
 | 
 0  | 
 0  | 
 if ($value ne 'OFF' and $value < 1 || $value > 6)  | 
 
| 
5143
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5149
 | 
 0  | 
 0  | 
 if ($value eq $currentapotime)  | 
 
| 
5150
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5160
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5161
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5173
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
5174
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5180
 | 
 0  | 
 0  | 
 if ($value eq $currentmemgroup)  | 
 
| 
5181
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5184
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
5185
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5186
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5187
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5199
 | 
 0  | 
 0  | 
 if ($value ne 'RTTY' and $value ne 'PSK31-L' and $value ne 'PSK31-U' and $value ne 'USER-L' and $value ne 'USER-U')  | 
 
| 
5200
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5206
 | 
 0  | 
 0  | 
 if ($value eq $currentdigmode)  | 
 
| 
5207
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5211
 | 
 0  | 
 0  | 
 if ($value eq 'RTTY')  | 
 
| 
5212
 | 
 0  | 
 0  | 
 if ($value eq 'PSK31-L')  | 
 
| 
5213
 | 
 0  | 
 0  | 
 if ($value eq 'PSK31-U')  | 
 
| 
5214
 | 
 0  | 
 0  | 
 if ($value eq 'USER-L')  | 
 
| 
5215
 | 
 0  | 
 0  | 
 if ($value eq 'USER-U')  | 
 
| 
5218
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5219
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5232
 | 
 0  | 
 0  | 
 if ($value ne 'OFF' and $value < 1 || $value > 20)  | 
 
| 
5233
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5239
 | 
 0  | 
 0  | 
 if ($value eq $currenttottime)  | 
 
| 
5240
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5243
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5251
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5252
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5264
 | 
 0  | 
 0  | 
 if ($value ne 'TN-RN' and $value ne 'TN-RIV' and $value ne 'TIV-RN' and $value ne 'TIV-RIV')  | 
 
| 
5265
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5271
 | 
 0  | 
 0  | 
 if ($value eq $currentdcsinv)  | 
 
| 
5272
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5276
 | 
 0  | 
 0  | 
 if ($value eq 'TN-RN')  | 
 
| 
5277
 | 
 0  | 
 0  | 
 if ($value eq 'TN-RIV')  | 
 
| 
5278
 | 
 0  | 
 0  | 
 if ($value eq 'TIV-RN')  | 
 
| 
5279
 | 
 0  | 
 0  | 
 if ($value eq 'TIV-RIV')  | 
 
| 
5282
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5283
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5296
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 100)  | 
 
| 
5297
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5301
 | 
 0  | 
 0  | 
 if (length $value == 0)  | 
 
| 
5302
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5309
 | 
 0  | 
 0  | 
 if ($value eq $currentssbmic)  | 
 
| 
5310
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5320
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5321
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5333
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
5334
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5340
 | 
 0  | 
 0  | 
 if ($value eq $currentmicscan)  | 
 
| 
5341
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5344
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
5345
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5346
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5347
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5360
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 100)  | 
 
| 
5361
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5365
 | 
 0  | 
 0  | 
 if (length $value == 0)  | 
 
| 
5366
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5372
 | 
 0  | 
 0  | 
 if ($value eq $currentammic)  | 
 
| 
5373
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5383
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5384
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5396
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
5397
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5403
 | 
 0  | 
 0  | 
 if ($value eq $currentmickey)  | 
 
| 
5404
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5407
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
5408
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5409
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5410
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5423
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 100)  | 
 
| 
5424
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5427
 | 
 0  | 
 0  | 
 if (length $value == 0)  | 
 
| 
5428
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5434
 | 
 0  | 
 0  | 
 if ($value eq $currentfmmic)  | 
 
| 
5435
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5445
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5446
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5459
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 100)  | 
 
| 
5460
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5463
 | 
 0  | 
 0  | 
 if (length $value == 0)  | 
 
| 
5464
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5470
 | 
 0  | 
 0  | 
 if ($value eq $currentdigmic)  | 
 
| 
5471
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5481
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5482
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5495
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 100)  | 
 
| 
5496
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5499
 | 
 0  | 
 0  | 
 if (length $value == 0)  | 
 
| 
5500
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5506
 | 
 0  | 
 0  | 
 if ($value eq $currentpktmic)  | 
 
| 
5507
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5517
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5518
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5530
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
5531
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5537
 | 
 0  | 
 0  | 
 if ($value eq $currentextmenu)  | 
 
| 
5538
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5541
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
5542
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5543
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5544
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5557
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 100)  | 
 
| 
5558
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5561
 | 
 0  | 
 0  | 
 if (length $value == 0)  | 
 
| 
5562
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5568
 | 
 0  | 
 0  | 
 if ($value eq $current9600mic)  | 
 
| 
5569
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5579
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5580
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5597
 | 
 0  | 
 0  | 
 if ($value != '0' and $polarity ne '+' and $polarity ne '-')  | 
 
| 
5598
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5601
 | 
 0  | 
 0  | 
 if ($endvalue != '0' or ($newvalue < 0 or $newvalue > 3000))  | 
 
| 
5602
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5608
 | 
 0  | 
 0  | 
 if ($value eq $currentdigshift)  | 
 
| 
5609
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5613
 | 
 0  | 
 0  | 
 if ($polarity eq '-')  | 
 
| 
5621
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK') { }  | 
 
| 
5622
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5636
 | 
 0  | 
 0  | 
 if ($value != '0' and $polarity ne '+' and $polarity ne '-')  | 
 
| 
5637
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5640
 | 
 0  | 
 0  | 
 if ($endvalue != '0' or ($newvalue < 0 or $newvalue > 3000))  | 
 
| 
5641
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5647
 | 
 0  | 
 0  | 
 if ($value eq $currentdigdisp)  | 
 
| 
5648
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5652
 | 
 0  | 
 0  | 
 if ($polarity eq '-')  | 
 
| 
5660
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK') { }  | 
 
| 
5661
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5675
 | 
 0  | 
 0  | 
 if ($value != '0' and $polarity ne '+' and $polarity ne '-')  | 
 
| 
5676
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5679
 | 
 0  | 
 0  | 
 if ($endvalue != '0' or ($newvalue < 0 or $newvalue > 300))  | 
 
| 
5680
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5686
 | 
 0  | 
 0  | 
 if ($value eq $currentrlsbcar)  | 
 
| 
5687
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5691
 | 
 0  | 
 0  | 
 if ($polarity eq '-')  | 
 
| 
5695
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK') { }  | 
 
| 
5696
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5710
 | 
 0  | 
 0  | 
 if ($value != '0' and $polarity ne '+' and $polarity ne '-')  | 
 
| 
5711
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5714
 | 
 0  | 
 0  | 
 if ($endvalue != '0' or ($newvalue < 0 or $newvalue > 300))  | 
 
| 
5715
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5721
 | 
 0  | 
 0  | 
 if ($value eq $currentrusbcar)  | 
 
| 
5722
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5726
 | 
 0  | 
 0  | 
 if ($polarity eq '-')  | 
 
| 
5730
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK') { }  | 
 
| 
5731
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5745
 | 
 0  | 
 0  | 
 if ($value != '0' and $polarity ne '+' and $polarity ne '-')  | 
 
| 
5746
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5749
 | 
 0  | 
 0  | 
 if ($endvalue != '0' or ($newvalue < 0 or $newvalue > 300))  | 
 
| 
5750
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5756
 | 
 0  | 
 0  | 
 if ($value eq $currenttlsbcar)  | 
 
| 
5757
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5761
 | 
 0  | 
 0  | 
 if ($polarity eq '-')  | 
 
| 
5765
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK') { }  | 
 
| 
5766
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5780
 | 
 0  | 
 0  | 
 if ($value != '0' and $polarity ne '+' and $polarity ne '-')  | 
 
| 
5781
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5784
 | 
 0  | 
 0  | 
 if ($endvalue != '0' or ($newvalue < 0 or $newvalue > 300))  | 
 
| 
5785
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5791
 | 
 0  | 
 0  | 
 if ($value eq $currenttusbcar)  | 
 
| 
5792
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5796
 | 
 0  | 
 0  | 
 if ($polarity eq '-')  | 
 
| 
5800
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK') { }  | 
 
| 
5801
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5815
 | 
 0  | 
 0  | 
 if ($testtxpwr eq '')  | 
 
| 
5816
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5822
 | 
 0  | 
 0  | 
 if ($currentpower eq $value)  | 
 
| 
5823
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5830
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5831
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5843
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
5844
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5851
 | 
 0  | 
 0  | 
 if ($value eq $currentpri)  | 
 
| 
5852
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5855
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
5856
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5857
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5858
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5870
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
5871
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5877
 | 
 0  | 
 0  | 
 if ($value eq $currentdw)  | 
 
| 
5878
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5881
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
5882
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5883
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5884
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5896
 | 
 0  | 
 0  | 
 if ($value ne 'OFF' and $value ne 'UP' and $value ne 'DOWN')  | 
 
| 
5897
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5903
 | 
 0  | 
 0  | 
 if ($value eq $currentscn)  | 
 
| 
5904
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5908
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5909
 | 
 0  | 
 0  | 
 if ($value eq 'UP')  | 
 
| 
5910
 | 
 0  | 
 0  | 
 if ($value eq 'DOWN')  | 
 
| 
5913
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5914
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
5926
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
5927
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5934
 | 
 0  | 
 0  | 
 if ($value eq $currentarts)  | 
 
| 
5935
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5938
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
5939
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
5940
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5941
 | 
 0  | 
 0  | 
 if ($writestatus eq 'OK') { }  | 
 
| 
5956
 | 
 0  | 
 0  | 
 if ($value ne 'HF' and $value ne '6M' and $value ne 'FMBCB' and $value ne 'AIR' and $value ne 'VHF' and $value ne 'UHF')  | 
 
| 
5957
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5961
 | 
 0  | 
 0  | 
 if ($value2 ne 'FRONT' and $value2 ne 'BACK')  | 
 
| 
5962
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5968
 | 
 0  | 
 0  | 
 if ($currentantenna eq $value2)  | 
 
| 
5969
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
5973
 | 
 0  | 
 0  | 
 if ($value2 eq 'BACK')  | 
 
| 
5974
 | 
 0  | 
 0  | 
 if ($value2 eq 'FRONT')  | 
 
| 
5975
 | 
 0  | 
 0  | 
 if ($value eq 'HF')  | 
 
| 
5976
 | 
 0  | 
 0  | 
 if ($value eq '6M')  | 
 
| 
5977
 | 
 0  | 
 0  | 
 if ($value eq 'FMBCB')  | 
 
| 
5978
 | 
 0  | 
 0  | 
 if ($value eq 'AIR')  | 
 
| 
5979
 | 
 0  | 
 0  | 
 if ($value eq 'VHF')  | 
 
| 
5980
 | 
 0  | 
 0  | 
 if ($value eq 'UHF')  | 
 
| 
5982
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose and $Ham::Device::FT817COMM::writestatus eq 'OK')  | 
 
| 
5983
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose and $Ham::Device::FT817COMM::writestatus ne 'OK')  | 
 
| 
5993
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
5994
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6000
 | 
 0  | 
 0  | 
 if ($value eq $currentspl)  | 
 
| 
6001
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6004
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
6005
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6006
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6007
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6020
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
6021
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6025
 | 
 0  | 
 0  | 
 if ($chargerstatus eq $value) { }  | 
 
| 
6026
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6030
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6031
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6032
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
6048
 | 
 0  | 
 0  | 
 if ($vfo eq 'MTQMB')  | 
 
| 
6049
 | 
 0  | 
 0  | 
 if ($vfo eq 'MTUNE')  | 
 
| 
6050
 | 
 0  | 
 0  | 
 if ($vfo ne 'A' and $vfo ne 'B')  | 
 
| 
6051
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6058
 | 
 0  | 
 0  | 
 if ($testvfoband eq '')  | 
 
| 
6059
 | 
 0  | 
 0  | 
 if ($band ne 'MTQMB' and $band ne 'MTUNE')  | 
 
| 
6060
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6066
 | 
 0  | 
 0  | 
 unless ($testoptions)  | 
 
| 
6067
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6073
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
6079
 | 
 0  | 
 0  | 
 if ($value != '0' and not $value)  | 
 
| 
6080
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6086
 | 
 0  | 
 0  | 
 if ($currentvfo eq $vfo)  | 
 
| 
6087
 | 
 0  | 
 0  | 
 if ($vfo eq 'A')  | 
 
| 
6088
 | 
 0  | 
 0  | 
 if ($vfo eq 'B')  | 
 
| 
6092
 | 
 0  | 
 0  | 
 if ($option eq 'MODE')  | 
 
| 
6097
 | 
 0  | 
 0  | 
 if ($value eq $currentmode)  | 
 
| 
6098
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6106
 | 
 0  | 
 0  | 
 unless ($mode)  | 
 
| 
6107
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6113
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
6122
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6124
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6125
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6126
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6134
 | 
 0  | 
 0  | 
 if ($option eq 'NARFM')  | 
 
| 
6136
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
6137
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6143
 | 
 0  | 
 0  | 
 if ($value eq $currentnarfm)  | 
 
| 
6144
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6149
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6150
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
6151
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6152
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6153
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6154
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6162
 | 
 0  | 
 0  | 
 if ($option eq 'NARCWDIG')  | 
 
| 
6164
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
6165
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6171
 | 
 0  | 
 0  | 
 if ($value eq $currentnarcwdig)  | 
 
| 
6172
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6177
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6178
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
6179
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6180
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6181
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6182
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6190
 | 
 0  | 
 0  | 
 if ($option eq 'RPTOFFSET')  | 
 
| 
6192
 | 
 0  | 
 0  | 
 if ($value ne 'SIMPLEX' and $value ne 'MINUS' and $value ne 'PLUS' and $value ne 'NON-STANDARD')  | 
 
| 
6193
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6199
 | 
 0  | 
 0  | 
 if ($value eq $currentrptoffset)  | 
 
| 
6200
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6206
 | 
 0  | 
 0  | 
 if ($value eq 'SIMPLEX')  | 
 
| 
6207
 | 
 0  | 
 0  | 
 if ($value eq 'MINUS')  | 
 
| 
6208
 | 
 0  | 
 0  | 
 if ($value eq 'PLUS')  | 
 
| 
6209
 | 
 0  | 
 0  | 
 if ($value eq 'NON-STANDARD')  | 
 
| 
6211
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6213
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6214
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6215
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6223
 | 
 0  | 
 0  | 
 if ($option eq 'TONEDCS')  | 
 
| 
6225
 | 
 0  | 
 0  | 
 if ($value ne 'OFF' and $value ne 'TONE' and $value ne 'TONETSQ' and $value ne 'DCS')  | 
 
| 
6226
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6232
 | 
 0  | 
 0  | 
 if ($value eq $currenttonedcs)  | 
 
| 
6233
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6239
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6240
 | 
 0  | 
 0  | 
 if ($value eq 'TONE')  | 
 
| 
6241
 | 
 0  | 
 0  | 
 if ($value eq 'TONETSQ')  | 
 
| 
6242
 | 
 0  | 
 0  | 
 if ($value eq 'DCS')  | 
 
| 
6244
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6246
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6247
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6248
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6256
 | 
 0  | 
 0  | 
 if ($option eq 'CLARIFIER')  | 
 
| 
6258
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
6259
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6265
 | 
 0  | 
 0  | 
 if ($value eq $currentclarifier)  | 
 
| 
6266
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6271
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6272
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
6273
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6274
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6275
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6276
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6284
 | 
 0  | 
 0  | 
 if ($option eq 'ATT')  | 
 
| 
6286
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
6287
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6293
 | 
 0  | 
 0  | 
 if ($value eq $currentatt)  | 
 
| 
6294
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6299
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6300
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
6301
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6302
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6303
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6304
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6312
 | 
 0  | 
 0  | 
 if ($option eq 'IPO')  | 
 
| 
6314
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
6315
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6321
 | 
 0  | 
 0  | 
 if ($value eq $currentipo)  | 
 
| 
6322
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6327
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6328
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
6329
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6330
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6331
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6332
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6340
 | 
 0  | 
 0  | 
 if ($option eq 'FMSTEP')  | 
 
| 
6345
 | 
 0  | 
 0  | 
 if ($value eq $currentfmstep)  | 
 
| 
6346
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6354
 | 
 0  | 
 0  | 
 unless ($fmstep)  | 
 
| 
6355
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6361
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
6370
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6372
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6373
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6374
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6382
 | 
 0  | 
 0  | 
 if ($option eq 'AMSTEP')  | 
 
| 
6387
 | 
 0  | 
 0  | 
 if ($value eq $currentamstep)  | 
 
| 
6388
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6396
 | 
 0  | 
 0  | 
 unless ($amstep)  | 
 
| 
6397
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6403
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
6412
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6414
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6415
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6416
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6424
 | 
 0  | 
 0  | 
 if ($option eq 'SSBSTEP')  | 
 
| 
6426
 | 
 0  | 
 0  | 
 if ($value ne '1.0' and $value ne '2.5' and $value ne '5.0')  | 
 
| 
6427
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6433
 | 
 0  | 
 0  | 
 if ($value eq $currentssbstep)  | 
 
| 
6434
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6440
 | 
 0  | 
 0  | 
 if ($value eq '1.0')  | 
 
| 
6441
 | 
 0  | 
 0  | 
 if ($value eq '2.5')  | 
 
| 
6442
 | 
 0  | 
 0  | 
 if ($value eq '5.0')  | 
 
| 
6444
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6446
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6447
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6448
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6456
 | 
 0  | 
 0  | 
 if ($option eq 'CTCSSTONE')  | 
 
| 
6461
 | 
 0  | 
 0  | 
 if ($value eq $currenttone)  | 
 
| 
6462
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6470
 | 
 0  | 
 0  | 
 unless ($ctcsstone)  | 
 
| 
6471
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6477
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
6486
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6488
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6489
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6490
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6498
 | 
 0  | 
 0  | 
 if ($option eq 'DCSCODE')  | 
 
| 
6503
 | 
 0  | 
 0  | 
 if ($value eq $currentcode)  | 
 
| 
6504
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6512
 | 
 0  | 
 0  | 
 unless ($dcscode)  | 
 
| 
6513
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6519
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
6529
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6531
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6532
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6533
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6541
 | 
 0  | 
 0  | 
 if ($option eq 'CLAROFFSET')  | 
 
| 
6545
 | 
 0  | 
 0  | 
 if ($value != '0' and $polarity ne '+' and $polarity ne '-')  | 
 
| 
6546
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6550
 | 
 0  | 
 0  | 
 if ($newvalue < 0 or $newvalue > 999)  | 
 
| 
6551
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6558
 | 
 0  | 
 0  | 
 if ($value eq $currentoffset)  | 
 
| 
6559
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6565
 | 
 0  | 
 0  | 
 if ($polarity eq '-')  | 
 
| 
6573
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK') { }  | 
 
| 
6574
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6580
 | 
 0  | 
 0  | 
 if ($option eq 'RXFREQ')  | 
 
| 
6585
 | 
 0  | 
 0  | 
 if ($value eq $currentrxfreq)  | 
 
| 
6586
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6591
 | 
 0  | 
 0  | 
 if ($test ne 'OK')  | 
 
| 
6592
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6610
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6613
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6614
 | 
 0  | 
 0  | 
 if ($writestatus1 eq $writestatus2) { }  | 
 
| 
6615
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK')  | 
 
| 
6617
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6623
 | 
 0  | 
 0  | 
 if ($option eq 'RPTOFFSETFREQ')  | 
 
| 
6625
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 9999)  | 
 
| 
6626
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6632
 | 
 0  | 
 0  | 
 if ($value eq $currentoffset)  | 
 
| 
6633
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6649
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6652
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6653
 | 
 0  | 
 0  | 
 if ($writestatus1 eq $writestatus3) { }  | 
 
| 
6654
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK')  | 
 
| 
6656
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6669
 | 
 0  | 
 0  | 
 if ($value eq 'M-PL')  | 
 
| 
6670
 | 
 0  | 
 0  | 
 if ($value eq 'M-PU')  | 
 
| 
6672
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 202)  | 
 
| 
6673
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6677
 | 
 0  | 
 0  | 
 if (length $value == 0)  | 
 
| 
6678
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6684
 | 
 0  | 
 0  | 
 if ($value eq $currentcurrentmem + 1)  | 
 
| 
6685
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6691
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6692
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6707
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow != '1' and $Ham::Device::FT817COMM::agreewithwarning != '1')  | 
 
| 
6708
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug or $Ham::Device::FT817COMM::verbose)  | 
 
| 
6712
 | 
 0  | 
 0  | 
 if ($number eq 'M-PL')  | 
 
| 
6713
 | 
 0  | 
 0  | 
 if ($number eq 'M-PU')  | 
 
| 
6714
 | 
 0  | 
 0  | 
 if ($number == 1)  | 
 
| 
6715
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6718
 | 
 0  | 
 0  | 
 if ($number < 2 or $number > 202)  | 
 
| 
6719
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6722
 | 
 0  | 
 0  | 
 if ($value ne 'ACTIVE' and $value ne 'INACTIVE')  | 
 
| 
6723
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6729
 | 
 0  | 
 0  | 
 if ($value eq $currentvalue)  | 
 
| 
6730
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6734
 | 
 0  | 
 0  | 
 if ($value eq 'ACTIVE')  | 
 
| 
6735
 | 
 0  | 
 0  | 
 if ($value eq 'INACTIVE')  | 
 
| 
6740
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6743
 | 
 0  | 
 0  | 
 if ($isready eq 'NO')  | 
 
| 
6758
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writeallow != '1' and $Ham::Device::FT817COMM::agreewithwarning != '1')  | 
 
| 
6759
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::debug or $Ham::Device::FT817COMM::verbose)  | 
 
| 
6767
 | 
 0  | 
 0  | 
 if ($subtype eq 'M-PL')  | 
 
| 
6768
 | 
 0  | 
 0  | 
 if ($subtype eq 'M-PU')  | 
 
| 
6772
 | 
 0  | 
 0  | 
 unless ($value)  | 
 
| 
6773
 | 
 0  | 
 0  | 
 if ($type ne 'HOME' and $type ne 'QMB' and $type ne 'M-PL' and $type ne 'M-PU' and $type ne 'MEM')  | 
 
| 
6774
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6779
 | 
 0  | 
 0  | 
 if (not $testoptions and $value ne 'ALL')  | 
 
| 
6780
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6786
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
6792
 | 
 0  | 
 0  | 
 if ($type eq 'HOME')  | 
 
| 
6793
 | 
 0  | 
 0  | 
 if ($type eq 'QMB')  | 
 
| 
6794
 | 
 0  | 
 0  | 
 if ($type eq 'MEM')  | 
 
| 
6796
 | 
 0  | 
 0  | 
 if ($type eq 'MEM')  | 
 
| 
6797
 | 
 0  | 
 0  | 
 if ($memnum > 1)  | 
 
| 
6802
 | 
 0  | 
 0  | 
 unless ($base)  | 
 
| 
6803
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6806
 | 
 0  | 
 0  | 
 if ($type eq 'MEM')  | 
 
| 
6812
 | 
 0  | 
 0  | 
 if ($type eq 'HOME' and $ishome eq 'Y')  | 
 
| 
6813
 | 
 0  | 
 0  | 
 if ($currenttuner eq 'MEMORY')  | 
 
| 
6814
 | 
 0  | 
 0  | 
 if ($type eq 'QMB' and $isqmb eq 'ON')  | 
 
| 
6815
 | 
 0  | 
 0  | 
 if ($type eq 'MEM')  | 
 
| 
6822
 | 
 0  | 
 0  | 
 if ($isready eq 'NO')  | 
 
| 
6823
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6824
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6825
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6833
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6834
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6835
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6839
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6846
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6848
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6849
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6853
 | 
 0  | 
 0  | 
 if ($option eq 'MODE')  | 
 
| 
6858
 | 
 0  | 
 0  | 
 if ($value eq $currentmode)  | 
 
| 
6859
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6867
 | 
 0  | 
 0  | 
 unless ($mode)  | 
 
| 
6868
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6874
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
6883
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6884
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6886
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6887
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6888
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6889
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6897
 | 
 0  | 
 0  | 
 if ($option eq 'TAG')  | 
 
| 
6900
 | 
 0  | 
 0  | 
 if ($value ne 'LABEL' and $value ne 'FREQUENCY')  | 
 
| 
6901
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6907
 | 
 0  | 
 0  | 
 if ($value eq $currenttag)  | 
 
| 
6908
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6913
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6914
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6915
 | 
 0  | 
 0  | 
 if ($value eq 'LABEL')  | 
 
| 
6916
 | 
 0  | 
 0  | 
 if ($value eq 'FREQUENCY')  | 
 
| 
6917
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6918
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6919
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6920
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6928
 | 
 0  | 
 0  | 
 if ($option eq 'NARFM')  | 
 
| 
6931
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
6932
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6938
 | 
 0  | 
 0  | 
 if ($value eq $currentnarfm)  | 
 
| 
6939
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6944
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6945
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6946
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
6947
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6948
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6949
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6950
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6951
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6959
 | 
 0  | 
 0  | 
 if ($option eq 'NARCWDIG')  | 
 
| 
6962
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
6963
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6969
 | 
 0  | 
 0  | 
 if ($value eq $currentnarcwdig)  | 
 
| 
6970
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6975
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6976
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6977
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
6978
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
6979
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
6980
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
6981
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6982
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
6990
 | 
 0  | 
 0  | 
 if ($option eq 'RPTOFFSET')  | 
 
| 
6992
 | 
 0  | 
 0  | 
 if ($value ne 'SIMPLEX' and $value ne 'MINUS' and $value ne 'PLUS' and $value ne 'NON-STANDARD')  | 
 
| 
6993
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
6999
 | 
 0  | 
 0  | 
 if ($value eq $currentrptoffset)  | 
 
| 
7000
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7006
 | 
 0  | 
 0  | 
 if ($value eq 'SIMPLEX')  | 
 
| 
7007
 | 
 0  | 
 0  | 
 if ($value eq 'MINUS')  | 
 
| 
7008
 | 
 0  | 
 0  | 
 if ($value eq 'PLUS')  | 
 
| 
7009
 | 
 0  | 
 0  | 
 if ($value eq 'NON-STANDARD')  | 
 
| 
7011
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7012
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7014
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7015
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7016
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7017
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7025
 | 
 0  | 
 0  | 
 if ($option eq 'TONEDCS')  | 
 
| 
7027
 | 
 0  | 
 0  | 
 if ($value ne 'OFF' and $value ne 'TONE' and $value ne 'TONETSQ' and $value ne 'DCS')  | 
 
| 
7028
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7034
 | 
 0  | 
 0  | 
 if ($value eq $currenttonedcs)  | 
 
| 
7035
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7041
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
7042
 | 
 0  | 
 0  | 
 if ($value eq 'TONE')  | 
 
| 
7043
 | 
 0  | 
 0  | 
 if ($value eq 'TONETSQ')  | 
 
| 
7044
 | 
 0  | 
 0  | 
 if ($value eq 'DCS')  | 
 
| 
7046
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7047
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7049
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7050
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7051
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7052
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7060
 | 
 0  | 
 0  | 
 if ($option eq 'ATT')  | 
 
| 
7063
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
7064
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7070
 | 
 0  | 
 0  | 
 if ($value eq $currentatt)  | 
 
| 
7071
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7076
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7077
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7078
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
7079
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
7080
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7081
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7082
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7083
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7091
 | 
 0  | 
 0  | 
 if ($option eq 'IPO')  | 
 
| 
7094
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
7095
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7101
 | 
 0  | 
 0  | 
 if ($value eq $currentipo)  | 
 
| 
7102
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7107
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7108
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7109
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
7110
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
7111
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7112
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7113
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7114
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7122
 | 
 0  | 
 0  | 
 if ($option eq 'FMSTEP')  | 
 
| 
7127
 | 
 0  | 
 0  | 
 if ($value eq $currentfmstep)  | 
 
| 
7128
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7136
 | 
 0  | 
 0  | 
 unless ($fmstep)  | 
 
| 
7137
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7143
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
7152
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7153
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7155
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7156
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7157
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7158
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7166
 | 
 0  | 
 0  | 
 if ($option eq 'AMSTEP')  | 
 
| 
7171
 | 
 0  | 
 0  | 
 if ($value eq $currentamstep)  | 
 
| 
7172
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7180
 | 
 0  | 
 0  | 
 unless ($amstep)  | 
 
| 
7181
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7187
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
7196
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7197
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7199
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7200
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7201
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7202
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7207
 | 
 0  | 
 0  | 
 if ($option eq 'SSBSTEP')  | 
 
| 
7209
 | 
 0  | 
 0  | 
 if ($value ne '1.0' and $value ne '2.5' and $value ne '5.0')  | 
 
| 
7210
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7216
 | 
 0  | 
 0  | 
 if ($value eq $currentssbstep)  | 
 
| 
7217
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7223
 | 
 0  | 
 0  | 
 if ($value eq '1.0')  | 
 
| 
7224
 | 
 0  | 
 0  | 
 if ($value eq '2.5')  | 
 
| 
7225
 | 
 0  | 
 0  | 
 if ($value eq '5.0')  | 
 
| 
7227
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7228
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7230
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7231
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7232
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7233
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7241
 | 
 0  | 
 0  | 
 if ($option eq 'CTCSSTONE')  | 
 
| 
7246
 | 
 0  | 
 0  | 
 if ($value eq $currenttone)  | 
 
| 
7247
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7255
 | 
 0  | 
 0  | 
 unless ($ctcsstone)  | 
 
| 
7256
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7262
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
7271
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7272
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7274
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7275
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7276
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7277
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7285
 | 
 0  | 
 0  | 
 if ($option eq 'CLARIFIER')  | 
 
| 
7287
 | 
 0  | 
 0  | 
 if ($value ne 'ON' and $value ne 'OFF')  | 
 
| 
7288
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7294
 | 
 0  | 
 0  | 
 if ($value eq $currentclarifier)  | 
 
| 
7295
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7300
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7301
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7302
 | 
 0  | 
 0  | 
 if ($value eq 'ON')  | 
 
| 
7303
 | 
 0  | 
 0  | 
 if ($value eq 'OFF')  | 
 
| 
7304
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7305
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7306
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7307
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7315
 | 
 0  | 
 0  | 
 if ($option eq 'CLAROFFSET')  | 
 
| 
7319
 | 
 0  | 
 0  | 
 if ($value != '0' and $polarity ne '+' and $polarity ne '-')  | 
 
| 
7320
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7323
 | 
 0  | 
 0  | 
 if ($newvalue < 0 or $newvalue > 999)  | 
 
| 
7324
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7330
 | 
 0  | 
 0  | 
 if ($value eq $currentoffset)  | 
 
| 
7331
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7337
 | 
 0  | 
 0  | 
 if ($polarity eq '-')  | 
 
| 
7344
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7345
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7347
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7348
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7349
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK') { }  | 
 
| 
7350
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7356
 | 
 0  | 
 0  | 
 if ($option eq 'DCSCODE')  | 
 
| 
7361
 | 
 0  | 
 0  | 
 if ($value eq $currentcode)  | 
 
| 
7362
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7370
 | 
 0  | 
 0  | 
 unless ($dcscode)  | 
 
| 
7371
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7377
 | 
 0  | 
 0  | 
 if ($columns == 7)  | 
 
| 
7386
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7387
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7389
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7390
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7391
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7392
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7400
 | 
 0  | 
 0  | 
 if ($option eq 'MEMSKIP')  | 
 
| 
7402
 | 
 0  | 
 0  | 
 if ($value ne 'YES' and $value ne 'NO')  | 
 
| 
7403
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7409
 | 
 0  | 
 0  | 
 if ($value eq $currentmemskip)  | 
 
| 
7410
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7415
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7416
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7417
 | 
 0  | 
 0  | 
 if ($value eq 'NO')  | 
 
| 
7418
 | 
 0  | 
 0  | 
 if ($value eq 'YES')  | 
 
| 
7419
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7420
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7421
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7422
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::writestatus eq 'OK') { }  | 
 
| 
7430
 | 
 0  | 
 0  | 
 if ($option eq 'RXFREQ')  | 
 
| 
7435
 | 
 0  | 
 0  | 
 if ($value eq $currentrxfreq)  | 
 
| 
7436
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7439
 | 
 0  | 
 0  | 
 if ($type eq 'HOME')  | 
 
| 
7441
 | 
 0  | 
 0  | 
 if ($test ne 'OK')  | 
 
| 
7442
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7461
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7462
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7472
 | 
 0  | 
 0  | 
 if ($value >= 42000000) { }  | 
 
| 
7473
 | 
 0  | 
 0  | 
 if ($currentuhf ne 'YES')  | 
 
| 
7477
 | 
 0  | 
 0  | 
 if ($currentuhf ne 'NO')  | 
 
| 
7483
 | 
 0  | 
 0  | 
 if ($value >= 5000000) { }  | 
 
| 
7484
 | 
 0  | 
 0  | 
 if ($currenthfvhf ne 'VHF')  | 
 
| 
7488
 | 
 0  | 
 0  | 
 if ($currenthfvhf ne 'HF')  | 
 
| 
7493
 | 
 0  | 
 0  | 
 if ($currentrange ne $newrange)  | 
 
| 
7496
 | 
 0  | 
 0  | 
 if ($newrange eq 'HF')  | 
 
| 
7497
 | 
 0  | 
 0  | 
 if ($newrange eq '6M')  | 
 
| 
7498
 | 
 0  | 
 0  | 
 if ($newrange eq 'FM-BCB')  | 
 
| 
7499
 | 
 0  | 
 0  | 
 if ($newrange eq 'AIR')  | 
 
| 
7500
 | 
 0  | 
 0  | 
 if ($newrange eq '2M')  | 
 
| 
7501
 | 
 0  | 
 0  | 
 if ($newrange eq 'UHF')  | 
 
| 
7508
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7509
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7510
 | 
 0  | 
 0  | 
 if ($writestatus1 eq $writestatus3) { }  | 
 
| 
7511
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK')  | 
 
| 
7513
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7519
 | 
 0  | 
 0  | 
 if ($option eq 'RPTOFFSETFREQ')  | 
 
| 
7521
 | 
 0  | 
 0  | 
 if ($value < 0 or $value > 9999)  | 
 
| 
7522
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7528
 | 
 0  | 
 0  | 
 if ($value eq $currentoffset)  | 
 
| 
7529
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7545
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7546
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7549
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7550
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7551
 | 
 0  | 
 0  | 
 if ($writestatus1 eq $writestatus3) { }  | 
 
| 
7552
 | 
 0  | 
 0  | 
 if ($writestatus1 eq 'OK')  | 
 
| 
7553
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7557
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7564
 | 
 0  | 
 0  | 
 if ($option eq 'LABEL')  | 
 
| 
7570
 | 
 0  | 
 0  | 
 if ($value eq $currentlabel)  | 
 
| 
7571
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7574
 | 
 0  | 
 0  | 
 if (length $value > 11)  | 
 
| 
7575
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7586
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7587
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7588
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7592
 | 
 0  | 
 0  | 
 if ($letter == '0')  | 
 
| 
7593
 | 
 0  | 
 0  | 
 if ($letter2 == '0')  | 
 
| 
7604
 | 
 0  | 
 0  | 
 if ($hometoggle)  | 
 
| 
7605
 | 
 0  | 
 0  | 
 if ($musttoggle)  | 
 
| 
7606
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7617
 | 
 0  | 
 0  | 
 if (length $value > 10)  | 
 
| 
7618
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7624
 | 
 0  | 
 0  | 
 if ($value eq $currentid)  | 
 
| 
7625
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  | 
 
| 
7657
 | 
 0  | 
 0  | 
 if ($Ham::Device::FT817COMM::verbose)  |