> 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 2B 09 28 00 99 22 9E 45 4C 45 4B 54 52 |3$.+.(..".ELEKTR|
00000110: 49 5A 49 54 41 45 54 53 4D 45 4E 47 45 3A 05 20 |IZITAETSMENGE:. |
00000120: 20 51 20 3D 20 49 20 2A 20 54 22 00 6C 09 32 00 | Q = I * T".l.2.|
00000130: 99 22 11 11 9E 44 45 46 49 4E 49 54 49 4F 4E 3A |."...DEFINITION:|
00000140: 05 22 3A 99 22 11 11 51 20 3D 20 45 4C 45 4B 54 |.":."..Q = ELEKT|
00000150: 52 49 5A 49 54 41 45 54 53 4D 45 4E 47 45 20 49 |RIZITAETSMENGE I|
00000160: 4E 20 1C 43 05 4F 55 4C 4F 4D 42 22 00 93 09 3C |N .C.OULOMB"...<|
00000170: 00 99 22 11 49 20 3D 20 53 54 52 4F 4D 53 54 41 |..".I = STROMSTA|
00000180: 45 52 4B 45 20 49 4E 20 1C 41 05 4D 50 45 52 45 |ERKE IN .A.MPERE|
00000190: 27 11 22 00 B1 09 46 00 99 22 54 20 3D 20 5A 45 |'."...F.."T = ZE|
000001A0: 49 54 20 49 4E 20 1C 53 05 45 4B 55 4E 44 45 4E |IT IN .S.EKUNDEN|
000001B0: 22 00 E6 09 50 00 99 22 11 11 11 11 12 20 20 20 |"...P.."..... |
000001C0: 20 20 20 20 20 20 42 49 54 54 45 20 54 41 53 54 | BITTE TAST|
000001D0: 45 20 44 52 55 45 43 4B 45 4E 20 21 20 20 20 20 |E DRUECKEN ! |
000001E0: 20 20 20 20 20 22 00 10 0A 5A 00 97 31 39 38 2C | "...Z..198,|
000001F0: 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 3A |0:.198,1:.198,0:|
00000200: 99 22 93 22 3B 57 31 24 3B 57 32 24 3B 57 33 24 |.".";W1$;W2$;W3$|
00000210: 00 42 0A 6E 00 99 22 11 11 20 20 42 49 54 54 45 |.B.n..".. BITTE|
00000220: 20 57 41 45 48 4C 45 4E 20 53 49 45 20 49 48 52 | WAEHLEN SIE IHR|
00000230: 45 20 52 45 43 48 45 4E 46 4F 52 4D 45 4C 3A 20 |E RECHENFORMEL: |
00000240: 20 22 00 6B 0A 78 00 99 A3 31 30 29 22 51 22 3A | ".k.x...10)"Q":|
00000250: 99 22 3C 41 3E 20 20 49 20 3D 20 C3 C3 C3 22 3A |."<A> I = ...":|
00000260: 99 A3 31 30 29 22 54 11 11 11 22 00 94 0A 82 00 |..10)"T...".....|
00000270: 99 A3 31 30 29 22 51 22 3A 99 22 3C 42 3E 20 20 |..10)"Q":."<B> |
00000280: 54 20 3D 20 C3 C3 C3 22 3A 99 A3 31 30 29 22 49 |T = ...":..10)"I|
00000290: 11 11 11 22 00 AA 0A 8C 00 99 22 3C 43 3E 20 20 |..."......"<C> |
000002A0: 51 20 3D 20 49 20 2A 20 54 22 00 BD 0A 96 00 A1 |Q = I * T"......|
000002B0: 45 24 3A 8B 45 24 B2 22 22 A7 31 35 30 00 CD 0A |E$:.E$."".150...|
000002C0: A0 00 8B 45 24 B2 22 41 22 A7 32 30 30 00 DD 0A |...E$."A".200...|
000002D0: AA 00 8B 45 24 B2 22 42 22 A7 34 32 30 00 ED 0A |...E$."B".420...|
000002E0: B4 00 8B 45 24 B2 22 43 22 A7 35 35 30 00 F6 0A |...E$."C".550...|
000002F0: BE 00 89 31 35 30 00 38 0B C8 00 99 22 93 22 3B |...150.8....".";|
00000300: 57 31 24 3B 57 32 24 3B 57 33 24 3A 85 22 13 11 |W1$;W2$;W3$:."..|
00000310: 11 11 11 11 11 11 45 4C 45 4B 54 52 49 5A 49 54 |......ELEKTRIZIT|
00000320: 41 45 54 53 4D 45 4E 47 45 20 3C 43 4F 55 4C 4F |AETSMENGE <COULO|
00000330: 4D 42 3E 20 22 3B 43 24 00 47 0B CD 00 8B 43 24 |MB> ";C$.G....C$|
00000340: B2 22 22 A7 32 30 30 00 53 0B CE 00 43 B2 C5 28 |."".200.S...C..(|
00000350: 43 24 29 00 86 0B D2 00 85 22 13 11 11 11 11 11 |C$)......"......|
00000360: 11 11 11 11 5A 45 49 54 20 3C 53 45 4B 55 4E 44 |....ZEIT <SEKUND|
00000370: 45 4E 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 |EN> |
00000380: 20 20 22 3B 53 24 00 95 0B D6 00 8B 53 24 B2 22 | ";S$......S$."|
00000390: 22 A7 32 31 30 00 A1 0B D7 00 53 B2 C5 28 53 24 |".210.....S..(S$|
000003A0: 29 00 A9 0B D8 00 99 52 24 00 BC 0B E6 00 A1 45 |)......R$......E|
000003B0: 24 3A 8B 45 24 B2 22 22 A7 32 33 30 00 CC 0B F0 |$:.E$."".230....|
000003C0: 00 8B 45 24 B2 22 4E 22 A7 32 37 30 00 DC 0B FA |..E$."N".270....|
000003D0: 00 8B 45 24 B2 22 4A 22 A7 32 39 30 00 E5 0B 04 |..E$."J".290....|
000003E0: 01 89 32 33 30 00 21 0C 0E 01 49 B2 43 AD 53 3A |..230.!...I.C.S:|
000003F0: 99 22 11 11 44 49 45 20 53 54 52 4F 4D 53 54 41 |."..DIE STROMSTA|
00000400: 45 52 4B 45 20 42 45 54 52 41 45 47 54 20 22 49 |ERKE BETRAEGT "I|
00000410: 3A 99 22 11 41 4D 50 45 52 45 27 22 3A 89 33 31 |:.".AMPERE'":.31|
00000420: 30 00 36 0C 22 01 49 B2 43 AD 53 3A 57 B2 B5 28 |0.6.".I.C.S:W..(|
00000430: 49 29 3A 49 B2 57 00 65 0C 2C 01 99 22 11 11 44 |I):I.W.e.,.."..D|
00000440: 49 45 20 53 54 52 4F 4D 53 54 41 45 52 4B 45 20 |IE STROMSTAERKE |
00000450: 42 45 54 52 41 45 47 54 20 22 49 22 20 41 4D 50 |BETRAEGT "I" AMP|
00000460: 45 52 45 27 22 00 8B 0C 36 01 99 22 11 11 4E 4F |ERE'"...6.."..NO|
00000470: 43 48 20 45 49 4E 45 20 42 45 52 45 43 48 4E 55 |CH EINE BERECHNU|
00000480: 4E 47 20 3C 4A 2F 4E 3E 20 3F 22 00 9E 0C 40 01 |NG <J/N> ?"...@.|
00000490: A1 45 24 3A 8B 45 24 B2 22 22 A7 33 32 30 00 AE |.E$:.E$."".320..|
000004A0: 0C 4A 01 8B 45 24 B2 22 4E 22 A7 33 36 30 00 DB |.J..E$."N".360..|
000004B0: 0C 54 01 8B 45 24 B2 22 4A 22 A7 49 B2 30 3A 43 |.T..E$."J".I.0:C|
000004C0: B2 30 3A 53 B2 30 3A 57 B2 30 3A 43 24 B2 22 22 |.0:S.0:W.0:C$.""|
000004D0: 3A 53 24 B2 22 22 3A 89 32 30 30 00 E4 0C 5E 01 |:S$."":.200...^.|
000004E0: 89 33 32 30 00 06 0D 68 01 99 22 11 11 48 41 55 |.320...h.."..HAU|
000004F0: 50 54 4D 45 4E 55 45 20 4C 41 44 45 4E 20 3C 4A |PTMENUE LADEN <J|
00000500: 2F 4E 3E 20 3F 22 00 19 0D 72 01 A1 45 24 3A 8B |/N> ?"...r..E$:.|
00000510: 45 24 B2 22 22 A7 33 37 30 00 28 0D 7C 01 8B 45 |E$."".370.(.|..E|
00000520: 24 B2 22 4E 22 A7 31 30 00 38 0D 86 01 8B 45 24 |$."N".10.8....E$|
00000530: B2 22 4A 22 A7 34 31 30 00 41 0D 90 01 89 33 37 |."J".410.A....37|
00000540: 30 00 82 0D 9A 01 99 22 93 11 11 12 20 20 20 20 |0......".... |
00000550: 20 20 20 48 41 55 50 54 4D 45 4E 55 45 20 57 49 | HAUPTMENUE WI|
00000560: 52 44 20 47 45 4C 41 44 45 4E 20 21 20 20 20 20 |RD GELADEN ! |
00000570: 20 20 20 20 22 3A 93 22 4D 45 4E 55 45 22 2C 38 | ":."MENUE",8|
00000580: 2C 31 00 C4 0D A4 01 99 22 93 22 3B 57 31 24 3B |,1......".";W1$;|
00000590: 57 32 24 3B 57 33 24 3A 85 22 13 11 11 11 11 11 |W2$;W3$:."......|
000005A0: 11 11 45 4C 45 4B 54 52 49 5A 49 54 41 45 54 53 |..ELEKTRIZITAETS|
000005B0: 4D 45 4E 47 45 20 3C 43 4F 55 4C 55 4D 42 3E 20 |MENGE <COULUMB> |
000005C0: 22 3B 51 24 00 D3 0D A9 01 8B 51 24 B2 22 22 A7 |";Q$......Q$."".|
000005D0: 34 32 30 00 DF 0D AA 01 51 B2 C5 28 51 24 29 00 |420.....Q..(Q$).|
000005E0: 12 0E AE 01 85 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
000005F0: 53 54 52 4F 4D 53 54 41 45 52 4B 45 20 3C 41 4D |STROMSTAERKE <AM|
00000600: 50 45 52 45 27 3E 20 20 20 20 20 20 20 20 22 3B |PERE'> ";|
00000610: 49 24 00 21 0E B2 01 8B 49 24 B2 22 22 A7 34 33 |I$.!....I$."".43|
00000620: 30 00 2D 0E B3 01 49 B2 C5 28 49 24 29 00 35 0E |0.-...I..(I$).5.|
00000630: B4 01 99 52 24 00 48 0E B8 01 A1 45 24 3A 8B 45 |...R$.H....E$:.E|
00000640: 24 B2 22 22 A7 34 34 30 00 58 0E C2 01 8B 45 24 |$."".440.X....E$|
00000650: B2 22 4A 22 A7 34 39 30 00 68 0E CC 01 8B 45 24 |."J".490.h....E$|
00000660: B2 22 4E 22 A7 34 38 30 00 71 0E D6 01 89 34 34 |."N".480.q....44|
00000670: 30 00 A6 0E E0 01 54 B2 51 AD 49 3A 99 22 11 11 |0.....T.Q.I:."..|
00000680: 44 49 45 20 5A 45 49 54 20 42 45 54 52 41 45 47 |DIE ZEIT BETRAEG|
00000690: 54 20 22 54 3A 99 22 11 53 45 4B 55 4E 44 45 4E |T "T:.".SEKUNDEN|
000006A0: 22 3A 89 35 30 30 00 DF 0E EA 01 54 B2 51 AD 49 |":.500.....T.Q.I|
000006B0: 3A 52 B2 B5 28 54 29 3A 54 B2 52 3A 99 22 11 11 |:R..(T):T.R:."..|
000006C0: 44 49 45 20 5A 45 49 54 20 42 45 54 52 41 45 47 |DIE ZEIT BETRAEG|
000006D0: 54 20 22 54 22 20 53 45 4B 55 4E 44 45 4E 22 00 |T "T" SEKUNDEN".|
000006E0: 05 0F F4 01 99 22 11 11 4E 4F 43 48 20 45 49 4E |....."..NOCH EIN|
000006F0: 45 20 42 45 52 45 43 48 4E 55 4E 47 20 3C 4A 2F |E BERECHNUNG <J/|
00000700: 4E 3E 20 3F 22 00 18 0F FE 01 A1 45 24 3A 8B 45 |N> ?"......E$:.E|
00000710: 24 B2 22 22 A7 35 31 30 00 28 0F 08 02 8B 45 24 |$."".510.(....E$|
00000720: B2 22 4E 22 A7 33 36 30 00 55 0F 12 02 8B 45 24 |."N".360.U....E$|
00000730: B2 22 4A 22 A7 49 B2 30 3A 51 B2 30 3A 54 B2 30 |."J".I.0:Q.0:T.0|
00000740: 3A 52 B2 30 3A 51 24 B2 22 22 3A 49 24 B2 22 22 |:R.0:Q$."":I$.""|
00000750: 3A 89 34 32 30 00 5E 0F 1C 02 89 35 31 30 00 9A |:.420.^....510..|
00000760: 0F 26 02 99 22 93 22 3B 57 31 24 3B 57 32 24 3B |.&..".";W1$;W2$;|
00000770: 57 33 24 3A 85 22 13 11 11 11 11 11 11 11 5A 45 |W3$:."........ZE|
00000780: 49 54 20 3C 53 45 4B 55 4E 44 45 4E 3E 20 20 20 |IT <SEKUNDEN> |
00000790: 20 20 20 20 20 20 22 3B 53 24 00 A9 0F 2B 02 8B | ";S$...+..|
000007A0: 53 24 B2 22 22 A7 35 35 30 00 B5 0F 2C 02 53 B2 |S$."".550...,.S.|
000007B0: C5 28 53 24 29 00 E2 0F 30 02 85 22 13 11 11 11 |.(S$)...0.."....|
000007C0: 11 11 11 11 11 11 53 54 52 4F 4D 53 54 41 45 52 |......STROMSTAER|
000007D0: 4B 45 20 3C 41 4D 50 45 52 45 27 3E 20 20 22 3B |KE <AMPERE'> ";|
000007E0: 49 24 00 F1 0F 34 02 8B 49 24 B2 22 22 A7 35 36 |I$...4..I$."".56|
000007F0: 30 00 FD 0F 35 02 49 B2 C5 28 49 24 29 00 05 10 |0...5.I..(I$)...|
00000800: 36 02 99 52 24 00 18 10 3A 02 A1 45 24 3A 8B 45 |6..R$...:..E$:.E|
00000810: 24 B2 22 22 A7 35 37 30 00 28 10 44 02 8B 45 24 |$."".570.(.D..E$|
00000820: B2 22 4A 22 A7 36 32 30 00 38 10 4E 02 8B 45 24 |."J".620.8.N..E$|
00000830: B2 22 4E 22 A7 36 31 30 00 41 10 58 02 89 35 37 |."N".610.A.X..57|
00000840: 30 00 82 10 62 02 51 B2 49 AC 53 3A 99 22 11 11 |0...b.Q.I.S:."..|
00000850: 44 49 45 20 45 4C 45 4B 54 52 49 53 43 48 45 20 |DIE ELEKTRISCHE |
00000860: 4C 41 44 55 4E 47 20 42 45 54 52 41 45 47 54 22 |LADUNG BETRAEGT"|
00000870: 51 3A 99 22 11 43 4F 55 4C 4F 4D 42 22 3A 89 36 |Q:.".COULOMB":.6|
00000880: 33 30 00 C9 10 6C 02 51 B2 49 AC 53 3A 58 B2 B5 |30...l.Q.I.S:X..|
00000890: 28 51 29 3A 51 B2 58 3A 99 22 11 11 44 49 45 20 |(Q):Q.X:."..DIE |
000008A0: 45 4C 45 4B 54 52 49 53 43 48 45 20 4C 41 44 55 |ELEKTRISCHE LADU|
000008B0: 4E 47 20 42 45 54 52 41 45 47 54 22 51 3A 99 22 |NG BETRAEGT"Q:."|
000008C0: 11 43 4F 55 4C 4F 4D 42 22 00 EF 10 76 02 99 22 |.COULOMB"...v.."|
000008D0: 11 11 4E 4F 43 48 20 45 49 4E 45 20 42 45 52 45 |..NOCH EINE BERE|
000008E0: 43 48 4E 55 4E 47 20 3C 4A 2F 4E 3E 20 3F 22 00 |CHNUNG <J/N> ?".|
000008F0: 02 11 80 02 A1 45 24 3A 8B 45 24 B2 22 22 A7 36 |.....E$:.E$."".6|
00000900: 34 30 00 12 11 8A 02 8B 45 24 B2 22 4E 22 A7 33 |40......E$."N".3|
00000910: 36 30 00 3F 11 94 02 8B 45 24 B2 22 4A 22 A7 49 |60.?....E$."J".I|
00000920: B2 30 3A 51 B2 30 3A 58 B2 30 3A 53 B2 30 3A 53 |.0:Q.0:X.0:S.0:S|
00000930: 24 B2 22 22 3A 49 24 B2 22 22 3A 89 35 35 30 00 |$."":I$."":.550.|
00000940: 48 11 9E 02 89 36 34 30 00 00 00 |H....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$.+.(..".ELEKTRIZITAETS
MENGE:. Q = I * T".L.2.."...DEFINITION:
.":."..Q = ELEKTRIZITAETSMENGE IN .C.OUL
OMB"...<..".I = STROMSTAERKE IN .A.MPERE
'."...F.."T = ZEIT IN .S.EKUNDEN"...P.."
..... BITTE TASTE DRUECKEN !
"...Z..198,0:.198,1:.198,0:.".";W1$
;W2$;W3$.B.N..".. BITTE WAEHLEN SIE IHR
E RECHENFORMEL: ".K.X...10)"Q":."<A> I
= CCC":..10)"T...".......10)"Q":."<B>
T = CCC":..10)"I..."......"<C> Q = I *
T"......E$:.E$."".150.M. ..E$."A".200...
...E$."B".420......E$."C".550......150.8
.H..".";W1$;W2$;W3$:."........ELEKTRIZIT
AETSMENGE <COULOMB> ";C$.G.M..C$."".200.
S.N.C.E(C$)...R.."..........ZEIT <SEKUND
EN> ";S$...V..S$."".210...
W.S.E(S$)...X..R$......E$:.E$."".230.L..
..E$."N".270......E$."J".290......230.!.
..I.C.S:."..DIE STROMSTAERKE BETRAEGT "I
:.".AMPERE'":.310.6.".I.C.S:W..(I):I.W.E
.,.."..DIE STROMSTAERKE BETRAEGT "I" AMP
ERE'"...6.."..NOCH EINE BERECHNUNG <J/N>
?"...@..E$:.E$."".320...J..E$."N".360..
.T..E$."J".I.0:C.0:S.0:W.0:C$."":S$."":.
200...^..320...H.."..HAUPTMENUE LADEN <J
/N> ?"...R..E$:.E$."".370.(.|..E$."N".10
.8....E$."J".410.A....370......"....
HAUPTMENUE WIRD GELADEN ! ":."
MENUE",8,1.D....".";W1$;W2$;W3$:."......
..ELEKTRIZITAETSMENGE <COULUMB> ";Q$.S..
..Q$."".420.....Q.E(Q$)......"..........
STROMSTAERKE <AMPERE'> ";I$.!....
I$."".430.-...I.E(I$).5....R$.H....E$:.E
$."".440.X.B..E$."J".490.H.L..E$."N".480
.Q.V..440.....T.Q.I:."..DIE ZEIT BETRAEG
T "T:.".SEKUNDEN":.500.....T.Q.I:R..(T):
T.R:."..DIE ZEIT BETRAEGT "T" SEKUNDEN".
....."..NOCH EINE BERECHNUNG <J/N> ?"...
...E$:.E$."".510.(....E$."N".360.U....E$
."J".I.0:Q.0:T.0:R.0:Q$."":I$."":.420.^.
...510...&..".";W1$;W2$;W3$:."........ZE
IT <SEKUNDEN> ";S$...+..S$."".55
0...,.S.E(S$)...0.."..........STROMSTAER
KE <AMPERE'> ";I$...4..I$."".560...5.I.
E(I$)...6..R$...:..E$:.E$."".570.(.D..E$
."J".620.8.N..E$."N".610.A.X..570...B.Q.
I.S:."..DIE ELEKTRISCHE LADUNG BETRAEGT"
Q:.".COULOMB":.630.I.L.Q.I.S:X..(Q):Q.X:
."..DIE ELEKTRISCHE LADUNG BETRAEGT"Q:."
.COULOMB"...V.."..NOCH EINE BERECHNUNG <
J/N> ?"......E$:.E$."".640......E$."N".3
60.?....E$."J".I.0:Q.0:X.0:S.0:S$."":I$.
"":.550.H....640...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL