proce xoa

use sinhvien

clea

t1='c'

do while uppe(t1)='C'

bmasv=0

@5,5 say'cho biet ma sinh vien can tim' get bmasv

read

loca for masv=bmasv

if found ()

clea

dele

brow

else

@5,5 say'khong tim thay nguoi co ma nay'

endif

wait 'bam phim bat ki de xem tiep' wind

clea

@7,5 say 'ban co thuc su muon xoa khong? C/K' get traloi defa ' '

read

if uppe(traloi)='C'

pack

else

reca all

endif

@9,5 say 'tim tiep hay thoi? C/K' get t1

read

if uppe(t1)='K'

clea

exit

endif

clea

enddo