home *** CD-ROM | disk | FTP | other *** search
- {$B-,V-,I-,N-,E-}
- {$M 4096,0,10240}
- uses
- eco_lib, crt, dos
-
- ;
-
-
-
- const
- first : boolean = true;
- maxorigin = 3;
-
- type
- ori_artype = array[1..maxorigin] of string[62];
-
- var
- retitem : string;
- i, selkey : word;
- origin : ^ori_artype;
- back : byte;
- med1,
- med2,
- lanstr : string;
- listpickptr : _pickptr;
-
-
-
- function select_origin : byte;
- begin
- selkey := $00; retitem := '';
- {if first then begin}
- listpickptr := __makesel(
- {coord} 9, 15, 71, 17,
- {fore} white,
- {back} back,
- {fore} black,
- {back} white,
- {keyptr} nil,
- {itemlen} 22,
- {# of item} maxorigin,
- {itemsize} 62,
- {numcols} 1,
- {nuspace} 1,
- {arptr} origin,
- {ispointers} false
- );
- if first then
- __bandwin(false, 9, 15, 71, 17, white, back, sh_default, bt_double);
- {end;}
- first := false;
- select_origin := __picksel(listpickptr, retitem, selkey);
- __zapsel(listpickptr);
- end;
-
-
- begin
- __stdio; __setblwin(false);
- if __inparams('/?', error) then begin
- writeln(__progname);
- writeln(' Usage: ', __progname, ' kan eindigen op errorlevel 101, 102 of 103.');
- writeln(__rep(length(__progname)+10, ' '), '/info string_naam_info');
- writeln(__rep(length(__progname)+10, ' '), '/med1 mededelingen_blah_blah.');
- writeln(__rep(length(__progname)+10, ' '), '/med2 mededelingen_blah_blah.');
- halt;
- end;
- back := blue;
-
- if __inparams('/info', i) then lanstr := __xlatestr(paramstr(i), '_', ' ') else
- lanstr := 'INFORMATIE VOORZIENING IV-LAN';
- if baseofscreen = $b000 then back := black;
- __bandwin(true, 36, 5, 71, 7, white, back, sh_default, bt_double);
- __betwscn(36, 71, 6, yellow, blue, lanstr);
-
- __bandwin(true, 9, 5, 23, 7, white, back, sh_default, bt_double);
- __write(14, 5, yellow, back, 'Keys:');
- __write(15, 6, yellow, back, ' ');
- __write(13, 7, yellow, back, '<ENTER>');
-
- new(origin); fillchar(origin^, sizeof(origin^), #0); __setblwin(false);
- origin^[01] := 'Opnieuw inloggen';
- origin^[02] := 'Naar de locale schijf';
- origin^[03] := 'Inloggen op andere server';
-
- if __inparams('/med1', i) then med1 := __xlatestr(paramstr(i), '_', ' ') else
- med1 := 'Bij problemen of vragen: HELPDESK 6625';
- if __inparams('/med2', i) then med2 := __xlatestr(paramstr(i), '_', ' ') else
- med2 := 'U kunt nu Uw PC uitzetten.';
- __write(10, 22, white, red, __rep(60, ' '));
- __write(10, 23, white, red, __juststr(med1, ' ', 60, _center_str));
- __write(10, 24, white, red, __juststr(med2, ' ', 60, _center_str));
- __write(10, 25, white, red, __rep(60, ' '));
-
-
- gotoxy(_curcolumns, _currows);
- repeat
- i := select_origin
- until i in [1..3];
- gotoxy(1, _currows);
- halt(100+i);
- end.
-