Exam Score Sorting

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Exam Score Sorting

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 

People

No people associated with this content.

Scroll to Top