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

STROMDICHTE

FILE INFORMATION

FILENAME(S): STROMDICHTE

FILE TYPE(S): PRG

FILE SIZE: 2.4K

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

APPEARS ON: 4 disk(s)

FILE HASH

963ee9316c44fee2721be53baa0ad3e9cbb6c32a08f57c52129242e462655a19

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FREEWARE DISK NR STROMDICHTE PRG Treasure Chest - Wolfgang Rauprich 19 5 DOWNLOAD FILE
A NWENDER STROMDICHTE PRG Treasure Chest - Wolfgang Rauprich 19 5 DOWNLOAD FILE
GOODSOFT STROMDICHTE PRG swasti, dinkel 19 1 DOWNLOAD FILE
GOODSOFT STROMDICHTE PRG swasti, dinkel 19 1 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 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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL