l = ""
for i = 0 to 9
  n << 0
next i

doform 'enter modeless
button 0,1,0,1, n(1), "1"
button 1,2,0,1, n(2), "2"
button 2,3,0,1, n(3), "3"

button 0,1,1,2, n(4), "4"
button 1,2,1,2, n(5), "5"
button 2,3,1,2, n(6), "6"

button 0,1,2,3, n(7), "7"
button 1,2,2,3, n(8), "8"
button 2,3,2,3, n(9), "9"

button 0,3,3,4, b, "OK", "submit"
button 0,3,4,5, l, "", "label"

doform 10,10,150,150
while (b != "OK")

  for i = 1 to 9
    if (n(i) = i) then
       l = str(i)
       n(i) = ""
    fi
  next i
  doform

wend