Program INLserv;

{$i INL.inc }

 Var
	resa,resb,conex,stat : byte;
	IP : LAIP;
	serv:Openstring; 
	letra,letrain:char;
	puerto:integer;

 Begin
    
    PUT_P1[4]:=201;
	Clrscr;
	Write('INL instalado:');
	Writeln(INLinstalado);
	if (inlinstalado=1) then
	begin
			conex:=inltcp_open(0,0,0,0,22,-32768,1);  

			repeat 
			stat:=INLTCP_STATUS (conex);
			write(' '); write(stat);
			until (stat=4) or (stat=0);


			if stat=4 then 
			begin
				writeln('conexion abierta');

				repeat
		    		letra:=chr(0);
					if keypressed then
		  			begin 
		    			letra:=inkey;
		    			write(letra);
			    		if letra=chr(13) then write(chr(10));
			    		inltcp_sendchar(conex,letra);
		    			if letra=chr(13) then
			    			inltcp_sendchar(conex,chr(10));
	 		  		end;   
		  			letrain:=inltcp_rcvchar(conex); 
   	      			if letrain>chr(0) then write(letrain);
				until (letra=chr(27)) or (INLTCP_STATUS (conex)<>4);		      
				inltcp_close(conex);   

				repeat
					stat:=INLTCP_STATUS (conex);
					write(' '); write(stat);
				until (stat=0);
			 end;
		end;	
         

             
    INLterminate;

	
 End.
