proce tim

use sinhvien

clea

tl='c'

do while uppe(tl)='C'

bmasv=0

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

read

loca for masv=bmasv

if found()

clea

text

PHIEU BAO DIEM

Ho va Ten:<<hodem>><<ten>>

Diem m1:<<m1>>

Diem m2:<<m2>>

Tong diem:<<tong>>

Ngay<<day(date())>>Thang<<month(date())>>Nam<<year(date())>>

endtext

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'tim tiep hay thoi?C/K' get tl

read

if uppe(tl)='K'

clea

exit

endif

clea

enddo