compass TCPIP-send{
	モード プログラム
	サイズ設定 530, 300
	表示位置 右下
}

変数 $input

sub 初期設定{
	■呼び出し program2を起動
}

sub program2を起動{
	ファイル一部読み込み ($input), "compass.txt", "***program2***", "******"
	ファイル書き出し $input, "tmp.txt"
	実行 "ActiveCompass.exe", "tmp.txt"
}

exe LocalhostにAAAを送信{
	コマンド送信 "localhost", 9000, "AAA"
}

exe LocalhostにBBBを送信{
	コマンド送信 "localhost", 9000, "BBB"
}

/#
***program2***
compass TCPIP-receive{
	モード プログラム
	サイズ設定 530, 300
	表示位置 左下
}

変数 $cmd
変数 $nA = 0
変数 $nB = 0

exe 繰り返しコマンド待機{
	 ■繰り返し 次のコマンド待機, 100, 1000
}

sub 次のコマンド待機{
	コマンド待機 ($cmd), 9000
	■条件付き呼び出し cmdA, $cmd = "AAA", cmdB
	ステータスバーに表示 "AAA:" & $nA & "回, BBB:" & $nB & "回"
}

sub cmdA{
	計算 $nA = $nA + 1
}

sub cmdB{
	計算 $nB = $nB + 1
}

******
#/