CLS
PRINT "RADIOACTIVE DECAY"
PRINT
[onthze]
PRINT "DO YOU WISH TO SOLVE FOR:"
print
PRINT "1 - AMOUNT OF DECAY IN A GIVEN TIME"
PRINT "2 - TIME TO DECAY A GIVEN AMOUNT"
PRINT "3 - CARBON-14 DATING PROBLEM"
PRINT
PRINT "INPUT 1,2, or 3 ";
INPUT " ";Z
PRINT
IF Z = 2 THEN [fotwze]
IF Z = 3 THEN [fithze]
IF Z <> 1 THEN [onthze]
REM ==SOLVE FOR CASE 1==
PRINT "INPUT AMOUNT OF ORIGINAL SAMPLE = ";
INPUT " ";N1
PRINT "INPUT HALF-LIFE FROM TABLES = ";
INPUT " ";H
PRINT "TIME PERIOD OF DECAY = ";
INPUT " ";T
PRINT
REM ==SOLVE EQUATION==
N = N1 * (.5^(T/H))
PRINT
PRINT "AMOUNT OF REMAINING SAMPLE = ";N
N2 = (N / N1) * 100
PRINT "PERCENT OF REMAINING SAMPLE = ";N2
PRINT
GOTO [sionze]
REM ==SOLVE FOR CASE 2==
[fotwze]
PRINT "INPUT RADIOACTIVE HALF-LIFE = ";
INPUT " ";H
PRINT "PERCENT TO REMAIN (1-100) = ";
INPUT " ";P
PRINT
K = LOG(2)/H
T = -1*LOG(P/100)/K
PRINT "TIME PERIOD OF DECAY = ";T
PRINT
GOTO [sionze]
REM ==SOLVE FOR CASE 3==
[fithze]
PRINT "PERCENT C-14 IN SAMPLE (1-100) = ";
INPUT " ";R
PRINT
T=5730*ABS(LOG(R/100))/LOG(2)
T=INT(T)
PRINT "APPROXIMATE AGE IN YEARS = ";T
PRINT
[sionze]
PRINT
PRINT "RE-RUN PROGRAM WITH NEW DATA Y/N = ";
INPUT " ";Q$
IF Q$="Y" or Q$="y" then
 print
 goto [onthze]
end if
END