The original code was made by The Nerd and I James Hasner, The Geek added tremendous amuonts of new code!

You can add, subtract, multiply, divide, find the area of rectangles, circles, and triangles. I plan on adding more to make Ultimate Calc 3.0

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    ` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

`´ calculating program
`´ Made by: The Nerd
`´ Edited by: The Geek
print "ULTIMATE CALC 2.0"
wair 2000
print "This program was made by The Nerd"
wait 2000
print "This program was edited by The Geek"
wait 2000
do
`´ fist i make an INPUT
input "would you like to do a area formula? 1=yes 2=no : ", i
IF i = 2 then goto reg
input "1=circle, 2=rectangle, 3=triangle. : ", j
if j = 3 then goto triangle1
if j = 2 then goto rectangle1
area:
input "what is the diameter? : ", k
goto circle
triangle1:
input "what is the base? : ", l
input "what is the height? : ", n
goto triangle
reg:
input "type first : ", a
input "type second : ", b
goto reg4
rectangle1:
input "what is the length? : ", o
input "what is the width? : ", p
q = o * p
goto rectangle2
goto reg4
`´ then the computer calculating....
reg4:
c = a
d = b
e = a + b
f = a * b
g = a / b
h = a - b
goto reg2
if i = 1 then goto area
if j = 1 then goto circle
if j = 3 then goto triangle
triangle:
m = .5 * l * n
goto triangle2
rectangle2:
print "the area of a rectangle"
print q
goto reg3
circle:
l = k * 3.14
goto circle2
`´ display result on the screen
reg2:
print "sum"
print e
print "answer to a multiplication problem"
print f
print "answer to a division problem"
print g
print " answer to a subtraction problem"
print h
goto reg3
circle2:
print " Circles area"
print l
goto reg3
triangle2:
print " Triangle's area"
print m
`´ display message
reg3:
input "Would you like to quit? Type 1=yes 2=no! : ", x
y = 1
n = 2
if x = 2 then cls
IF x = 1 THEN END 
IF ELSE THEN GOTO CONTINUE:
CONTINUE:
loop
end
`´ close the program
wait key
end
`´ this is the program