| 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) |