Source Code
10 REM STUDENT GRADE AVERAGE
20 LPRINT "STUDENT GRADE AVERAGE"
30 PRINT "ENTER DATE"
31 INPUT D$
32 LPRINT D$
\n2500 PRINT "ENTER STUDENT NAME"
\n2600 INPUT N$
\n2601 LPRINT N$
\n2650 PRINT
\n2651 PRINT
\n2700 PRINT "ENTER SCORE 1"
\n2701 INPUT E1
\n2702 LPRINT E1
\n2800 PRINT "ENTER SCORE 2"
\n2801 INPUT E2
\n2802 LPRINT E2
\n2900 PRINT "ENTER SCORE 3"
\n2901 INPUT E3
\n2902 LPRINT E3
\n3000 PRINT "ENTER SCORE 4"
\n3001 INPUT E4
\n3002 LPRINT E4
\n4000 PRINT "ENTER SCORE 5"
\n4001 INPUT E5
\n4002 LPRINT E5
\n5000 PRINT
\n5001 PRINT
\n6000 LPRINT "SUMMARY REPORT FOR ";N$
\n7000 LET E=E1+E2+E3+E4+E5
\n7001 LET A=E/5
\n8000 LPRINT "AVERAGE SCORE=";A
\n8010 CLEAR
\n8020 GOTO 20
\n8900 SAVE "1010%7"
\n9000 LIST
