home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / NOUZE.PAS < prev    next >
Pascal/Delphi Source File  |  1998-07-28  |  586b  |  40 lines
  1.  
  2.  
  3. uses dos,crt,slova;
  4.  
  5. var i,j,par,k,l,m,n,o,coko : integer;
  6.     cesta,rad,kus,sfs,para,parb : string;
  7.  
  8.  
  9. begin
  10.  
  11.   cesta:=paramstr(1);
  12.  
  13.   textbackground(0);
  14.   clrscr;
  15.  
  16.   sfs:=fsearch(cesta,GetEnv('path'));
  17.   if not(sfs='') then
  18.   begin
  19.  
  20.   textcolor(3);
  21.   textbackground(0);
  22.   gotoxy(32,25);
  23.   write('Tisk klávesou F4');
  24.  
  25.  
  26.   rad:='';
  27.   while not(rad='nic') do
  28.   begin
  29.   plot:='ESC - ukonçení çetby textu - - pohyb po textu ¿ipkami - PgDn - PgUp';
  30.   soubor:=cesta;
  31.   rad:=roll_mnu(1,1,26,1,74,1,0006);
  32.   end;
  33.  
  34.  
  35.   clrscr;
  36.   end; { konecc sfs }
  37.  
  38.  
  39.  
  40. end.