> 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 C2 08 14 00 |..........".....|
00000090: 57 32 24 B2 22 C2 12 81 20 20 20 20 20 20 20 20 |W2$."... |
000000A0: 47 20 4C 20 45 20 49 20 43 20 48 20 53 20 54 20 |G L E I C H S T |
000000B0: 52 20 4F 20 4D 20 20 20 20 20 20 20 20 20 92 05 |R O M ..|
000000C0: C2 22 00 02 09 1E 00 57 33 24 B2 22 CA C3 C3 C3 |.".....W3$."....|
000000D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000000E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000000F0: C3 C3 C3 CB 22 3A 99 57 31 24 3B 57 32 24 3B 57 |....":.W1$;W2$;W|
00000100: 33 24 00 33 09 28 00 99 A3 31 39 29 22 49 22 3A |3$.3.(...19)"I":|
00000110: 99 22 9E 53 54 52 4F 4D 44 49 43 48 54 45 3A 05 |.".STROMDICHTE:.|
00000120: 20 20 53 20 3D 20 C3 C3 C3 22 3A 99 A3 31 39 29 | S = ...":..19)|
00000130: 22 41 22 00 6D 09 32 00 99 22 11 11 9E 44 45 46 |"A".m.2.."...DEF|
00000140: 49 4E 49 54 49 4F 4E 3A 05 11 22 3A 99 22 11 49 |INITION:..":.".I|
00000150: 20 3D 20 53 54 52 4F 4D 53 54 41 45 52 4B 45 20 | = STROMSTAERKE |
00000160: 49 4E 20 1C 41 05 4D 50 45 52 45 27 22 00 9B 09 |IN .A.MPERE'"...|
00000170: 3C 00 99 22 11 53 20 3D 20 53 54 52 4F 4D 44 49 |<..".S = STROMDI|
00000180: 43 48 54 45 20 49 4E 20 1D 1C 41 05 4D 52 45 52 |CHTE IN ..A.MRER|
00000190: 45 27 20 2F 20 4D 4D 5E 32 11 22 00 C0 09 46 00 |E' / MM^2."...F.|
000001A0: 99 22 41 20 3D 20 4C 45 49 54 45 52 51 55 45 52 |."A = LEITERQUER|
000001B0: 53 43 48 4E 49 54 54 20 49 4E 20 4D 4D 5E 32 22 |SCHNITT IN MM^2"|
000001C0: 00 F5 09 50 00 99 22 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: 51 0A 6E 00 99 22 11 11 20 20 42 49 54 54 45 20 |Q.n..".. BITTE |
00000230: 57 41 45 48 4C 45 4E 20 53 49 45 20 49 48 52 45 |WAEHLEN SIE IHRE|
00000240: 20 52 45 43 48 45 4E 46 4F 52 4D 45 4C 3A 20 20 | RECHENFORMEL: |
00000250: 22 00 7A 0A 78 00 99 A3 31 30 29 22 49 22 3A 99 |".z.x...10)"I":.|
00000260: 22 3C 41 3E 20 20 53 20 3D 20 C3 C3 C3 22 3A 99 |"<A> S = ...":.|
00000270: A3 31 30 29 22 41 11 11 11 22 00 A3 0A 82 00 99 |.10)"A..."......|
00000280: A3 31 30 29 22 49 22 3A 99 22 3C 42 3E 20 20 41 |.10)"I":."<B> A|
00000290: 20 3D 20 C3 C3 C3 22 3A 99 A3 31 30 29 22 53 11 | = ...":..10)"S.|
000002A0: 11 11 22 00 B9 0A 8C 00 99 22 3C 43 3E 20 20 49 |.."......"<C> I|
000002B0: 20 3D 20 53 20 2A 20 41 22 00 CC 0A 96 00 A1 45 | = S * A"......E|
000002C0: 24 3A 8B 45 24 B2 22 22 A7 31 35 30 00 DC 0A A0 |$:.E$."".150....|
000002D0: 00 8B 45 24 B2 22 41 22 A7 32 30 30 00 EC 0A AA |..E$."A".200....|
000002E0: 00 8B 45 24 B2 22 42 22 A7 34 32 30 00 FC 0A B4 |..E$."B".420....|
000002F0: 00 8B 45 24 B2 22 43 22 A7 35 35 30 00 05 0B BE |..E$."C".550....|
00000300: 00 89 31 35 30 00 43 0B C8 00 99 22 93 22 3B 57 |..150.C....".";W|
00000310: 31 24 3B 57 32 24 3B 57 33 24 3A 85 22 13 11 11 |1$;W2$;W3$:."...|
00000320: 11 11 11 11 11 53 54 52 4F 4D 53 54 41 45 52 4B |.....STROMSTAERK|
00000330: 45 20 3C 41 4D 50 45 52 45 27 3E 20 20 20 20 22 |E <AMPERE'> "|
00000340: 3B 49 24 00 52 0B CD 00 8B 49 24 B2 22 22 A7 32 |;I$.R....I$."".2|
00000350: 30 30 00 5E 0B CE 00 49 B2 C5 28 49 24 29 00 8D |00.^...I..(I$)..|
00000360: 0B D2 00 85 22 13 11 11 11 11 11 11 11 11 11 4C |...."..........L|
00000370: 45 49 54 45 52 51 55 45 52 53 43 48 4E 49 54 54 |EITERQUERSCHNITT|
00000380: 20 3C 4D 4D 3E 20 20 20 20 22 3B 4D 24 00 9C 0B | <MM> ";M$...|
00000390: D6 00 8B 4D 24 B2 22 22 A7 32 31 30 00 A8 0B D7 |...M$."".210....|
000003A0: 00 4D B2 C5 28 4D 24 29 00 B0 0B D8 00 99 52 24 |.M..(M$)......R$|
000003B0: 00 C3 0B E6 00 A1 45 24 3A 8B 45 24 B2 22 22 A7 |......E$:.E$."".|
000003C0: 32 33 30 00 D3 0B F0 00 8B 45 24 B2 22 4E 22 A7 |230......E$."N".|
000003D0: 32 37 30 00 E3 0B FA 00 8B 45 24 B2 22 4A 22 A7 |270......E$."J".|
000003E0: 32 39 30 00 EC 0B 04 01 89 32 33 30 00 2C 0C 0E |290......230.,..|
000003F0: 01 53 B2 49 AD 4D 3A 99 22 11 11 44 49 45 20 53 |.S.I.M:."..DIE S|
00000400: 54 52 4F 4D 44 49 43 48 54 45 20 42 45 54 52 41 |TROMDICHTE BETRA|
00000410: 45 47 54 20 22 53 3A 99 22 11 41 4D 50 45 52 45 |EGT "S:.".AMPERE|
00000420: 27 2F 4D 4D 5E 32 22 3A 89 33 31 30 00 41 0C 22 |'/MM^2":.310.A."|
00000430: 01 53 B2 49 AD 4D 3A 57 B2 B5 28 53 29 3A 53 B2 |.S.I.M:W..(S):S.|
00000440: 57 00 76 0C 2C 01 99 22 11 11 44 49 45 20 53 54 |W.v.,.."..DIE ST|
00000450: 52 4F 4D 44 49 43 48 54 45 20 42 45 54 52 41 45 |ROMDICHTE BETRAE|
00000460: 47 54 20 22 53 3A 99 22 11 41 4D 50 45 52 45 27 |GT "S:.".AMPERE'|
00000470: 2F 4D 4D 5E 32 22 00 9C 0C 36 01 99 22 11 11 4E |/MM^2"...6.."..N|
00000480: 4F 43 48 20 45 49 4E 45 20 42 45 52 45 43 48 4E |OCH EINE BERECHN|
00000490: 55 4E 47 20 3C 4A 2F 4E 3E 20 3F 22 00 AF 0C 40 |UNG <J/N> ?"...@|
000004A0: 01 A1 45 24 3A 8B 45 24 B2 22 22 A7 33 32 30 00 |..E$:.E$."".320.|
000004B0: BF 0C 4A 01 8B 45 24 B2 22 4E 22 A7 33 36 30 00 |..J..E$."N".360.|
000004C0: F7 0C 54 01 8B 45 24 B2 22 4A 22 A7 49 B2 30 3A |..T..E$."J".I.0:|
000004D0: 4D B2 30 3A 57 B2 30 3A 53 B2 30 3A 49 24 B2 22 |M.0:W.0:S.0:I$."|
000004E0: 22 3A 4D 24 B2 22 22 3A 89 32 30 30 3A 54 24 B2 |":M$."":.200:T$.|
000004F0: 22 22 3A 89 32 30 30 00 00 0D 5E 01 89 33 32 30 |"":.200...^..320|
00000500: 00 22 0D 68 01 99 22 11 11 48 41 55 50 54 4D 45 |.".h.."..HAUPTME|
00000510: 4E 55 45 20 4C 41 44 45 4E 20 3C 4A 2F 4E 3E 20 |NUE LADEN <J/N> |
00000520: 3F 22 00 35 0D 72 01 A1 45 24 3A 8B 45 24 B2 22 |?".5.r..E$:.E$."|
00000530: 22 A7 33 37 30 00 44 0D 7C 01 8B 45 24 B2 22 4E |".370.D.|..E$."N|
00000540: 22 A7 31 30 00 54 0D 86 01 8B 45 24 B2 22 4A 22 |".10.T....E$."J"|
00000550: A7 34 31 30 00 5D 0D 90 01 89 33 37 30 00 9E 0D |.410.]....370...|
00000560: 9A 01 99 22 93 11 11 12 20 20 20 20 20 20 20 48 |...".... H|
00000570: 41 55 50 54 4D 45 4E 55 45 20 57 49 52 44 20 47 |AUPTMENUE WIRD G|
00000580: 45 4C 41 44 45 4E 20 21 20 20 20 20 20 20 20 20 |ELADEN ! |
00000590: 22 3A 93 22 4D 45 4E 55 45 22 2C 38 2C 31 00 DE |":."MENUE",8,1..|
000005A0: 0D A4 01 99 22 93 22 3B 57 31 24 3B 57 32 24 3B |....".";W1$;W2$;|
000005B0: 57 33 24 3A 85 22 13 11 11 11 11 11 11 11 53 54 |W3$:."........ST|
000005C0: 52 4F 4D 53 54 41 45 52 4B 45 20 3C 41 4D 50 45 |ROMSTAERKE <AMPE|
000005D0: 52 45 27 3E 20 20 20 20 20 20 22 3B 49 24 00 ED |RE'> ";I$..|
000005E0: 0D A9 01 8B 49 24 B2 22 22 A7 34 32 30 00 F9 0D |....I$."".420...|
000005F0: AA 01 49 B2 C5 28 49 24 29 00 2A 0E AE 01 85 22 |..I..(I$).*...."|
00000600: 13 11 11 11 11 11 11 11 11 11 53 54 52 4F 4D 44 |..........STROMD|
00000610: 49 43 48 54 45 20 3C 41 4D 50 45 52 45 27 2F 4D |ICHTE <AMPERE'/M|
00000620: 4D 5E 32 3E 20 20 22 3B 44 24 00 39 0E B2 01 8B |M^2> ";D$.9....|
00000630: 44 24 B2 22 22 A7 34 33 30 00 45 0E B3 01 44 B2 |D$."".430.E...D.|
00000640: C5 28 44 24 29 00 4D 0E B4 01 99 52 24 00 60 0E |.(D$).M....R$.`.|
00000650: B8 01 A1 45 24 3A 8B 45 24 B2 22 22 A7 34 34 30 |...E$:.E$."".440|
00000660: 00 70 0E C2 01 8B 45 24 B2 22 4A 22 A7 34 39 30 |.p....E$."J".490|
00000670: 00 80 0E CC 01 8B 45 24 B2 22 4E 22 A7 34 38 30 |......E$."N".480|
00000680: 00 89 0E D6 01 89 34 34 30 00 C6 0E E0 01 41 B2 |......440.....A.|
00000690: 49 AD 44 3A 99 22 11 11 44 45 52 20 4C 45 49 54 |I.D:."..DER LEIT|
000006A0: 45 52 51 55 45 52 53 43 48 4E 49 54 54 20 42 45 |ERQUERSCHNITT BE|
000006B0: 54 52 41 45 47 54 22 41 3A 99 22 11 4D 4D 5E 32 |TRAEGT"A:.".MM^2|
000006C0: 22 3A 89 35 30 30 00 05 0F EA 01 41 B2 49 AD 44 |":.500.....A.I.D|
000006D0: 3A 53 B2 B5 28 41 29 3A 41 B2 53 3A 99 22 11 11 |:S..(A):A.S:."..|
000006E0: 44 45 52 20 4C 45 49 54 45 52 51 55 45 52 53 43 |DER LEITERQUERSC|
000006F0: 48 4E 49 54 54 20 42 45 54 52 41 45 47 54 22 41 |HNITT BETRAEGT"A|
00000700: 22 4F 48 4D 22 00 2B 0F F4 01 99 22 11 11 4E 4F |"OHM".+...."..NO|
00000710: 43 48 20 45 49 4E 45 20 42 45 52 45 43 48 4E 55 |CH EINE BERECHNU|
00000720: 4E 47 20 3C 4A 2F 4E 3E 20 3F 22 00 3E 0F FE 01 |NG <J/N> ?".>...|
00000730: A1 45 24 3A 8B 45 24 B2 22 22 A7 35 31 30 00 4E |.E$:.E$."".510.N|
00000740: 0F 08 02 8B 45 24 B2 22 4E 22 A7 33 36 30 00 7B |....E$."N".360.{|
00000750: 0F 12 02 8B 45 24 B2 22 4A 22 A7 49 B2 30 3A 44 |....E$."J".I.0:D|
00000760: B2 30 3A 41 B2 30 3A 53 B2 30 3A 49 24 B2 22 22 |.0:A.0:S.0:I$.""|
00000770: 3A 44 24 B2 22 22 3A 89 34 32 30 00 84 0F 1C 02 |:D$."":.420.....|
00000780: 89 35 31 30 00 C3 0F 26 02 99 22 93 22 3B 57 31 |.510...&..".";W1|
00000790: 24 3B 57 32 24 3B 57 33 24 3A 85 22 13 11 11 11 |$;W2$;W3$:."....|
000007A0: 11 11 11 11 53 54 52 4F 4D 44 49 43 48 54 45 20 |....STROMDICHTE |
000007B0: 3C 41 4D 50 45 52 45 27 2F 4D 4D 5E 32 3E 20 22 |<AMPERE'/MM^2> "|
000007C0: 3B 41 24 00 D2 0F 2B 02 8B 41 24 B2 22 22 A7 35 |;A$...+..A$."".5|
000007D0: 35 30 00 DE 0F 2C 02 41 B2 C5 28 41 24 29 00 16 |50...,.A..(A$)..|
000007E0: 10 30 02 85 22 13 11 11 11 11 11 11 11 11 11 4C |.0.."..........L|
000007F0: 45 49 54 45 52 51 55 45 52 53 43 48 4E 49 54 54 |EITERQUERSCHNITT|
00000800: 20 3C 4D 4D 5E 32 3E 20 20 20 22 3B 4D 24 3A 4D | <MM^2> ";M$:M|
00000810: B2 C5 28 4D 24 29 00 25 10 34 02 8B 4D 24 B2 22 |..(M$).%.4..M$."|
00000820: 22 A7 35 36 30 00 31 10 35 02 4D B2 C5 28 4D 24 |".560.1.5.M..(M$|
00000830: 29 00 39 10 36 02 99 52 24 00 4C 10 3A 02 A1 45 |).9.6..R$.L.:..E|
00000840: 24 3A 8B 45 24 B2 22 22 A7 35 37 30 00 5C 10 44 |$:.E$."".570.\.D|
00000850: 02 8B 45 24 B2 22 4A 22 A7 36 31 35 00 6C 10 4E |..E$."J".615.l.N|
00000860: 02 8B 45 24 B2 22 4E 22 A7 36 31 30 00 75 10 58 |..E$."N".610.u.X|
00000870: 02 89 36 34 30 00 B1 10 62 02 49 B2 41 AC 4D 3A |..640...b.I.A.M:|
00000880: 99 22 11 11 44 49 45 20 53 54 52 4F 4D 53 54 41 |."..DIE STROMSTA|
00000890: 45 52 4B 45 20 42 45 54 52 41 45 47 54 20 22 49 |ERKE BETRAEGT "I|
000008A0: 3A 99 22 11 41 4D 50 45 52 45 27 22 3A 89 36 33 |:.".AMPERE'":.63|
000008B0: 30 00 C6 10 67 02 49 B2 41 AC 4D 3A 42 B2 B5 28 |0...g.I.A.M:B..(|
000008C0: 49 29 3A 42 B2 53 00 F7 10 6C 02 99 22 11 11 44 |I):B.S...l.."..D|
000008D0: 49 45 20 53 54 52 4F 4D 53 54 41 45 52 4B 45 20 |IE STROMSTAERKE |
000008E0: 42 45 54 52 41 45 47 54 20 22 49 3A 99 22 11 41 |BETRAEGT "I:.".A|
000008F0: 4D 50 45 52 45 27 22 00 1D 11 76 02 99 22 11 11 |MPERE'"...v.."..|
00000900: 4E 4F 43 48 20 45 49 4E 45 20 42 45 52 45 43 48 |NOCH EINE BERECH|
00000910: 4E 55 4E 47 20 3C 4A 2F 4E 3E 20 3F 22 00 30 11 |NUNG <J/N> ?".0.|
00000920: 80 02 A1 45 24 3A 8B 45 24 B2 22 22 A7 36 34 30 |...E$:.E$."".640|
00000930: 00 40 11 8A 02 8B 45 24 B2 22 4E 22 A7 33 36 30 |.@....E$."N".360|
00000940: 00 6D 11 94 02 8B 45 24 B2 22 4A 22 A7 49 B2 30 |.m....E$."J".I.0|
00000950: 3A 41 B2 30 3A 4D B2 30 3A 42 B2 30 3A 41 24 B2 |:A.0:M.0:B.0:A$.|
00000960: 22 22 3A 4D 24 B2 22 22 3A 89 35 35 30 00 76 11 |"":M$."":.550.v.|
00000970: 9E 02 89 36 34 30 00 00 00 |...640... |
.......45,B(174):.46,B(175):..@...R$."..
ERGEBNIS RUNDEN <J/N> ?"......53280,0:.5
3281,0:.".":W1$.".UCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCI".B...W2$."B..
G L E I C H S T R O M ..B".....W
3$."JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCK":.W1$;W2$;W3$.3.(...19)"I":.".STROM
DICHTE:. S = CCC":..19)"A".M.2.."...DEF
INITION:..":.".I = STROMSTAERKE IN .A.MP
ERE'"...<..".S = STROMDICHTE IN ..A.MRER
E' / MM^2."...F.."A = LEITERQUERSCHNITT
IN MM^2"...P.."..... BITTE TASTE
DRUECKEN ! "...Z..198,0:.198,1:
.198,0:.".";W1$;W2$;W3$.Q.N..".. BITTE
WAEHLEN SIE IHRE RECHENFORMEL: ".Z.X...
10)"I":."<A> S = CCC":..10)"A..."......
.10)"I":."<B> A = CCC":..10)"S...".....
."<C> I = S * A".L....E$:.E$."".150...
..E$."A".200......E$."B".420......E$."C"
.550......150.C.H..".";W1$;W2$;W3$:."...
.....STROMSTAERKE <AMPERE'> ";I$.R.M.
.I$."".200.^.N.I.E(I$)...R.."..........L
EITERQUERSCHNITT <MM> ";M$...V..M$.""
.210...W.M.E(M$)...X..R$.C....E$:.E$."".
230.S....E$."N".270......E$."J".290.....
.230.,...S.I.M:."..DIE STROMDICHTE BETRA
EGT "S:.".AMPERE'/MM^2":.310.A.".S.I.M:W
..(S):S.W.V.,.."..DIE STROMDICHTE BETRAE
GT "S:.".AMPERE'/MM^2"...6.."..NOCH EINE
BERECHNUNG <J/N> ?"...@..E$:.E$."".320.
..J..E$."N".360...T..E$."J".I.0:M.0:W.0:
S.0:I$."":M$."":.200:T$."":.200...^..320
.".H.."..HAUPTMENUE LADEN <J/N> ?".5.R..
E$:.E$."".370.D.|..E$."N".10.T....E$."J"
.410.]....370......".... HAUPTMENU
E WIRD GELADEN ! ":."MENUE",8,1..
....".";W1$;W2$;W3$:."........STROMSTAER
KE <AMPERE'> ";I$......I$."".420...
..I.E(I$).*...."..........STROMDICHTE <A
MPERE'/MM^2> ";D$.9....D$."".430.E...D.
E(D$).M....R$.`....E$:.E$."".440.P.B..E$
."J".490...L..E$."N".480...V..440.F...A.
I.D:."..DER LEITERQUERSCHNITT BETRAEGT"A
:.".MM^2":.500.....A.I.D:S..(A):A.S:."..
DER LEITERQUERSCHNITT BETRAEGT"A"OHM".+.
..."..NOCH EINE BERECHNUNG <J/N> ?".>...
.E$:.E$."".510.N....E$."N".360.{....E$."
J".I.0:D.0:A.0:S.0:I$."":D$."":.420.....
.510.C.&..".";W1$;W2$;W3$:."........STRO
MDICHTE <AMPERE'/MM^2> ";A$.R.+..A$."".5
50...,.A.E(A$)...0.."..........LEITERQUE
RSCHNITT <MM^2> ";M$:M.E(M$).%.4..M$."
".560.1.5.M.E(M$).9.6..R$.L.:..E$:.E$.""
.570.\.D..E$."J".615.L.N..E$."N".610.U.X
..640...B.I.A.M:."..DIE STROMSTAERKE BET
RAEGT "I:.".AMPERE'":.630.F.G.I.A.M:B..(
I):B.S...L.."..DIE STROMSTAERKE BETRAEGT
"I:.".AMPERE'"...V.."..NOCH EINE BERECH
NUNG <J/N> ?".0....E$:.E$."".640.@....E$
."N".360.M....E$."J".I.0:A.0:M.0:B.0:A$.
"":M$."":.550.V....640...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL