> 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 9B 20 20 20 20 20 20 20 57 |W2$."... W|
000000A0: 20 45 20 43 20 48 20 53 20 45 20 4C 20 53 20 54 | E C H S E L S T|
000000B0: 20 52 20 4F 20 4D 20 20 20 20 20 20 20 20 92 05 | R O M ..|
000000C0: C2 22 00 0B 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 3A 99 A3 32 34 29 22 50 22 00 38 09 28 00 |3$:..24)"P".8.(.|
00000110: 99 22 9E 4C 45 49 53 54 55 4E 47 53 46 41 4B 54 |.".LEISTUNGSFAKT|
00000120: 4F 52 3A 05 20 43 4F 53 20 3D 20 C3 C3 C3 22 3A |OR:. COS = ...":|
00000130: 99 A3 32 34 29 22 53 22 00 6A 09 32 00 99 22 11 |..24)"S".j.2..".|
00000140: 11 9E 44 45 46 49 4E 49 54 49 4F 4E 3A 05 22 3A |..DEFINITION:.":|
00000150: 99 22 11 11 43 4F 53 20 3D 20 4C 45 49 53 54 55 |."..COS = LEISTU|
00000160: 4E 47 53 46 41 4B 54 4F 52 22 00 85 09 3C 00 99 |NGSFAKTOR"...<..|
00000170: 22 11 20 20 50 20 3D 20 57 49 52 4B 4C 45 49 53 |". P = WIRKLEIS|
00000180: 54 55 4E 47 22 00 A2 09 46 00 99 22 11 20 20 53 |TUNG"...F..". S|
00000190: 20 3D 20 53 43 48 45 49 4E 4C 45 49 53 54 55 4E | = SCHEINLEISTUN|
000001A0: 47 22 00 D7 09 50 00 99 22 11 11 11 11 12 20 20 |G"...P.."..... |
000001B0: 20 20 20 20 20 20 20 42 49 54 54 45 20 54 41 53 | BITTE TAS|
000001C0: 54 45 20 44 52 55 45 43 4B 45 4E 20 21 20 20 20 |TE DRUECKEN ! |
000001D0: 20 20 20 20 20 20 22 00 01 0A 5A 00 97 31 39 38 | "...Z..198|
000001E0: 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 |,0:.198,1:.198,0|
000001F0: 3A 99 22 93 22 3B 57 31 24 3B 57 32 24 3B 57 33 |:.".";W1$;W2$;W3|
00000200: 24 00 33 0A 6E 00 99 22 11 11 20 20 42 49 54 54 |$.3.n..".. BITT|
00000210: 45 20 57 41 45 48 4C 45 4E 20 53 49 45 20 49 48 |E WAEHLEN SIE IH|
00000220: 52 45 20 52 45 43 48 45 4E 46 4F 52 4D 45 4C 3A |RE RECHENFORMEL:|
00000230: 20 20 22 00 60 0A 78 00 99 A3 31 33 29 22 11 50 | ".`.x...13)".P|
00000240: 22 3A 99 22 3C 41 3E 20 20 43 4F 53 20 3D 20 C3 |":."<A> COS = .|
00000250: C3 C3 C3 C3 22 3A 99 A3 31 33 29 22 53 11 11 22 |....":..13)"S.."|
00000260: 00 7B 0A 82 00 99 22 3C 42 3E 20 20 20 20 50 20 |.{...."<B> P |
00000270: 3D 20 43 4F 53 20 2A 20 53 11 22 00 A7 0A 8C 00 |= COS * S.".....|
00000280: 99 A3 31 33 29 22 11 50 22 3A 99 22 3C 43 3E 20 |..13)".P":."<C> |
00000290: 20 20 20 53 20 3D 20 C3 C3 C3 C3 C3 22 3A 99 A3 | S = .....":..|
000002A0: 31 33 29 22 43 11 22 00 BA 0A 9C 00 A1 45 24 3A |13)"C."......E$:|
000002B0: 8B 45 24 B2 22 22 A7 31 35 36 00 CA 0A A0 00 8B |.E$."".156......|
000002C0: 45 24 B2 22 41 22 A7 32 30 30 00 DA 0A AA 00 8B |E$."A".200......|
000002D0: 45 24 B2 22 42 22 A7 34 32 30 00 EA 0A B4 00 8B |E$."B".420......|
000002E0: 45 24 B2 22 43 22 A7 35 35 30 00 F3 0A BE 00 89 |E$."C".550......|
000002F0: 31 35 36 00 2F 0B C8 00 99 22 93 22 3B 57 31 24 |156./....".";W1$|
00000300: 3B 57 32 24 3B 57 33 24 3A 85 22 13 11 11 11 11 |;W2$;W3$:.".....|
00000310: 11 11 11 57 49 52 4B 4C 45 49 53 54 55 4E 47 20 |...WIRKLEISTUNG |
00000320: 20 20 20 3C 57 41 54 54 3E 20 20 22 3B 50 24 00 | <WATT> ";P$.|
00000330: 3E 0B CD 00 8B 50 24 B2 22 22 A7 32 30 30 00 4A |>....P$."".200.J|
00000340: 0B CE 00 50 B2 C5 28 50 24 29 00 77 0B D2 00 85 |...P..(P$).w....|
00000350: 22 13 11 11 11 11 11 11 11 11 11 53 43 48 45 49 |"..........SCHEI|
00000360: 4E 4C 45 49 53 54 55 4E 47 20 20 3C 57 41 54 54 |NLEISTUNG <WATT|
00000370: 3E 20 20 22 3B 53 24 00 86 0B D3 00 8B 53 24 B2 |> ";S$......S$.|
00000380: 22 22 A7 32 31 30 00 92 0B D4 00 53 B2 C5 28 53 |"".210.....S..(S|
00000390: 24 29 00 9A 0B D8 00 99 52 24 00 AD 0B E6 00 A1 |$)......R$......|
000003A0: 45 24 3A 8B 45 24 B2 22 22 A7 32 33 30 00 BD 0B |E$:.E$."".230...|
000003B0: F0 00 8B 45 24 B2 22 4E 22 A7 32 37 30 00 CD 0B |...E$."N".270...|
000003C0: FA 00 8B 45 24 B2 22 4A 22 A7 32 39 30 00 D6 0B |...E$."J".290...|
000003D0: 04 01 89 32 33 30 00 0C 0C 0E 01 43 B2 50 AD 53 |...230.....C.P.S|
000003E0: 3A 99 22 11 11 44 45 52 20 4C 45 49 53 54 55 4E |:."..DER LEISTUN|
000003F0: 47 53 46 41 4B 54 4F 52 22 3A 99 22 11 42 45 54 |GSFAKTOR":.".BET|
00000400: 52 41 45 47 54 22 43 3A 89 33 31 30 00 21 0C 22 |RAEGT"C:.310.!."|
00000410: 01 43 B2 50 AD 53 3A 45 B2 B5 28 43 29 3A 43 B2 |.C.P.S:E..(C):C.|
00000420: 45 00 4C 0C 2C 01 99 22 11 11 44 45 52 20 4C 45 |E.L.,.."..DER LE|
00000430: 49 53 54 55 4E 47 53 46 41 4B 54 4F 52 22 3A 99 |ISTUNGSFAKTOR":.|
00000440: 22 11 42 45 54 52 41 45 47 54 22 43 00 72 0C 36 |".BETRAEGT"C.r.6|
00000450: 01 99 22 11 11 4E 4F 43 48 20 45 49 4E 45 20 42 |.."..NOCH EINE B|
00000460: 45 52 45 43 48 4E 55 4E 47 20 3C 4A 2F 4E 3E 20 |ERECHNUNG <J/N> |
00000470: 3F 22 00 85 0C 40 01 A1 45 24 3A 8B 45 24 B2 22 |?"...@..E$:.E$."|
00000480: 22 A7 33 32 30 00 95 0C 4A 01 8B 45 24 B2 22 4E |".320...J..E$."N|
00000490: 22 A7 33 36 30 00 C2 0C 54 01 8B 45 24 B2 22 4A |".360...T..E$."J|
000004A0: 22 A7 43 B2 30 3A 50 B2 30 3A 53 B2 30 3A 45 B2 |".C.0:P.0:S.0:E.|
000004B0: 30 3A 50 24 B2 22 22 3A 53 24 B2 22 22 3A 89 32 |0:P$."":S$."":.2|
000004C0: 30 30 00 CB 0C 5E 01 89 33 32 30 00 ED 0C 68 01 |00...^..320...h.|
000004D0: 99 22 11 11 48 41 55 50 54 4D 45 4E 55 45 20 4C |."..HAUPTMENUE L|
000004E0: 41 44 45 4E 20 3C 4A 2F 4E 3E 20 3F 22 00 00 0D |ADEN <J/N> ?"...|
000004F0: 72 01 A1 45 24 3A 8B 45 24 B2 22 22 A7 33 37 30 |r..E$:.E$."".370|
00000500: 00 0F 0D 7C 01 8B 45 24 B2 22 4E 22 A7 31 30 00 |...|..E$."N".10.|
00000510: 1F 0D 86 01 8B 45 24 B2 22 4A 22 A7 34 31 30 00 |.....E$."J".410.|
00000520: 28 0D 90 01 89 33 37 30 00 69 0D 9A 01 99 22 93 |(....370.i....".|
00000530: 11 11 12 20 20 20 20 20 20 20 48 41 55 50 54 4D |... HAUPTM|
00000540: 45 4E 55 45 20 57 49 52 44 20 47 45 4C 41 44 45 |ENUE WIRD GELADE|
00000550: 4E 20 21 20 20 20 20 20 20 20 20 22 3A 93 22 4D |N ! ":."M|
00000560: 45 4E 55 45 22 2C 38 2C 31 00 A4 0D A4 01 99 22 |ENUE",8,1......"|
00000570: 93 22 3B 57 31 24 3B 57 32 24 3B 57 33 24 3A 85 |.";W1$;W2$;W3$:.|
00000580: 22 13 11 11 11 11 11 11 11 4C 45 49 53 54 55 4E |"........LEISTUN|
00000590: 47 53 46 41 4B 54 4F 52 20 20 20 20 20 20 20 20 |GSFAKTOR |
000005A0: 22 3B 43 24 00 B3 0D A5 01 8B 43 24 B2 22 22 A7 |";C$......C$."".|
000005B0: 34 32 30 00 BF 0D A9 01 43 B2 C5 28 43 24 29 00 |420.....C..(C$).|
000005C0: EB 0D AE 01 85 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
000005D0: 53 43 48 45 49 4E 4C 45 49 53 54 55 4E 47 20 3C |SCHEINLEISTUNG <|
000005E0: 57 41 54 54 3E 20 20 22 3B 53 24 00 FA 0D AF 01 |WATT> ";S$.....|
000005F0: 8B 53 24 B2 22 22 A7 34 33 30 00 06 0E B0 01 53 |.S$."".430.....S|
00000600: B2 C5 28 53 24 29 00 0E 0E B4 01 99 52 24 00 21 |..(S$)......R$.!|
00000610: 0E B8 01 A1 45 24 3A 8B 45 24 B2 22 22 A7 34 34 |....E$:.E$."".44|
00000620: 30 00 31 0E C2 01 8B 45 24 B2 22 4A 22 A7 34 39 |0.1....E$."J".49|
00000630: 30 00 41 0E CC 01 8B 45 24 B2 22 4E 22 A7 34 38 |0.A....E$."N".48|
00000640: 30 00 4A 0E D6 01 89 34 34 30 00 82 0E E0 01 50 |0.J....440.....P|
00000650: B2 43 AC 53 3A 99 22 11 11 44 49 45 20 57 49 52 |.C.S:."..DIE WIR|
00000660: 4B 4C 45 49 53 54 55 4E 47 20 42 45 54 52 41 45 |KLEISTUNG BETRAE|
00000670: 47 54 22 50 3A 99 22 11 57 41 54 54 22 3A 89 35 |GT"P:.".WATT":.5|
00000680: 30 30 00 C0 0E EA 01 50 B2 43 AC 53 3A 45 B2 B5 |00.....P.C.S:E..|
00000690: 28 50 29 3A 50 B2 45 3A 99 22 11 11 44 49 45 20 |(P):P.E:."..DIE |
000006A0: 57 49 52 4B 4C 45 49 53 54 55 4E 47 20 42 45 54 |WIRKLEISTUNG BET|
000006B0: 52 41 45 47 54 22 50 3A 99 22 11 56 4F 4C 54 22 |RAEGT"P:.".VOLT"|
000006C0: 00 E6 0E F4 01 99 22 11 11 4E 4F 43 48 20 45 49 |......"..NOCH EI|
000006D0: 4E 45 20 42 45 52 45 43 48 4E 55 4E 47 20 3C 4A |NE BERECHNUNG <J|
000006E0: 2F 4E 3E 20 3F 22 00 F9 0E FE 01 A1 45 24 3A 8B |/N> ?"......E$:.|
000006F0: 45 24 B2 22 22 A7 35 31 30 00 09 0F 08 02 8B 45 |E$."".510......E|
00000700: 24 B2 22 4E 22 A7 33 36 30 00 36 0F 12 02 8B 45 |$."N".360.6....E|
00000710: 24 B2 22 4A 22 A7 50 B2 30 3A 43 B2 30 3A 45 B2 |$."J".P.0:C.0:E.|
00000720: 30 3A 53 B2 30 3A 43 24 B2 22 22 3A 53 24 B2 22 |0:S.0:C$."":S$."|
00000730: 22 3A 89 34 32 30 00 3F 0F 1C 02 89 35 31 30 00 |":.420.?....510.|
00000740: 78 0F 26 02 99 22 93 22 3B 57 31 24 3B 57 32 24 |x.&..".";W1$;W2$|
00000750: 3B 57 33 24 3A 85 22 13 11 11 11 11 11 11 11 57 |;W3$:."........W|
00000760: 49 52 4B 4C 45 49 53 54 55 4E 47 20 3C 57 41 54 |IRKLEISTUNG <WAT|
00000770: 54 3E 20 20 22 3B 50 24 00 87 0F 27 02 8B 50 24 |T> ";P$...'..P$|
00000780: B2 22 22 A7 35 35 30 00 93 0F 2B 02 50 B2 C5 28 |."".550...+.P..(|
00000790: 50 24 29 00 BD 0F 30 02 85 22 13 11 11 11 11 11 |P$)...0.."......|
000007A0: 11 11 11 11 4C 45 49 53 54 55 4E 47 53 46 41 4B |....LEISTUNGSFAK|
000007B0: 54 4F 52 20 20 20 20 20 20 22 3B 43 24 00 CC 0F |TOR ";C$...|
000007C0: 31 02 8B 43 24 B2 22 22 A7 35 36 30 00 D8 0F 32 |1..C$."".560...2|
000007D0: 02 43 B2 C5 28 43 24 29 00 E0 0F 36 02 99 52 24 |.C..(C$)...6..R$|
000007E0: 00 F3 0F 3A 02 A1 45 24 3A 8B 45 24 B2 22 22 A7 |...:..E$:.E$."".|
000007F0: 35 37 30 00 03 10 44 02 8B 45 24 B2 22 4A 22 A7 |570...D..E$."J".|
00000800: 36 31 35 00 13 10 4E 02 8B 45 24 B2 22 4E 22 A7 |615...N..E$."N".|
00000810: 36 31 30 00 1C 10 58 02 89 35 37 30 00 56 10 62 |610...X..570.V.b|
00000820: 02 53 B2 50 AD 43 3A 99 22 11 11 44 49 45 20 53 |.S.P.C:."..DIE S|
00000830: 43 48 45 49 4E 4C 45 49 53 54 55 4E 47 20 42 45 |CHEINLEISTUNG BE|
00000840: 54 52 41 45 47 54 22 53 3A 99 22 11 57 41 54 54 |TRAEGT"S:.".WATT|
00000850: 22 3A 89 36 33 30 00 6B 10 67 02 53 B2 50 AD 43 |":.630.k.g.S.P.C|
00000860: 3A 45 B2 B5 28 53 29 3A 53 B2 45 00 9A 10 6C 02 |:E..(S):S.E...l.|
00000870: 99 22 11 11 44 49 45 20 53 43 48 45 49 4E 4C 45 |."..DIE SCHEINLE|
00000880: 49 53 54 55 4E 47 20 42 45 54 52 41 45 47 54 22 |ISTUNG BETRAEGT"|
00000890: 53 3A 99 22 11 57 41 54 54 22 00 C0 10 76 02 99 |S:.".WATT"...v..|
000008A0: 22 11 11 4E 4F 43 48 20 45 49 4E 45 20 42 45 52 |"..NOCH EINE BER|
000008B0: 45 43 48 4E 55 4E 47 20 3C 4A 2F 4E 3E 20 3F 22 |ECHNUNG <J/N> ?"|
000008C0: 00 D3 10 80 02 A1 45 24 3A 8B 45 24 B2 22 22 A7 |......E$:.E$."".|
000008D0: 36 34 30 00 E3 10 8A 02 8B 45 24 B2 22 4E 22 A7 |640......E$."N".|
000008E0: 33 36 30 00 10 11 94 02 8B 45 24 B2 22 4A 22 A7 |360......E$."J".|
000008F0: 43 B2 30 3A 50 B2 30 3A 45 B2 30 3A 53 B2 30 3A |C.0:P.0:E.0:S.0:|
00000900: 43 24 B2 22 22 3A 50 24 B2 22 22 3A 89 35 35 30 |C$."":P$."":.550|
00000910: 00 19 11 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.. W
E C H S E L S T R O M ..B".....W
3$."JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCK":.W1$;W2$;W3$:..24)"P".8.(..".LEIST
UNGSFAKTOR:. COS = CCC":..24)"S".J.2..".
..DEFINITION:.":."..COS = LEISTUNGSFAKTO
R"...<..". P = WIRKLEISTUNG"...F..". S
= SCHEINLEISTUNG".W.P.."..... B
ITTE TASTE DRUECKEN ! "...Z..198
,0:.198,1:.198,0:.".";W1$;W2$;W3$.3.N.."
.. BITTE WAEHLEN SIE IHRE RECHENFORMEL:
".`.X...13)".P":."<A> COS = CCCCC":..
13)"S..".{...."<B> P = COS * S.".....
..13)".P":."<C> S = CCCCC":..13)"C.".
.....E$:.E$."".156.J. ..E$."A".200.Z....
E$."B".420......E$."C".550......156./.H.
.".";W1$;W2$;W3$:."........WIRKLEISTUNG
<WATT> ";P$.>.M..P$."".200.J.N.P.E(P
$).W.R.."..........SCHEINLEISTUNG <WATT
> ";S$...S..S$."".210...T.S.E(S$)...X..
R$......E$:.E$."".230......E$."N".270.M.
...E$."J".290.V....230.....C.P.S:."..DER
LEISTUNGSFAKTOR":.".BETRAEGT"C:.310.!."
.C.P.S:E..(C):C.E.L.,.."..DER LEISTUNGSF
AKTOR":.".BETRAEGT"C.R.6.."..NOCH EINE B
ERECHNUNG <J/N> ?"...@..E$:.E$."".320...
J..E$."N".360.B.T..E$."J".C.0:P.0:S.0:E.
0:P$."":S$."":.200.K.^..320...H.."..HAUP
TMENUE LADEN <J/N> ?"...R..E$:.E$."".370
...|..E$."N".10......E$."J".410.(....370
.I....".... HAUPTMENUE WIRD GELADE
N ! ":."MENUE",8,1......".";W1$;W
2$;W3$:."........LEISTUNGSFAKTOR
";C$......C$."".420.....C.E(C$)......"..
........SCHEINLEISTUNG <WATT> ";S$.....
.S$."".430.....S.E(S$)......R$.!....E$:.
E$."".440.1.B..E$."J".490.A.L..E$."N".48
0.J.V..440.....P.C.S:."..DIE WIRKLEISTUN
G BETRAEGT"P:.".WATT":.500.....P.C.S:E..
(P):P.E:."..DIE WIRKLEISTUNG BETRAEGT"P:
.".VOLT"......"..NOCH EINE BERECHNUNG <J
/N> ?"......E$:.E$."".510......E$."N".36
0.6....E$."J".P.0:C.0:E.0:S.0:C$."":S$."
":.420.?....510.X.&..".";W1$;W2$;W3$:.".
.......WIRKLEISTUNG <WATT> ";P$...'..P$
."".550...+.P.E(P$)...0.."..........LEIS
TUNGSFAKTOR ";C$.L.1..C$."".560.X.2
.C.E(C$)...6..R$...:..E$:.E$."".570...D.
.E$."J".615...N..E$."N".610...X..570.V.B
.S.P.C:."..DIE SCHEINLEISTUNG BETRAEGT"S
:.".WATT":.630.K.G.S.P.C:E..(S):S.E...L.
."..DIE SCHEINLEISTUNG BETRAEGT"S:.".WAT
T"...V.."..NOCH EINE BERECHNUNG <J/N> ?"
.S....E$:.E$."".640......E$."N".360.....
.E$."J".C.0:P.0:E.0:S.0:C$."":P$."":.550
......640...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL