home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBCS / DEMOS / ERROR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-16  |  382 b   |  17 lines
  1. uses
  2.   eco_lib
  3.  
  4.   ;
  5.  
  6.  
  7. begin
  8.   __setblwin(false);
  9.   __bandwin(true, 20, 11, 60, 15, yellow, lightred, sh_default, bt_single);
  10.   __betwscn(1, 80, 13, yellow, lightred, 'ERROR!');
  11.   __delaykey(3000);
  12.   __bandwin(true, 20, 11, 60, 15, blue, lightcyan, sh_default, bt_single);
  13.   __betwscn(1, 80, 13, blue, lightcyan, 'ERROR!');
  14.   __delaykey(3000);
  15.   __resscn(scn1);
  16. end.
  17.