home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CON-03A.ZIP / CONS_COM.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-01  |  274b  |  23 lines
  1. unit cospiracy_comms_routines;
  2.  
  3.  
  4.  
  5. procedure
  6.  
  7.  
  8.  
  9.  
  10.  
  11. procedure send_file(ansi : string );
  12. var
  13.   ch            : char;
  14.   f             : text;
  15. begin
  16.   assign(f,'text\'+ansi);
  17.   reset(f);
  18.   repeat
  19.     read(f,ch)
  20.     sc(ch);
  21.     until eof(f)
  22.     close(f)
  23. end;