10 REM SPANNUNGSTEILER ====C64/C128
80 REM C64/C128
90 REM ============================
95 GOSUB 60000
100 POKE53280,0:POKE53281,0
110 PRINTHE$HE$CL$RO$;:PRINTRN$"            SPANNUNGSTEILER             "
120 PRINTC4$BL$                                    "
130 [153]C4$C4$RN$" E "RF$"INSTELLBARER SPANNUNGSTEILER"
135 [153]C4$C4$RN$" B "RF$"ELASTETER SPANNUNGSTEILER"
140 [153]WH$[200](QD$,7)[200](QR$,10)RN$"BITTE WAEHLEN SIE "
150 [141]950:[139]A$[178]"B"[167] 170
160 [139]A$[178]"E"[167] 680
165 [137]150
170 [151]53280,0:[151]53281,0:[137]350
180 [153]WH$CL$;
190 [153]RN$"        BELASTETER SPANNUNGSTEILER     "
200 [153]
210 [153]BL$"      (null)"ZM$ZM$ZM$ZM$ZM$"(null)"
220 [153]"            "Z9$"       "RN$YE$"BERECHNUNG DER U2"BL$
230 [153]"      "ZJ$"     (null)(null)"
240 [153]"          R1"ZJ$Z9$
250 [153]"      "ZJ$"     (null)"ZP$
260 [153]"             "ZJ$
270 [153]"      "ZJ$"      (null)"ZM$ZM$ZM$ZM$ZM$"(null)"ZM$ZM$ZM$ZM$ZM$ZM$ZM$ZM$"(null)"
280 [153]"    U(null)(null)      "Z9$"     "Z9$[200](Q2$,9)
290 [153]"      "[200](Q2$,7)"(null)(null)    (null)(null)       "Z9$
300 [153]"      "ZJ$"    R2"ZJ$Z9$"  RL"ZJ$Z9$"       "
310 [153]"             (null)"ZP$"    (null)"ZP$"       "Z9$
320 [153]"      "ZJ$"       "ZJ$[200](Q2$,5)ZJ$"    "FL$"U2"FO$" (null)(null)"
330 [153]"              "ZJ$[200](Q2$,4)" "ZJ$"         "
340 [153]"      (null)"ZE$ZE$ZE$ZE$ZE$ZE$ZE$"(null)"ZE$ZE$ZE$ZE$ZE$"(null)"ZE$ZE$ZE$ZE$ZE$ZE$ZE$ZP$" "
341 [153]GR$:[142]
350 [141]180:[153]GR$
360 [153]RN$"TEILWIDERSTAND R1   "RF$;:[133]A
370 [153]C4$RN$"TEILWIDERSTAND R2   "RF$;:[133]B
380 [153]C4$RN$"LASTWIDERSTAND RL   "RF$;:[133]C
390 [153]C4$RN$"GESAMTSPANNUNG U    "RF$;:[133]D
391 [139]C[179][177]0[175]B[179][177]0[167]400
392 [139]A[179][177]0[167]Z[178]0:[137]420
393 [141]180:[153]:[153]"         "RN$"KURZSCHLUSS":[129]L[178]1[164]2000:[130]:[137]350
400 X[178]A[172](C[170]B)[173](C[172]B)[170]1
410 Z[178]D[173]X
420 [141]180:[153]"     TEILSPANNUNG BEI BELASTUNG (U2)="
430 [153]
440 [153]"             "Z"VOLT"
450 [153]WH$C4$C4$RN$[200](QR$,7)"NOCH EINE BERECHNUNG (J/N)"
460 A[178]0:B[178]0:C[178]0:D[178]0:[141]950:[139]A$[178]"J"[167] 350
470 [139]A$[178]"N"[167][138]
475 [137]460
480 [143]
490 [143]* EINSTELLBARER SPANNUNGSTEILER *
500 [143]
510 [153]WH$CL$RN$"      EINSTELLBARER SPANNUNGSTEILER    "RF$
520 [153]BL$
530 [153]"                  (null)"
540 [153]"    (null)"ZM$ZM$ZM$"(null)      (null)"ZM$"(null)"ZM$"(null)  "
550 [153]" (null)"ZM$ZM$"(null)"ZE$ZE$ZE$ZP$ZM$ZM$ZM$"(null)"ZM$ZM$"(null)"ZE$ZP$ZE$ZP$ZM$ZM$ZM$ZM$ZM$ZM$ZM$"(null)"
560 [153]"            (null)"ZE$ZE$ZE$ZE$ZP$"         "Z9$
570 [153]" "ZJ$"                         "Z9$
580 [153]"                           (null)(null)"
590 [153]" "ZJ$"                       RL"ZJ$Z9$
600 [153]"(null)(null)                         "ZJ$Z9$
610 [153]"                           (null)"ZP$
620 [153]" "ZJ$"                         "Z9$" "
630 [153]"                           "Z9$
640 [153]" (null)"[170][200](Q$,25)[170]ZP$
650 [151]XR,5:[151]YR,2:[158]65520:[153]FL$"RV"FO$
651 [151]XR,15:[151]YR,2:[158]65520:[153]FL$"RP"FO$
652 [151]XR,2:[151]YR,9:[158]65520:[153]"UE":[151]XR,29:[151]YR,7:[158]65520:[153]"UA MAX."
660 [151]XR,29:[151]YR,10:[158]65520:[153]"UA MIN.":[153][200](QD$,3):[142]
670 [143]
680 [141]510:[153]LR$RN$"BERECHNUNGSBEISPIEL:"WH$
690 [153]C4$"AM RL  VON  500 OHM  SOLL  DIE SPANNUNG"
700 [153]"UA MIN 5 VOLT BIS 9 VOLT EINSTELLBAR "
710 [153]"SEIN. UE=12 VOLT."
720 [153]RN$"GESUCHT:"RF$BL$" RV UND RP "
730 [153]RO$C4$C4$RN$"          WEITER MIT TASTE W           "
740 [141]950:[139]A$[179][177]"W"[167]740
750 [141]510:[153]RO$RN$"            IHRE EINGABEN:             "
760 [153]GR$C4$RN$"EINGANGSSPANNUNG UE   "RF$;:[133]A
770 [153]           C4$RN$"AUSGANGSSPANNUNG MAX. "RF$;:[133]B
780 [153]           C4$RN$"AUSGANGSSPANNUNG MIN. "RF$;:[133]C
790 [153]           C4$RN$"LASTWIDERSTAND RL     "RF$;:[133]E
800 [141]510:[153]C4$C4$
810 [153]WH$C4$[200](QR$,11)"BITTE WARTEN ...":[129]L[178]1[164]800:[130]L
815 [139][168](A[179]B[176]A[179]C[176]B[179]C[176]C[179][178]0)[167]840
820 [153]CL$C4$C4$C4$[200](QR$,9)WH$RN$"TECHNISCH NICHT MOEGLICH"
830 [129]L[178]1[164]1000:[130]L:[137]750
840 [141]510
850 X[178]A[173]B[171]1
860 RV[178]E[172]X
870 [153]LR$RN$"                ERGEBNIS:              "WH$
880 [153]C4$C4$"   VORWIDERSTAND (RV) ="RV"OHM "
890 Z[178]A[173]C[171]1:RP[178]Z[172]E[171]RV
900 [153] C4$"WIDERSTAND D.POTI(RP) ="RP"OHM "
910 [153]
920 [153]RO$C4$RN$[200](QR$,8)"NOCH EINE BERECHNUNG (J/N)"
930 A[178]0:B[178]0:C[178]0:E[178]0:[141]950:[139]A$[178]"J"[167]750
940 [139] A$[178]"N"[167] [138]
945 [137]930
950 [161]A$:[139]A$[178]""[167]950
951 [142]
60000 [143] NACHSPANN ===============
60010 [143] * FARBCODES/STEUERCODES *
60020 WH$[178][199](005):C4$[178][199](017)
60030 RN$[178][199](018):HE$[178][199](019)
60040 C3$[178][199](029):FL$[178][199](130)
60050 FO$[178][199](132):RF$[178][199](146)
60060 CL$[178][199](147):YE$[178][199](158)
60070 [143] *** ZEICHENSATZ/GRAPHIK *
60080 S2$[178][199](160):Z9$[178][199](170)
60090 ZE$[178][199](175):ZJ$[178][199](180)
60100 ZM$[178][199](183):ZP$[178][199](186)
60101 RO$[178][199](150):LR$[178][199](158)
60102 GR$[178][199](153):LB$[178][199](154)
60103 YR[178]781:XR[178]782:[139][194](772)[179][177]124[167]YR[178]7:XR[178]8
60110 [143] ********* ZEICHENFOLGEN *
60120 [129] Q[178]1 [164] 40
60130 Q2$[178]Q2$[170]S2$:QD$[178]QD$[170]C4$
60140 QR$[178]QR$[170]C3$:QE$[178]QE$[170]ZE$
60150 [130] Q
60160 [142]
60170 [143] SPANNUNGSTEILER =C64/C128
60180 [143] =ENDE====================