هنا

[روجينا]

set talk off

close all

clear

use aaa

do while .t.

@ 0,0clear to 60,60

nn1=0

@ 10,10say"enter no. to be delete="get nn1pict "9999"

read

if nn1<1

exit

endif

locat for nn=nn1

if .not.found()

@20,10 say"thisis not found"

wait" press any key to contunue "

loop

endif

@ 12,10say"student name ="+sname

@ 14,10say"student address="+saddress

@ 16,10say"student age="+str(sage,3)

yy="n"

@20,20say"do you waint to delete recordy/n?"get yy pict"a"

read

if yy="y" or yy="Y"

delete

pack

endif

enddo

close all

clear

return

[Asinat]

شكرا للمجهود ...

[روجينا]

يسلمووووووووووو