555 Timer Calculator (TI-BASIC)

Lbl H
ClrHome
Menu("555 Timer Calc","Astable",AS,"Monostable",MS,"Quit",Q)
End
Lbl AS
ClrHome
Disp "    Astable",""
Input "Freq (Hz):",F
Input "C1 (uF):",C
Input "R1 (Omega):",R
C*0.000001->C
Disp "R2 (Omega):"
Output(6,8,round((1/(ln(2)*C*F))-R,0))
Goto Q
Lbl MS
Disp "   Monostable",""
Input "Time (s):",T
Input "C1 (uF):",C
C*0.000001->C
Disp "R1 (Omega):"
Output(5,8,round(T/(ln(3)*C),0))
Goto Q
Lbl Q
Stop
End