calculation problem (with a homebrew calc)

Global calc=CreateWindow("Captain's Calculator",0,0,200,300,0,1)

Global zero$="0"
Global one$="1"
Global two$="2"
Global three$="3"
Global four$="4"
Global five$="5"
Global six$="6"
Global seven$="7"
Global eight$="8"
Global nine$="9"
Global star$="*"
Global decimal$="."
Global minus$="-"
Global plus$="+"
Global divide$="/"


Global button_1=CreateButton(one$,0+20-3,50,50,25,calc,0)
Global button_2=CreateButton(two$,50+20,50,50,25,calc,0)
Global button_3=CreateButton(three$,100+20+3,50,50,25,calc,0)
Global button_4=CreateButton(four$,0+20-3,75+3,50,25,calc,0)
Global button_5=CreateButton(five$,50+20,75+3,50,25,calc,0)
Global button_6=CreateButton(six$,100+20+3,75+3,50,25,calc,0)
Global button_7=CreateButton(seven$,0+20-3,100+6,50,25,calc,0)
Global button_8=CreateButton(eight$,50+20,100+6,50,25,calc,0)
Global button_9=CreateButton(nine$,100+20+3,100+6,50,25,calc,0)
Global button_0=CreateButton(zero$,0+20-3,GadgetHeight(calc)-160,50,25,calc)

Global times=CreateButton("*",0+20-3,GadgetHeight(calc)-100,50,25,calc)

Global button_cls=CreateButton("CLR",GadgetWidth(calc)/2+25,GadgetHeight(calc)-100,50,25,calc)

Global InputArea=CreateTextArea(20,10,150,30,calc,0)

Global about_button=CreateButton("About",GadgetWidth(calc)/2-50,GadgetHeight(calc)-60,100,20,calc)

Global divides=CreateButton(divide$,50+20,GadgetHeight(calc)-100,50,25,calc)

Global slash=CreateButton(minus$,0+20-3,GadgetHeight(calc)-128,50,25,calc)

Global pluses=CreateButton(plus$,50+20,GadgetHeight(calc)-128,50,25,calc)

Global dot=CreateButton(decimal$,100+20+3,GadgetHeight(calc)-128,50,25,calc)

Global solve=CreateButton("Solve Equation!",50+20,GadgetHeight(calc)-160,103,25,calc)


Repeat

	id=WaitEvent()

	ClearTextArea(InputArea) : InputTextArea(InputArea)
	
	Author()
	
	;problem \/
	If EventSource()=solve ;here
		problem#=TextAreaText(InputArea) ;here
		Print problem# ;here
	EndIf
	;problem /\
	

	Select id
		Case $803
			End 
	End Select

Until KeyHit(1)


Function ClearTextArea(TextArea%)
	If EventSource()=button_cls
		SetTextAreaText(TextArea%,"")
	EndIf
End Function


Function InputTextArea(TextArea%)
	If EventSource()=button_1
		AddTextAreaText(TextArea%,one$)
	EndIf
	If EventSource()=button_2
		AddTextAreaText(TextArea%,two$)
	EndIf
	If EventSource()=button_3
		AddTextAreaText(TextArea%,three$)
	EndIf
	If EventSource()=button_4
		AddTextAreaText(TextArea%,four$)
	EndIf
	If EventSource()=button_5
		AddTextAreaText(TextArea%,five$)
	EndIf
	If EventSource()=button_6
		AddTextAreaText(TextArea%,six$)
	EndIf
	If EventSource()=button_7
		AddTextAreaText(TextArea%,seven$)
	EndIf
	If EventSource()=button_8
		AddTextAreaText(TextArea%,eight$)
	EndIf
	If EventSource()=button_9
		AddTextAreaText(TextArea%,nine$)
	EndIf
	If EventSource()=times
		AddTextAreaText(TextArea%,star$)
	EndIf
	If EventSource()=dot
		AddTextAreaText(TextArea%,decimal$)
	EndIf
	If EventSource()=slash
		AddTextAreaText(TextArea%,minus$)
	EndIf
	If EventSource()=pluses
		AddTextAreaText(TextArea%,plus$)
	EndIf
	If EventSource()=divides
		AddTextAreaText(TextArea%,divide$)
	EndIf	
	If EventSource()=button_0
		AddTextAreaText(TextArea%,zero$)
	EndIf
End Function

Function Author()
	If EventSource()=about_button
		Notify("This Application was designed and written by Austin Wicker of Captain Wicker Software.",False)
		ExecFile("http://www.captainwicker.com/")
	EndIf
End Function