Half-Life

 'Halflife 2.0 
 'by Scott Ausbrooks 
 'May 2012 
 
 'This program calculates the amount of radioactive 
 'material remaining after "x" number of halflives 
 
 nomainwin 
 WindowWidth = 900 
 WindowHeight = 500 
 
 button #1.button1,"Calculate",[action], UL, 10,30,120,50 
 button #1.button2,"Clear",[clear], LL, 10,20,120,50 
 button #1.button3,"Exit",[quit],LR,120,60,120,50 
 textbox #1.textbox0, 650, 30, 180, 60'mass 
 textbox #1.textbox1, 650, 130, 180, 60 'halflife 
 textbox #1.textbox2, 650, 230, 180, 60'decaytime 
 textbox #1.textbox3, 310, 320, 180, 100'result 
 statictext #1.originalmass, "Original Mass",550,30,100,50 
 statictext #1.decaytime, "Decay Time",550,230,100,50 
 statictext #1.halflife, "Half-Life",550,150,100,25 
 statictext #1.result, "Result",365,430,100,25 
 open "Radioactive Isotope Remaining" for window as #1 
 print #1, "font times_new_roman 18 BOLD" 
 print #1.textbox0, "!setfocus" 
 print #1, "trapclose [quit]" 
 wait 
 [action] 
 print #1.textbox1,"!contents?" 
 input #1.textbox1, halflife$ 
 
 print #1.textbox2,"!contents?" 
 input #1.textbox2, decaytime$ 
 
 print #1.textbox0,"!contents?" 
 input #1.textbox0, mass$ 
 
 numhalflife = val(decaytime$)/val(halflife$) 
 newmass = val(mass$) * (.5^numhalflife) 
 print #1.textbox3, "!font times_new_roman 18 bold" 
 print #1.textbox3, newmass 
 wait 
 [clear] 
 
 print #1.textbox0, "" 
 print #1.textbox1, "" 
 print #1.textbox2, "" 
 print #1.textbox3, "" 
 
 print #1.textbox0, "!setfocus" 
 wait 
 
 [quit] 
 confirm "Really quit?";answer$ 
 if answer$ = "no" then wait 
 close #1:end