The same code

USE address SHARED NEW

* index if required, see full source

SET INDEX TO addr_comp, addr_id

oBr := TbrowseDb(3,0, 20, 72)

for ii := 1 to Fcount()

oBr:AddColumn( TbColumnNew(FieldName(ii), FieldBlock(FieldName(ii)) ) )

next

oBr:Trim := .T.   // optional, trim displayed data of type 'C'

oBr:Exec()        // use default keyboard handler (source avail.)

// - or insert here your own handler

will produce either GUI based executable (NB: note the index speed on common PIII-700):

or an Terminal i/o based application (here w/o color setting or other Tbrowse tunable parameters):

See the source code or click on the   "Back" button in your browser or here to return to FS5 preview.