Source Code
5 PRINT "*EXAM SCORE SORTING*"
10 GOSUB 400
20 PRINT "ENTER SCORE=(X TO STOP)"
30 INPUT G$
40 CLS
50 IF G$="X" THEN GOTO 200
60 LET G=VAL G$
70 LET N=N+1
100 IF G<60 THEN LET F=F+1
110 IF G>59 AND G<70 THEN LET D=D+1
120 IF G>69 AND G<80 THEN LET C=C+1
130 IF G>79 AND G<90 THEN LET B=B+1
140 IF G>89 THEN LET A=A+1
150 IF N=1 THEN LET L=G
155 IF N=1 THEN LET H=G
160 IF G<L THEN LET L=G
170 IF G>H THEN LET H=G
180 GOTO 20
200 PRINT "TOTAL ";N;" SCORES"
210 PRINT "FROM ";L;" TO ";H
220 PRINT "A",A
230 PRINT "B",B
240 PRINT "C",C
250 PRINT "D",D
260 PRINT "F",F
270 STOP
400 CLEAR
410 LET A=0
420 LET B=0
430 LET C=0
440 LET D=0
450 LET F=0
460 LET N=0
470 RETURN
500 SAVE "1006%2"
600 RUN