home *** CD-ROM | disk | FTP | other *** search
- program Terminal_RAW;
- var evnt,i:integer;
- s,s1,s2,s3:string;
- v1,v2:integer;
- begin
- setstatus('RAW TCP terminal connected to '+nv_remoteip+':'+inttostr(nv_port));
- textbackground($000000);
- textfont(0);setoemcp(0);
- textcolor($00FF00);
- clrscr;
- repeat
- evnt:=waitevent(v1,v2);
- if evnt=1 then
- begin
- s:=recv;
- write(s);
- end;
- if evnt=5 then
- begin
- s:=chr(v2);
- {if(v2=13)then s:=s+chr(10);}
- send(s);
- end;
-
- if evnt=6 then
- begin
- s1:='';s2:='';
- i:=getinputtext(s1,s2);
-
- if(v2<>0)then begin s3:=s1+s2; setinputtext(2,'');end
- else begin s3:=s1; setinputtext(1,'');end;
- if(i and 1)<>0 then s3:=s3+chr(13)+chr(10);
- send(s3);
- end;
-
-
- until evnt=0;
- end.
-