home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 April / CHIP_CD_2005-04.iso / software / netv / NVinst.exe / $INSTDIR / Scripts / Terminal / raw.nvs < prev    next >
Encoding:
Text File  |  2005-02-22  |  686 b   |  39 lines

  1. program Terminal_RAW;
  2. var evnt,i:integer;
  3.     s,s1,s2,s3:string;
  4.     v1,v2:integer;
  5. begin
  6. setstatus('RAW TCP terminal connected to '+nv_remoteip+':'+inttostr(nv_port));
  7. textbackground($000000);
  8. textfont(0);setoemcp(0);
  9. textcolor($00FF00);
  10. clrscr;
  11. repeat
  12. evnt:=waitevent(v1,v2);
  13. if evnt=1 then
  14. begin
  15. s:=recv;
  16. write(s);
  17. end;
  18. if evnt=5 then
  19. begin
  20. s:=chr(v2);
  21. {if(v2=13)then s:=s+chr(10);}
  22. send(s);
  23. end;
  24.  
  25. if evnt=6 then
  26. begin
  27. s1:='';s2:='';
  28. i:=getinputtext(s1,s2);
  29.  
  30. if(v2<>0)then begin s3:=s1+s2; setinputtext(2,'');end
  31.          else begin s3:=s1; setinputtext(1,'');end;
  32. if(i and 1)<>0 then s3:=s3+chr(13)+chr(10);
  33. send(s3);
  34. end;
  35.  
  36.  
  37. until evnt=0;
  38. end.
  39.