DREIECKSCHALTUNG
FILE INFORMATION
FILENAME(S): DREIECKSCHALTUNG
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-12-02 23:21:12
APPEARS ON: 1 disk(s)
FILE HASH
5c2c1774bea79a6a7870a1a5ce2fc25bb88e6bada091981a8948b4b5a797fc97
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOODSOFT | DREIECKSCHALTUNG | PRG | swasti, dinkel | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 97 34 35 2C C2 28 31 37 34 29 |.......45,.(174)| 00000010: 3A 97 34 36 2C C2 28 31 37 35 29 3A 9C 00 40 08 |:.46,.(175):..@.| 00000020: 09 00 52 24 B2 22 11 11 45 52 47 45 42 4E 49 53 |..R$."..ERGEBNIS| 00000030: 20 52 55 4E 44 45 4E 20 3C 4A 2F 4E 3E 20 3F 22 | RUNDEN <J/N> ?"| 00000040: 00 8B 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 35 |......53280,0:.5| 00000050: 33 32 38 31 2C 30 3A 99 22 93 22 3A 57 31 24 B2 |3281,0:.".":W1$.| 00000060: 22 05 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |"...............| 00000070: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000080: C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 A5 08 0B 00 |..........".....| 00000090: 43 B2 30 3A 41 B2 30 3A 45 B2 30 3A 59 B2 30 3A |C.0:A.0:E.0:Y.0:| 000000A0: 41 24 B2 22 22 00 DC 08 14 00 57 32 24 B2 22 C2 |A$."".....W2$.".| 000000B0: 12 9E 20 20 20 20 20 20 20 20 20 20 44 20 52 20 |.. D R | 000000C0: 45 20 48 20 53 20 54 20 52 20 4F 20 4D 20 20 20 |E H S T R O M | 000000D0: 20 20 20 20 20 20 20 20 92 05 C2 22 00 26 09 1E | ...".&..| 000000E0: 00 57 33 24 B2 22 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 |.W3$."..........| 000000F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 00000100: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 3A |..............":| 00000110: 99 57 31 24 3B 57 32 24 3B 57 33 24 3A 99 A3 32 |.W1$;W2$;W3$:..2| 00000120: 36 29 22 CE A3 22 00 54 09 28 00 99 22 9E 44 52 |6)"..".T.(..".DR| 00000130: 45 49 45 43 4B 53 43 48 41 4C 54 55 4E 47 3A 05 |EIECKSCHALTUNG:.| 00000140: 20 20 49 20 3D 20 A3 CD CE 20 33 20 2A 20 49 11 | I = ... 3 * I.| 00000150: 53 54 52 22 00 6C 09 32 00 99 22 9E 11 11 11 44 |STR".l.2.."....D| 00000160: 45 46 49 4E 49 54 49 4F 4E 3A 05 22 00 95 09 3C |EFINITION:."...<| 00000170: 00 99 22 11 49 20 20 20 20 3D 20 53 54 52 4F 4D |..".I = STROM| 00000180: 53 54 41 45 52 4B 45 20 49 4E 20 1C 41 05 4D 50 |STAERKE IN .A.MP| 00000190: 45 52 45 27 22 00 BF 09 46 00 99 22 11 49 11 53 |ERE'"...F..".I.S| 000001A0: 54 52 91 20 3D 20 53 54 52 41 4E 47 53 54 52 4F |TR. = STRANGSTRO| 000001B0: 4D 20 49 4E 20 1C 41 05 4D 50 45 52 45 27 22 00 |M IN .A.MPERE'".| 000001C0: F5 09 50 00 99 22 11 11 11 11 11 12 20 20 20 20 |..P.."...... | 000001D0: 20 20 20 20 20 42 49 54 54 45 20 54 41 53 54 45 | BITTE TASTE| 000001E0: 20 44 52 55 45 43 4B 45 4E 20 21 20 20 20 20 20 | DRUECKEN ! | 000001F0: 20 20 20 20 22 00 1F 0A 5A 00 97 31 39 38 2C 30 | "...Z..198,0| 00000200: 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 3A 99 |:.198,1:.198,0:.| 00000210: 22 93 22 3B 57 31 24 3B 57 32 24 3B 57 33 24 00 |".";W1$;W2$;W3$.| 00000220: 5C 0A 6E 00 99 22 20 20 42 49 54 54 45 20 57 41 |\.n.." BITTE WA| 00000230: 45 48 4C 45 4E 20 53 49 45 20 49 48 52 45 20 52 |EHLEN SIE IHRE R| 00000240: 45 43 48 45 4E 46 4F 52 4D 45 4C 3A 20 20 11 11 |ECHENFORMEL: ..| 00000250: 11 22 3A 99 A3 31 32 29 22 CE A3 22 00 86 0A 78 |.":..12)".."...x| 00000260: 00 99 22 3C 41 3E 20 20 49 20 3D 20 A3 CD CE 20 |.."<A> I = ... | 00000270: 33 20 2A 20 49 11 53 54 52 11 11 22 3A 99 A3 31 |3 * I.STR..":..1| 00000280: 39 29 22 CE A3 22 00 A8 0A 79 00 99 22 3C 42 3E |9)".."...y.."<B>| 00000290: 20 20 49 11 53 54 52 91 20 3D 20 49 20 2F 20 A3 | I.STR. = I / .| 000002A0: CD CE 20 33 11 11 11 22 00 BB 0A 7C 00 A1 45 24 |.. 3..."...|..E$| 000002B0: 3A 8B 45 24 B2 22 22 A7 31 32 34 00 CB 0A 7D 00 |:.E$."".124...}.| 000002C0: 8B 45 24 B2 22 41 22 A7 32 30 30 00 DB 0A 7E 00 |.E$."A".200...~.| 000002D0: 8B 45 24 B2 22 42 22 A7 34 32 30 00 E4 0A 80 00 |.E$."B".420.....| 000002E0: 89 31 32 34 00 1E 0B C8 00 99 22 93 22 3B 57 31 |.124......".";W1| 000002F0: 24 3B 57 32 24 3B 57 33 24 3A 85 22 13 11 11 11 |$;W2$;W3$:."....| 00000300: 11 11 11 11 53 54 52 41 4E 47 53 54 52 4F 4D 20 |....STRANGSTROM | 00000310: 3C 41 4D 50 45 52 45 27 3E 20 22 3B 41 24 00 2D |<AMPERE'> ";A$.-| 00000320: 0B CD 00 8B 41 24 B2 22 22 A7 32 30 30 00 39 0B |....A$."".200.9.| 00000330: CE 00 41 B2 C5 28 41 24 29 00 41 0B D8 00 99 52 |..A..(A$).A....R| 00000340: 24 00 54 0B E6 00 A1 45 24 3A 8B 45 24 B2 22 22 |$.T....E$:.E$.""| 00000350: A7 32 33 30 00 64 0B F0 00 8B 45 24 B2 22 4E 22 |.230.d....E$."N"| 00000360: A7 32 36 35 00 74 0B FA 00 8B 45 24 B2 22 4A 22 |.265.t....E$."J"| 00000370: A7 32 39 30 00 7D 0B 04 01 89 32 33 30 00 8E 0B |.290.}....230...| 00000380: 09 01 43 B2 BA 28 33 29 3A 45 B2 41 AC 43 00 C3 |..C..(3):E.A.C..| 00000390: 0B 0E 01 99 22 11 11 44 45 52 20 4C 45 49 54 45 |...."..DER LEITE| 000003A0: 52 53 54 52 4F 4D 22 3A 99 22 11 42 45 54 52 41 |RSTROM":.".BETRA| 000003B0: 45 47 54 22 45 22 41 4D 50 45 52 45 27 22 3A 89 |EGT"E"AMPERE'":.| 000003C0: 33 31 30 00 DF 0B 22 01 43 B2 BA 28 33 29 3A 45 |310...".C..(3):E| 000003D0: B2 41 AC 43 3A 59 B2 B5 28 45 29 3A 45 B2 59 00 |.A.C:Y..(E):E.Y.| 000003E0: 0F 0C 2C 01 99 22 11 11 44 45 52 20 4C 45 49 54 |..,.."..DER LEIT| 000003F0: 45 52 53 54 52 4F 4D 22 3A 99 22 11 42 45 54 52 |ERSTROM":.".BETR| 00000400: 41 45 47 54 22 45 22 41 4D 50 45 52 45 27 22 00 |AEGT"E"AMPERE'".| 00000410: 35 0C 36 01 99 22 11 11 4E 4F 43 48 20 45 49 4E |5.6.."..NOCH EIN| 00000420: 45 20 42 45 52 45 43 48 4E 55 4E 47 20 3C 4A 2F |E BERECHNUNG <J/| 00000430: 4E 3E 20 3F 22 00 48 0C 40 01 A1 45 24 3A 8B 45 |N> ?".H.@..E$:.E| 00000440: 24 B2 22 22 A7 33 32 30 00 58 0C 4A 01 8B 45 24 |$."".320.X.J..E$| 00000450: B2 22 4E 22 A7 33 36 30 00 7F 0C 54 01 8B 45 24 |."N".360...T..E$| 00000460: B2 22 4A 22 A7 41 B2 30 3A 43 B2 30 3A 45 B2 30 |."J".A.0:C.0:E.0| 00000470: 3A 59 B2 30 3A 41 24 B2 22 22 3A 89 32 30 30 00 |:Y.0:A$."":.200.| 00000480: 88 0C 5E 01 89 33 32 30 00 AA 0C 68 01 99 22 11 |..^..320...h..".| 00000490: 11 48 41 55 50 54 4D 45 4E 55 45 20 4C 41 44 45 |.HAUPTMENUE LADE| 000004A0: 4E 20 3C 4A 2F 4E 3E 20 3F 22 00 BD 0C 72 01 A1 |N <J/N> ?"...r..| 000004B0: 45 24 3A 8B 45 24 B2 22 22 A7 33 37 30 00 CC 0C |E$:.E$."".370...| 000004C0: 7C 01 8B 45 24 B2 22 4E 22 A7 31 30 00 DC 0C 86 ||..E$."N".10....| 000004D0: 01 8B 45 24 B2 22 4A 22 A7 34 31 30 00 E5 0C 90 |..E$."J".410....| 000004E0: 01 89 33 37 30 00 26 0D 9A 01 99 22 93 11 11 12 |..370.&...."....| 000004F0: 20 20 20 20 20 20 20 48 41 55 50 54 4D 45 4E 55 | HAUPTMENU| 00000500: 45 20 57 49 52 44 20 47 45 4C 41 44 45 4E 20 21 |E WIRD GELADEN !| 00000510: 20 20 20 20 20 20 20 20 22 3A 93 22 4D 45 4E 55 | ":."MENU| 00000520: 45 22 2C 38 2C 31 00 60 0D A4 01 99 22 93 22 3B |E",8,1.`....".";| 00000530: 57 31 24 3B 57 32 24 3B 57 33 24 3A 85 22 13 11 |W1$;W2$;W3$:."..| 00000540: 11 11 11 11 11 11 4C 45 49 54 45 52 53 54 52 4F |......LEITERSTRO| 00000550: 4D 20 3C 41 4D 50 45 52 45 27 3E 20 22 3B 41 24 |M <AMPERE'> ";A$| 00000560: 00 6F 0D B3 01 8B 41 24 B2 22 22 A7 6D FF FF FF |.o....A$."".m...| 00000570: 56 FB 62 FF FF FF FF FF FF FF FF FF 3C 1F 68 85 |V.b.........<.h.| 00000580: 41 FF 32 2F 18 1F FF 85 8C 9E 8A 58 FF 9E 8B 40 |A.2/.......X...@| 00000590: 00 01 0E CA 4A C8 81 09 17 69 8C FF 9E 8B 40 08 |....J....i....@.| 000005A0: BA 01 0E CE C0 C8 81 49 17 98 8C FF 9E 8B 40 08 |.......I......@.| 000005B0: B0 01 0E CE 40 C8 81 4F 17 B8 8C FF CA 4A C8 81 |....@..O.....J..| 000005C0: F8 16 F9 8C A5 41 50 FF 44 FF 58 FF 48 95 1F AC |.....AP.D.X.H...| 000005D0: 88 8D 1A 79 85 FF 08 CC CC 99 9D E0 88 EC D9 E8 |...y............| 000005E0: 9C B9 AD EC D9 E8 AF B6 00 51 FF 08 CC A8 9D D9 |.........Q......| 000005F0: E8 9C 9D FF 54 22 45 22 41 4D 50 45 52 45 27 22 |....T"E"AMPERE'"| 00000600: 3A 89 33 31 30 00 21 0E 08 02 43 B2 BA 28 33 29 |:.310.!...C..(3)| 00000610: 3A 45 B2 41 AD 43 3A 59 B2 B5 28 45 29 3A 45 B2 |:E.A.C:Y..(E):E.| 00000620: 59 00 51 0E 12 02 99 22 11 11 44 45 52 20 53 54 |Y.Q...."..DER ST| 00000630: 52 41 4E 47 53 54 52 4F 4D 22 3A 99 22 11 42 45 |RANGSTROM":.".BE| 00000640: 54 52 41 45 47 54 22 45 22 41 4D 50 45 52 45 27 |TRAEGT"E"AMPERE'| 00000650: 22 00 77 0E 1C 02 99 22 11 11 4E 4F 43 48 20 45 |".w...."..NOCH E| 00000660: 49 4E 45 20 42 45 52 45 43 48 4E 55 4E 47 20 3C |INE BERECHNUNG <| 00000670: 4A 2F 4E 3E 20 3F 22 00 8A 0E 26 02 A1 45 24 3A |J/N> ?"...&..E$:| 00000680: 8B 45 24 B2 22 22 A7 35 35 30 00 9A 0E 30 02 8B |.E$."".550...0..| 00000690: 45 24 B2 22 4E 22 A7 33 36 30 00 C1 0E 3A 02 8B |E$."N".360...:..| 000006A0: 45 24 B2 22 4A 22 A7 43 B2 30 3A 45 B2 30 3A 41 |E$."J".C.0:E.0:A| 000006B0: B2 30 3A 59 B2 30 3A 41 24 B2 22 22 3A 89 34 32 |.0:Y.0:A$."":.42| 000006C0: 30 00 CA 0E 44 02 89 35 35 30 00 00 00 00 EB 0E |0...D..550......| 000006D0: 3A 02 8B 45 24 B2 22 4A 22 A7 43 B2 30 3A 45 B2 |:..E$."J".C.0:E.| 000006E0: 30 3A 56 B2 30 3A 59 B2 30 3A 56 24 B2 22 22 3A |0:V.0:Y.0:V$."":| 000006F0: 89 34 32 30 00 4A 22 A7 43 B2 30 3A 45 B2 30 3A |.420.J".C.0:E.0:| 00000700: 56 B2 30 3A 59 B2 30 3A 56 24 B2 22 22 3A 89 |V.0:Y.0:V$."":. |
.......45,B(174):.46,B(175):..@...R$.".. ERGEBNIS RUNDEN <J/N> ?"......53280,0:.5 3281,0:.".":W1$.".UCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCI".....C.0:A.0:E.0:Y.0: A$."".....W2$."B.. D R E H S T R O M ..B".&...W3$."JCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCK":.W1$;W2$ ;W3$:..26)"N.".T.(..".DREIECKSCHALTUNG:. I = .MN 3 * I.STR".L.2.."....DEFINITIO N:."...<..".I = STROMSTAERKE IN .A.MP ERE'"...F..".I.STR. = STRANGSTROM IN .A. MPERE'"...P.."...... BITTE TASTE DRUECKEN ! "...Z..198,0:.198,1: .198,0:.".";W1$;W2$;W3$.\.N.." BITTE WA EHLEN SIE IHRE RECHENFORMEL: ...":..12) "N."...X.."<A> I = .MN 3 * I.STR..":..1 9)"N."...Y.."<B> I.STR. = I / .MN 3..." ...|..E$:.E$."".124.K.}..E$."A".200...~. .E$."B".420......124...H..".";W1$;W2$;W3 $:."........STRANGSTROM <AMPERE'> ";A$.- .M..A$."".200.9.N.A.E(A$).A.X..R$.T....E $:.E$."".230.D....E$."N".265.T....E$."J" .290.}....230.....C..(3):E.A.C.C...."..D ER LEITERSTROM":.".BETRAEGT"E"AMPERE'":. 310...".C..(3):E.A.C:Y..(E):E.Y...,..".. DER LEITERSTROM":.".BETRAEGT"E"AMPERE'". 5.6.."..NOCH EINE BERECHNUNG <J/N> ?".H. @..E$:.E$."".320.X.J..E$."N".360..T..E$ ."J".A.0:C.0:E.0:Y.0:A$."":.200...^..320 ...H.."..HAUPTMENUE LADEN <J/N> ?"...R.. E$:.E$."".370.L.|..E$."N".10......E$."J" .410......370.&....".... HAUPTMENU E WIRD GELADEN ! ":."MENUE",8,1.` ....".";W1$;W2$;W3$:."........LEITERSTRO M <AMPERE'> ";A$.O....A$."".M...V.B..... ....<.H.A.2/.......X...@...JJH...I....@. ...N.H.I......@....N@H.O....JJH......AP. D.X.H......Y...LL.....Y.....Y....Q..L..Y ....T"E"AMPERE'":.310.!...C..(3):E.A.C:Y ..(E):E.Y.Q...."..DER STRANGSTROM":.".BE TRAEGT"E"AMPERE'".W...."..NOCH EINE BERE CHNUNG <J/N> ?"...&..E$:.E$."".550...0.. E$."N".360.A.:..E$."J".C.0:E.0:A.0:Y.0:A $."":.420.J.D..550......:..E$."J".C.0:E. 0:V.0:Y.0:V$."":.420.J".C.0:E.0:V.0:Y.0: V$."":.
> CLICK IMAGE PREVIEW FOR FULL MODAL