Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
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