---
title: "Ohm’s Law Formulas"
id: 72815
type: "computer_media"
slug: "ohms-law-formulas"
url: "http://localhost/computer_media/ohms-law-formulas/"
markdown_url: "http://localhost/computer_media/ohms-law-formulas.md"
published_at: "2026-10-27T14:27:21+00:00"
modified_at: "2026-10-27T14:27:21+00:00"
author: "David Anderson"
featured_image:
  url: "http://localhost/wp-content/uploads/2026/10/o-2.png"
excerpt: "Solves Ohm's law and the power formulas: choose resistance, current, voltage or power, enter the known values, and the program computes the missing one."
post_tag:
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
indiv:
  - name: "Roy Babylon"
    slug: "roy-babylon"
    taxonomy: "indiv"
    url: "http://localhost/indiv/roy-babylon/"
genre:
  - name: "Electronics"
    slug: "electronics"
    taxonomy: "genre"
    url: "http://localhost/type/electronics/"
media_type: "Program"
programmers:
  - name: "Roy Babylon"
    slug: "roy-babylon"
    taxonomy: "indiv"
    url: "http://localhost/indiv/roy-babylon/"
download_url: "https://archive.org/download/timex-sinclair-software-archive/Ohms%20Law%20Formulas%20%281979%29%28Babylon%2C%20Roy%29%28TS2068%29%28US%29%28Program%29.zip"
tsrun_member: "Ohms Law Formulas (1979)(Babylon, Roy)(TS2068)(US)(Program)/Ohms Law Formulas (1979)(Babylon, Roy)(TS2068)(US)(Program).tap"
mediadate: "1979"
images:
  - url: "http://localhost/wp-content/uploads/2026/10/o-2.png"
related_content:
  - id: 71771
    title: "Resonance"
    type: "computer_media"
    url: "http://localhost/computer_media/resonance/"
  - id: 71773
    title: "Inductive Formulas"
    type: "computer_media"
    url: "http://localhost/computer_media/inductive-formulas/"
media_type_tags: "Electronics"
license: false
---

# Ohm’s Law Formulas

Ohm’s Law Formulas asks which quantity you want — resistance, current, voltage or power, numbered 1 to 4 — then asks for the values it needs and prints the answer. For power it asks which of resistance, current or voltage is the missing one and uses the matching formula: I × E, E²/R or I²R.

Line 1 reads “OHMS LAW BY ROY BABYLON POPULAR ELECTRONICS AUG 1979”. The same article was the source of the Resonance and Inductive Formulas programs linked below, which were on the same disk.

## Program Analysis

Lines 5–8 set R, C, V and P to 1–4 so the menu answer can be compared with `IF A=R` and so on. Each branch is a pair of INPUTs and a PRINT followed by STOP.

### Potential Issues

- The voltage choice (3) goes to line 150, which asks only for the current and then prints a resistance using E, which has not been entered, so it stops with “Variable not found”. The voltage formula at line 170 can never be reached.
- In the power branch the answer to “missing variable” is compared with R, I and E; I and E only exist after an earlier calculation, so choosing current or voltage first stops with “Variable not found”.
- Entering a value for R in one calculation also changes the menu code for resistance (line 130 reuses R), so later menu choices may go to the wrong branch.
- The title is printed at TAB 20 and wraps onto the next line.

This copy came from a Larken disk; only the disk save and menu lines were removed. Tested in ZEsarUX: the current calculation works.

## Source Code

```
    1 REM OHMS LAW BY ROY BABYLON POPULAR ELECTRONICS AUG 1979
    5 LET R=1
    6 LET C=2
    7 LET V=3
    8 LET P=4
   15 CLS 
   20 PRINT TAB 20;"OHM'S LAW FORMULAS"
   30 PRINT "SELECT NUMBER FOR DESIRED FUNCTION"
   40 INPUT "RESISTANCE=R,CURRENT=C,VOLTAGE=V,POWER=P";A
   50 IF A=R THEN GO TO 90
   60 IF A=C THEN GO TO 120
   70 IF A=V THEN GO TO 150
   80 IF A=P THEN GO TO 180
   90 INPUT "ENTER VOLTAGE IN VOLTS";E
  100 INPUT "ENTER CURRENT IN AMPERES";I
  110 PRINT "THE RESISTANCE EQUALS";E/I;"OHMS": STOP 
  120 INPUT "ENTER VOLTAGE IN VOLTS";E
  130 INPUT "ENTER RESISTANCE IN OHMS";R
  140 PRINT "THE CURRENT IS EQUAL TO";E/R;"AMPERES": STOP 
  150 INPUT "ENTER CURRENT IN AMPERES";I
  160 PRINT "THE RESISTANCE EQUALS";E/I;"OHMS": STOP 
  170 PRINT "THE VOLTAGE IS";I*R;"VOLTS WITH";R;"OHMS AND ";I;"AMPERES": STOP 
  180 INPUT "ENTER MISSING VARIABLE R,I,E";B
  190 IF B=R THEN GO TO 220
  200 IF B=I THEN GO TO 250
  210 IF B=E THEN GO TO 280
  220 INPUT "ENTER CURRENT (I)";I
  230 INPUT "ENTER VOLTAGE (E)";E
  240 LET P=I*E: GO TO 310
  250 INPUT "ENTER VOLTAGE (E)";E
  260 INPUT "ENTER RESISTANCE (R)";R
  270 LET P=(E*E)/R: GO TO 310
  280 INPUT "ENTER CURRENT (I)";I
  290 INPUT "ENTER RESISTANCE (R)";R
  300 LET P=(I*I)*R
  310 PRINT "THE POWER IS ";P;" WATTS"
  320 STOP 
 9989 STOP 
 9992 REM  removed (LKDOS-only)
 9998 REM  removed (LKDOS-only)
 9999 GO TO VAL "80"
```