1 REM +++++++++++++++++++++++++++++++++ 2 REM ! Program .... DCELECT.BER 3 REM ! Utg}va 1.2 81-??-?? 4 REM ! av (c) ROBERT SEIMANN 7 REM ! Minne 16 Kbytes 8 REM ! Ins{nt av ROBERT SEIMANN 9 REM +++++++++++++++++++++++++++++++++ 10 REM DC-ELECTRONICS 20 ; CHR$(12) 30 ; ' VAD VILL DU BER[KNA:' 40 ; CHR$(151)'####################' 50 ; ' 1 SP[NNING' 60 ; ' 2 STR\M' 70 ; ' 3 EFFEKT' 80 ; ' 4 RESISTANS' 90 ; ' 5 V[XELSP[NNING' 100 ; 110 ONERRORGOTO 110 120 ; 'V[LJ PASSANDE NUMMER :'; : INPUT Q 130 ; CHR$(12) 140 ON Q GOTO 150,380,610,840,1280 150 ; 'BER[KNING AV SP[NNING.' 160 ; 170 GOSUB 1230 180 ; 'RESISTANS ,STR\M ELLER EFFEKT.' 190 GOSUB 1240 200 GOSUB 1070 210 ; 220 GOSUB 1110 230 ; 240 GOSUB 1150 250 ; 260 IF I=0 GOTO 300 270 IF R=0 GOTO 340 280 U=I*R 290 GOTO 360 300 IF P=0 THEN 1270 310 IF R=0 THEN 1270 320 U=SQR(P*R) 330 GOTO 360 340 IF P=0 THEN 1270 350 U=P/I 360 ; 'SP[NNINGEN =';U;' VOLT.' 370 GOTO 1260 380 ; 'BER[KNING AV STR\M.' 390 ; 400 GOSUB 1230 410 ; 'SP[NNING ,RESISTANS ELLER EFFEKT.' 420 GOSUB 1240 430 GOSUB 1190 440 ; 450 GOSUB 1070 460 ; 470 GOSUB 1150 480 ; 490 IF U=0 GOTO 530 500 IF P=0 GOTO 570 510 I=P/U 520 GOTO 590 530 IF P=0 THEN 1270 540 IF R=0 THEN 1270 550 I=SQR(P/R) 560 GOTO 590 570 IF R=0 THEN 1270 580 I=U/R 590 ; 'STR\MMEN =';I;' AMPERE.' 600 GOTO 1260 610 ; 'BER[KNING AV EFFEKT.' 620 ; 630 GOSUB 1230 640 ; 'SP[NNING ,STR\M ELLER RESISTANS.' 650 GOSUB 1240 660 GOSUB 1190 670 ; 680 GOSUB 1110 690 ; 700 GOSUB 1070 710 ; 720 IF U=0 THEN 790 730 IF R=0 THEN 760 740 P=U^2/R 750 GOTO 820 760 IF I=0 THEN 1270 770 P=I*U 780 GOTO 820 790 IF I=0 THEN 1270 800 IF R=0 THEN 1270 810 P=I^2*R 820 ; 'EFFEKTEN =';P;' WATT.' 830 GOTO 1260 840 ; 'BER[KNING AV RESISTANS.' 850 ; 860 GOSUB 1230 870 ; 'SP[NNING ,STR\M ELLER EFFEKT.' 880 GOSUB 1240 890 GOSUB 1190 900 ; 910 GOSUB 1110 920 ; 930 GOSUB 1150 940 ; 950 IF U=0 THEN 1020 960 IF I=0 THEN 990 970 R=U/I 980 GOTO 1050 990 IF P=0 THEN 1270 1000 R=U^2/P 1010 GOTO 1050 1020 IF P=0 THEN 1270 1030 IF I=0 THEN 1270 1040 R=P/I^2 1050 ; 'RESISTANSEN =';R;' OHM.' 1060 GOTO 1260 1070 ; 'RESISTANSEN ='; 1080 ONERRORGOTO 1070 1090 INPUT R 1100 RETURN 1110 ; 'STR\MEN ='; 1120 ONERRORGOTO 1110 1130 INPUT I 1140 RETURN 1150 ; 'EFFEKTEN ='; 1160 ONERRORGOTO 1150 1170 INPUT P 1180 RETURN 1190 ; 'SP[NNINGEN ='; 1200 ONERRORGOTO 1190 1210 INPUT U 1220 RETURN 1230 ; 'DU M]STE MATA IN TV] AV DE TRE ENHETERNA' : RETURN 1240 ; : ; 'OM DU INTE K[NNER TILL EN ENHET SKRIV IN' 1250 ; 'V[RDET NOLL.' : ; : RETURN 1260 ; : ; 'TRYCK P] RETURN F\R ATT FORTS[TTA.' : INPUTLINE Q$ : GOTO 10 1270 ; CHR$(7)'INFORMATIONEN OTILLR[CKLIG !' : GOTO 1260 1280 ; 'BER[KNING AV V[XELSP[NNING.' 1290 ; 1300 ; 'MATA IN RMS V[RDET '; 1305 ONERRORGOTO 1300 1310 INPUT R 1315 ; 1320 ; 'EFFEKTIV V[RDE =';R' VOLT.' 1330 P=SQR(2)*R 1340 A=1/PI*2*P 1350 T=P+P 1355 ; 1360 ; 'MEDELV[RDE =';A' VOLT.' 1365 ; 1370 ; 'TOPP-V[RDE =';P' VOLT.' 1375 ; 1380 ; 'TOPP-TOPP =';T' VOLT.' 1390 GOTO 1260