home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / DEMOINFO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-03-02  |  484 b   |  36 lines
  1. {$A-,B-,D-,E-,F+,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 63768, 0, 655360}
  3. uses
  4.   dos,
  5.   eco_lib, eco_info
  6.  
  7.   ;
  8.  
  9.  
  10. var
  11.   x1, y1, x2, y2 :    byte;
  12.   retkey         :    word;
  13.   fs             : boolean;
  14.  
  15. begin
  16.   x1 := 01;
  17.   y1 := 01;
  18.   x2 := 40;
  19.   y2 := 23;
  20.   veba := '│';
  21.   riba := '┤';
  22.   leba := '├';
  23.   fs := true;
  24.   __updatinf(
  25.     'The Fast Commander V3.51',
  26.     x1, y1, x2, y2, fs,
  27.     6, 0,
  28.     15,
  29.     7, 1, 
  30.     0, 7,
  31.     4,
  32.     retkey,
  33.     true
  34.   );
  35. end.
  36.