def temp-table tt field f1 as integer
field f2 as char
field f3 as char format "x(20)".

def var rid as rowid.
def var i as integer.
repeat i = 1 to 40:
  create tt.
  tt.f1 = i.
  tt.f2 = "Test " + string(i).
  tt.f3 = "Character " + string(i).
  if i = 20 then rid = rowid(tt).
end.

def var nop as rowid.
create tt.
nop = rowid(tt).
delete tt.


def query q for tt.
def browse brws query q DISPLAY tt.f1 width 25 tt.f2 tt.f3 WITH 10 DOWN.
OPEN QUERY q FOR EACH tt INDEXED-REPOSITION.

def button btn1.
form brws with frame fr1.
enable all with frame fr1.


def var col1 as handle.

on "r" anywhere do:
   reposition q to rowid rid.
end.

on "d" anywhere do:
   browse brws:delete-current-row().
end.

on "a" anywhere do:
   browse brws:DELETE-SELECTED-ROWS().
end.

on "n" anywhere do:
   reposition q to rowid nop.
end.

wait-for close of current-window.