Ohm’s Law

   10 REM //////////////////////
   12 REM /                    /
   13 REM /      OHM'S LAW     /
   20 REM /                    /
   21 REM //////////////////////
   50 PRINT "  OHM'S LAW  "
  100 CLS 
  120 LET v=0
  130 LET I=0
  140 LET R=0
  150 LET P=0
  170 PRINT "Input known values"
  175 PRINT "  0 If unknown"
  176 PRINT 
  177 PRINT 
  178 PRINT 
  180 PRINT ;"voltage     (V)=";
  190 INPUT V
  210 PRINT V;" V"
  230 PRINT ;"Current     (I)=";
  240 INPUT I
  260 PRINT I;" A"
  270 IF V AND I THEN GO TO 390
  290 PRINT ;"Resistance  (R)=";
  300 INPUT R
  320 PRINT R;" Ohms"
  330 IF V AND R OR I AND R THEN GO TO 390
  350 PRINT ;"Power       (P)=";
  360 INPUT P
  365 PRINT P;" W"
  390 IF NOT V OR NOT I THEN GO TO 420
  400 PRINT "Power        (P)=";V*I;" W"
  410 PRINT "Resistance   (R)=";V/I;" Ohms"
  420 IF NOT P OR NOT R THEN GO TO 450
  430 PRINT "Current      (I)=";SQR (P/R);" A"
  440 PRINT "Voltage      (V)=";SQR (P*R);" V"
  450 IF NOT P OR NOT I THEN GO TO 480
  460 PRINT "Voltage      (V)=";P/I;" V"
  470 PRINT "Resistance   (R)=";P/(I^2);" Ohms"
  475 REM ^ = raised to the power of
  480 IF NOT R OR NOT V THEN GO TO 510
  490 PRINT "Power        (P)=";(V^2)*R;" W"
  500 PRINT "Current      (I)=";V/R;" A"
  510 IF NOT I OR NOT R THEN GO TO 540
  520 PRINT "Power        (P)=";(I^2)*R;" W"
  530 PRINT "Voltage      (V)=";I*R;" V"
  540 IF NOT V OR NOT P THEN GO TO 570
  550 PRINT "Resistance   (R)=";(V^2)/P;" Ohms"
  560 PRINT "Current      (I)=";P/V;" A"
  570 PRINT 
  571 PRINT 
  572 PRINT 
  573 PRINT 
 1000 STOP 
 9998 SAVE "OHM'S LAW" LINE 1