Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
Source Code
10 REM STUDENT GRADE AVERAGE 20 LPRINT "STUDENT GRADE AVERAGE" 30 PRINT "ENTER DATE" 31 INPUT D$ 32 LPRINT D$ 2500 PRINT "ENTER STUDENT NAME" 2600 INPUT N$ 2601 LPRINT N$ 2650 PRINT 2651 PRINT 2700 PRINT "ENTER SCORE 1" 2701 INPUT E1 2702 LPRINT E1 2800 PRINT "ENTER SCORE 2" 2801 INPUT E2 2802 LPRINT E2 2900 PRINT "ENTER SCORE 3" 2901 INPUT E3 2902 LPRINT E3 3000 PRINT "ENTER SCORE 4" 3001 INPUT E4 3002 LPRINT E4 4000 PRINT "ENTER SCORE 5" 4001 INPUT E5 4002 LPRINT E5 5000 PRINT 5001 PRINT 6000 LPRINT "SUMMARY REPORT FOR ";N$ 7000 LET E=E1+E2+E3+E4+E5 7001 LET A=E/5 8000 LPRINT "AVERAGE SCORE=";A 8010 CLEAR 8020 GOTO 20 8900 SAVE "1010%7" 9000 LIST