home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / DEMO_ATV.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-03-08  |  2.7 KB  |  68 lines
  1. (*
  2.  
  3.          ┌────────────────[ File Information Report ]────────────────┐
  4.          │                                                           │
  5.          │   Sourcefile for The Fast Commander, V3.51 and higher.    │
  6.          │   All material is protected and licensed.                 │
  7.          │   (C) Copyright 1992 by EUROCON PANATIONAL CORPORATION.   │
  8.          │   Written exclusively by Floor Naaijkens for              │
  9.          │   UltiHouse Software / The ECO Group All Rights Reserved. │
  10.          │   See various documentory files for further information   │
  11.          │   on how to handle these files.                           │
  12.          │                                                           │
  13.          │   Filename:      ATV.PAS                                  │
  14.          │   Version:       3.51                                     │
  15.          │   Last change:   02-05-91  14:14                          │
  16.          │   Dependencies:  FIL·, EXT·, MEM·, SCN·, DOS·, CRT·,      │
  17.          │                  ····, ····, ····, ····, ····, ····.      │
  18.          │                                                           │
  19.          └───────────────────────────────────────────────────────────┘
  20.  
  21. *)
  22. {$M 65520, 0, 655360}
  23. {$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  24.  
  25. uses 
  26.   eco_lib, eco_atv
  27.  
  28.   ;
  29.  
  30.  
  31. var
  32.   arcpanel : arcpanelobj;
  33.  
  34.  
  35.  
  36. {main}begin
  37.   if (
  38.     (paramstr(1) = '?') or (paramstr(1) = '/?') or (paramstr(1) = '-?')
  39.   ) then begin
  40.     writeln; 
  41.     writeln('============== Arc-TV / ArchiveTeleVision =============');
  42.     writeln('-------------------------------------------------------');
  43.     writeln('ATV ARCHIVENAME.EXT - looks into any archive.');
  44.     writeln('Support for ARC ARJ DWC PAK LZH LBR MD ZOO ZIP.');
  45.     writeln('F3 or <V> will view the file currently pointed at, using FCV.COM');
  46.     writeln('F4 or <I> will view information about the file.');
  47.     writeln('Tagging files: <SPACE> <*> <Ins> and <Ctrl-V>.');
  48.     writeln('If no file is tagged, other keys will do nothing.');
  49.     writeln('If files are tagged, <ENTER> will unpack them in the');
  50.     writeln('current directory, <DEL> will delete them.');
  51.     writeln('For now, that''s all.');
  52.     writeln('=======================================================');
  53.     writeln('If your program in pascal, you can order the units,');
  54.     writeln('with examples (like ATV.PAS (45 lines!)) and source');
  55.     writeln('for only ƒ25,= or $15,= at UltiHouse Software,');
  56.     writeln('Kwendelhof 173,  5044 EG  Tilburg,  Tel 013-635037.');
  57.     halt(0);
  58.   end;
  59.   new(scn1); new(scn2); __savscn(scn1); __setblwin(false); 
  60.  
  61.   with arcpanel do begin
  62.     showmem := true; showreads := true;
  63.     __atv(__normfil(paramstr(1)));
  64.   end;
  65.  
  66.   __resscn(scn1);
  67. {happy}end.
  68.