Dim nom As String

Oim gradel As single

Din gradez As single

Din average As Single 'Ave of grades

Input $11,$ non, grade$1,$ gradez

average $-($gradel $+$ gradez$)/2$

picoutput. Print nom; $"*......"$; average

Input $11,$ nom, gradel, grade?

average gradel $+$ gradez$)\frac{?}{2}$

picoutput.Print non; $"*......."$: average

Dim nual As Single, num$2$ As single

Din str$1$ As String, str$2$ As String

Inpet i$1,$ nuel, stri

Input $11,$ str$2,$ num$2$

picoutput.Print numl; str$1$; str$2$; nume

Close $11$

Open "OATA. TXT$"$ for Input As $11$

picoutput. Print num$2$

Input $11,$ num?

picoutput. Print num $2$

DATA.TXT

$"$A$1$ Adams", $72,88$

"Betty Brown", $76,82$

DATA.TXT

$1,$ "One", "Two", $2$

'Nane of student

Grade on $1$st exan

Grode on ind exan

arades.

$2$

arerape

average

$1,$ "One", "Two", $2$