DREIECKSCHALTUNG
FILE INFORMATION
FILENAME(S): DREIECKSCHALTUNG
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 01:07:54
APPEARS ON: 3 disk(s)
FILE HASH
65781d72075eb1d0196633b4ff9ad6616f22223d18069f02d61b24f53bd38d73
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREEWARE DISK NR | DREIECKSCHALTUNG | PRG | Treasure Chest - Wolfgang Rauprich | 24 | 15 | DOWNLOAD FILE |
| A NWENDER | DREIECKSCHALTUNG | PRG | Treasure Chest - Wolfgang Rauprich | 24 | 15 | DOWNLOAD FILE |
| 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 34 32 30 00 |.o....A$."".420.|
00000570: 7B 0D B8 01 41 B2 C5 28 41 24 29 00 83 0D C2 01 |{...A..(A$).....|
00000580: 99 52 24 00 96 0D CC 01 A1 45 24 3A 8B 45 24 B2 |.R$......E$:.E$.|
00000590: 22 22 A7 34 36 30 00 A6 0D D6 01 8B 45 24 B2 22 |"".460......E$."|
000005A0: 4E 22 A7 35 30 30 00 B6 0D E0 01 8B 45 24 B2 22 |N".500......E$."|
000005B0: 4A 22 A7 35 32 30 00 BF 0D EA 01 89 34 36 30 00 |J".520......460.|
000005C0: D0 0D F4 01 43 B2 BA 28 33 29 3A 45 B2 41 AD 43 |....C..(3):E.A.C|
000005D0: 00 05 0E FE 01 99 22 11 11 44 45 52 20 53 54 52 |......"..DER STR|
000005E0: 41 4E 47 53 54 52 4F 4D 22 3A 99 22 11 42 45 54 |ANGSTROM":.".BET|
000005F0: 52 41 45 47 54 22 45 22 41 4D 50 45 52 45 27 22 |RAEGT"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$."".420.{...A.E(
A$)...B..R$...L..E$:.E$."".460...V..E$."
N".500......E$."J".520......460.P...C..(
3):E.A.C......"..DER STRANGSTROM":.".BET
RAEGT"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