home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / NOVELL / NETMENU.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-17  |  3.0 KB  |  102 lines

  1. {$B-,V-,I-,N-,E-}
  2. {$M 4096,0,10240}
  3. uses
  4.   eco_lib, crt, dos
  5.  
  6.   ;
  7.  
  8.  
  9.  
  10. const
  11.   first : boolean = true;
  12.   maxorigin = 3;
  13.  
  14. type
  15.   ori_artype = array[1..maxorigin] of string[62];
  16.  
  17. var
  18.   retitem     :   string;
  19.   i, selkey   :     word;
  20.   origin      : ^ori_artype;
  21.   back :        byte;
  22.   med1,
  23.   med2,
  24.   lanstr  :      string;
  25.   listpickptr : _pickptr;
  26.  
  27.  
  28.  
  29.   function select_origin : byte;
  30.   begin
  31.     selkey := $00; retitem := '';
  32.     {if first then begin}
  33.       listpickptr := __makesel(
  34.         {coord}    9, 15, 71, 17,
  35.         {fore}             white,
  36.         {back}              back,
  37.         {fore}             black,
  38.         {back}             white,
  39.         {keyptr}             nil,
  40.         {itemlen}             22,
  41.         {# of item}    maxorigin,
  42.         {itemsize}            62,
  43.         {numcols}              1,
  44.         {nuspace}              1, 
  45.         {arptr}           origin,
  46.         {ispointers}       false
  47.       );
  48.       if first then
  49.         __bandwin(false, 9, 15, 71, 17, white, back, sh_default, bt_double);
  50.     {end;}
  51.     first := false;
  52.     select_origin := __picksel(listpickptr, retitem, selkey);
  53.     __zapsel(listpickptr);
  54.   end;
  55.  
  56.  
  57. begin
  58.   __stdio; __setblwin(false);
  59.   if __inparams('/?', error) then begin
  60.     writeln(__progname);
  61.     writeln('  Usage: ', __progname, ' kan eindigen op errorlevel 101, 102 of 103.');
  62.     writeln(__rep(length(__progname)+10, ' '), '/info string_naam_info');
  63.     writeln(__rep(length(__progname)+10, ' '), '/med1 mededelingen_blah_blah.');
  64.     writeln(__rep(length(__progname)+10, ' '), '/med2 mededelingen_blah_blah.');
  65.     halt;
  66.   end;
  67.   back := blue;
  68.  
  69.   if __inparams('/info', i) then lanstr := __xlatestr(paramstr(i), '_', ' ') else
  70.     lanstr := 'INFORMATIE VOORZIENING  IV-LAN';
  71.   if baseofscreen = $b000 then back := black;
  72.   __bandwin(true, 36, 5, 71, 7, white, back, sh_default, bt_double);
  73.   __betwscn(36, 71, 6, yellow, blue, lanstr);
  74.  
  75.   __bandwin(true, 9, 5, 23, 7, white, back, sh_default, bt_double);
  76.   __write(14, 5, yellow, back, 'Keys:');
  77.   __write(15, 6, yellow, back, ' ');
  78.   __write(13, 7, yellow, back, '<ENTER>');
  79.                                                    
  80.   new(origin); fillchar(origin^, sizeof(origin^), #0); __setblwin(false);
  81.   origin^[01] := 'Opnieuw inloggen';
  82.   origin^[02] := 'Naar de locale schijf';
  83.   origin^[03] := 'Inloggen op andere server';
  84.  
  85.   if __inparams('/med1', i) then med1 := __xlatestr(paramstr(i), '_', ' ') else
  86.     med1 := 'Bij problemen of vragen: HELPDESK 6625';
  87.   if __inparams('/med2', i) then med2 := __xlatestr(paramstr(i), '_', ' ') else
  88.     med2 := 'U kunt nu Uw PC uitzetten.';
  89.   __write(10, 22, white, red, __rep(60, ' '));
  90.   __write(10, 23, white, red, __juststr(med1, ' ', 60, _center_str));
  91.   __write(10, 24, white, red, __juststr(med2, ' ', 60, _center_str));
  92.   __write(10, 25, white, red, __rep(60, ' '));
  93.  
  94.  
  95.   gotoxy(_curcolumns, _currows);
  96.   repeat
  97.     i := select_origin
  98.   until i in [1..3];
  99.   gotoxy(1, _currows);
  100.   halt(100+i);
  101. end.
  102.