_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

WIRK.IN.FREI

FILE INFORMATION

FILENAME(S): WIRK.IN.FREI

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 01:07:54

APPEARS ON: 4 disk(s)

FILE HASH

b69b90e17024e4a8bd863d62f1f7d09ca85166119a57974d675bd0a68845d9b9

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FREEWARE DISK NR WIRK.IN.FREI PRG Treasure Chest - Wolfgang Rauprich 23 3 DOWNLOAD FILE
A NWENDER WIRK.IN.FREI PRG Treasure Chest - Wolfgang Rauprich 23 3 DOWNLOAD FILE
GOODSOFT WIRK.IN.FREI PRG swasti, dinkel 13 5 DOWNLOAD FILE
GOODSOFT WIRK.IN.FREI PRG swasti, dinkel 13 5 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 AF 08 0B 00  |..........".....|
00000090: 56 24 B2 22 22 3A 49 24  B2 22 22 3A 50 B2 30 3A  |V$."":I$."":P.0:|
000000A0: 56 B2 30 3A 49 B2 30 3A  53 B2 30 3A 4F B2 30 00  |V.0:I.0:S.0:O.0.|
000000B0: E6 08 14 00 57 32 24 B2  22 C2 12 9B 20 20 20 20  |....W2$."...    |
000000C0: 20 20 20 57 20 45 20 43  20 48 20 53 20 45 20 4C  |   W E C H S E L|
000000D0: 20 53 20 54 20 52 20 4F  20 4D 20 20 20 20 20 20  | S T R O M      |
000000E0: 20 20 92 05 C2 22 00 26  09 1E 00 57 33 24 B2 22  |  ...".&...W3$."|
000000F0: CA 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 C3 C3 C3  |................|
00000110: C3 C3 C3 C3 C3 C3 C3 CB  22 3A 99 57 31 24 3B 57  |........":.W1$;W|
00000120: 32 24 3B 57 33 24 00 6F  09 28 00 99 22 9E 57 49  |2$;W3$.o.(..".WI|
00000130: 52 4B 4C 45 49 53 54 55  4E 47 20 28 49 4E 44 55  |RKLEISTUNG (INDU|
00000140: 4B 54 49 4F 4E 53 46 52  45 49 29 3A 22 3A 99 A3  |KTIONSFREI):":..|
00000150: 37 29 22 11 05 50 20 3D  20 55 20 2A 20 49 20 20  |7)"..P = U * I  |
00000160: 2F 20 20 50 20 3D 20 49  5E 32 20 2A 20 52 22 00  |/  P = I^2 * R".|
00000170: A1 09 32 00 99 22 11 9E  44 45 46 49 4E 49 54 49  |..2.."..DEFINITI|
00000180: 4F 4E 3A 05 22 3A 99 22  11 11 50 20 3D 20 4C 45  |ON:.":."..P = LE|
00000190: 49 53 54 55 4E 47 20 49  4E 20 1C 57 05 41 54 54  |ISTUNG IN .W.ATT|
000001A0: 22 00 C0 09 3C 00 99 22  11 55 20 3D 20 53 50 41  |"...<..".U = SPA|
000001B0: 4E 4E 55 4E 47 20 49 4E  20 1C 56 05 4F 4C 54 22  |NNUNG IN .V.OLT"|
000001C0: 00 E7 09 46 00 99 22 11  49 20 3D 20 53 54 52 4F  |...F..".I = STRO|
000001D0: 4D 53 54 41 45 52 4B 45  20 49 4E 20 20 1C 41 05  |MSTAERKE IN  .A.|
000001E0: 4D 50 45 52 45 27 22 00  09 0A 47 00 99 22 11 52  |MPERE'"...G..".R|
000001F0: 20 3D 20 57 49 52 4B 57  49 44 45 52 53 54 41 4E  | = WIRKWIDERSTAN|
00000200: 44 20 49 4E 20 4F 48 4D  22 00 3C 0A 50 00 99 22  |D IN OHM".<.P.."|
00000210: 11 11 12 20 20 20 20 20  20 20 20 20 42 49 54 54  |...         BITT|
00000220: 45 20 54 41 53 54 45 20  44 52 55 45 43 4B 45 4E  |E TASTE DRUECKEN|
00000230: 20 21 20 20 20 20 20 20  20 20 20 22 00 66 0A 5A  | !         ".f.Z|
00000240: 00 97 31 39 38 2C 30 3A  92 31 39 38 2C 31 3A 97  |..198,0:.198,1:.|
00000250: 31 39 38 2C 30 3A 99 22  93 22 3B 57 31 24 3B 57  |198,0:.".";W1$;W|
00000260: 32 24 3B 57 33 24 00 98  0A 6E 00 99 22 11 11 20  |2$;W3$...n..".. |
00000270: 20 42 49 54 54 45 20 57  41 45 48 4C 45 4E 20 53  | BITTE WAEHLEN S|
00000280: 49 45 20 49 48 52 45 20  52 45 43 48 45 4E 46 4F  |IE IHRE RECHENFO|
00000290: 52 4D 45 4C 3A 20 20 22  00 AF 0A 78 00 99 22 11  |RMEL:  "...x..".|
000002A0: 3C 41 3E 20 20 50 20 3D  20 55 20 2A 20 49 22 00  |<A>  P = U * I".|
000002B0: D8 0A 82 00 99 22 11 11  11 3C 42 3E 20 20 50 20  |....."...<B>  P |
000002C0: 3D 20 49 5E 32 20 2A 20  52 22 3A 99 A3 31 30 29  |= I^2 * R":..10)|
000002D0: 22 11 11 11 55 5E 32 22  00 F8 0A 8C 00 99 22 3C  |"...U^2"......"<|
000002E0: 43 3E 20 20 50 20 3D 20  C3 C3 C3 C3 C3 22 3A 99  |C>  P = .....":.|
000002F0: A3 31 31 29 22 52 11 22  00 0B 0B 9C 00 A1 45 24  |.11)"R."......E$|
00000300: 3A 8B 45 24 B2 22 22 A7  31 35 36 00 1B 0B A0 00  |:.E$."".156.....|
00000310: 8B 45 24 B2 22 41 22 A7  32 30 30 00 2B 0B AA 00  |.E$."A".200.+...|
00000320: 8B 45 24 B2 22 42 22 A7  34 32 30 00 3B 0B B4 00  |.E$."B".420.;...|
00000330: 8B 45 24 B2 22 43 22 A7  35 35 30 00 44 0B BE 00  |.E$."C".550.D...|
00000340: 89 31 35 36 00 80 0B C8  00 99 22 93 22 3B 57 31  |.156......".";W1|
00000350: 24 3B 57 32 24 3B 57 33  24 3A 85 22 13 11 11 11  |$;W2$;W3$:."....|
00000360: 11 11 11 11 57 45 43 48  53 45 4C 53 50 41 4E 4E  |....WECHSELSPANN|
00000370: 55 4E 47 20 3C 56 4F 4C  54 3E 20 20 22 3B 56 24  |UNG <VOLT>  ";V$|
00000380: 00 8F 0B CD 00 8B 56 24  B2 22 22 A7 32 30 30 00  |......V$."".200.|
00000390: 9B 0B CE 00 56 B2 C5 28  56 24 29 00 C8 0B D2 00  |....V..(V$).....|
000003A0: 85 22 13 11 11 11 11 11  11 11 11 11 53 54 52 4F  |."..........STRO|
000003B0: 4D 53 54 41 45 52 4B 45  20 3C 41 4D 50 45 52 45  |MSTAERKE <AMPERE|
000003C0: 27 3E 20 20 22 3B 49 24  00 D7 0B D3 00 8B 49 24  |'>  ";I$......I$|
000003D0: B2 22 22 A7 32 31 30 00  E3 0B D4 00 49 B2 C5 28  |."".210.....I..(|
000003E0: 49 24 29 00 EB 0B D8 00  99 52 24 00 FE 0B E6 00  |I$)......R$.....|
000003F0: A1 45 24 3A 8B 45 24 B2  22 22 A7 32 33 30 00 0E  |.E$:.E$."".230..|
00000400: 0C F0 00 8B 45 24 B2 22  4E 22 A7 32 37 30 00 1E  |....E$."N".270..|
00000410: 0C FA 00 8B 45 24 B2 22  4A 22 A7 32 39 30 00 27  |....E$."J".290.'|
00000420: 0C 04 01 89 32 33 30 00  6C 0C 0E 01 50 B2 56 AC  |....230.l...P.V.|
00000430: 49 3A 99 22 11 11 44 49  45 20 49 4E 44 55 4B 54  |I:."..DIE INDUKT|
00000440: 49 4F 4E 53 46 52 45 49  45 20 4C 45 49 53 54 55  |IONSFREIE LEISTU|
00000450: 4E 47 22 3A 99 22 11 42  45 54 52 41 45 47 54 22  |NG":.".BETRAEGT"|
00000460: 50 22 57 41 54 54 22 3A  89 33 31 30 00 81 0C 22  |P"WATT":.310..."|
00000470: 01 50 B2 56 AC 49 3A 53  B2 B5 28 50 29 3A 50 B2  |.P.V.I:S..(P):P.|
00000480: 53 00 BB 0C 2C 01 99 22  11 11 44 49 45 20 49 4E  |S...,.."..DIE IN|
00000490: 44 55 4B 54 49 4F 4E 53  46 52 45 49 45 20 4C 45  |DUKTIONSFREIE LE|
000004A0: 49 53 54 55 4E 47 22 3A  99 22 11 42 45 54 52 41  |ISTUNG":.".BETRA|
000004B0: 45 47 54 22 50 22 57 41  54 54 22 00 E1 0C 36 01  |EGT"P"WATT"...6.|
000004C0: 99 22 11 11 4E 4F 43 48  20 45 49 4E 45 20 42 45  |."..NOCH EINE BE|
000004D0: 52 45 43 48 4E 55 4E 47  20 3C 4A 2F 4E 3E 20 3F  |RECHNUNG <J/N> ?|
000004E0: 22 00 F4 0C 40 01 A1 45  24 3A 8B 45 24 B2 22 22  |"...@..E$:.E$.""|
000004F0: A7 33 32 30 00 04 0D 4A  01 8B 45 24 B2 22 4E 22  |.320...J..E$."N"|
00000500: A7 33 36 30 00 31 0D 54  01 8B 45 24 B2 22 4A 22  |.360.1.T..E$."J"|
00000510: A7 56 B2 30 3A 49 B2 30  3A 50 B2 30 3A 53 B2 30  |.V.0:I.0:P.0:S.0|
00000520: 3A 56 24 B2 22 22 3A 49  24 B2 22 22 3A 89 32 30  |:V$."":I$."":.20|
00000530: 30 00 3A 0D 5E 01 89 33  32 30 00 5C 0D 68 01 99  |0.:.^..320.\.h..|
00000540: 22 11 11 48 41 55 50 54  4D 45 4E 55 45 20 4C 41  |"..HAUPTMENUE LA|
00000550: 44 45 4E 20 3C 4A 2F 4E  3E 20 3F 22 00 6F 0D 72  |DEN <J/N> ?".o.r|
00000560: 01 A1 45 24 3A 8B 45 24  B2 22 22 A7 33 37 30 00  |..E$:.E$."".370.|
00000570: 7E 0D 7C 01 8B 45 24 B2  22 4E 22 A7 31 30 00 8E  |~.|..E$."N".10..|
00000580: 0D 86 01 8B 45 24 B2 22  4A 22 A7 34 31 30 00 97  |....E$."J".410..|
00000590: 0D 90 01 89 33 37 30 00  D8 0D 9A 01 99 22 93 11  |....370......"..|
000005A0: 11 12 20 20 20 20 20 20  20 48 41 55 50 54 4D 45  |..       HAUPTME|
000005B0: 4E 55 45 20 57 49 52 44  20 47 45 4C 41 44 45 4E  |NUE WIRD GELADEN|
000005C0: 20 21 20 20 20 20 20 20  20 20 22 3A 93 22 4D 45  | !        ":."ME|
000005D0: 4E 55 45 22 2C 38 2C 31  00 14 0E A4 01 99 22 93  |NUE",8,1......".|
000005E0: 22 3B 57 31 24 3B 57 32  24 3B 57 33 24 3A 85 22  |";W1$;W2$;W3$:."|
000005F0: 13 11 11 11 11 11 11 11  53 54 52 4F 4D 53 54 41  |........STROMSTA|
00000600: 45 52 4B 45 20 3C 41 4D  50 45 52 45 27 3E 20 20  |ERKE <AMPERE'>  |
00000610: 22 3B 49 24 00 23 0E A5  01 8B 49 24 B2 22 22 A7  |";I$.#....I$."".|
00000620: 34 32 30 00 2F 0E A9 01  49 B2 C5 28 49 24 29 00  |420./...I..(I$).|
00000630: 5C 0E AE 01 85 22 13 11  11 11 11 11 11 11 11 11  |\...."..........|
00000640: 57 49 52 4B 57 49 44 45  52 53 54 41 4E 44 20 3C  |WIRKWIDERSTAND <|
00000650: 4F 48 4D 3E 20 20 20 20  22 3B 4F 24 00 6B 0E AF  |OHM>    ";O$.k..|
00000660: 01 8B 4F 24 B2 22 22 A7  34 33 30 00 77 0E B0 01  |..O$."".430.w...|
00000670: 4F B2 C5 28 4F 24 29 00  7F 0E B4 01 99 52 24 00  |O..(O$)......R$.|
00000680: 92 0E B8 01 A1 45 24 3A  8B 45 24 B2 22 22 A7 34  |.....E$:.E$."".4|
00000690: 34 30 00 A2 0E C2 01 8B  45 24 B2 22 4A 22 A7 34  |40......E$."J".4|
000006A0: 39 30 00 B2 0E CC 01 8B  45 24 B2 22 4E 22 A7 34  |90......E$."N".4|
000006B0: 38 30 00 BB 0E D6 01 89  34 34 30 00 06 0F E0 01  |80......440.....|
000006C0: 50 B2 49 AE 32 AC 4F 3A  99 22 11 11 44 49 45 20  |P.I.2.O:."..DIE |
000006D0: 49 4E 44 55 4B 54 49 4F  4E 53 46 52 45 49 45 20  |INDUKTIONSFREIE |
000006E0: 57 49 52 4B 4C 45 49 53  54 55 4E 47 22 3A 99 22  |WIRKLEISTUNG":."|
000006F0: 11 42 45 54 52 41 45 47  54 22 50 22 57 41 54 54  |.BETRAEGT"P"WATT|
00000700: 22 3A 89 35 30 30 00 43  0F EA 01 50 B2 49 AE 32  |":.500.C...P.I.2|
00000710: AC 4F 3A 53 B2 B5 28 50  29 3A 50 B2 53 3A 99 22  |.O:S..(P):P.S:."|
00000720: 11 11 44 49 45 20 49 4E  44 55 4B 54 49 4F 4E 53  |..DIE INDUKTIONS|
00000730: 46 52 45 49 45 20 57 49  52 4B 4C 45 49 53 54 55  |FREIE WIRKLEISTU|
00000740: 4E 47 22 00 5B 0F EF 01  99 22 11 42 45 54 52 41  |NG".[....".BETRA|
00000750: 45 47 54 22 50 22 57 41  54 54 22 00 81 0F F4 01  |EGT"P"WATT".....|
00000760: 99 22 11 11 4E 4F 43 48  20 45 49 4E 45 20 42 45  |."..NOCH EINE BE|
00000770: 52 45 43 48 4E 55 4E 47  20 3C 4A 2F 4E 3E 20 3F  |RECHNUNG <J/N> ?|
00000780: 22 00 94 0F FE 01 A1 45  24 3A 8B 45 24 B2 22 22  |"......E$:.E$.""|
00000790: A7 35 31 30 00 A4 0F 08  02 8B 45 24 B2 22 4E 22  |.510......E$."N"|
000007A0: A7 33 36 30 00 D1 0F 12  02 8B 45 24 B2 22 4A 22  |.360......E$."J"|
000007B0: A7 49 B2 30 3A 4F B2 30  3A 50 B2 30 3A 53 B2 30  |.I.0:O.0:P.0:S.0|
000007C0: 3A 49 24 B2 22 22 3A 4F  24 B2 22 22 3A 89 34 32  |:I$."":O$."":.42|
000007D0: 30 00 DA 0F 1C 02 89 35  31 30 00 15 10 26 02 99  |0......510...&..|
000007E0: 22 93 22 3B 57 31 24 3B  57 32 24 3B 57 33 24 3A  |".";W1$;W2$;W3$:|
000007F0: 85 22 13 11 11 11 11 11  11 11 57 45 43 48 53 45  |."........WECHSE|
00000800: 4C 53 50 41 4E 4E 55 4E  47 20 3C 56 4F 4C 54 3E  |LSPANNUNG <VOLT>|
00000810: 20 22 3B 56 24 00 24 10  27 02 8B 56 24 B2 22 22  | ";V$.$.'..V$.""|
00000820: A7 35 35 30 00 30 10 2B  02 56 B2 C5 28 56 24 29  |.550.0.+.V..(V$)|
00000830: 00 5C 10 30 02 85 22 13  11 11 11 11 11 11 11 11  |.\.0..".........|
00000840: 11 57 49 52 4B 57 49 44  45 52 53 54 41 4E 44 20  |.WIRKWIDERSTAND |
00000850: 20 20 3C 4F 48 4D 3E 20  22 3B 4F 24 00 6B 10 31  |  <OHM> ";O$.k.1|
00000860: 02 8B 4F 24 B2 22 22 A7  35 36 30 00 77 10 32 02  |..O$."".560.w.2.|
00000870: 4F B2 C5 28 4F 24 29 00  7F 10 36 02 99 52 24 00  |O..(O$)...6..R$.|
00000880: 92 10 3A 02 A1 45 24 3A  8B 45 24 B2 22 22 A7 35  |..:..E$:.E$."".5|
00000890: 37 30 00 A2 10 44 02 8B  45 24 B2 22 4A 22 A7 36  |70...D..E$."J".6|
000008A0: 31 35 00 B2 10 4E 02 8B  45 24 B2 22 4E 22 A7 36  |15...N..E$."N".6|
000008B0: 31 30 00 BB 10 58 02 89  36 34 30 00 ED 10 62 02  |10...X..640...b.|
000008C0: 50 B2 56 AE 32 AD 4F 3A  99 22 11 11 44 49 45 20  |P.V.2.O:."..DIE |
000008D0: 49 4E 44 55 4B 54 49 4F  4E 53 46 52 45 49 45 20  |INDUKTIONSFREIE |
000008E0: 57 49 52 4B 4C 45 49 53  54 55 4E 47 22 00 0A 11  |WIRKLEISTUNG"...|
000008F0: 63 02 99 22 11 42 45 54  52 41 45 47 54 22 50 22  |c..".BETRAEGT"P"|
00000900: 57 41 54 54 22 3A 89 36  33 30 00 21 11 67 02 50  |WATT":.630.!.g.P|
00000910: B2 56 AE 32 AD 4F 3A 42  B2 B5 28 50 29 3A 50 B2  |.V.2.O:B..(P):P.|
00000920: 42 00 5F 11 6C 02 99 22  11 11 44 49 45 20 49 4E  |B._.l.."..DIE IN|
00000930: 44 55 4B 54 49 4F 4E 53  46 52 45 49 45 20 57 49  |DUKTIONSFREIE WI|
00000940: 52 4B 4C 45 49 53 54 55  4E 47 22 3A 99 22 11 42  |RKLEISTUNG":.".B|
00000950: 45 54 52 41 45 47 54 22  50 22 57 41 54 54 22 00  |ETRAEGT"P"WATT".|
00000960: 85 11 76 02 99 22 11 11  4E 4F 43 48 20 45 49 4E  |..v.."..NOCH EIN|
00000970: 45 20 42 45 52 45 43 48  4E 55 4E 47 20 3C 4A 2F  |E BERECHNUNG <J/|
00000980: 4E 3E 20 3F 22 00 98 11  80 02 A1 45 24 3A 8B 45  |N> ?"......E$:.E|
00000990: 24 B2 22 22 A7 36 34 30  00 A8 11 8A 02 8B 45 24  |$."".640......E$|
000009A0: B2 22 4E 22 A7 33 36 30  00 D5 11 94 02 8B 45 24  |."N".360......E$|
000009B0: B2 22 4A 22 A7 4F B2 30  3A 56 B2 30 3A 50 B2 30  |."J".O.0:V.0:P.0|
000009C0: 3A 42 B2 30 3A 4F 24 B2  22 22 3A 56 24 B2 22 22  |:B.0:O$."":V$.""|
000009D0: 3A 89 35 35 30 00 DE 11  9E 02 89 36 34 30 00 00  |:.550......640..|
000009E0: 00                                                |.               |
.......45,B(174):.46,B(175):..@...R$."..
ERGEBNIS RUNDEN <J/N> ?"......53280,0:.5
3281,0:.".":W1$.".UCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCI".....V$."":I$."":P.0:
V.0:I.0:S.0:O.0.....W2$."B..       W E C
 H S E L S T R O M        ..B".&...W3$."
JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK
":.W1$;W2$;W3$.O.(..".WIRKLEISTUNG (INDU
KTIONSFREI):":..7)"..P = U * I  /  P = I
^2 * R"...2.."..DEFINITION:.":."..P = LE
ISTUNG IN .W.ATT"...<..".U = SPANNUNG IN
 .V.OLT"...F..".I = STROMSTAERKE IN  .A.
MPERE'"...G..".R = WIRKWIDERSTAND IN OHM
".<.P.."...         BITTE TASTE DRUECKEN
 !         ".F.Z..198,0:.198,1:.198,0:."
.";W1$;W2$;W3$...N.."..  BITTE WAEHLEN S
IE IHRE RECHENFORMEL:  "...X..".<A>  P =
 U * I".X...."...<B>  P = I^2 * R":..10)
"...U^2"......"<C>  P = CCCCC":..11)"R."
......E$:.E$."".156... ..E$."A".200.+...
.E$."B".420.;....E$."C".550.D....156...H
..".";W1$;W2$;W3$:."........WECHSELSPANN
UNG <VOLT>  ";V$...M..V$."".200...N.V.E(
V$).H.R.."..........STROMSTAERKE <AMPERE
'>  ";I$.W.S..I$."".210...T.I.E(I$)...X.
.R$......E$:.E$."".230......E$."N".270..
....E$."J".290.'....230.L...P.V.I:."..DI
E INDUKTIONSFREIE LEISTUNG":.".BETRAEGT"
P"WATT":.310...".P.V.I:S..(P):P.S...,.."
..DIE INDUKTIONSFREIE LEISTUNG":.".BETRA
EGT"P"WATT"...6.."..NOCH EINE BERECHNUNG
 <J/N> ?"...@..E$:.E$."".320...J..E$."N"
