home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBCS / DEMOS / DEMO_FAS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-03-08  |  252 b   |  12 lines
  1. uses
  2.   eco_lib;
  3.  
  4.  
  5. begin
  6.   __clrscn(1, 1, _curcolumns, _currows, 0, 7, '·');
  7.   __bandwin(true, 10, 10, 70, 15, 0, 7, sh_default, bt_double);
  8.   __write(_curcolumns div 2 - 10, _currows div 2, 0, 15, 
  9.     '■■■■■■■■■■■Test■■■■■■■■■■■'
  10.   );
  11. end.
  12.