home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBCS / DEMOS / SLICE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-11-24  |  793 b   |  34 lines
  1. uses
  2.   crt, eco_lib
  3.   
  4.   ;
  5.  
  6.  
  7. var
  8.   chunksize : longint;
  9.  
  10.  
  11. begin
  12.   __setblwin(false);
  13.   writeln(__progname, ' version 0.01 by Floor A.C. Naaijkens for');
  14.   writeln('UltiHouse Software / The ECO Group.');
  15.   writeln('FAX/BBS: x31,13,638709 - b300-57600 V32b/42b/HST/MNP');
  16.   if paramcount = 0 then begin
  17.     writeln(#13#10,
  18.       'Usage: hak filename.ext [360|720|1200|1440|2880|usersize]'
  19.     );
  20.     writeln('Default:                              ▀▀▀▀');
  21.     writeln('Note: size of chunks is rounded to 16384');
  22.     halt(0);
  23.   end;
  24.   if paramcount = 2 then begin
  25.     chunksize := __str(paramstr(2));
  26.     writeln('Usersize: ', chunksize);
  27.   end;
  28.   writeln(#10#13,
  29.     info[
  30.       __slicefil(1, 40, wherey, yellow, darkgray, chunksize, paramstr(1))
  31.     ]
  32.   )
  33. end.
  34.