home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / NOVELL / LOGINFO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-17  |  716 b   |  31 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.   st,
  11.   server : string;
  12.   error  :   word;
  13.   back   :   byte;
  14.  
  15. begin
  16.   st := 'U gaat nu inloggen op server: ';
  17.   if __inparams('/?', error) then begin
  18.     writeln(__progname);
  19.     writeln('  Usage: ', __progname, ' kan parameter hebben als message_msg');
  20.     halt;
  21.   end;
  22.   if paramcount > 0 then st := __xlatestr(paramstr(1), '_', ' ');
  23.   __stdio; __setblwin(false);
  24.   server := getenv('SERVER');
  25.   back := blue;
  26.   if baseofscreen = $b000 then back := black;
  27.   __bandwin(true, 6, 5, 54, 7, white, back, sh_default, bt_double);
  28.   __betwscn(6, 54, 6, yellow, blue, copy(st + server, 1, 43));
  29.   gotoxy(1, 12);
  30. end.
  31.