const Program = "Selektor";

  param Comm : Word;
  param LNum : LongInt;
  const Obj  : Byte = 10;
  const W    : Word = 0;
  const R    : Real = 0;
  const D    : Date = (1,1,1994);
  const S    : String[10] = "";
  WInit(1, 0,0,78,19, "SELEKTOR", winMove, 0);
  Ins_Browser (1,  1, 01,01,79,15, 9, dbt???, idxA, GetText, 0, 0)
  Ins_DBWord  (1, 10, 01,16,07,17, 1, 1, idxA)
  Ins_DBDate  (1, 20, 08,16,16,17, 1, 1, idxB
  Ins_DBReal  (1, 30, 20,16,35,17, 1, 1, idxC)
  Ins_DBString(1, 40, 37,16,47,17, 1, 1, idxD)
  Ins_Button(1,100, 3,18,30,20, "OK", cmOK,1)
  SelObject(1, Obj);
  SetData(1, LNum, W, D[1],D[2],D[3], R, S)
  WOpen(1);
  Comm := _Execute(1);
  if Comm = cmOK then
    Obj := _ActObject(1);
    GetData(1, LNum, W, D[1],D[2],D[3], R, S)
  endif
  Exit
  GetText:
    SetResult(_Str(???[???]:5)        + "Ë" +
              _DateStr(???[???], " ") + "Ë" +
              _Str(???[???]:14:2))    + "Ë" +
              ???[???]);
  return