home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CON-03A.ZIP / CONS_COM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-01  |  274 b   |  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;