Got another short useful program(short anyway)
It's a calculator that does square roots AND it can put the result of the of an equation into memory and use it in the next equation.
renew=1 : continue=0
do
PRINT "CALCULATOR"
if renew=1 : input "First num: ",a# : endif
if continue=1 : a#=d# : print "First num: ",a# : endif
input "Math function: ",b$
if b$<>"root" : input "Second num: ",c# : endif
if b$="+" then d#=a#+c#
if b$="-" then d#=a#-c#
if b$="*" then d#=a#*c#
if b$="/" then d#=a#/c#
if b$="root" then d#=sqrt(a#)
if b$="+" or b$="-" or b$="*" or b$="/" or b$="root" : print "Result: ",d# : print "If you press spacebar you will be able to use the result as your first num in the next equation" : print "If you press shift you will start from scratch" : else : print "You have entered an invalid math function, or a function not available on this program" : endif
do : if spacekey()=1 : continue=1 : renew=0 : exit : endif
if shiftkey()=1 : renew=1 : continue=0 : exit : endif : loop
cls : loop
Without hating, this world would be perfect.
