:-use_module(_Module,'c:/program files/oaa2/src/prolog/com_tcp',all).
:-use_module('c:/program files/oaa2/src/prolog/oaa',all).

initial_solvables([mult(_A,_B,_C)]).

runtime_entry(start):-start.

start:-
	oaa:current_prolog(A),
	format("Dialect: ~p.~n",[A]),

	com_Connect(parent,[],Info),
	format("Conection: ~p.~n",Info),

	initial_solvables(S),
	format("Solvables: ~p.~n",S),

    oaa_RegisterCallback(app_do_event, oaa_Mult),
    oaa_Register(parent, hello, S, []),

	oaa_MainLoop(true).

oaa_Mult(mult(A,B,Resultado), EvParams) :-
	Resultado is A*B.