10 REM 
20 REM   OHMSLAG.BAS     ver 1.1        1991-05-09     
30 REM                                                 
40 REM   Enkelt ber{knings program f|r sp{nning, effekt
50 REM   str|m, resistans. Gjort p} en ABC806 med mono-
60 REM   kromsk{rm (815).                              
70 REM   Programmet {r gjort av: Martin Davidsson      
80 REM                               <7108>            
90 REM 
100 EXTEND 
101 FLOAT 
110 REM 
120 REM I=str|m
130 REM U=sp{nning
140 REM P=effekt
150 REM R=resistans
160 REM 
170 ; CUR(25,15) WHT NWBG BLK "GJORT AV: Martin Davidsson <7108> " BLBG
180 ; : ; : ; : ; : ; : ; : ; 
190 ; DBLE "        OHMSLAG.BAS"
200 ; 
210 ; : ; 
220 ; "   1. Str|m i ampere (A)"
230 ; "   2. Sp{nning i volt (V)"
240 ; "   3. Resistans i ohm (R)"
250 ; "   4. Effekt i watt (W)"
260 ; "   5. Omvandling: watt -> ampere"
270 ; "   6. Omvandling: ampere -> watt"
280 ; 
290 ; "   7. SLUT"
300 ; 
310 ; : ; : ; 
320 INPUT "   Ange |nskat alternativ (1-7): "A$
330 IF A$="7" THEN GOTO 1090
340 ON VAL(A$) GOTO 360,480,600,720,840,960
350 END 
360 ; CHR$(12) DBLE "Ber{kning av str|m (I)."
370 ; : ; 
380 INPUT "  Ange sp{nning i volt: "U
390 ; 
400 INPUT "  Ange resistansen i ohm: "R
410 ; 
420 I=U/R
430 ; "  Str|mmen {r";I "ampere."
440 ; 
450 GET O$
460 GOTO 170
470 END 
480 ; CHR$(12) DBLE "Ber{kning av sp{nning (U)."
490 ; : ; 
500 INPUT "  Ange str|mmen i ampere: "I
510 ; 
520 INPUT "  Ange resistansen i ohm: "R
530 ; 
540 U=I*R
550 ; "  Sp{nningen {r";U "volt."
560 ; 
570 GET O$
580 GOTO 170
590 END 
600 ; CHR$(12) DBLE "Ber{kning av resistans (R)."
610 ; : ; 
620 INPUT "  Ange sp{nningen i volt: "U
630 ; 
640 INPUT "  Ange str|mmen i ampere: "I
650 ; 
660 R=U/I
670 ; "  Resistansen {r";R "ohm."
680 ; 
690 GET O$
700 GOTO 170
710 END 
720 ; CHR$(12) DBLE "Ber{kning av effekt (watt)."
730 ; : ; 
740 INPUT "  Ange str|mmen i ampere: "I
750 ; 
760 INPUT "  Ange sp{nninge i volt: "U
770 ; 
780 P=I*U
790 ; "  Effekten {r";P "watt."
800 ; 
810 GET O$
820 GOTO 170
830 END 
840 ; CHR$(12) DBLE "Omvandling watt -> ampere."
850 ; : ; 
860 INPUT "  Ange effekten i watt: "P
870 ; 
880 INPUT "  Ange sp{nninge i volt: "U
890 ; 
900 I=P/U
910 ; P "watt {r";I "ampere."
920 ; 
930 GET O$
940 GOTO 170
950 END 
960 ; CHR$(12) DBLE "Omvandling ampere -> watt."
970 ; : ; 
980 INPUT "  Ange str|mmen i ampere: "I
990 ; 
1000 INPUT "  Ange sp{nning i volt: "U
1010 ; 
1020 P=I*U
1030 ; I "ampere {r";P "watt."
1040 ; 
1050 GET O$
1060 GOTO 170
1070 END 
1080 END 
1090 ; CHR$(12) "Tack f|r denna g}ng!"