create table ts (tsid c( 1 ), name c( 10 ))
insert into ts (tsid, name) values ('1','Oranges')
insert into ts (tsid, name) values ('2','Apples')
insert into ts (tsid, name) values ('3','Grapes')

create table td (tdid c( 1 ), tsid c( 1 ),  name c( 10 ))
insert into td (tdid, tsid,  name) values ('1','1','For Sale 1')
insert into td (tdid, tsid,  name) values ('1','1','For Sale 2')

set talk off
set compatible foxplus
define window win from int((srow()- 9 )/ 2 ),int((scol()- 41 )/ 2 ) ;
                  to int((srow()- 9 )/ 2 )+ 8 ,int((scol()- 41 )/ 2 )+ 40  ;
       nofloat noclose shadow nominimize color scheme  1 
set default to c:\ 0 \test
use ts in  0 
use td in  0 
select ts.name, ts.tsid from ts order by name into array ats
use in ts
select td
go top
scatter memvar
vts = ''
activate window win noshow
@  1 , 2  say  "id"  size  1 , 2 ,  0 
@  3 , 2  say  "type"  size  1 , 4 ,  0 
@  5 , 2  say  "name"  size  1 , 4 ,  0 
@  1 , 11  get m.tdid size  1 , 1  default  " " 
@  2 , 9  get vts picture  "@^"  from ats size  3 , 14  ;
      default  "" valid vtsvalid(vts) color scheme 1 ,  2 
@  5 , 11  get m.name size  1 , 10  default "  "
@ 1 , 27  get act picture "@*VN <- ;-> ;Close" ;
	size  1 , 9 , 1  default  1  valid actvalid(act)
activate window win
read cycle modal show showvts()
release window win
use in td
* ======
func actvalid
param pact
gather memvar
do case
case pact= 1  and !bof()
  skip - 1 
  if bof()
    wait wind nowa 'First Record'
    go top
  endif
case pact= 2  and !eof()
  skip  1 
  if eof()
    wait wind nowa 'Last Record'
    go bottom
  endif
case pact= 3 
  clear read
case bof()
  go top
case eof()
  go bottom
otherwise
  wait wind nowa 'Feature Not Available'
endcase
scatter memvar
show gets
return
* ======
func vtsvalid
param pvts
if ats(ascan(ats, pvts)+ 1 )<>td.tsid
  m.tsid = ats(ascan(ats, pvts)+ 1 )
endif
return
* ======
func showvts
vts = ats(ascan(ats, m.tsid)- 1 )
show get vts
return