10 ; CHR$(12)
20 ; "DATORANV[ND. AV OHM'S & JOULES LAG"
30 ; "==================================="
40 ; "Sp{nning,str|m,resistans {r de tre"
50 ; "enheterna. Du m}ste veta tv} av dessa."
60 ; "Effekten talar datorn om utan order:"
70 ; "Du svarar med 0 (noll) p} efterfr}gad enhet."
75 ; : ; : ; 
80 ; "VAD [R SP[NNINGEN I VOLT" : INPUT U
90 ; "VAD [R STR\MMEN I AMP." : INPUT I
100 ; "VAD [R RESISTANSEN I OHM" : INPUT R
110 REM ; "EFFEKT I WATT " :   INPUT P
120 ; 
130 IF U=0 GOTO 180
140 IF I=0 GOTO 240
150 IF R=0 GOTO 300
160 IF P=0 GOTO 360
170 ; 
180 ; "DET VAR SP[NNINGEN SOM S\KTES!"
190 U=I*R
200 ; "=================================="
210 ; "SP[NNINGEN [R";U;"   VOLT."
220 ; "==================================="
230 GOTO 360
240 ; "DET VAR STR\MMEN SOM S\KTES!"
250 LET I=U/R
260 ; "=================================="
270 ; "STR\MMEN [R ";I;"  AMPERE."
280 ; "=================================="
290 GOTO 360
300 ; " DET VAR RESISTANSEN SOM S\KTES!"
310 R=U/I
320 ; "================================="
330 ; "RESISTANSEN [R ";R;"  OHM"
340 ; "================================="
350 GOTO 360
360 ; 
370 LET P=I*U
380 ; "=================================="
390 ; " EFFEKTEN [R ";P;"   WATT."
400 ; "==================================="
410 END