home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / HSC.ZIP / CONV.PAS < prev    next >
Pascal/Delphi Source File  |  1997-01-13  |  260b  |  20 lines
  1. uses crt,dos;
  2. var p1,p2:text;
  3. l:integer;
  4. t:char;
  5. begin
  6. clrscr;
  7. assign(p1,'ray09.dat');
  8. reset(p1);
  9. assign(p2,'ray09.hsc');
  10. rewrite(p2);
  11. repeat
  12. readln(p1,l);
  13. write(p2,chr(l));
  14. read(p1,t);
  15. until eof(p1);
  16. delay(3000);
  17. close(p1);
  18. close(p2);
  19. end.
  20.