app-send.tst

来自「无线通信的主要编程软件,是无线通信工作人员的必备工具,关天相关教程我会在后续传上」· TST 代码 · 共 21 行

#!/usr/bin/perl

do "../tools.pm";

$sent = message($BROADCAST, 1, 42, 12);

send_app($sent);
$received = recv_base(1);

if ($sent ne $received) {
    print "BASE received message different from APP sent\n";
    print "sent: ";
    print_message($sent);
    print "\nreceived: ";
    print_message($received);
    print "\n";
    exit 2;
}

exit 0;