close all
lNmno=0
sele a
use mm
@10,26 say 'account no:' get lNmno
read
sele mm
index on acno to lNmno
seek lNmno
if found()
set device to file ss.txt
----

endif
**so on