> 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 96 20 20 20 20 20 20 20 20 |W2$."... |
000000A0: 20 57 45 43 48 53 45 4C 53 54 52 4F 4D 20 2D 20 | WECHSELSTROM - |
000000B0: 4D 4F 54 4F 52 20 20 20 20 20 20 20 20 20 92 05 |MOTOR ..|
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 22 47 4C 45 49 43 48 53 |3$.3.(.."GLEICHS|
00000110: 54 52 4F 4D 4D 4F 54 4F 52 3A 20 50 11 41 42 91 |TROMMOTOR: P.AB.|
00000120: 20 3D 20 55 20 2A 20 49 20 2A 20 54 20 2A 20 43 | = U * I * T * C|
00000130: 4F 53 22 00 6C 09 32 00 99 22 11 11 9E 44 45 46 |OS".l.2.."...DEF|
00000140: 49 4E 49 54 49 4F 4E 3A 05 22 3A 99 22 11 49 20 |INITION:.":.".I |
00000150: 3D 20 53 54 52 4F 4D 53 54 41 45 52 4B 45 20 49 |= STROMSTAERKE I|
00000160: 4E 20 1C 41 05 4D 50 45 52 45 27 22 00 8E 09 3C |N .A.MPERE'"...<|
00000170: 00 99 22 11 55 20 20 20 3D 20 53 50 41 4E 4E 55 |..".U = SPANNU|
00000180: 4E 47 20 49 4E 20 1C 56 05 4F 4C 54 11 22 00 AC |NG IN .V.OLT."..|
00000190: 09 46 00 99 22 4E 20 20 20 3D 20 57 49 52 4B 55 |.F.."N = WIRKU|
000001A0: 4E 47 53 47 52 41 44 20 45 54 41 22 00 CE 09 4B |NGSGRAD ETA"...K|
000001B0: 00 99 22 11 43 4F 53 20 3D 20 57 49 52 4B 4C 45 |..".COS = WIRKLE|
000001C0: 49 53 54 55 4E 47 53 46 41 4B 54 4F 52 22 00 FD |ISTUNGSFAKTOR"..|
000001D0: 09 4C 00 99 22 11 50 11 5A 55 91 20 3D 20 5A 55 |.L..".P.ZU. = ZU|
000001E0: 47 45 46 55 45 48 52 54 45 20 4C 45 49 53 54 55 |GEFUEHRTE LEISTU|
000001F0: 4E 47 20 49 4E 20 1C 57 05 41 54 54 22 00 2B 0A |NG IN .W.ATT".+.|
00000200: 4D 00 99 22 11 50 11 41 42 91 20 3D 20 41 42 47 |M..".P.AB. = ABG|
00000210: 45 47 45 42 45 4E 45 20 4C 45 49 53 54 55 4E 47 |EGEBENE LEISTUNG|
00000220: 20 49 4E 20 1C 57 05 41 54 54 22 00 5D 0A 50 00 | IN .W.ATT".].P.|
00000230: 99 22 11 12 20 20 20 20 20 20 20 20 20 42 49 54 |.".. BIT|
00000240: 54 45 20 54 41 53 54 45 20 44 52 55 45 43 4B 45 |TE TASTE DRUECKE|
00000250: 4E 20 21 20 20 20 20 20 20 20 20 20 22 00 87 0A |N ! "...|
00000260: 5A 00 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |Z..198,0:.198,1:|
00000270: 97 31 39 38 2C 30 3A 99 22 93 22 3B 57 31 24 3B |.198,0:.".";W1$;|
00000280: 57 32 24 3B 57 33 24 00 B9 0A 6E 00 99 22 11 11 |W2$;W3$...n.."..|
00000290: 20 20 42 49 54 54 45 20 57 41 45 48 4C 45 4E 20 | BITTE WAEHLEN |
000002A0: 53 49 45 20 49 48 52 45 20 52 45 43 48 45 4E 46 |SIE IHRE RECHENF|
000002B0: 4F 52 4D 45 4C 3A 20 20 22 00 E0 0A 78 00 99 22 |ORMEL: "...x.."|
000002C0: 11 11 11 3C 41 3E 20 20 50 11 41 42 91 20 3D 20 |...<A> P.AB. = |
000002D0: 55 20 2A 20 49 20 2A 20 43 4F 53 20 2A 20 4E 22 |U * I * COS * N"|
000002E0: 00 05 0B 82 00 99 22 11 11 11 11 3C 42 3E 20 20 |......"....<B> |
000002F0: 50 11 5A 55 91 20 3D 20 55 20 2A 20 49 20 2A 20 |P.ZU. = U * I * |
00000300: 43 4F 53 22 22 00 18 0B 96 00 A1 45 24 3A 8B 45 |COS""......E$:.E|
00000310: 24 B2 22 22 A7 31 35 30 00 28 0B A0 00 8B 45 24 |$."".150.(....E$|
00000320: B2 22 41 22 A7 32 30 30 00 38 0B AA 00 8B 45 24 |."A".200.8....E$|
00000330: B2 22 42 22 A7 34 32 30 00 41 0B BE 00 89 31 35 |."B".420.A....15|
00000340: 30 00 79 0B C8 00 99 22 93 22 3B 57 31 24 3B 57 |0.y....".";W1$;W|
00000350: 32 24 3B 57 33 24 3A 85 22 13 11 11 11 11 53 50 |2$;W3$:.".....SP|
00000360: 41 4E 4E 55 4E 47 20 3C 56 4F 4C 54 3E 20 20 20 |ANNUNG <VOLT> |
00000370: 20 20 20 20 20 22 3B 56 24 00 88 0B CD 00 8B 56 | ";V$......V|
00000380: 24 B2 22 22 A7 32 30 30 00 94 0B CE 00 56 B2 C5 |$."".200.....V..|
00000390: 28 56 24 29 00 BD 0B D2 00 85 22 13 11 11 11 11 |(V$)......".....|
000003A0: 11 11 53 54 52 4F 4D 53 54 41 45 52 4B 45 20 3C |..STROMSTAERKE <|
000003B0: 41 4D 50 45 52 45 27 3E 20 22 3B 41 24 00 CC 0B |AMPERE'> ";A$...|
000003C0: D6 00 8B 41 24 B2 22 22 A7 32 31 30 00 D8 0B D7 |...A$."".210....|
000003D0: 00 41 B2 C5 28 41 24 29 00 03 0C D8 00 85 22 13 |.A..(A$)......".|
000003E0: 11 11 11 11 11 11 11 11 57 49 52 4B 55 4E 47 53 |........WIRKUNGS|
000003F0: 47 52 41 44 20 20 20 20 20 20 20 20 20 20 20 22 |GRAD "|
00000400: 3B 42 24 00 12 0C D9 00 8B 42 24 B2 22 22 A7 32 |;B$......B$."".2|
00000410: 31 36 00 1E 0C DA 00 42 B2 C5 28 42 24 29 00 4B |16.....B..(B$).K|
00000420: 0C DB 00 85 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
00000430: 57 49 52 4B 55 4E 47 53 46 41 4B 54 4F 52 20 20 |WIRKUNGSFAKTOR |
00000440: 20 20 20 20 20 20 20 22 3B 43 24 00 5A 0C DC 00 | ";C$.Z...|
00000450: 8B 43 24 B2 22 22 A7 32 32 30 00 66 0C DD 00 43 |.C$."".220.f...C|
00000460: B2 C5 28 43 24 29 00 6E 0C E5 00 99 52 24 00 81 |..(C$).n....R$..|
00000470: 0C E6 00 A1 45 24 3A 8B 45 24 B2 22 22 A7 32 33 |....E$:.E$."".23|
00000480: 30 00 91 0C F0 00 8B 45 24 B2 22 4E 22 A7 32 37 |0......E$."N".27|
00000490: 30 00 A1 0C FA 00 8B 45 24 B2 22 4A 22 A7 32 39 |0......E$."J".29|
000004A0: 30 00 AA 0C 04 01 89 32 33 30 00 EF 0C 0E 01 50 |0......230.....P|
000004B0: B2 56 AC 41 AC 42 AC 43 3A 99 22 11 11 44 49 45 |.V.A.B.C:."..DIE|
000004C0: 20 41 42 47 45 47 45 42 45 4E 45 20 4C 45 49 53 | ABGEGEBENE LEIS|
000004D0: 54 55 4E 47 22 3A 99 22 11 42 45 54 52 41 45 47 |TUNG":.".BETRAEG|
000004E0: 54 20 22 50 22 57 41 54 54 22 3A 89 33 31 30 00 |T "P"WATT":.310.|
000004F0: 08 0D 22 01 50 B2 56 AC 41 AC 42 AC 43 3A 53 B2 |..".P.V.A.B.C:S.|
00000500: B5 28 50 29 3A 50 B2 53 00 3F 0D 2C 01 99 22 11 |.(P):P.S.?.,..".|
00000510: 11 44 49 45 20 41 42 47 45 47 45 42 45 4E 45 20 |.DIE ABGEGEBENE |
00000520: 4C 45 49 53 54 55 4E 47 22 3A 99 22 11 42 45 54 |LEISTUNG":.".BET|
00000530: 52 41 45 47 54 20 22 50 22 20 57 41 54 54 22 00 |RAEGT "P" WATT".|
00000540: 65 0D 36 01 99 22 11 11 4E 4F 43 48 20 45 49 4E |e.6.."..NOCH EIN|
00000550: 45 20 42 45 52 45 43 48 4E 55 4E 47 20 3C 4A 2F |E BERECHNUNG <J/|
00000560: 4E 3E 20 3F 22 00 78 0D 40 01 A1 45 24 3A 8B 45 |N> ?".x.@..E$:.E|
00000570: 24 B2 22 22 A7 33 32 30 00 88 0D 4A 01 8B 45 24 |$."".320...J..E$|
00000580: B2 22 4E 22 A7 33 36 30 00 C5 0D 54 01 8B 45 24 |."N".360...T..E$|
00000590: B2 22 4A 22 A7 56 B2 30 3A 41 B2 30 3A 50 B2 30 |."J".V.0:A.0:P.0|
000005A0: 3A 53 B2 30 3A 43 B2 30 3A 56 24 B2 22 22 3A 41 |:S.0:C.0:V$."":A|
000005B0: 24 B2 22 22 3A 42 24 B2 22 22 3A 43 24 B2 22 22 |$."":B$."":C$.""|
000005C0: 3A 89 32 30 30 00 CE 0D 5E 01 89 33 32 30 00 F0 |:.200...^..320..|
000005D0: 0D 68 01 99 22 11 11 48 41 55 50 54 4D 45 4E 55 |.h.."..HAUPTMENU|
000005E0: 45 20 4C 41 44 45 4E 20 3C 4A 2F 4E 3E 20 3F 22 |E LADEN <J/N> ?"|
000005F0: 00 03 0E 72 01 A1 45 24 3A 8B 45 24 B2 22 22 A7 |...r..E$:.E$."".|
00000600: 33 37 30 00 12 0E 7C 01 8B 45 24 B2 22 4E 22 A7 |370...|..E$."N".|
00000610: 31 30 00 22 0E 86 01 8B 45 24 B2 22 4A 22 A7 34 |10."....E$."J".4|
00000620: 31 30 00 2B 0E 90 01 89 33 37 30 00 6C 0E 9A 01 |10.+....370.l...|
00000630: 99 22 93 11 11 12 20 20 20 20 20 20 20 48 41 55 |.".... HAU|
00000640: 50 54 4D 45 4E 55 45 20 57 49 52 44 20 47 45 4C |PTMENUE WIRD GEL|
00000650: 41 44 45 4E 20 21 20 20 20 20 20 20 20 20 22 3A |ADEN ! ":|
00000660: 93 22 4D 45 4E 55 45 22 2C 38 2C 31 00 A5 0E A4 |."MENUE",8,1....|
00000670: 01 99 22 93 22 3B 57 31 24 3B 57 32 24 3B 57 33 |..".";W1$;W2$;W3|
00000680: 24 3A 85 22 13 11 11 11 11 53 50 41 4E 4E 55 4E |$:.".....SPANNUN|
00000690: 47 20 3C 56 4F 4C 54 3E 20 20 20 20 20 20 20 20 |G <VOLT> |
000006A0: 20 22 3B 56 24 00 B4 0E A9 01 8B 56 24 B2 22 22 | ";V$......V$.""|
000006B0: A7 34 32 30 00 C0 0E AA 01 56 B2 C5 28 56 24 29 |.420.....V..(V$)|
000006C0: 00 F2 0E AE 01 85 22 13 11 11 11 11 11 11 53 54 |......".......ST|
000006D0: 52 4F 4D 53 54 41 45 52 4B 45 20 3C 41 4D 50 45 |ROMSTAERKE <AMPE|
000006E0: 52 45 27 3E 20 20 22 3B 49 24 3A 49 B2 C5 28 49 |RE'> ";I$:I..(I|
000006F0: 24 29 00 01 0F AF 01 8B 49 24 B2 22 22 A7 34 33 |$)......I$."".43|
00000700: 30 00 0D 0F B0 01 49 B2 C5 28 49 24 29 00 41 0F |0.....I..(I$).A.|
00000710: B1 01 85 22 13 11 11 11 11 11 11 11 11 57 49 52 |...".........WIR|
00000720: 4B 55 4E 47 53 46 41 4B 54 4F 52 20 20 20 20 20 |KUNGSFAKTOR |
00000730: 20 20 20 20 20 22 3B 43 24 3A 43 B2 C5 28 43 24 | ";C$:C..(C$|
00000740: 29 00 50 0F B2 01 8B 43 24 B2 22 22 A7 34 33 33 |).P....C$."".433|
00000750: 00 5C 0F B3 01 43 B2 C5 28 43 24 29 00 64 0F B7 |.\...C..(C$).d..|
00000760: 01 99 52 24 00 77 0F C1 01 A1 45 24 3A 8B 45 24 |..R$.w....E$:.E$|
00000770: B2 22 22 A7 34 34 39 00 87 0F C2 01 8B 45 24 B2 |."".449......E$.|
00000780: 22 4A 22 A7 34 39 30 00 97 0F CC 01 8B 45 24 B2 |"J".490......E$.|
00000790: 22 4E 22 A7 34 38 30 00 A0 0F D6 01 89 34 34 39 |"N".480......449|
000007A0: 00 E5 0F E0 01 4F B2 56 AC 49 AC 43 3A 99 22 11 |.....O.V.I.C:.".|
000007B0: 11 44 45 52 20 5A 55 47 45 46 55 45 48 52 54 45 |.DER ZUGEFUEHRTE|
000007C0: 20 4C 45 49 53 54 55 4E 47 22 3A 99 22 11 42 45 | LEISTUNG":.".BE|
000007D0: 54 52 41 45 47 54 20 22 4F 22 20 57 41 54 54 22 |TRAEGT "O" WATT"|
000007E0: 3A 89 35 30 30 00 30 10 EA 01 4F B2 56 AC 49 AC |:.500.0...O.V.I.|
000007F0: 43 3A 53 B2 B5 28 4F 29 3A 4F B2 53 3A 99 22 11 |C:S..(O):O.S:.".|
00000800: 11 44 45 52 20 5A 55 47 45 46 55 45 48 52 54 45 |.DER ZUGEFUEHRTE|
00000810: 20 4C 45 49 53 54 55 4E 47 22 3A 99 22 11 42 45 | LEISTUNG":.".BE|
00000820: 54 52 41 45 47 54 20 22 4F 22 20 57 41 54 54 22 |TRAEGT "O" WATT"|
00000830: 00 56 10 F4 01 99 22 11 11 4E 4F 43 48 20 45 49 |.V...."..NOCH EI|
00000840: 4E 45 20 42 45 52 45 43 48 4E 55 4E 47 20 3C 4A |NE BERECHNUNG <J|
00000850: 2F 4E 3E 20 3F 22 00 69 10 FE 01 A1 45 24 3A 8B |/N> ?".i....E$:.|
00000860: 45 24 B2 22 22 A7 35 31 30 00 79 10 08 02 8B 45 |E$."".510.y....E|
00000870: 24 B2 22 4E 22 A7 33 36 30 00 B0 10 12 02 8B 45 |$."N".360......E|
00000880: 24 B2 22 4A 22 A7 49 B2 30 3A 56 B2 30 3A 4F B2 |$."J".I.0:V.0:O.|
00000890: 30 3A 53 B2 30 3A 43 B2 30 3A 56 24 B2 22 22 3A |0:S.0:C.0:V$."":|
000008A0: 49 24 B2 22 22 3A 43 24 B2 22 22 3A 89 34 32 30 |I$."":C$."":.420|
000008B0: 00 B9 10 1C 02 89 35 31 30 00 00 00 |......510... |
.......45,B(174):.46,B(175):..@...R$."..
ERGEBNIS RUNDEN <J/N> ?"......53280,0:.5
3281,0:.".":W1$.".UCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCI".B...W2$."B..
WECHSELSTROM - MOTOR ..B".....W
3$."JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCK":.W1$;W2$;W3$.3.(.."GLEICHSTROMMOTO
R: P.AB. = U * I * T * COS".L.2.."...DEF
INITION:.":.".I = STROMSTAERKE IN .A.MPE
RE'"...<..".U = SPANNUNG IN .V.OLT."..
.F.."N = WIRKUNGSGRAD ETA".N.K..".COS
= WIRKLEISTUNGSFAKTOR"...L..".P.ZU. = ZU
GEFUEHRTE LEISTUNG IN .W.ATT".+.M..".P.A
B. = ABGEGEBENE LEISTUNG IN .W.ATT".].P.
.".. BITTE TASTE DRUECKEN !
"...Z..198,0:.198,1:.198,0:.".";W1$;
W2$;W3$...N..".. BITTE WAEHLEN SIE IHRE
RECHENFORMEL: "...X.."...<A> P.AB. =
U * I * COS * N"......"....<B> P.ZU. =
U * I * COS""......E$:.E$."".150.(. ..E$
."A".200.8....E$."B".420.A....150.Y.H.."
.";W1$;W2$;W3$:.".....SPANNUNG <VOLT>
";V$...M..V$."".200...N.V.E(V$)...R
..".......STROMSTAERKE <AMPERE'> ";A$.L.
V..A$."".210.X.W.A.E(A$)...X..".........
WIRKUNGSGRAD ";B$...Y..B$."".2
16...Z.B.E(B$).K...."...........WIRKUNGS
FAKTOR ";C$.Z....C$."".220.F...C
.E(C$).N....R$......E$:.E$."".230......E
$."N".270......E$."J".290......230.....P
.V.A.B.C:."..DIE ABGEGEBENE LEISTUNG":."
.BETRAEGT "P"WATT":.310...".P.V.A.B.C:S.
.(P):P.S.?.,.."..DIE ABGEGEBENE LEISTUNG
":.".BETRAEGT "P" WATT".E.6.."..NOCH EIN
E BERECHNUNG <J/N> ?".X.@..E$:.E$."".320
...J..E$."N".360.E.T..E$."J".V.0:A.0:P.0
:S.0:C.0:V$."":A$."":B$."":C$."":.200.N.
^..320...H.."..HAUPTMENUE LADEN <J/N> ?"
...R..E$:.E$."".370...|..E$."N".10."....
E$."J".410.+....370.L....".... HAU
PTMENUE WIRD GELADEN ! ":."MENUE"
,8,1......".";W1$;W2$;W3$:.".....SPANNUN
G <VOLT> ";V$......V$."".420....
.V.E(V$)......".......STROMSTAERKE <AMPE
RE'> ";I$:I.E(I$)......I$."".430.....I.
E(I$).A....".........WIRKUNGSFAKTOR
";C$:C.E(C$).P....C$."".433.\...C.E
(C$).D....R$.W.A..E$:.E$."".449...B..E$.
"J".490...L..E$."N".480. .V..449.....O.V
.I.C:."..DER ZUGEFUEHRTE LEISTUNG":.".BE
TRAEGT "O" WATT":.500.0...O.V.I.C:S..(O)
:O.S:."..DER ZUGEFUEHRTE LEISTUNG":.".BE
TRAEGT "O" WATT".V...."..NOCH EINE BEREC
HNUNG <J/N> ?".I....E$:.E$."".510.Y....E
$."N".360......E$."J".I.0:V.0:O.0:S.0:C.
0:V$."":I$."":C$."":.420......510...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL