WECHSGEN

FILE INFORMATION

FILENAME(S): WECHSGEN

FILE TYPE(S): PRG

FILE SIZE: 2.2K

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

APPEARS ON: 4 disk(s)

FILE HASH

a314c1ce013fde7dae7713554d2f5a824124844eef561a65a86b0e1d1ec3d72d

FOUND ON DISKS (4 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FREEWARE DISK NR	WECHSGEN	PRG	Treasure Chest - Wolfgang Rauprich	9	0	DOWNLOAD FILE
A NWENDER	WECHSGEN	PRG	Treasure Chest - Wolfgang Rauprich	9	0	DOWNLOAD FILE
GOODSOFT	WECHSGEN	PRG	swasti, dinkel	10	3	DOWNLOAD FILE
GOODSOFT	WECHSGEN	PRG	swasti, dinkel	10	3	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 96  20 20 20 20 20 20 20 45  |W2$."...       E|
000000A0: 20 4C 20 2E 20 20 4D 20  41 20 53 20 43 20 48 20  | L .  M A S C H |
000000B0: 49 20 4E 20 45 20 4E 20  20 20 20 20 20 20 92 05  |I N E N       ..|
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 15 09 23 00 99  A3 32 39 29 22 55 2A 49  |3$...#...29)"U*I|
00000110: 2A 43 4F 53 22 00 4C 09  28 00 99 22 57 45 43 48  |*COS".L.(.."WECH|
00000120: 53 45 4C 53 54 52 4F 4D  47 45 4E 45 52 41 54 4F  |SELSTROMGENERATO|
00000130: 52 3A 20 50 11 5A 55 91  20 3D 20 C3 C3 C3 C3 C3  |R: P.ZU. = .....|
00000140: C3 C3 22 3A 99 A3 33 32  29 22 4E 22 00 83 09 32  |..":..32)"N"...2|
00000150: 00 99 22 9E 44 45 46 49  4E 49 54 49 4F 4E 3A 05  |..".DEFINITION:.|
00000160: 22 3A 99 22 11 49 20 3D  20 53 54 52 4F 4D 53 54  |":.".I = STROMST|
00000170: 41 45 52 4B 45 20 49 4E  20 1C 41 05 4D 50 45 52  |AERKE IN .A.MPER|
00000180: 45 27 22 00 A5 09 3C 00  99 22 11 55 20 20 20 3D  |E'"...<..".U   =|
00000190: 20 53 50 41 4E 4E 55 4E  47 20 49 4E 20 1C 56 05  | SPANNUNG IN .V.|
000001A0: 4F 4C 54 11 22 00 C3 09  46 00 99 22 4E 20 20 20  |OLT."...F.."N   |
000001B0: 3D 20 57 49 52 4B 55 4E  47 53 47 52 41 44 20 45  |= WIRKUNGSGRAD E|
000001C0: 54 41 22 00 F1 09 4B 00  99 22 11 50 11 41 42 91  |TA"...K..".P.AB.|
000001D0: 20 3D 20 41 42 47 45 47  45 42 45 4E 45 20 4C 45  | = ABGEGEBENE LE|
000001E0: 49 53 54 55 4E 47 20 49  4E 20 1C 57 05 41 54 54  |ISTUNG IN .W.ATT|
000001F0: 22 00 20 0A 4C 00 99 22  11 50 11 5A 55 91 20 3D  |". .L..".P.ZU. =|
00000200: 20 5A 55 47 45 46 55 45  48 52 54 45 20 4C 45 49  | ZUGEFUEHRTE LEI|
00000210: 53 54 55 4E 47 20 49 4E  20 1C 57 05 41 54 54 22  |STUNG IN .W.ATT"|
00000220: 00 42 0A 4D 00 99 22 11  43 4F 53 20 3D 20 57 49  |.B.M..".COS = WI|
00000230: 52 4B 4C 45 49 53 54 55  4E 47 53 46 41 4B 54 4F  |RKLEISTUNGSFAKTO|
00000240: 52 22 00 74 0A 50 00 99  22 11 12 20 20 20 20 20  |R".t.P.."..     |
00000250: 20 20 20 20 42 49 54 54  45 20 54 41 53 54 45 20  |    BITTE TASTE |
00000260: 44 52 55 45 43 4B 45 4E  20 21 20 20 20 20 20 20  |DRUECKEN !      |
00000270: 20 20 20 22 00 9E 0A 5A  00 97 31 39 38 2C 30 3A  |   "...Z..198,0:|
00000280: 92 31 39 38 2C 31 3A 97  31 39 38 2C 30 3A 99 22  |.198,1:.198,0:."|
00000290: 93 22 3B 57 31 24 3B 57  32 24 3B 57 33 24 00 D0  |.";W1$;W2$;W3$..|
000002A0: 0A 6E 00 99 22 11 11 20  20 42 49 54 54 45 20 57  |.n.."..  BITTE W|
000002B0: 41 45 48 4C 45 4E 20 53  49 45 20 49 48 52 45 20  |AEHLEN SIE IHRE |
000002C0: 52 45 43 48 45 4E 46 4F  52 4D 45 4C 3A 20 20 22  |RECHENFORMEL:  "|
000002D0: 00 F3 0A 78 00 99 22 11  11 11 3C 41 3E 20 20 50  |...x.."...<A>  P|
000002E0: 11 41 42 91 20 3D 20 55  20 2A 20 49 20 2A 20 43  |.AB. = U * I * C|
000002F0: 4F 53 22 00 0A 0B 7D 00  99 A3 31 32 29 22 11 11  |OS"...}...12)"..|
00000300: 11 11 55 2A 49 2A 43 4F  53 22 00 31 0B 82 00 99  |..U*I*COS".1....|
00000310: 22 3C 42 3E 20 20 50 11  5A 55 91 20 3D 20 C3 C3  |"<B>  P.ZU. = ..|
00000320: C3 C3 C3 C3 C3 C3 C3 22  3A 99 A3 31 35 29 22 4E  |.......":..15)"N|
00000330: 22 00 44 0B 96 00 A1 45  24 3A 8B 45 24 B2 22 22  |".D....E$:.E$.""|
00000340: A7 31 35 30 00 54 0B A0  00 8B 45 24 B2 22 41 22  |.150.T....E$."A"|
00000350: A7 32 30 30 00 64 0B AA  00 8B 45 24 B2 22 42 22  |.200.d....E$."B"|
00000360: A7 34 32 30 00 6D 0B BE  00 89 31 35 30 00 A5 0B  |.420.m....150...|
00000370: C8 00 99 22 93 22 3B 57  31 24 3B 57 32 24 3B 57  |...".";W1$;W2$;W|
00000380: 33 24 3A 85 22 13 11 11  11 11 53 50 41 4E 4E 55  |3$:.".....SPANNU|
00000390: 4E 47 20 3C 56 4F 4C 54  3E 20 20 20 20 20 20 20  |NG <VOLT>       |
000003A0: 20 22 3B 56 24 00 B4 0B  CD 00 8B 56 24 B2 22 22  | ";V$......V$.""|
000003B0: A7 32 30 30 00 C0 0B CE  00 56 B2 C5 28 56 24 29  |.200.....V..(V$)|
000003C0: 00 E9 0B D2 00 85 22 13  11 11 11 11 11 11 53 54  |......".......ST|
000003D0: 52 4F 4D 53 54 41 45 52  4B 45 20 3C 41 4D 50 45  |ROMSTAERKE <AMPE|
000003E0: 52 45 27 3E 20 22 3B 41  24 00 F8 0B D3 00 8B 41  |RE'> ";A$......A|
000003F0: 24 B2 22 22 A7 32 31 30  00 04 0C D4 00 41 B2 C5  |$."".210.....A..|
00000400: 28 41 24 29 00 2F 0C D5  00 85 22 13 11 11 11 11  |(A$)./....".....|
00000410: 11 11 11 11 57 49 52 4B  4C 45 49 53 54 55 4E 47  |....WIRKLEISTUNG|
00000420: 53 46 41 4B 54 4F 52 20  20 20 20 22 3B 57 24 00  |SFAKTOR    ";W$.|
00000430: 3E 0C D6 00 8B 57 24 B2  22 22 A7 32 31 33 00 4A  |>....W$."".213.J|
00000440: 0C D7 00 57 B2 C5 28 57  24 29 00 52 0C E5 00 99  |...W..(W$).R....|
00000450: 52 24 00 65 0C E6 00 A1  45 24 3A 8B 45 24 B2 22  |R$.e....E$:.E$."|
00000460: 22 A7 32 33 30 00 75 0C  F0 00 8B 45 24 B2 22 4E  |".230.u....E$."N|
00000470: 22 A7 32 37 30 00 85 0C  FA 00 8B 45 24 B2 22 4A  |".270......E$."J|
00000480: 22 A7 32 39 30 00 8E 0C  04 01 89 32 33 30 00 D1  |".290......230..|
00000490: 0C 0E 01 50 B2 56 AC 41  AC 57 3A 99 22 11 11 44  |...P.V.A.W:."..D|
000004A0: 49 45 20 41 42 47 45 47  45 42 45 4E 45 20 4C 45  |IE ABGEGEBENE LE|
000004B0: 49 53 54 55 4E 47 22 3A  99 22 11 42 45 54 52 41  |ISTUNG":.".BETRA|
000004C0: 45 47 54 20 22 50 22 57  41 54 54 22 3A 89 33 31  |EGT "P"WATT":.31|
000004D0: 30 00 E8 0C 22 01 50 B2  56 AC 41 AC 57 3A 53 B2  |0...".P.V.A.W:S.|
000004E0: B5 28 50 29 3A 50 B2 53  00 1F 0D 2C 01 99 22 11  |.(P):P.S...,..".|
000004F0: 11 44 49 45 20 41 42 47  45 47 45 42 45 4E 45 20  |.DIE ABGEGEBENE |
00000500: 4C 45 49 53 54 55 4E 47  22 3A 99 22 11 42 45 54  |LEISTUNG":.".BET|
00000510: 52 41 45 47 54 20 22 50  22 20 57 41 54 54 22 00  |RAEGT "P" WATT".|
00000520: 45 0D 36 01 99 22 11 11  4E 4F 43 48 20 45 49 4E  |E.6.."..NOCH EIN|
00000530: 45 20 42 45 52 45 43 48  4E 55 4E 47 20 3C 4A 2F  |E BERECHNUNG <J/|
00000540: 4E 3E 20 3F 22 00 58 0D  40 01 A1 45 24 3A 8B 45  |N> ?".X.@..E$:.E|
00000550: 24 B2 22 22 A7 33 32 30  00 68 0D 4A 01 8B 45 24  |$."".320.h.J..E$|
00000560: B2 22 4E 22 A7 33 36 30  00 9F 0D 54 01 8B 45 24  |."N".360...T..E$|
00000570: B2 22 4A 22 A7 56 B2 30  3A 41 B2 30 3A 50 B2 30  |."J".V.0:A.0:P.0|
00000580: 3A 53 B2 30 3A 57 B2 30  3A 56 24 B2 22 22 3A 41  |:S.0:W.0:V$."":A|
00000590: 24 B2 22 22 3A 57 24 B2  22 22 3A 89 32 30 30 00  |$."":W$."":.200.|
000005A0: A8 0D 5E 01 89 33 32 30  00 CA 0D 68 01 99 22 11  |..^..320...h..".|
000005B0: 11 48 41 55 50 54 4D 45  4E 55 45 20 4C 41 44 45  |.HAUPTMENUE LADE|
000005C0: 4E 20 3C 4A 2F 4E 3E 20  3F 22 00 DD 0D 72 01 A1  |N <J/N> ?"...r..|
000005D0: 45 24 3A 8B 45 24 B2 22  22 A7 33 37 30 00 EC 0D  |E$:.E$."".370...|
000005E0: 7C 01 8B 45 24 B2 22 4E  22 A7 31 30 00 FC 0D 86  ||..E$."N".10....|
000005F0: 01 8B 45 24 B2 22 4A 22  A7 34 31 30 00 05 0E 90  |..E$."J".410....|
00000600: 01 89 33 37 30 00 46 0E  9A 01 99 22 93 11 11 12  |..370.F...."....|
00000610: 20 20 20 20 20 20 20 48  41 55 50 54 4D 45 4E 55  |       HAUPTMENU|
00000620: 45 20 57 49 52 44 20 47  45 4C 41 44 45 4E 20 21  |E WIRD GELADEN !|
00000630: 20 20 20 20 20 20 20 20  22 3A 93 22 4D 45 4E 55  |        ":."MENU|
00000640: 45 22 2C 38 2C 31 00 7F  0E A4 01 99 22 93 22 3B  |E",8,1......".";|
00000650: 57 31 24 3B 57 32 24 3B  57 33 24 3A 85 22 13 11  |W1$;W2$;W3$:."..|
00000660: 11 11 11 53 50 41 4E 4E  55 4E 47 20 3C 56 4F 4C  |...SPANNUNG <VOL|
00000670: 54 3E 20 20 20 20 20 20  20 20 20 22 3B 55 24 00  |T>         ";U$.|
00000680: 8E 0E A9 01 8B 55 24 B2  22 22 A7 34 32 30 00 9A  |.....U$."".420..|
00000690: 0E AA 01 55 B2 C5 28 55  24 29 00 C4 0E AE 01 85  |...U..(U$)......|
000006A0: 22 13 11 11 11 11 11 11  53 54 52 4F 4D 53 54 41  |".......STROMSTA|
000006B0: 45 52 4B 45 20 3C 41 4D  50 45 52 45 27 3E 20 20  |ERKE <AMPERE'>  |
000006C0: 22 3B 49 24 00 D3 0E AF  01 8B 49 24 B2 22 22 A7  |";I$......I$."".|
000006D0: 34 33 30 00 DF 0E B0 01  49 B2 C5 28 49 24 29 00  |430.....I..(I$).|
000006E0: 0B 0F B1 01 85 22 13 11  11 11 11 11 11 11 11 57  |.....".........W|
000006F0: 49 52 4B 4C 45 49 53 54  55 4E 47 53 46 41 4B 54  |IRKLEISTUNGSFAKT|
00000700: 4F 52 20 20 20 20 20 22  3B 57 24 00 1A 0F B2 01  |OR     ";W$.....|
00000710: 8B 57 24 B2 22 22 A7 34  33 33 00 26 0F B3 01 57  |.W$."".433.&...W|
00000720: B2 C5 28 57 24 29 00 54  0F B4 01 85 22 13 11 11  |..(W$).T...."...|
00000730: 11 11 11 11 11 11 11 11  57 49 52 4B 55 4E 47 53  |........WIRKUNGS|
00000740: 47 52 41 44 20 20 20 20  20 20 20 20 20 20 20 20  |GRAD            |
00000750: 22 3B 47 24 00 63 0F B5  01 8B 47 24 B2 22 22 A7  |";G$.c....G$."".|
00000760: 34 33 36 00 6F 0F B6 01  47 B2 C5 28 47 24 29 00  |436.o...G..(G$).|
00000770: 77 0F B7 01 99 52 24 00  8A 0F C1 01 A1 45 24 3A  |w....R$......E$:|
00000780: 8B 45 24 B2 22 22 A7 34  34 39 00 9A 0F C2 01 8B  |.E$."".449......|
00000790: 45 24 B2 22 4A 22 A7 34  39 30 00 AA 0F CC 01 8B  |E$."J".490......|
000007A0: 45 24 B2 22 4E 22 A7 34  38 30 00 B3 0F D6 01 89  |E$."N".480......|
000007B0: 34 34 39 00 FA 0F E0 01  4F B2 55 AC 49 AC 57 AD  |449.....O.U.I.W.|
000007C0: 47 3A 99 22 11 11 44 49  45 20 5A 55 47 45 46 55  |G:."..DIE ZUGEFU|
000007D0: 45 48 52 54 45 20 4C 45  49 53 54 55 4E 47 22 3A  |EHRTE LEISTUNG":|
000007E0: 99 22 11 42 45 54 52 41  45 47 54 20 22 4F 22 20  |.".BETRAEGT "O" |
000007F0: 57 41 54 54 22 3A 89 35  30 30 00 47 10 EA 01 4F  |WATT":.500.G...O|
00000800: B2 55 AC 49 AC 57 AD 47  3A 53 B2 B5 28 4F 29 3A  |.U.I.W.G:S..(O):|
00000810: 4F B2 53 3A 99 22 11 11  44 49 45 20 5A 55 47 45  |O.S:."..DIE ZUGE|
00000820: 46 55 45 48 52 54 45 20  4C 45 49 53 54 55 4E 47  |FUEHRTE LEISTUNG|
00000830: 22 3A 99 22 11 42 45 54  52 41 45 47 54 20 22 4F  |":.".BETRAEGT "O|
00000840: 22 20 57 41 54 54 22 00  6C 10 F4 01 99 22 11 4E  |" WATT".l....".N|
00000850: 4F 43 48 20 45 49 4E 45  20 42 45 52 45 43 48 4E  |OCH EINE BERECHN|
00000860: 55 4E 47 20 3C 4A 2F 4E  3E 20 3F 22 00 7F 10 FE  |UNG <J/N> ?"....|
00000870: 01 A1 45 24 3A 8B 45 24  B2 22 22 A7 35 31 30 00  |..E$:.E$."".510.|
00000880: 8F 10 08 02 8B 45 24 B2  22 4E 22 A7 33 36 30 00  |.....E$."N".360.|
00000890: D0 10 12 02 8B 45 24 B2  22 4A 22 A7 49 B2 30 3A  |.....E$."J".I.0:|
000008A0: 55 B2 30 3A 4F B2 30 3A  53 B2 30 3A 57 B2 30 3A  |U.0:O.0:S.0:W.0:|
000008B0: 47 B2 30 3A 55 24 B2 22  22 3A 49 24 B2 22 22 3A  |G.0:U$."":I$."":|
000008C0: 57 24 B2 22 22 3A 47 24  B2 22 22 3A 89 34 32 30  |W$."":G$."":.420|
000008D0: 00 D9 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..       E
 L .  M A S C H I N E N       ..B".....W
3$."JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCK":.W1$;W2$;W3$...#...29)"U*I*COS".L.
(.."WECHSELSTROMGENERATOR: P.ZU. = CCCCC
CC":..32)"N"...2..".DEFINITION:.":.".I =
 STROMSTAERKE IN .A.MPERE'"...<..".U   =
 SPANNUNG IN .V.OLT.".C.F.."N   = WIRKUN
GSGRAD ETA"...K..".P.AB. = ABGEGEBENE LE
ISTUNG IN .W.ATT". .L..".P.ZU. = ZUGEFUE
HRTE LEISTUNG IN .W.ATT".B.M..".COS = WI
RKLEISTUNGSFAKTOR".T.P.."..         BITT
E TASTE DRUECKEN !         "...Z..198,0:
.198,1:.198,0:.".";W1$;W2$;W3$.P.N..".. 
 BITTE WAEHLEN SIE IHRE RECHENFORMEL:  "
...X.."...<A>  P.AB. = U * I * COS"...}.
..12)"....U*I*COS".1...."<B>  P.ZU. = CC
CCCCCCC":..15)"N".D....E$:.E$."".150.T. 
..E$."A".200.D....E$."B".420.M....150...
H..".";W1$;W2$;W3$:.".....SPANNUNG <VOLT
>        ";V$...M..V$."".200...N.V.E(V$)
...R..".......STROMSTAERKE <AMPERE'> ";A
$...S..A$."".210...T.A.E(A$)./.U..".....
....WIRKLEISTUNGSFAKTOR    ";W$.>.V..W$.
"".213.J.W.W.E(W$).R....R$.E....E$:.E$."
".230.U....E$."N".270......E$."J".290...
...230.Q...P.V.A.W:."..DIE ABGEGEBENE LE
ISTUNG":.".BETRAEGT "P"WATT":.310...".P.
V.A.W:S..(P):P.S...,.."..DIE ABGEGEBENE 
LEISTUNG":.".BETRAEGT "P" WATT".E.6.."..
NOCH EINE BERECHNUNG <J/N> ?".X.@..E$:.E
$."".320.H.J..E$."N".360...T..E$."J".V.0
:A.0:P.0:S.0:W.0:V$."":A$."":W$."":.200.
..^..320.J.H.."..HAUPTMENUE LADEN <J/N> 
?"...R..E$:.E$."".370...|..E$."N".10....
..E$."J".410......370.F...."....       H
AUPTMENUE WIRD GELADEN !        ":."MENU
E",8,1.....".";W1$;W2$;W3$:.".....SPANN
UNG <VOLT>         ";U$......U$."".420..
...U.E(U$).D....".......STROMSTAERKE <AM
PERE'>  ";I$.S....I$."".430.....I.E(I$).
.....".........WIRKLEISTUNGSFAKTOR     "
;W$......W$."".433.&...W.E(W$).T...."...
........WIRKUNGSGRAD            ";G$.C..
..G$."".436.O...G.E(G$).W....R$...A..E$:
.E$."".449...B..E$."J".490...L..E$."N".4
80...V..449.....O.U.I.W.G:."..DIE ZUGEFU
EHRTE LEISTUNG":.".BETRAEGT "O" WATT":.5
00.G...O.U.I.W.G:S..(O):O.S:."..DIE ZUGE
FUEHRTE LEISTUNG":.".BETRAEGT "O" WATT".
L....".NOCH EINE BERECHNUNG <J/N> ?"...
..E$:.E$."".510......E$."N".360.P....E$.
"J".I.0:U.0:O.0:S.0:W.0:G.0:U$."":I$."":
W$."":G$."":.420.Y....510...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL