set talk off
clear
use student in 1 order tag cods alias st
use curs in 2 order tag codc alias cs
use note in 3 order tag codc alias nt
use profesor in 4 order tag codp alias pr
select cs
set relation to codp into pr
select nt

set relation to cods into st, codc into cs

r='D'
do while r$'DdYy'
clear
Vcodc=accept('Cod curs')
Vcodc=Upper(Vcodc)
   seek Vcodc

if eof()
msgbox('nu sunt note la cursul '+Vcodc , 'curs gresit'  , 0)
* ? 'Cursul +Vcodc+ ' nu exista''
wait 'Continuati D/N ' to r
LOOP
endif

do while nt->codc=Vcodc
? st->cods, st->nume, cs->codc, cs->titlu, nt->nota, pr->Nume
 skip
 enddo
 wait 'continuati D/N' to r
 enddo
 clear all
 return