Sorry your browser is not supported!

hide mouse

print "Read the Readme.txt to see what you can do."
print "You will only get a decimal if you do a square root, other wise the number will be rounded to the"
print "nearest SF."
print "All the words are in lower case, you can't make typing errors or it won't work."
print "Brackets don't work. ie (2+3)+(4-0)"
print "Press 'Esc' to exit."

sleep 1000

set cursor 1, 120

Sums:

input "What is the first number? ";A
input "Do you want to square root? ";sroot$
if sroot$="yes"
goto squareroot
endif
`get stuck in a loop where if anything is input you are taken back `to sums
input "Do you want the arc cosine, arc sine, arc tangent or none? ";arc$
goto arcsums

input "Do you want to times, divide, add or minus? ";action$
input "You'll need to give me the second number ";B

if action$ = "divide" and B = 0
print "Error, you can't divide by 0"
sleep 2000
cls
goto sums
endif

if action$="times"
C = A * B
sleep 10
print C
sleep 100
input "Do you want to store the answer for a further sum? ";answer$
if answer$="no"
cls
goto sums
endif
if answer$="yes"
input "What do you want to do to your number? times, divide, add or minus? ";actiontwo$
input "What number do you want to do that by? ";D
if actiontwo$="times"
E = D * C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="divide"
E = C / D
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="add"
E = D + C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="minus"
E = C - D
sleep 10
print E
sleep 5000
cls
goto sums
endif
goto sums
endif
endif

if action$="divide"
C = A / B
sleep 10
print C
sleep 100
input "Do you want to store the answer for a further sum? ";answer$
if answer$="no"
cls
goto sums
endif
if answer$="yes"
input "What do you want to do to your number? times, divide, add or minus? ";actiontwo$
input "What number do you want to do that by? ";D
if actiontwo$="times"
E = D * C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="divide"
E = C / D
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="add"
E = D + C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="minus"
E = C - D
sleep 10
print E
sleep 5000
cls
goto sums
endif
goto sums
endif
endif

if action$="add"
C = A + B
sleep 10
print C
sleep 100
input "Do you want to store the answer for a further sum? ";answer$
if answer$="no"
cls
goto sums
endif
if answer$="yes"
input "What do you want to do to your number? times, divide, add or minus? ";actiontwo$
input "What number do you want to do that by? ";D
if actiontwo$="times"
E = D * C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="divide"
E = C / D
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="add"
E = D + C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="minus"
E = C - D
sleep 10
print E
sleep 5000
cls
goto sums
endif
goto sums
endif
endif

if action$="minus"
C = A - B
sleep 10
print C
sleep 100
input "Do you want to store the answer for a further sum? ";answer$
if answer$="no"
cls
goto sums
endif
if answer$="yes"
input "What do you want to do to your number? times, divide, add or minus? ";actiontwo$
input "What number do you want to do that by? ";D
if actiontwo$="times"
E = D * C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="divide"
E = C / D
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="add"
E = D + C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="minus"
E = C - D
sleep 10
print E
sleep 5000
cls
goto sums
endif
goto sums
endif
endif

squareroot:
sroot#=SQRT(A)
print SQRT(A)
sleep 100
input "Do you want to store the answer for a further sum? ";answer$
if answer$="no"
cls
goto sums
endif
if answer$="yes"
input "What do you want to do to your number? times, divide, add or minus? ";actiontwo$
input "What number do you want to do that by? ";D
if actiontwo$="times"
E = D * sroot#
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="divide"
E = sroot# / D
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="add"
E = D + sroot#
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="minus"
E = sroot# - D
sleep 10
print E
sleep 5000
cls
goto sums
endif
goto sums
endif
cls
goto sums

arcsums:
if arc$="arc cosine"
print acos(A)
sleep 100
input "Do you want to store the answer for a further sum? ";answer$
if answer$="no"
cls
goto sums
endif
if answer$="yes"
input "What do you want to do to your number? times, divide, add or minus? ";actiontwo$
input "What number do you want to do that by? ";D
if actiontwo$="times"
E = D * C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="divide"
E = C / D
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="add"
E = D + C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="minus"
E = C - D
sleep 10
print E
sleep 5000
cls
goto sums
endif
goto sums
endif
endif
cls
goto sums

if arc$="arc sine"
print asin(A)
sleep 100
cls
goto sums
input "Do you want to store the answer for a further sum? ";answer$
if answer$="no"
cls
goto sums
endif
if answer$="yes"
input "What do you want to do to your number? times, divide, add or minus? ";actiontwo$
input "What number do you want to do that by? ";D
if actiontwo$="times"
E = D * C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="divide"
E = C / D
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="add"
E = D + C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="minus"
E = C - D
sleep 10
print E
sleep 5000
cls
goto sums
endif
goto sums
endif
endif

if arc$="arc tangent"
print atan(A)
sleep 100
cls
goto sums
input "Do you want to store the answer for a further sum? ";answer$
if answer$="no"
cls
goto sums
endif
if answer$="yes"
input "What do you want to do to your number? times, divide, add or minus? ";actiontwo$
input "What number do you want to do that by? ";D
if actiontwo$="times"
E = D * C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="divide"
E = C / D
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="add"
E = D + C
sleep 10
print E
sleep 5000
cls
goto sums
endif
if actiontwo$="minus"
E = C - D
sleep 10
print E
sleep 5000
cls
goto sums
endif
goto sums
endif
endif

if arc$="none"
goto continuedsums
endif

sync on : sync rate 60 : backdrop on
a = 4 : b = 5 : c=addme(a,b)
ink rgb(255,255,255),1 : disable escapekey : while escapekey()=0
text 10,10,STR$(a) : text 10,30,STR$(b) : text 10,50,STR$(c)
sync : endwhile : end

function addme(a,b)
c = (a + b)
endfunction c

power:
rem:i know this in not theoretically the best way to do this
rem:but it works better than the exp comand(i have had some problems with it)
tp#=t#
print "enter the power (power must be integer only)"
input p
if p>=2
p=p-1
for i=1 to p step 1
tp#=tp#*t#
next i
endif
if p=1
endif
if p=0
tp#=1
endif
if p<=-1
for i=0 to p step -1
tp#=tp#/t#
next i
endif
t#=tp#
return