home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / NOVELL / UPF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-17  |  2.5 KB  |  85 lines
  1. {$B-,V-,I-,N-,E-}
  2. {$M 4096,0,10240}
  3. uses
  4.   eco_lib, crt
  5.  
  6.   ;
  7.  
  8.  
  9.  
  10. var
  11.   st     :  string;
  12.   fore,
  13.   back,
  14.   sc,
  15.   shadow,
  16.   x, y   :    byte;
  17.   ch     :    char;
  18.   error  :    word;
  19.   colour : boolean;
  20.  
  21.  
  22. begin
  23.   st := __xlatestr(paramstr(1), '_', ' ');
  24.   __stdio; __setblwin(false);
  25.   if __inparams('/?', error) or (paramcount = 0) then begin
  26.     writeln(__progname);
  27.     writeln('  Usage: ', __progname, ' msg_msg [/systemerror] [/loginerror] [/activate]');
  28.     writeln(__rep(length(__progname)+18, ' '), '[/pause {sec}] [/presskey {sec}] [/sh_low | /sh_high]');
  29.     writeln(__rep(length(__progname)+18, ' '), 'In case /systemerror errlev 100 when "D" else errlev 0');
  30.     halt;
  31.   end;
  32.   gotoxy(1, 16);
  33.   if baseofscreen = $b000 then colour := false else colour := true;
  34.   if colour then begin
  35.     fore := yellow; back := blue;
  36.   end else begin
  37.     fore := white; back := black;
  38.   end;
  39.   shadow := sh_default;
  40.   if __inparams('/sh_high', error) then shadow := sh_high;
  41.   if __inparams('/sh_low', error) then shadow := sh_low;
  42.   if paramcount > 0 then begin
  43.     __bandwin(true, 10, 4, _curcolumns - 10, 12, fore, back, shadow, bt_single);
  44.     __betwscn(10, _curcolumns - 10, 3, fore, back, '[ ' + st + ' ]');
  45.   end;
  46.   if __inparams('/systemerror', error) then begin
  47.     __betwscn(15, _curcolumns - 15, 6,  fore, back,
  48.       'OPSTARTFOUT: Raadpleeg Uw systeembeheerder'
  49.     );
  50.     __betwscn(15, _curcolumns - 15, 8,  fore, back,
  51.       'Druk op een willekeurige toets om verder te gaan...'
  52.     );
  53.     __betwscn(15, _curcolumns - 15, 10,  fore, back,
  54.       'of druk op D om naar DOS te gaan.'
  55.     );
  56.     __flushkey; __delay(1000);
  57.     repeat
  58.     until __exrdykey(true, ch, sc);
  59.     __flushkey;
  60.     if upcase(ch) = 'D' then halt(100) else halt(0);
  61.   end;
  62.   if __inparams('/loginerror', error) then begin
  63.     __betwscn(15, _curcolumns - 15, 6,  fore, back, 
  64.       'LOGINFOUT: U heeft waarschijnlijk een verkeerde'
  65.     );
  66.     __betwscn(15, _curcolumns - 15, 8,  fore, back, 
  67.       'naam gebruikt, Ik begin opnieuw...'
  68.     );
  69.   end;
  70.   if __inparams('/activate', error) then begin
  71.     __betwscn(15, _curcolumns - 15, 6,  fore, back, 
  72.       'Het netwerk wordt nu opgestart,'
  73.     );
  74.     __betwscn(15, _curcolumns - 15, 8,  fore, back, 
  75.       'Een moment geduld...'
  76.     );
  77.   end;
  78.   if __inparams('/pause', error) then begin
  79.     __delay(__str(paramstr(error)) * 1000);
  80.   end;
  81.   if __inparams('/presskey', error) then begin
  82.     __delaykey(__str(paramstr(error)) * 1000);
  83.   end;
  84. end.
  85.