REM PROGRAMMED BY: TRAVIS SCHULTZ


CLS
COLOR 9, 0
1 PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "º±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±º"
PRINT "º------------------------------------------------------------------------------º"
PRINT "º±±±±                        Travis' calculator                             ±±±±º"
PRINT "º------------------------------------------------------------------------------º"
PRINT "º±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "º±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±º"
PRINT "º------------------------------------------------------------------------------º"
PRINT "º±±±±           1=addition                        6=#squared               ±±±±º"
PRINT "º±±±±           2=minus                           7=square root            ±±±±º"
PRINT "º±±±±           3=divide                          8=#cubed                 ±±±±º"
PRINT "º±±±±           4=multiply                                                 ±±±±º"
PRINT "º±±±±                                                                      ±±±±º"
PRINT "º±±±±                                                                      ±±±±º"
PRINT "º±±±±           5=quit                            9=formulas               ±±±±º"
PRINT "º±±±±                                                                      ±±±±º"
PRINT "º------------------------------------------------------------------------------º"
PRINT "º±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
PRINT ""
INPUT "press the number then enter: ", a


	IF a = 5 THEN
		SYSTEM


	END IF
	    IF a = 1 THEN

		CLS
		PRINT "addition                      previous answer ="; answer!
		PRINT ""
		INPUT "1st# ", b!
		PRINT "+"
		INPUT "2nd# ", c!
		PRINT "="
				answer! = b! + c!
			PRINT answer!
			INPUT "(press enter)", pap
			GOTO 1
	END IF

		IF a = 2 THEN
			CLS
			PRINT "subtraction                       previous answer = "; answer!
			PRINT ""
			INPUT "1st# ", b!
			PRINT "-"
			INPUT "2nd# ", c!
			PRINT "="
					answer! = b! - c!
				PRINT answer!
				INPUT "(press enter)", pup
				GOTO 1
	END IF

		IF a = 3 THEN
			CLS
			PRINT "division                      previous answer = "; answer!
			PRINT ""
			INPUT "1st# ", b!
			PRINT "/"
			INPUT "2nd# ", c!
			PRINT "="
			IF b! = 0 OR c! = 0 THEN
				INPUT "divide by 0!   press enter", qwer
					GOTO 1
					END IF
					answer! = b! / c!
				PRINT answer!
				INPUT "(press enter)", pep
			GOTO 1
	END IF
	      IF a = 4 THEN
			CLS
			PRINT "mutiply                       previous answer = "; answer!
			PRINT ""
			INPUT "1st# ", b!
			PRINT "*"
			INPUT "2nd# ", c!
			PRINT "="
					answer! = b! * c!
				PRINT answer!
				INPUT "(press enter)", ppp
				GOTO 1
	END IF
		IF a = 6 THEN
		    CLS
		    PRINT "#squared                        previous answer = "; answer!
		    PRINT ""
		    INPUT "# = ", b!
		    PRINT "squared"
		    PRINT "="
					answer! = b! ^ 2
				PRINT answer!
				INPUT "(press enter)", prp
				GOTO 1
	END IF
		IF a = 7 THEN
			CLS
			PRINT "square root                 previous answer = "; answer!
			PRINT ""
			PRINT "   __"
			INPUT "-\|", b!
			PRINT "="
					answer! = SQR(b!)
				PRINT answer!
				INPUT "(press enter)", plp
				GOTO 1

	END IF
		IF a = 8 THEN
		    CLS
		    PRINT "#cubed                           previous answer = "; answer!
		    PRINT ""
		    INPUT "# = ", b!
		    PRINT "cubed"
		    PRINT "="
					answer! = b! ^ 3
				PRINT answer!
				INPUT "(press enter)", prp
				GOTO 1
	END IF


IF a = 9 THEN
2        CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "º±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±º"
PRINT "º------------------------------------------------------------------------------º"
PRINT "º±±±±  1=pythagorean theorem             6=circumfrence of circle          ±±±±º"
PRINT "º±±±±  2=quadraitic formula              7=volume of box                   ±±±±º"
PRINT "º±±±±                                                                      ±±±±º"
PRINT "º±±±±                                                                      ±±±±º"
PRINT "º±±±±                                                                      ±±±±º"
PRINT "º±±±±  4=area of rectangle               8=back to main menu               ±±±±º"
PRINT "º±±±±  5=area of circle                  9=quit                            ±±±±º"
PRINT "º------------------------------------------------------------------------------º"
PRINT "º±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
PRINT ""
INPUT "type the number then press enter: ", z
	IF z = 1 THEN
		CLS
		PRINT "pythagorean theorem                  previous answer = "; answer!
		PRINT ""
		INPUT "length of side a = ", b!
		INPUT "length of side b = ", c!
				answer! = SQR(b! ^ 2 + c! ^ 2)
			PRINT answer!
			INPUT "(press enter)", pwp
			CLS
			GOTO 2

	END IF
	  IF z = 2 THEN
		CLS
		PRINT "quadriatic formula                   prrevious answer = "; answer!
		PRINT ""
		INPUT "A = ", b!
		INPUT "B = ", c!
		INPUT "C = ", d!
				answer! = (-c! + SQR(c! ^ 2 - 4 * b! * d!)) / 2
			PRINT answer!
				answer2! = (-c! - SQR(c! ^ 2 - 4 * b! * d!)) / 2
			PRINT answer2!
			INPUT "(press enter)", pip
			CLS
			GOTO 2
	END IF
	 IF z = 3 THEN

		END IF
	 IF z = 4 THEN
		CLS
		PRINT " area of square    "; answer!
		INPUT "side a= ", a!
		PRINT "*"
		INPUT "side b= ", b!
			answer! = a! * b!
			PRINT " the area of your rectangle is "; answer!
		PRINT ""
		INPUT "press enter to continue", qwer
		GOTO 2
		END IF
	 IF z = 5 THEN
		CLS
		PRINT "area of circle   "; answer!; ""
		INPUT "radius of the circle = "; r!
			pi! = 3.14159
			answer1! = r! ^ 2
			answer! = answer1! * pi!
			PRINT " the area of your ciricle is "; answer!
			PRINT ""
			INPUT "press enter to continue", qwer
			GOTO 2
			END IF
	IF z = 6 THEN
		CLS
		PRINT "circumfrence of a circle        previous answer is"; answer!
		pi! = 3.14159
		INPUT " diameter for your circle ", a!
			answer! = pi! * a!
			PRINT ""
			PRINT "the circumfrence of your circle is "; answer!
			PRINT ""
			INPUT "press enter to continue", qwer
			GOTO 2
			END IF
END IF
		IF z = 7 THEN
			CLS
			PRINT "volume of a box            previous answer "; answer!
			PRINT ""
			INPUT "side a"; a!
			INPUT "side b"; b!
			INPUT "side c"; c!
				answer! = a! * b! * c!
				PRINT " then volume of your box is "; answer!
				INPUT "press enter to continue", qwer
				GOTO 2
				END IF

		       IF z = 8 THEN
			CLS
			GOTO 1
			END IF
		IF z = 9 THEN
		SYSTEM
		ELSE
		SYSTEM
		END IF