Příklady -

  Editor deseti prvkového pole datumů
  const _MaxPol     = 10
  const _SX         = 2
  const _SY         = 2
  const _MaxSY      = 5
  dim D(_MaxPol)    : Date
  dim I, Key        : Integer
  dim Pol, UkSY,
      MinSY, MaxSY,
      CPol, CUpPol,
      CMaxPol, List : Word
  MinSY   := _SY;
  UkSY    := MinSY;
  MaxSY   := _SY+_MaxSY-1;
  CPol    := 1;
  CUpPol  := 1;
  CMaxPol := _MaxPol;
  WInit(1, 1,1,20,10, "", winMove+winGrow, Draw)
  WOpen(1)
  repeat
    GotoXY(_SX, UkSY)
    Input(D[CPol])
    Key := _LastKey;
    EditUpDn(UkSY, MinSY, MaxSY, CPol, CUpPol, CMaxPol, List, Key)
    if List then
      gosub Draw
    endif
  until Key = kbEsc;
  Exit
  Draw:
    Pol := CUpPol;
    for I := _SY to _SY+_MaxSY-1 do
      GotoXY(_SX, I)
      Print(D[Pol])
      _Inc(Pol)
    end
  return