.360.1.T..E$."J".V.0:I.0:P.0:S.0:V$."":I
$."":.200.:.^..320.\.H.."..HAUPTMENUE LA
DEN <J/N> ?".O.R..E$:.E$."".370.~.|..E$.
"N".10......E$."J".410......370.X...."..
..       HAUPTMENUE WIRD GELADEN !      
  ":."MENUE",8,1......".";W1$;W2$;W3$:."
........STROMSTAERKE <AMPERE'>  ";I$.#..
..I$."".420./...I.E(I$).\...."..........
WIRKWIDERSTAND <OHM>    ";O$.K....O$."".
430.W...O.E(O$).....R$......E$:.E$."".4
40...B..E$."J".490...L..E$."N".480...V..
440.....P.I.2.O:."..DIE INDUKTIONSFREIE 
WIRKLEISTUNG":.".BETRAEGT"P"WATT":.500.C
...P.I.2.O:S..(P):P.S:."..DIE INDUKTIONS
FREIE WIRKLEISTUNG".[....".BETRAEGT"P"WA
TT"......"..NOCH EINE BERECHNUNG <J/N> ?
"......E$:.E$."".510......E$."N".360.Q..
..E$."J".I.0:O.0:P.0:S.0:I$."":O$."":.42
0.Z....510...&..".";W1$;W2$;W3$:."......
..WECHSELSPANNUNG <VOLT> ";V$.$.'..V$.""
.550.0.+.V.E(V$).\.0.."..........WIRKWID
ERSTAND   <OHM> ";O$.K.1..O$."".560.W.2.
O.E(O$)..6..R$...:..E$:.E$."".570...D..
E$."J".615...N..E$."N".610...X..640...B.
P.V.2.O:."..DIE INDUKTIONSFREIE WIRKLEIS
TUNG"...C..".BETRAEGT"P"WATT":.630.!.G.P
.V.2.O:B..(P):P.B._.L.."..DIE INDUKTIONS
FREIE WIRKLEISTUNG":.".BETRAEGT"P"WATT".
..V.."..NOCH EINE BERECHNUNG <J/N> ?"...
...E$:.E$."".640......E$."N".360.U....E$
."J".O.0:V.0:P.0:B.0:O$."":V$."":.550...
...640...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL