1 CLS
PRINT "Grade Figurer"
PRINT "   "
PRINT "Number Of Questions"
LOCATE 3, 20: INPUT A
PRINT "Points Per Question:"
LET C = 100 / A
LOCATE 4, 21: PRINT C; "Rounded to the Nearest Whole Number is[": LOCATE 4, 70: PRINT CINT(C); "]"
PRINT "Please wait"
10 FOR I = 5 TO 1 STEP -1
LOCATE 5, 13: PRINT I
SLEEP 1
NEXT I
GOTO 1
SYSTEM