Sorry your browser is not supported!

hide mouse

clear entry buffer

Global FirstNum as Float
Global SecondNum as Float
Global Userinput as string
Global Userinput2 as string
Global returnkey as integer

Center text 320, 10,  " The Calculator of calculators. "

ThatPart:
cls
input "First num: ",a# 
   Userinput = entry$(1)
CENTER TEXT 320, 50, a#


If key = 71 or key = 72 or key = 73 or key = 75 or key = 76 or key = 77 or key = 79 or key = 80 or key = 81 or key = 82
FirstNum = val(Userinput)
endif


if FirstNum > 0 and key=78 then add()
if FirstNum > 0 and key=74 then subtract()
if FirstNum > 0 and key=53 then divide()
if FirstNum > 0 and key=55 then multiply()
`if FirstNum > 0 and key=54 then power()
`if FirstNum > 0 and key=56 then sqroot()

Printer()
sync




Function Printer()
  center text 320,200, "The FirstNum is " +str$(FirstNum)
  center text 320,210, "The SecondNum is" + str$(SecondNum)
  center text 320,220, "Enterkey = " + str$(returnkeystate)

goto ThatPart

endfunction

Function add()
cls
clear Entry Buffer
do
  cls
  Userinput = entry$(1)
  key = scancode()
  Userinput = entry$(1)
  center text 320, 10, "Enter Your desired number that you want to do this to " + Userinput
If key = 71 or key = 72 or key = 73 or key = 75 or key = 76 or key = 77 or key = 79 or key = 80 or key = 81 or key = 82
SecondNum = val(Userinput)
  endif
  if returnkey() = 1
  FirstNum = FirstNum + SecondNum
  goto ThatPart
  endif

Printer()

sync
loop

endfunction SecondNum

Function subtract()
cls
clear Entry Buffer
do
  cls
  Userinput = entry$(1)
  key = scancode()
  Userinput = entry$(1)
  center text 320, 10, "Enter Your desired number that you want to do this to " + Userinput
  If key = 71 or key = 72 or key = 73 or key = 75 or key = 76 or key = 77 or key = 79 or key = 80 or key = 81 or key = 82
  SecondNum = val(Userinput)
  endif
  if returnkey() = 1
  FirstNum = FirstNum - SecondNum
  goto ThatPart
 endif

Printer()
SYNC
LOOP

endfunction SecondNum

Function divide()
cls
clear Entry Buffer

do
  cls
  Userinput = entry$(1)
  key = scancode()
  Userinput = entry$(1)
  center text 320, 10, "Enter Your desired number that you want to do this to " + Userinput
  If key = 71 or key = 72 or key = 73 or key = 75 or key = 76 or key = 77 or key = 79 or key = 80 or key = 81 or key = 82
  SecondNum = val(Userinput)
  endif
  if returnkey() = 1
  FirstNum = FirstNum / SecondNum
  goto ThatPart
  endif

Printer()
sync
loop

endfunction SecondNum

Function multiply()
cls
clear Entry Buffer
do
  cls
  Userinput = entry$(1)
  key = scancode()
  userinput = entry$(1)
  center text 320, 10, "Enter Your desired number that you want to do this to " + Userinput
  If key = 71 or key = 72 or key = 73 or key = 75 or key = 76 or key = 77 or key = 79 or key = 80 or key = 81 or key = 82
  SecondNum = val(Userinput)
  endif
        if returnkey() = 1
        FirstNum = FirstNum * SecondNum
        goto ThatPart
        endif
Printer()
sync
loop

endfunction SecondNum
wait key

CLEAR ENTRY BUFFER

renew=1 
continue=0
DO
PRINT "CALCULATOR"

IF renew=1 `Checks to see if user has pressed the spacebar to continue, if they have then it puts the previous answer as the first number. 
	INPUT "First num: ",a#  
ENDIF

IF continue=1 `If the user has pressed shift to start from scratch, then it resets the number and asks for a new starting number.
	a#=d# 
	PRINT "First num: ",a# `a# is the variable for the first num input
ENDIF
	input "Math function: ",b$ `b# is the math function variable from input
IF b$<>"root" 
	input "Second num: ",c# `c# is the second number input
ENDIF

` The below set of instructions check the math function entered and performs the neccesary action to the first and second inputs.
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# `sets the answer as d# so it can be used as a variable if the user wishes to use it as their first number again.
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 `if the user presses the spacebar, it will take the answer and uses it as the first num
	continue=1 
	renew=0 
	EXIT 
ENDIF

IF SHIFTKEY()=1 `if the user presses the shift key, it will let the user start from scratch.
   renew=1 
   continue=0 
   EXIT 
ENDIF 

   LOOP
   
CLS 

LOOP

IF renew=1 `Checks to see if user has pressed the spacebar to continue, if they have then it puts the previous answer as the first number. 
	INPUT$=entry$()
	PRINT "First num: ", INPUT$1 = a#  
ENDIF
CLEAR ENTRY BUFFER

IF renew=1 `Checks to see if user has pressed the spacebar to continue, if they have then it puts the previous answer as the first number. 
	INPUT$=entry$()
	PRINT "First num: ", INPUT$1 = a#  
ENDIF
CLEAR ENTRY BUFFER

IF renew=1 `Checks to see if user has pressed the spacebar to continue, if they have then it puts the previous answer as the first number. 
        CLEAR ENTRY BUFFER `Clear the list of keys pressed so the user can start typing from scratch.
        repeat
	     INPUT$=entry$() `Set INPUT$ equal to the list of character keys the user has pressed.
	     PRINT "First num: ", INPUT$ `Print what the user is typing.
        until returnkey()

ENDIF
CLEAR ENTRY BUFFER