
TI85 Calculator Program  Ohm's Law
:ClLCD
:lbl START
:Disp "Select the missing"
:Disp "parameter."
:menu(1,"Voltage",Volt,2,"Current",AMP,3,"Ohm",OHM,4,"Power",Watt,5,"Quit",Quit)
:lbl Volt
:ClLCD
:menu(1,"I*R",IR,2,"P/I",PI,3,"Sqrt(P*R)",PR,5,"Back",Back)
:lbl AMP
:ClLCD
:menu(1,"E/R",ER,2,"P/E",PE,3,"Sqrt(P/R)",RP,5,"Back",Back)
:lbl OHM
:ClLCD
:menu(1,"E/I",EI,2,"E2/W",EP,3,"P/I2",IP,5,"Back",Back)
:lbl Watt
:ClLCD
:menu(1,"I*E",IE,2,"I2*R",RI,3,"E2/R",RE,5,"Back",Back)
:lbl IR
:Prompt I,R
:I*R>E
:I*E>P
:Disp "Voltage=",E
:Disp "Power=",P
:goto START
:lbl PI
:Prompt P,I
:P/I>E
:E/I>R
:Disp "Voltage=",E
:Disp "Resistance=",R
:goto START
:lbl PR
:Prompt P,R
:(Sqrt(P*R))>E
:E/R>I
:Disp "Voltage=",E
:Disp "Current=",I
:goto START
:lbl ER
:Prompt E,R
:E/R>I
:I*E>P
:Disp "Current=",I
:Disp "Power=",P
:goto Start
:lbl PE
:Prompt E,P
:P/E>I
:E/I>R
:Disp "Current=",I
:Disp "Resistance=",R
:goto START
:lbl RP
:Prompt R,P
:(Sqrt(P/R))>I
:I*R>E
:Disp "Current=",I
:Disp "Voltage=",E
:goto START
:lbl EI
:Prompt E,I
:E/I>R
:E*I>P
:Disp "Resistance=",R
:Disp "Power=",P
:goto START
:lbl EP
:Prompt E,P
:E2/P>R
:E/R>I
:Disp "Resistance=",R
:Disp "Current=",I
:goto Start
:lbl IP
:Prompt I,P
:P/I2>R
:I*R>E
:Disp "Resistance=",R
:Disp "Voltage=",E
:goto START
:lbl IE
:Prompt E,I
:I*E>P
:E/I>R
:Disp "Power=",P
:Disp "Resistance=",R
:goto START
:lbl RI
:Prompt R,I
:I2*R>P
:I*R>E
:Disp "Power=",P
:Disp "Voltage=",E
:goto START
:lbl RE
:Prompt E,R
:E2/R>P
:E/R>I
:Disp "Power=",P
:Disp "Current=",I
:goto START
:lbl Back
:goto START
:lbl QUIT
:Stop
