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