home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 September / CHIP_CD_2004-09.iso / bonus / soft_rev / files / NVinst.exe / $INSTDIR / Scripts / Terminal / raw.nvs < prev    next >
Encoding:
Text File  |  2004-08-04  |  698 b   |  39 lines
  1. program Terminal_RAW;
  2. var evnt,i:integer;
  3.     s,s1,s2,s3:string;
  4.     ch:char;
  5.     v1,v2:integer;
  6. begin
  7. setstatus('RAW TCP terminal connected to '+nv_remoteip+':'+inttostr(nv_port));
  8. textbackground($000000);
  9. textfont(0);setoemcp(0);
  10. textcolor($00FF00);
  11. clrscr;
  12. repeat
  13. evnt:=waitevent(v1,v2);
  14. if evnt=1 then
  15. begin
  16. s:=recv;
  17. write(s);
  18. end;
  19. if evnt=5 then
  20. begin
  21. s:=chr(v2);
  22. {if(v2=13)then s:=s+chr(10);}
  23. send(s);
  24. end;
  25.  
  26. if evnt=6 then
  27. begin
  28. s1:='';s2:='';
  29. i:=getinputtext(s1,s2);
  30.  
  31. if(v2<>0)then begin s3:=s1+s2; setinputtext(2,'');end
  32.          else begin s3:=s1; setinputtext(1,'');end;
  33. if(i and 1)<>0 then s3:=s3+chr(13)+chr(10);
  34. send(s3);
  35. end;
  36.  
  37.  
  38. until evnt=0;
  39. end.