Saurab

CLS
menu:
CLS
COLOR 4
PRINT STRING$(80, "*")
COLOR 3
PRINT "1) Addition"
PRINT "2) Subtraction"
PRINT "3) Multiplication"
PRINT "4) Division"
PRINT "5) SIN"
PRINT "6) COS"
PRINT "7) TAN"
PRINT "8) View Algebric Formulas"
PRINT "9) View the Area of Inside Path"
PRINT "10) View the Area of Outside Path"
PRINT "11) View the Area of Cross Path"
PRINT "12) Exit the Program"
COLOR 4
PRINT STRING$(80, "*")
COLOR 13
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
        INPUT "Enter a number", a
        PRINT "SIN("; a; ")="; SIN(a)
    CASE 6
        CLS
        INPUT "Enter a number", a
        PRINT "COS("; a; ")="; COS(a)
    CASE 7
        CLS
        INPUT "Enter a number", a
        PRINT "TAN("; a; ")="; TAN(a)
    CASE 8
        PRINT "(a+b)^2 = a^2 + 2ab + b^2"
        PRINT "(a-b)^2 = a^2 - 2ab + b^2"
        PRINT "(a+b)^3 = a^3 + 3a^2b + 3ab^2 + b^3"
        PRINT "(a-b)^3 = a^3 - 3a^2b + 3ab^2 - b^3"
        PRINT "a^2-b^2 = (a+b)(a-b)"
        PRINT "a^3+b^3 = (a+b)(a^2-ab+b^2)"
        PRINT "a^3-b^3 = (a-b)(a^2+ab+b^2)"
        PRINT "(a+b)^3 = a^3 + 3ab(a+b)+b^3"
    CASE 9
        INPUT "Enter length", l
        INPUT "Enter breadth", b
        INPUT "Enter width", w
        ip = 2 * w * (l + b + 2 * w)
        PRINT "Inside Path: "; ip
    CASE 10
        INPUT "Enter length", l
        INPUT "Enter breadth", b
        INPUT "Enter width", w
        ip = 2 * w * (l + b - 2 * w)
        PRINT "Outside Path: "; ip
    CASE 11
        INPUT "Enter length", l
        INPUT "Enter breadth", b
        INPUT "Enter width", w
        ip = w * (l + b + w)
        PRINT "Cross Path: "; ip
    CASE 12
        END
END SELECT

INPUT "Do you want to continue(Y/N)"; ch$
IF ch$ = "y" THEN GOTO menu ELSE END