Basun

CLS
menu:
COLOR 2
PRINT STRING$(80, "*")
COLOR 5
PRINT "1) Addition"
PRINT "2) Subtraction"
PRINT "3) Multiplication"
PRINT "4) Division"
COLOR 6
PRINT
PRINT "5) Trigonometric Formulas"
PRINT "6) Find the Surface Area of a Prism"
PRINT "7) Find the Volume of a Prism"
PRINT "8) Find Area of 4 Walls"
PRINT
COLOR 7
PRINT "9) SIN()"
PRINT "10) COS()"
PRINT "11) TAN()"
PRINT
COLOR 8
PRINT "12) Exit the Program"
COLOR 2
PRINT STRING$(80, "*")
INPUT "Enter your choice"; ch
SELECT CASE ch
    CASE 1
        CLS
        INPUT "Enter first number", a
        INPUT "Enter second number", b
        PRINT "The Addition: "; a + b
    CASE 2
        CLS
        INPUT "Enter first number", a
        INPUT "Enter second number", b
        PRINT "The Subtraction: "; a - b
    CASE 3
        CLS
        INPUT "Enter first number", a
        INPUT "Enter second number", b
        PRINT "The Multiplication: "; a * b
    CASE 4
        CLS
        INPUT "Enter first number", a
        INPUT "Enter second number", b
        PRINT "The Division: "; a / b
    CASE 5
        CLS
        PRINT "sin0 = p/h ";
        PRINT "cosec0 = h/p ";
        PRINT "cos0 = b/h ";
        PRINT "tan0 = p/b ";
        PRINT "cot0 = b/p "
        PRINT
        PRINT "sin A x cosec A = 1 ";
        PRINT "cos A x sec A = 1 ";
        PRINT "cot A x tan A = 1 "
        PRINT
        PRINT "cos ^ 2 0 + sin ^ 2 0 = 1 ";
        PRINT "cot A = cos A/sin A ";
        PRINT "tan A = sin A/cos A "
        PRINT
        PRINT "sec ^ 2 0 - tan ^ 2 0 = 1 ";
        PRINT "cosec ^2 0 - cot ^2 0 = 1 "
    CASE 6
        INPUT "Enter The Perimeter of Cross Section", p
        INPUT "Enter the height of the prism", h
        INPUT "Enter the Area of Cross-Section", a
        T.S.A = p * h + 2 * a
        PRINT "The Total Surface Area: "; T.S.A
    CASE 7
        INPUT "Enter the Area of Cross Section"; a
        INPUT "Enter the height of the prism"; h
        volm = a * h
        PRINT "The Volume of the Prism:"; volm
    CASE 8
        INPUT "Enter the height of the room"; h
        INPUT "Enter the length of the room"; l
        INPUT "Enter the breadth of the room"; b
        a4w = 2 * h * (l + b)
        PRINT "Area of 4 Walls"; a4w
    CASE 9
        INPUT "Enter a number"; a
        pi = 3.1416
        PRINT "The Approximate Value in Degrees: "; SIN(180 / pi * a)
    CASE 10
        INPUT "Enter a number"; a
        pi = 3.1416
        PRINT "The Approximate Value in Degrees: "; COS(180 / pi * a)
    CASE 11
        INPUT "Enter a number"; a
        pi = 3.1416
        PRINT "The Approximate Value in Degrees: "; TAN(180 / pi * a)
    CASE 12
        END
END SELECT
INPUT "Do you want to continue running the program?(Y/N)", ch$
IF ch$ = "y" THEN
    GOTO menu
ELSE
    END
END IF
END