home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / TISK.PAS < prev    next >
Pascal/Delphi Source File  |  1998-02-16  |  244b  |  16 lines
  1. uses dos,crt,slova;
  2.  
  3. var a: string;
  4.     aa,bb:text;
  5.     i,j,k,l : integer;
  6.     znak : char;
  7.  
  8. begin             { NA ZKOUSKU }
  9.  
  10.  znak:=testtisk(4);
  11.  assign(aa,'info.dll');
  12.  rewrite(aa);
  13.  writeln(aa,'"'+znak+'"');
  14.  close(aa);
  15.  
  16. end.