home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / f / faq-s.zip / FILELIST.PAS < prev    next >
Pascal/Delphi Source File  |  1990-10-20  |  1KB  |  23 lines
  1.  Procedure topfileline;
  2.  begin;
  3.    if asciigraphics in urec.config then begin
  4.    writeln (^R'┌───┬──────────────┬────────┬───────────┬────────────────────────────┬────────┐');
  5.    writeln (^R'│ '^S'# '^R'│ '^S'Filename Ext '^R'│ '^S'Cost   '^R'│ '^S'Size      '^R'│ '^S'Program Description        '+
  6.    ^R'│ '^S'Disk   '^R'│');
  7.    writeln (^R'├───┼──────────────┼────────┼───────────┼────────────────────────────┼────────┤');
  8.    end else begin
  9.    writeln (^R'+---+--------------+--------+-----------+----------------------------+--------+');
  10.    writeln (^R'| '^S'# '^R'| '^S'Filename Ext '^R'| '^S'Cost   '^R'| '^S'Size      '^R'| '^S'Program Name               '+
  11.    ^R'| '^S'Disk   '^R'|');
  12.    writeln (^R'|---|--------------|--------|-----------|----------------------------|--------|');
  13.   end;
  14.  end;
  15.  
  16.  Procedure bottomfileline;
  17.  begin
  18.    if asciigraphics in urec.config then
  19.    writeln (^R'└───┴──────────────┴────────┴───────────┴────────────────────────────┴────────┘')
  20.    else
  21.    writeln (^R'+---+--------------+--------+-----------+----------------------------+--------+');
  22.  end;
  23.