qbasic program

FOR x = 1 TO 4
    READ y$
    PRINT y$
    PRINT
    PRINT "Enter mark of Quiz"
    INPUT q
    PRINT "Enter mark of Assignment"
    INPUT a
    PRINT "Enter mark of Midterm"
    INPUT m
    PRINT "Enter mark of Final"
    INPUT f
    sum = q + a + m + f
    PRINT "your mark of this subject"; sum
    tsum = tsum + sum
    IF sum >= 80 AND sum <= 100 THEN
        PRINT "you have got A+"
    ELSEIF sum >= 75 AND sum <= 79 THEN
        PRINT "you have got A"
    ELSEIF sum >= 70 AND sum <= 74 THEN
        PRINT "you have got A-"
    ELSEIF sum >= 65 AND sum <= 69 THEN
        PRINT "you have got B+"
    ELSEIF sum >= 60 AND sum <= 64 THEN
        PRINT "you have got B"
    ELSEIF sum >= 55 AND sum <= 59 THEN
        PRINT "you have got B-"
    ELSEIF sum >= 50 AND sum <= 54 THEN
        PRINT "you have got C+"
    ELSEIF sum >= 45 AND sum <= 49 THEN
        PRINT "you have got C"
    ELSEIF sum >= 40 AND sum <= 44 THEN
        PRINT "you have got D"
    ELSEIF sum < 40 THEN
        PRINT "you have got F"
    END IF
    PRINT
NEXT x
DATA "FOR ART OF LIVING"
DATA "FOR ENGLISH"
DATA "FOR ISE"
DATA "COMPUTER FUNDAMENTAL"
sum = tsum / 4

PRINT "Your average mark"; sum
IF sum >= 80 AND sum <= 100 THEN
    PRINT "your CGPA is: 4.000"
ELSEIF sum >= 75 AND sum <= 79 THEN
    PRINT "your CGPA is: 3.75"
ELSEIF sum >= 70 AND sum <= 74 THEN
    PRINT "your CGPA is: 3.50"
ELSEIF sum >= 65 AND sum <= 69 THEN
    PRINT "your CGPA is: 3.25"
ELSEIF sum >= 60 AND sum <= 64 THEN
    PRINT "your CGPA is: 3.00"
ELSEIF sum >= 55 AND sum <= 59 THEN
    PRINT "your CGPA is: 2.75"
ELSEIF sum >= 50 AND sum <= 54 THEN
    PRINT "your CGPA is: 2.50"
ELSEIF sum >= 45 AND sum <= 49 THEN
    PRINT "your CGPA is: 2.25"
ELSEIF sum >= 40 AND sum <= 44 THEN
    PRINT "your CGPA is: 2.00"
ELSEIF sum < 40 THEN
    PRINT "your CGPA is: 0.00"
END IF