home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / NOVELL / MESSAGE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-12  |  771 b   |  32 lines
  1. {$B-,V-,I-,N-,E-}
  2. {$M 4096,0,10240}
  3. uses
  4.   eco_lib, crt, dos
  5.  
  6.   ;
  7.  
  8.  
  9. var
  10.   str1,
  11.   str2  : string;
  12.   error :   word;
  13.   back  :   byte;
  14.  
  15. begin
  16.   if __inparams('/?', error) then begin
  17.     writeln(__progname);
  18.     writeln('  Usage: ', __progname, ' kan 1 of 2 parameters hebben als message_msg');
  19.     halt;
  20.   end;
  21.   str1 := ''; str2 := '';
  22.   if paramcount > 0 then str1 := __xlatestr(paramstr(1), '_', ' ');
  23.   if paramcount > 1 then str2 := __xlatestr(paramstr(2), '_', ' ');
  24.   __stdio; __setblwin(false);
  25.   back := blue;
  26.   if baseofscreen = $b000 then back := black;
  27.   __bandwin(true, 6, 5, 54, 8, white, back, sh_default, bt_double);
  28.   __betwscn(6, 54, 6, yellow, back, str1);
  29.   __betwscn(6, 54, 7, yellow, back, str2);
  30.   gotoxy(1, 12);
  31. end.
  32.