(4,3);M1$_p(4,9);M3$(4,12);M4$#I`mA@XMf YM Z M W@Mf Égo|gxޠG>5Jʙ9v" GSљ e͘w>RO  îz?C ! 6 REBASIC RUN  N N~ ~_k 1 00000 '0,31,0,39:7,0:::A$(5):(18)C3,30,0,39:196:7:150I^(8,7);"Menu :" 3:154:(11,7);"R....... Widerstand" (13,7);"C....... Kondensator"(15,7);"E....... Ende"154:7:(19,7);"Druecke Deine Taste !"(E(509):E82E114R4:C$"WIDERSTAND":24PE67E99R5:C$"KONDENSATOR":24E69E101:(15,8);"Auf Wiedersehen !"::18(4,3);"Farben der Ringe:"(6,4);"1... Farblos 8... Gelb"(7,4);"2... Silber 9... Gruen"- (8,4);"3... Gold 10... Blau"["(9,4);"4... Schwarz 11... Violett"$(10,4);"5... Braun 12... Grau"&(11,4);"6... Rot 13... Weiss"((12,4);"7... Orange"*15,21,0,39,I1R." Farbe des"I".Ringes ?";:"";A$(I)C0(A$(I))2(A$(I))13A$(I)""II1:I2X43,30,0,39e6 1.ringz8160:I165:S$:A$(1)S$Z1:62<>Z199L1:188@ 2.ring B160:I165:S$DA$(2)S$Z2:72FHZ299L2:188 J 3.ringL160:I165:S$6NA$(3)S$H,M:82<PIR 4.ring^T160:I165:S$xVA$(4)S$H,H,T$:90XIZR4100\ 5.ring^160:I165:S$`A$(5)S$H,H,H$,BS$:100bdf hT$"/"E$"":E$" PROZENT" jBS$"/"U$"":U$" VOLT"+ l:::L n"---> Eingegebene Werte :"s p:"Bauelement: ";:154:C$:154:~ rI1R t"Farbnr. des"I".Ringes : ";:154:A$(I):154 v x::: zF1Z110:F2F1Z2:GF2M |R5134 ~ WIDERSTAND " WIDERSTAND: "G"OHM"7 :" TOLERANZ : "T$;E$E 148::6W KONDENSATOR " KAPAZITAET : "G"PIKOFARAD" " TOLERANZ : "T$;E$ " BETRIEBSSPANNUNG: "BS$;U$ 148::6 23;(29,30);">ENTER<":E(509):E137::148H (1,0);"` Ecl'90 Entcodierung von R und C's"` (2,0);(40,"-"):r (27);"7";:x data 1,99,0,+/-20,500 2,99,0.01,+/-10,2000 3,99,0.1,+/-5,1000 4,0,1,/,/ 5,1,10,+/-1,100 6,2,100,+/-2,200 7,3,1000,/,300. 8,4,10000,/,400I 9,5,100000,+/-0.5,500a 10,6,1000000,/,600z 11,7,10000000,/,700 12,8,100000000,/,800 13,9,1000000000,/,900 Fehlermeldung 2:21,0:" Die Farbe-nr."A$(L)" ist nach"' " dem intern.Standard fuer den "L".Ring "P " nicht zugelassen !!!":2: 148:6t 9:(10,9);(20,(155)):I15 (10I,9);(155),," "(155): (16,9);(20,(155)) I114:I8I9 E(509):E13:2:I;(12,13);"Entcodierung")I1;(14,12);"von R's und C'sR13;(19,10);"` Copyright Ecl'90" m6;(24,30);">Enter<"x:202********************************* Copyright by Enrico Lange * * H.-Rau-Str.16 Schwedt,1330 ** *9* Dieses Programm dient zur * _* Entcodierung von Wider- ** staenden und Kondensatoren ** ** Literatur: Rumpf ** Bauelemente der ** Elektronik *E* * k* Geschrieben am 14.1.1990 ** auf einem KC85/4. ** ** Und wer schreibt es um in ** BASICODE ??? (********************************IE A