Rem Project: MATHS
Rem Created: 20-09-03 14:06:54

Rem ***** Main Source File *****

rem set text size
set text font "ariel" : set text size 18

REM welcome screen
print "WELCOME TO THE MATHS HOMEWORK DOER"
suspend for key

menustart:
rem menu
cls
print "1:Simple Alegerbra"
print "2:Square Root"
print "3:Indicies"
print "4:Brackets"
print "5:Brackets with Alegerbra"
input "select a operation>>>",menu
if menu=1 then gosub algerbra
if menu=2 then gosub squareroot
if menu=3 then gosub indicies
if menu=4 then gosub brackets
if menu=5 then gosub algbrack
goto menustart

rem ------
rem gosub commands
rem ------
algerbra:
startover:
cls
input "TYPE IN A VARIABLE>>>",variable$
input "TYPE IN THE NUMBER OF [",variable$,"'s] YOU NEED>>>",novar#
input "TYPE IN A FUNCTION>>>",typefunction$
input "TYPE IN A NUMBER>>>",number#
input "TYPE IN WHAT IT EQUALS>>>",equals#
if novar#=1 then print variable$,typefunction$,number#,"=",equals# else print novar#,variable$,typefunction$,number#,"=",equals#
input "IS THIS RIGHT?>>>",que$
if que$="y" then goto continue else goto startover
continue:
print "PLEASE WAIT...."
wait 1000
if typefunction$="+" then equals#=equals#-number#
if typefunction$="-" then equals#=equals#+number#
if typefunction$="*" then equals#=equals#/number#
if typefunction$="/" then equals#=equals#*number#
ans#=equals#/novar#
cls
print "THE ANSWER TO WHAT '",variable$,"' EQUALS IS>>>",ans#
suspend for key
return

squareroot:
startoverroot:
cls
input "TYPE IN A NUMBER TO FIND THE SQUARE ROOT>>>",rootnumber#
input "IS THIS RIGHT? FIND THE SQUARE ROOT OF ",rootnumber#,">>>",queroot$
if queroot$="y" then goto continueroot else goto startoverroot
continueroot:
print "PLEASE WAIT...."
wait 1000
ansroot#=sqrt(rootnumber#)
cls
print "THE ANSWER TO WHAT THE SQAURE ROOT OF '",rootnumber#,"' EQUALS IS>>>",ansroot#
suspend for key
return

indicies:
startoverindicies:
cls
input "TYPE IN A NUMBER>>>",indiciesnumber#
input "WHAT DO YOU WANT TO DO TO '",indiciesnumber#,"'?>>>",indicies#
input "IS THIS RIGHT YOU WANT TO RAISE '",indiciesnumber#,"' TO THE POWER OF '",indicies#,"'?>>>",queindicies$
if queindicies$="y" then goto continueindicies else goto startoverindicies
continueindicies:
print "PLEASE WAIT...."
wait 1000
ansindicies#=indiciesnumber#^indicies#
cls
print "THE ANSWER TO WHAT '",indiciesnumber#,"' IS TO THE POWER OF '",indicies#,"' IS>>>",ansindicies#
suspend for key
return

brackets:
startoverbrackets:
cls
input "TYPE IN A NUMBER>>>",no#
input "TYPE IN A OPEN BRACKET SIGN>>>",osign$
input "TYPE IN A NUMBER>>>",inno#
input "TYPE IN A OPERATION>>>",infun$
input "TYPE IN A NUMBER>>>",inno2#
input "TYPE IN A CLOSE BRACKET SIGN>>>",csign$
print no#,osign$,inno#,infun$,inno2#,csign$
input "IS THIS RIGHT?>>>",brackque$
if brackque$="y" then goto continuebrackets else goto startoverbrackets
continuebrackets:
print "PLEASE WAIT...."
wait 1000
cls
if infun$="+" then firstpart#=inno#+inno2#
if infun$="-" then firstpart#=inno#-inno2#
if infun$="*" then firstpart#=inno#*inno2#
if infun$="/" then firstpart#=inno#/inno2#
secondpart#=no#*firstpart#
print "THE ANSWER TO WHAT '",no#,osign$,inno#,infun$,inno2#,csign$,"' EQUALS IS>>>",secondpart#
suspend for key
return

algbrack:
startoveralgbrackets:
cls
input "TYPE IN A VARIABLE>>>",algbravar$
input "TYPE IN THE NUMBER OF ",algbravar$,"'s YOU NEED>>>",algbranovar#
input "TYPE IN A FUNCTION>>>",algbrafun$
input "TYPE IN A NUMBER>>>",algbrano#
input "TYPE IN A OPEN BRACKET SIGN>>>",openbra$
input "TYPE IN THE NUMBER OF ",algbravar$,"'s YOU NEED>>>",inbranovar#
input "TYPE IN A FUNCTION>>>",inbrafun$
input "TYPE IN A NUMBER>>>",inbrano#
input "TYPE IN A CLOSE BRACKET SIGN>>>",closebra$
input "TYPE IN WHAT THE EQUATION EQUALS>>>",equalsalgbra#
print algbranovar#,algbravar$,algbrafun$,algbrano#,openbra$,inbranovar#,algbravar$,inbrafun$,inbrano#,closebra$,"=",equalsalgbra#
input "IS THIS RIGHT?>>>",algbrackque$
if algbrackque$="y" then goto continuealgbrackets else goto startoveralgbrackets
continuealgbrackets:
print "PLEASE WAIT...."
wait 1000
cls
firstalgbra#=algbrano#*inbrano#
secondalgbra#=algbrano#*inbranovar#
thirdalgbra#=algbranovar#+secondalgbra#
fourthalgbra#=firstalgbra#-equalsalgbra#
fifthalgbra#=fourthalgbra#/thirdalgbra#
cls
print "THE ANSWER TO WHAT '",algbranovar#,algbravar$,algbrafun$,algbrano#,openbra$,inbranovar#,algbravar$,inbrafun$,inbrano#,closebra$,"=",equalsalgbra#,"' EQUALS IS>>>",fifthalgbra#,algbravar$
suspend for key
return