home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / UASKWIN.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1992-03-25  |  1.9 KB  |  62 lines
  1. {$B-,V-,I-,N-,E-}
  2. {$M 4096,0,10240}
  3. uses
  4.   eco_lib, crt, dos
  5.  
  6.   ;
  7.  
  8.  
  9. const
  10.   asktimeout : byte = 10;
  11.   str1 : string = 'Wilt U het netwerk activeren?';
  12.  
  13. var
  14.   askstr,
  15.   serv     : string;
  16.   error,
  17.   geen,  
  18.   errlev,
  19.   back     :   byte;
  20.   w        :   word;
  21.  
  22. begin
  23.   askstr := ' Ja   Nee ';
  24.   if __inparams('/?', w) then begin
  25.     writeln(__progname);
  26.     writeln('  Usage: ', __progname, ' askstr header timeout.');
  27.     writeln('         ', __rep(length(__progname), ' '), ' Standaard wordt keuze 1 bevestigd op timeout.');
  28.     writeln('         ', __rep(length(__progname), ' '), ' askstr :: Text_one`teXt_two`tExt_three');
  29.     writeln;
  30.     writeln('Noot: sommige versies van 4DOS gebruiken de backquote (`) dusdanig dat');
  31.     writeln('zij niet in op de commandline werkt. Neem dan de gewone quote ('')');
  32.     halt;
  33.   end;
  34.   serv := getenv('SERVER');
  35.   if paramcount > 0 then begin
  36.     askstr := paramstr(1);
  37.     askstr := ' ' + __expandchr(__xlatestr(askstr, '`''', '  '), ' ', '   ') + ' ';
  38.   end;
  39.   if not __barcheck(askstr, error) then begin
  40.     writeln('String NAK on error: ', error);
  41.     writeln('"', paramstr(1), '"');
  42.     writeln(askstr);
  43.     halt;
  44.   end;
  45.   if paramcount > 1 then begin
  46.     str1 := paramstr(2);
  47.   end;
  48.   if paramcount > 2 then begin
  49.     asktimeout := __str(paramstr(3));
  50.   end;
  51.   __stdio; __setblwin(false);
  52.   back := blue;
  53.   if baseofscreen = $b000 then back := black;
  54.   __bandwin(true, 1 + 10, 5, _curcolumns - 10, 12 - geen, white, back, sh_default, bt_double);
  55.   __betwscn(1 + 10, _curcolumns - 10, 6, yellow, back, 'Server: ' + __up(serv));
  56.   __betwscn(1 + 10, _curcolumns - 10, 8, yellow, back, str1);
  57.   __betwscn(1 + 10, _curcolumns - 10, 7, yellow, back, __num(asktimeout));
  58.   errlev := __barchoice(1, _curcolumns, 10, yellow, back, lightred, askstr, asktimeout);
  59.   gotoxy(1, _currows-1);
  60.   halt(errlev);
  61. end.
  62.