Multiple names: MAEDCHEN, THE FARM-SONG II
FILE INFORMATION
FILENAME(S):
• MAEDCHEN<br>• THE FARM-SONG II
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-12-02 23:47:49
APPEARS ON: 2 disk(s)
FILE HASH
8ecc4517b194026a26490832ed8ff1dbb926a371650869d5888c2f2aa7e42ead
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | MAEDCHEN | PRG | swasti, flohmarkt | 26 | 0 | DOWNLOAD FILE |
| TEST DISK | THE FARM-SONG II | PRG | swasti, flohmarkt | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 44 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..D.d.. ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 00 87 08 6E 00 8F 20 2A 20 20 20 20 |****...n.. * | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000080: 20 20 20 20 20 20 2A 00 CA 08 78 00 8F 20 2A 20 | *...x.. * | 00000090: 50 52 4F 47 52 41 4D 20 20 20 20 20 20 20 20 20 |PROGRAM | 000000A0: 20 20 20 20 20 20 3A 20 4D 41 45 44 43 48 45 4E | : MAEDCHEN| 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 20 20 2A 00 0D 09 82 00 8F | *......| 000000D0: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 50 09 | *.P.| 00000110: 8C 00 8F 20 2A 20 41 55 54 48 4F 52 20 20 20 20 |... * AUTHOR | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 42 59 | : BY| 00000130: 20 45 4C 4B 45 20 20 20 20 53 41 4C 4C 45 52 20 | ELKE SALLER | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 00000150: 00 93 09 A0 00 8F 20 2A 20 20 20 20 20 20 20 20 |...... * | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 4D 45 44 49 45 4E 50 52 4F 44 55 4B | MEDIENPRODUK| 00000180: 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |TE | 00000190: 20 20 2A 00 D6 09 AA 00 8F 20 2A 20 20 20 20 20 | *...... * | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 20 20 20 20 2A 00 19 0A AE 00 8F 20 2A 20 20 | *...... * | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 43 4F 50 59 | COPY| 000001F0: 52 49 47 48 54 20 42 59 20 56 4F 47 45 4C 20 56 |RIGHT BY VOGEL V| 00000200: 45 52 4C 41 47 20 57 55 45 52 5A 42 55 52 47 20 |ERLAG WUERZBURG | 00000210: 20 20 20 20 20 20 20 20 2A 00 5C 0A B0 00 8F 20 | *.\.... | 00000220: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 |* I| 00000230: 4D 20 56 45 52 54 52 49 45 42 20 56 4F 4E 20 47 |M VERTRIEB VON G| 00000240: 52 55 4E 45 52 20 2B 20 4A 41 48 52 20 41 47 26 |RUNER + JAHR AG&| 00000250: 43 4F 20 20 20 20 20 20 20 20 20 2A 00 9F 0A B2 |CO *....| 00000260: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * | 00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 000002A0: E2 0A B4 00 8F 20 2A 20 49 4E 53 54 41 4C 4C 41 |..... * INSTALLA| 000002B0: 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 3A 20 |TION : | 000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002E0: 20 2A 00 25 0B BE 00 8F 20 2A 20 20 20 20 20 20 | *.%.... * | 000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 20 20 20 20 2A 00 68 0B C8 00 8F 20 2A 20 44 41 | *.h.... * DA| 00000330: 54 45 2D 57 52 49 54 54 45 4E 20 20 20 20 20 20 |TE-WRITTEN | 00000340: 20 20 20 20 3A 20 32 30 2E 31 30 2E 38 33 20 20 | : 20.10.83 | 00000350: 56 45 52 53 49 4F 4E 3A 20 30 31 20 20 20 20 20 |VERSION: 01 | 00000360: 20 20 20 20 20 20 20 2A 00 AB 0B D2 00 8F 20 2A | *...... *| 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 20 20 20 20 20 20 20 20 20 20 2A 00 EE 0B DC 00 | *.....| 000003B0: 8F 20 2A 20 53 4F 55 52 43 45 2F 4F 42 4A 45 43 |. * SOURCE/OBJEC| 000003C0: 54 2D 43 4F 4D 50 55 54 45 52 3A 20 56 43 2D 36 |T-COMPUTER: VC-6| 000003D0: 34 20 2F 20 20 20 20 20 20 20 20 20 20 20 20 20 |4 / | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 31 | *.1| 000003F0: 0C E6 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000430: 2A 00 74 0C F0 00 8F 20 2A 20 4D 45 4D 4F 52 59 |*.t.... * MEMORY| 00000440: 20 53 49 5A 45 20 20 20 20 20 20 20 20 20 20 20 | SIZE | 00000450: 3A 20 20 20 34 36 33 30 20 42 59 54 45 53 20 20 |: 4630 BYTES | 00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000470: 20 20 20 2A 00 B7 0C FA 00 8F 20 2A 20 20 20 20 | *...... * | 00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004B0: 20 20 20 20 20 20 2A 00 FA 0C 04 01 8F 20 2A 2A | *...... **| 000004C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 0D 0E 01 8F |**********......| 00000500: 00 06 0D 18 01 8F 00 0C 0D 22 01 8F 00 19 0D 2C |.........".....,| 00000510: 01 97 35 33 32 38 30 2C 36 00 4F 0D 36 01 54 31 |..53280,6.O.6.T1| 00000520: 24 B2 22 46 55 45 52 27 53 20 4C 45 42 45 4E 22 |$."FUER'S LEBEN"| 00000530: 3A 54 32 24 B2 22 46 55 45 52 20 44 49 45 20 4E |:T2$."FUER DIE N| 00000540: 41 45 48 45 52 45 20 5A 55 4B 55 4E 46 54 22 00 |AEHERE ZUKUNFT".| 00000550: 89 0D 40 01 54 33 24 B2 22 46 55 45 52 27 53 20 |..@.T3$."FUER'S | 00000560: 57 4F 43 48 45 4E 45 4E 44 45 22 3A 54 34 24 B2 |WOCHENENDE":T4$.| 00000570: 22 46 55 45 52 20 44 49 45 20 4E 41 45 43 48 53 |"FUER DIE NAECHS| 00000580: 54 45 20 4E 41 43 48 54 22 00 9F 0D 4A 01 99 22 |TE NACHT"...J.."| 00000590: 93 9F 22 3A 8D 31 32 36 30 3A 8D 31 32 37 35 00 |..":.1260:.1275.| 000005A0: D4 0D 54 01 99 3A 99 A3 34 29 3B 59 59 24 3B 22 |..T..:..4);YY$;"| 000005B0: 20 20 4D 20 41 20 45 20 44 20 43 20 48 20 45 20 | M A E D C H E | 000005C0: 4E 20 2D 20 54 20 45 20 53 20 54 22 3A 99 3A 8D |N - T E S T":.:.| 000005D0: 31 32 36 30 00 EE 0D 59 01 8B 59 59 24 B3 B1 22 |1260...Y..YY$.."| 000005E0: 43 48 49 50 22 A7 20 9E 20 36 34 37 33 38 00 1E |CHIP". . 64738..| 000005F0: 0E 5E 01 86 46 24 28 31 30 29 2C 4C 24 28 31 30 |.^..F$(10),L$(10| 00000600: 29 2C 46 28 31 30 29 2C 4D 28 31 30 2C 31 30 29 |),F(10),M(10,10)| 00000610: 2C 56 28 31 30 29 2C 5A 28 31 30 29 3A 99 00 53 |,V(10),Z(10):..S| 00000620: 0E 68 01 59 24 B2 22 59 22 3A 99 22 20 4B 45 49 |.h.Y$."Y":." KEI| 00000630: 4E 45 20 45 4E 54 53 43 48 45 49 44 55 4E 47 53 |NE ENTSCHEIDUNGS| 00000640: 50 52 4F 42 4C 45 4D 45 20 4D 45 48 52 20 46 55 |PROBLEME MEHR FU| 00000650: 45 52 22 00 7E 0E 72 01 99 22 56 49 45 4C 42 45 |ER".~.r.."VIELBE| 00000660: 53 43 48 41 45 46 54 49 47 54 45 20 4A 55 4E 47 |SCHAEFTIGTE JUNG| 00000670: 47 45 53 45 4C 4C 45 4E 20 21 21 22 3A 99 00 AC |GESELLEN !!":...| 00000680: 0E 7C 01 99 22 20 47 45 42 45 4E 20 53 49 45 20 |.|.." GEBEN SIE | 00000690: 4D 49 52 20 42 49 54 54 45 20 41 4E 2C 20 57 41 |MIR BITTE AN, WA| 000006A0: 53 20 53 49 45 20 55 45 42 45 52 22 00 D5 0E 86 |S SIE UEBER"....| 000006B0: 01 99 22 44 49 45 20 44 41 4D 45 4E 20 57 49 53 |.."DIE DAMEN WIS| 000006C0: 53 45 4E 2E 20 49 43 48 20 48 45 4C 46 45 20 49 |SEN. ICH HELFE I| 000006D0: 48 4E 45 4E 22 00 05 0F 90 01 99 22 44 41 4E 4E |HNEN"......"DANN| 000006E0: 20 42 45 49 20 44 49 45 53 45 52 20 44 45 4C 49 | BEI DIESER DELI| 000006F0: 4B 41 54 45 4E 20 45 4E 54 53 43 48 45 49 44 55 |KATEN ENTSCHEIDU| 00000700: 4E 47 22 3A 99 00 4D 0F 9A 01 99 22 20 55 45 42 |NG":..M...." UEB| 00000710: 45 52 4C 41 53 53 45 4E 20 53 49 45 20 4D 49 52 |ERLASSEN SIE MIR| 00000720: 20 44 49 45 53 45 53 20 50 52 4F 42 4C 45 4D 2C | DIESES PROBLEM,| 00000730: 20 55 4E 44 4B 4F 4E 5A 45 4E 54 52 49 45 52 45 | UNDKONZENTRIERE| 00000740: 4E 20 53 49 45 20 53 49 43 48 20 22 3B 00 79 0F |N SIE SICH ";.y.| 00000750: A4 01 99 22 56 4F 4C 4C 20 55 4E 44 20 47 41 4E |..."VOLL UND GAN| 00000760: 5A 20 41 55 46 44 41 53 20 44 41 4E 41 43 48 2E |Z AUFDAS DANACH.| 00000770: 2E 2E 2E 2E 2E 2E 22 3A 99 00 92 0F A9 01 8B 59 |......":.......Y| 00000780: 59 24 B3 B1 22 43 48 49 50 22 A7 9E 20 36 34 37 |Y$.."CHIP".. 647| 00000790: 33 38 00 B5 0F AE 01 85 22 42 45 52 45 49 54 22 |38......"BEREIT"| 000007A0: 3B 42 24 3A 8B C8 28 42 24 2C 31 29 B2 22 4E 22 |;B$:..(B$,1)."N"| 000007B0: A7 31 32 35 30 00 DE 0F B8 01 99 22 93 22 3A 99 |.1250......".":.| 000007C0: 3A 99 3A 99 3A 99 3A 99 3A 99 A3 38 29 22 21 21 |:.:.:.:.:..8)"!!| 000007D0: 21 20 48 20 41 20 4C 20 54 20 21 21 21 22 00 1A |! H A L T !!!"..| 000007E0: 10 C2 01 99 3A 99 3A 99 22 49 43 48 20 48 41 45 |....:.:."ICH HAE| 000007F0: 54 54 45 20 4E 4F 43 48 20 45 49 4E 45 20 28 52 |TTE NOCH EINE (R| 00000800: 45 49 4E 20 53 54 41 54 49 53 54 49 53 43 48 45 |EIN STATISTISCHE| 00000810: 29 20 46 52 41 47 45 20 3A 22 00 47 10 CC 01 99 |) FRAGE :".G....| 00000820: 3A 99 A3 36 29 22 54 52 45 46 46 45 4E 20 53 49 |:..6)"TREFFEN SI| 00000830: 45 20 44 49 45 53 45 20 45 4E 54 53 43 48 45 49 |E DIESE ENTSCHEI| 00000840: 44 55 4E 47 22 3A 99 00 72 10 D6 01 99 A3 32 29 |DUNG":..r.....2)| 00000850: 22 31 2D 22 3B 54 31 24 3A 99 A3 32 29 22 32 2D |"1-";T1$:..2)"2-| 00000860: 22 3B 54 32 24 3A 99 A3 32 29 22 33 2D 22 3B 54 |";T2$:..2)"3-";T| 00000870: 33 24 00 83 10 E0 01 99 A3 32 29 22 34 2D 22 3B |3$.......2)"4-";| 00000880: 54 34 24 00 8A 10 EA 01 85 45 00 97 10 F4 01 8B |T4$......E......| 00000890: 45 B2 31 A7 35 34 30 00 A4 10 FE 01 8B 45 B2 32 |E.1.540......E.2| 000008A0: A7 35 35 30 00 B1 10 08 02 8B 45 B2 33 A7 35 36 |.550......E.3.56| 000008B0: 30 00 BE 10 12 02 8B 45 B2 34 A7 35 37 30 00 CE |0......E.4.570..| 000008C0: 10 1C 02 4F 24 B2 54 31 24 3A 89 35 38 30 00 DE |...O$.T1$:.580..| 000008D0: 10 26 02 4F 24 B2 54 32 24 3A 89 35 38 30 00 EE |.&.O$.T2$:.580..| 000008E0: 10 30 02 4F 24 B2 54 33 24 3A 89 35 38 30 00 FE |.0.O$.T3$:.580..| 000008F0: 10 3A 02 4F 24 B2 54 34 24 3A 89 35 38 30 00 0D |.:.O$.T4$:.580..| 00000900: 11 44 02 99 22 93 22 3A 8D 31 32 37 30 00 3D 11 |.D..".":.1270.=.| 00000910: 4E 02 99 3A 99 22 20 20 55 4E 54 45 52 20 57 49 |N..:." UNTER WI| 00000920: 45 56 49 45 4C 20 44 49 45 53 45 52 20 48 49 4D |EVIEL DIESER HIM| 00000930: 4D 4C 49 53 43 48 45 4E 20 47 45 2D 22 00 84 11 |MLISCHEN GE-"...| 00000940: 58 02 99 22 53 43 48 4F 45 50 46 45 20 28 4D 49 |X.."SCHOEPFE (MI| 00000950: 4E 3D 32 2D 4D 41 58 3D 31 30 29 20 4D 55 45 53 |N=2-MAX=10) MUES| 00000960: 53 45 4E 20 53 49 45 20 53 49 43 48 20 20 44 45 |SEN SIE SICH DE| 00000970: 4E 4E 20 45 4E 54 53 43 48 45 49 44 45 4E 22 3B |NN ENTSCHEIDEN";| 00000980: 3A 85 4C 30 00 B6 11 62 02 99 3A 99 22 42 49 54 |:.L0...b..:."BIT| 00000990: 54 45 20 47 45 42 45 4E 20 53 49 45 20 4A 45 54 |TE GEBEN SIE JET| 000009A0: 5A 54 20 41 4C 4C 45 22 3B 4C 30 3B 22 4D 41 45 |ZT ALLE";L0;"MAE| 000009B0: 44 43 48 45 4E 22 00 E2 11 6C 02 99 22 28 52 45 |DCHEN"...l.."(RE| 000009C0: 49 48 45 4E 46 4F 4C 47 45 20 53 50 49 45 4C 54 |IHENFOLGE SPIELT| 000009D0: 20 4B 45 49 4E 45 20 52 4F 4C 4C 45 29 20 45 49 | KEINE ROLLE) EI| 000009E0: 4E 22 00 12 12 76 02 99 3A 81 49 B2 31 A4 4C 30 |N"...v..:.I.1.L0| 000009F0: 3A 99 22 4E 55 4D 4D 45 52 22 3B 49 3B 22 42 49 |:."NUMMER";I;"BI| 00000A00: 54 54 45 22 3A 85 4C 24 28 49 29 3A 99 3A 82 49 |TTE":.L$(I):.:.I| 00000A10: 3A 99 00 21 12 80 02 99 22 93 22 3A 8D 31 32 37 |:..!....".":.127| 00000A20: 30 00 41 12 8A 02 99 3A 99 22 20 4F 4B 2C 20 44 |0.A....:." OK, D| 00000A30: 41 53 20 57 41 45 52 45 4E 20 41 4C 53 4F 22 3A |AS WAEREN ALSO":| 00000A40: 99 00 62 12 94 02 81 49 B2 31 A4 4C 30 3A 99 A3 |..b....I.1.L0:..| 00000A50: 33 29 49 3B 22 2D 22 3B 4C 24 28 49 29 3A 82 49 |3)I;"-";L$(I):.I| 00000A60: 3A 99 00 A5 12 9E 02 99 3A 99 22 57 49 45 56 49 |:.......:."WIEVI| 00000A70: 45 4C 20 46 41 4B 54 4F 52 45 4E 28 4D 41 58 3D |EL FAKTOREN(MAX=| 00000A80: 31 30 29 20 53 49 4E 44 20 45 49 47 45 4E 54 4C |10) SIND EIGENTL| 00000A90: 49 43 48 57 49 43 48 54 49 47 20 42 45 49 20 44 |ICHWICHTIG BEI D| 00000AA0: 45 52 20 22 3B 00 D9 12 A8 02 99 22 45 4E 54 53 |ER ";......"ENTS| 00000AB0: 43 48 45 49 44 55 4E 47 20 46 55 45 52 20 49 48 |CHEIDUNG FUER IH| 00000AC0: 52 45 22 3A 99 3A 99 A3 34 29 22 50 41 52 54 4E |RE":.:..4)"PARTN| 00000AD0: 45 52 49 4E 20 22 3B 4F 24 00 E1 12 B2 02 85 46 |ERIN ";O$......F| 00000AE0: 30 00 EA 12 BC 02 99 22 93 22 00 19 13 C6 02 99 |0......"."......| 00000AF0: 22 42 49 54 54 45 20 47 45 42 45 4E 20 53 49 45 |"BITTE GEBEN SIE| 00000B00: 20 4D 49 52 20 44 49 45 53 45 20 46 41 4B 54 4F | MIR DIESE FAKTO| 00000B10: 52 45 4E 20 41 4E 22 3A 99 00 45 13 D0 02 81 49 |REN AN":..E....I| 00000B20: B2 31 A4 46 30 3A 99 3A 99 22 46 41 4B 54 4F 52 |.1.F0:.:."FAKTOR| 00000B30: 22 3B 49 3B 22 42 49 54 54 45 22 3A 85 46 24 28 |";I;"BITTE":.F$(| 00000B40: 49 29 3A 82 49 00 6D 13 DA 02 99 22 93 22 3A 99 |I):.I.m....".":.| 00000B50: 22 57 45 4C 43 48 45 52 20 56 4F 4E 20 44 49 45 |"WELCHER VON DIE| 00000B60: 53 45 4E 20 46 41 4B 54 4F 52 45 4E 22 00 88 13 |SEN FAKTOREN"...| 00000B70: E4 02 81 49 B2 31 A4 46 30 3A 99 A3 34 29 49 3B |...I.1.F0:..4)I;| 00000B80: 46 24 28 49 29 3A 82 49 00 B5 13 EE 02 99 22 49 |F$(I):.I......"I| 00000B90: 53 54 20 44 45 4E 4E 20 46 55 45 52 20 53 49 45 |ST DENN FUER SIE| 00000BA0: 20 44 45 52 20 57 49 43 48 54 49 47 53 54 45 22 | DER WICHTIGSTE"| 00000BB0: 3B 3A 85 46 32 00 F4 13 F8 02 99 3A 99 3A 99 22 |;:.F2......:.:."| 00000BC0: 4F 4B 20 2D 20 47 45 48 45 4E 20 57 49 52 20 4D |OK - GEHEN WIR M| 00000BD0: 41 4C 20 56 4F 4E 20 45 49 4E 45 52 20 42 45 44 |AL VON EINER BED| 00000BE0: 45 55 54 55 4E 47 53 2D 53 4B 41 4C 41 20 41 55 |EUTUNGS-SKALA AU| 00000BF0: 53 2C 22 3B 00 14 14 02 03 99 22 44 49 45 20 56 |S,";......"DIE V| 00000C00: 4F 4E 20 30 20 42 49 53 20 31 30 20 52 45 49 43 |ON 0 BIS 10 REIC| 00000C10: 48 54 2E 22 00 3A 14 0C 03 99 46 24 28 46 32 29 |HT.".:....F$(F2)| 00000C20: 3B 22 20 41 4C 53 20 57 49 43 48 54 49 47 53 54 |;" ALS WICHTIGST| 00000C30: 45 52 20 46 41 4B 54 4F 52 22 00 58 14 16 03 99 |ER FAKTOR".X....| 00000C40: 22 45 52 48 41 45 4C 54 20 44 45 4E 20 57 45 52 |"ERHAELT DEN WER| 00000C50: 54 20 31 30 2E 22 3A 99 00 83 14 20 03 99 22 57 |T 10.":.... .."W| 00000C60: 45 4C 43 48 45 4E 20 57 45 52 54 20 28 44 45 5A |ELCHEN WERT (DEZ| 00000C70: 49 4D 41 4C 57 45 52 54 45 20 53 49 4E 44 20 4F |IMALWERTE SIND O| 00000C80: 4B 29 22 00 B0 14 2A 03 99 22 57 55 45 52 44 45 |K)"...*.."WUERDE| 00000C90: 4E 20 53 49 45 20 44 41 4E 4E 20 44 45 4E 20 41 |N SIE DANN DEN A| 00000CA0: 4E 44 45 52 45 4E 20 46 41 4B 54 4F 52 45 4E 22 |NDEREN FAKTOREN"| 00000CB0: 00 C1 14 34 03 99 22 5A 55 4F 52 44 4E 45 4E 3F |...4.."ZUORDNEN?| 00000CC0: 22 00 CF 14 3E 03 99 3A 81 49 B2 31 A4 46 30 00 |"...>..:.I.1.F0.| 00000CD0: DD 14 48 03 8B 49 B2 46 32 A7 38 36 30 00 EE 14 |..H..I.F2.860...| 00000CE0: 52 03 99 46 24 28 49 29 3A 85 46 28 49 29 00 14 |R..F$(I):.F(I)..| 00000CF0: 15 5C 03 82 3A 46 28 46 32 29 B2 31 30 3A 43 B2 |.\..:F(F2).10:C.| 00000D00: 30 3A 81 49 B2 31 A4 46 30 3A 43 B2 43 AA 46 28 |0:.I.1.F0:C.C.F(| 00000D10: 49 29 3A 82 00 2F 15 66 03 81 49 B2 31 A4 46 30 |I):../.f..I.1.F0| 00000D20: 3A 46 28 49 29 B2 46 28 49 29 AD 43 3A 82 49 00 |:F(I).F(I).C:.I.| 00000D30: 38 15 70 03 99 22 93 22 00 66 15 7A 03 99 22 20 |8.p..".".f.z.." | 00000D40: 47 45 42 45 4E 20 53 49 45 20 4D 49 52 20 4A 45 |GEBEN SIE MIR JE| 00000D50: 54 5A 54 20 42 49 54 54 45 20 41 4E 2C 20 57 49 |TZT BITTE AN, WI| 00000D60: 45 20 44 49 45 22 00 8E 15 84 03 99 22 4D 41 45 |E DIE"......"MAE| 00000D70: 44 43 48 45 4E 20 42 45 49 20 44 45 52 20 42 45 |DCHEN BEI DER BE| 00000D80: 54 52 41 43 48 54 55 4E 47 20 44 45 52 22 00 B4 |TRACHTUNG DER"..| 00000D90: 15 8E 03 99 22 45 49 4E 5A 45 4C 4E 45 4E 20 46 |...."EINZELNEN F| 00000DA0: 41 4B 54 4F 52 45 4E 20 41 42 53 43 48 4E 45 49 |AKTOREN ABSCHNEI| 00000DB0: 44 45 4E 22 00 E1 15 98 03 99 3A 99 22 4C 41 53 |DEN"......:."LAS| 00000DC0: 53 45 4E 20 53 49 45 20 55 4E 53 20 44 41 56 4F |SEN SIE UNS DAVO| 00000DD0: 4E 20 41 55 53 47 45 48 45 4E 2C 20 44 41 53 53 |N AUSGEHEN, DASS| 00000DE0: 22 00 0F 16 A2 03 99 4C 24 28 31 29 22 20 4A 45 |"......L$(1)" JE| 00000DF0: 57 45 49 4C 53 20 45 49 4E 45 4E 20 57 45 52 54 |WEILS EINEN WERT| 00000E00: 20 56 4F 4E 20 31 30 20 48 41 54 2E 22 3A 99 00 | VON 10 HAT.":..| 00000E10: 3D 16 AC 03 99 22 53 49 45 20 47 45 42 45 4E 20 |=...."SIE GEBEN | 00000E20: 44 41 4E 4E 20 44 45 4E 20 45 49 4E 5A 45 4C 4E |DANN DEN EINZELN| 00000E30: 45 4E 20 4D 41 45 44 43 48 45 4E 20 22 00 6C 16 |EN MAEDCHEN ".l.| 00000E40: B6 03 99 22 57 45 52 54 45 20 47 52 4F 45 53 53 |..."WERTE GROESS| 00000E50: 45 52 20 4F 44 45 52 20 4B 4C 45 49 4E 45 52 20 |ER ODER KLEINER | 00000E60: 41 4C 53 20 31 30 2C 20 4A 45 20 22 00 97 16 C0 |ALS 10, JE "....| 00000E70: 03 99 22 4E 41 43 48 44 45 4D 20 57 49 45 20 53 |.."NACHDEM WIE S| 00000E80: 49 45 20 49 4E 20 42 45 5A 55 47 20 41 55 46 20 |IE IN BEZUG AUF | 00000E90: 22 3B 4C 24 28 31 29 00 AA 16 CA 03 99 22 41 42 |";L$(1)......"AB| 00000EA0: 53 43 48 4E 45 49 44 45 4E 22 00 B6 16 D4 03 81 |SCHNEIDEN"......| 00000EB0: 49 B2 31 A4 46 30 00 E0 16 DE 03 99 3A 99 22 42 |I.1.F0......:."B| 00000EC0: 45 54 52 41 43 48 54 45 4E 20 57 49 52 20 45 49 |ETRACHTEN WIR EI| 00000ED0: 4E 4D 41 4C 20 4E 55 52 20 22 3B 46 24 28 49 29 |NMAL NUR ";F$(I)| 00000EE0: 00 0C 17 E8 03 99 22 55 4E 44 20 47 45 48 45 4E |......"UND GEHEN| 00000EF0: 20 57 49 52 20 44 41 56 4F 4E 20 41 55 53 2C 20 | WIR DAVON AUS, | 00000F00: 44 41 53 53 20 22 3B 4C 24 28 31 29 00 36 17 F2 |DASS ";L$(1).6..| 00000F10: 03 99 22 44 45 4E 20 57 45 52 54 20 31 30 20 45 |.."DEN WERT 10 E| 00000F20: 52 52 45 49 43 48 54 2C 20 57 45 4C 43 48 45 20 |RREICHT, WELCHE | 00000F30: 57 45 52 54 45 22 00 64 17 FC 03 99 22 57 55 45 |WERTE".d...."WUE| 00000F40: 52 44 45 4E 20 53 49 45 20 44 45 4E 20 41 4E 44 |RDEN SIE DEN AND| 00000F50: 45 52 45 4E 20 4D 41 45 44 43 48 45 4E 20 47 45 |EREN MAEDCHEN GE| 00000F60: 42 45 4E 22 00 72 17 06 04 99 3A 81 4A B2 32 A4 |BEN".r....:.J.2.| 00000F70: 4C 30 00 85 17 10 04 99 4C 24 28 4A 29 3A 85 4D |L0......L$(J):.M| 00000F80: 28 4A 2C 49 29 00 AF 17 1A 04 82 4A 3A 99 3A 4D |(J,I)......J:.:M| 00000F90: 28 31 2C 49 29 B2 31 30 3A 82 49 3A 81 49 B2 31 |(1,I).10:.I:.I.1| 00000FA0: A4 46 30 3A 43 B2 30 3A 81 4A B2 31 A4 4C 30 00 |.F0:C.0:.J.1.L0.| 00000FB0: DF 17 24 04 43 B2 43 AA 4D 28 4A 2C 49 29 3A 82 |..$.C.C.M(J,I):.| 00000FC0: 4A 3A 81 4A B2 31 A4 4C 30 3A 4D 28 4A 2C 49 29 |J:.J.1.L0:M(J,I)| 00000FD0: B2 4D 28 4A 2C 49 29 AD 43 3A 82 4A 3A 82 49 00 |.M(J,I).C:.J:.I.| 00000FE0: 10 18 2E 04 81 4A B2 31 A4 4C 30 3A 56 28 4A 29 |.....J.1.L0:V(J)| 00000FF0: B2 30 3A 81 49 B2 31 A4 46 30 3A 56 28 4A 29 B2 |.0:.I.1.F0:V(J).| 00001000: 56 28 4A 29 AA 4D 28 4A 2C 49 29 AC 46 28 49 29 |V(J).M(J,I).F(I)| 00001010: 00 3A 18 38 04 82 49 3A 82 4A 3A 81 49 B2 31 A4 |.:.8..I:.J:.I.1.| 00001020: 31 30 3A 5A 28 49 29 B2 49 3A 82 3A 43 B2 4C 30 |10:Z(I).I:.:C.L0| 00001030: AB 31 3A 81 4A B2 31 A4 4C 30 00 69 18 42 04 81 |.1:.J.1.L0.i.B..| 00001040: 49 B2 31 A4 43 3A 4E 31 B2 5A 28 49 29 3A 4E 32 |I.1.C:N1.Z(I):N2| 00001050: B2 5A 28 49 AA 31 29 3A 8B 56 28 4E 31 29 B1 56 |.Z(I.1):.V(N1).V| 00001060: 28 4E 32 29 A7 31 31 31 30 00 7F 18 4C 04 5A 28 |(N2).1110...L.Z(| 00001070: 49 AA 31 29 B2 4E 31 3A 5A 28 49 29 B2 4E 32 00 |I.1).N1:Z(I).N2.| 00001080: AD 18 56 04 82 49 3A 82 4A 3A 43 31 B2 5A 28 31 |..V..I:.J:C1.Z(1| 00001090: 29 3A 43 32 B2 5A 28 32 29 3A 43 B2 31 30 30 AD |):C2.Z(2):C.100.| 000010A0: 56 28 43 31 29 3A 81 4A B2 31 A4 4C 30 00 D1 18 |V(C1):.J.1.L0...| 000010B0: 60 04 56 28 4A 29 B2 43 AC 56 28 4A 29 3A 82 3A |`.V(J).C.V(J):.:| 000010C0: 99 3A 99 3A 44 B2 56 28 43 31 29 AB 56 28 43 32 |.:.:D.V(C1).V(C2| 000010D0: 29 00 DE 18 6A 04 99 22 93 22 3A 99 3A 99 00 07 |)...j..".":.:...| 000010E0: 19 74 04 99 A3 31 37 29 22 49 48 52 45 22 3A 99 |.t...17)"IHRE":.| 000010F0: 3A 99 22 20 49 44 45 41 4C 50 41 52 54 4E 45 52 |:." IDEALPARTNER| 00001100: 49 4E 20 22 3B 4F 24 00 27 19 7E 04 99 A3 31 36 |IN ";O$.'.~...16| 00001110: 29 22 48 45 49 53 53 54 22 3A 99 3A 99 A3 31 35 |)"HEISST":.:..15| 00001120: 29 4C 24 28 43 31 29 00 2D 19 88 04 99 00 59 19 |)L$(C1).-.....Y.| 00001130: 92 04 8B 44 B3 31 30 A7 99 22 20 20 20 20 28 41 |...D.10.." (A| 00001140: 4C 4C 45 52 44 49 4E 47 53 20 5A 49 45 4D 4C 49 |LLERDINGS ZIEMLI| 00001150: 43 48 20 4B 4E 41 50 50 29 00 85 19 9C 04 8B 44 |CH KNAPP)......D| 00001160: B3 32 30 AF 44 B1 B2 31 30 A7 99 22 20 20 20 20 |.20.D..10.." | 00001170: 28 4D 49 54 20 4B 4C 41 52 45 4D 20 41 42 53 54 |(MIT KLAREM ABST| 00001180: 41 4E 44 29 22 00 B6 19 A6 04 8B 44 B1 B2 32 30 |AND)"......D..20| 00001190: A7 99 22 20 20 20 20 28 45 49 4E 45 20 47 41 4E |.." (EINE GAN| 000011A0: 5A 20 4B 4C 41 52 45 20 45 4E 54 53 43 48 45 49 |Z KLARE ENTSCHEI| 000011B0: 44 55 4E 47 29 22 00 C2 19 B0 04 99 3A 8D 31 32 |DUNG)"......:.12| 000011C0: 36 30 00 F2 19 BA 04 99 3A 99 22 48 49 45 52 20 |60......:."HIER | 000011D0: 49 53 54 20 44 49 45 20 45 4E 54 47 55 45 4C 54 |IST DIE ENTGUELT| 000011E0: 49 47 45 20 52 45 49 48 45 4E 46 4F 4C 47 45 20 |IGE REIHENFOLGE | 000011F0: 3A 22 00 09 1A C4 04 99 3A 99 22 50 55 4E 4B 54 |:"......:."PUNKT| 00001200: 45 22 2C 22 4E 41 4D 45 22 00 2A 1A CE 04 81 4A |E","NAME".*....J| 00001210: B2 31 A4 4C 30 3A 43 B2 5A 28 4A 29 3A 99 56 28 |.1.L0:C.Z(J):.V(| 00001220: 43 29 2C 4C 24 28 43 29 3A 82 00 30 1A D8 04 80 |C),L$(C):..0....| 00001230: 00 36 1A E2 04 80 00 4D 1A EC 04 81 49 B2 31 A4 |.6.....M....I.1.| 00001240: 34 30 3A 99 22 A6 22 3B 3A 82 49 3A 8E 00 65 1A |40:.".";:.I:..e.| 00001250: F6 04 81 49 B2 31 A4 32 30 3A 99 22 28 29 22 3B |...I.1.20:."()";| 00001260: 3A 82 49 3A 8E 00 74 1A FB 04 59 59 24 B2 22 43 |:.I:..t...YY$."C| 00001270: 48 49 50 22 00 7A 1A 00 05 8E 00 00 00 00 |HIP".z........ |
..D.D.. ********************************
****************************...N.. *
*.J.X.. * PROGRAM
: MAEDCHEN
*...... *
*.P.... * AU
THOR : BY ELKE SALLER
*... .. *
MEDIENPRODUKTE
*.V.... *
*...... *
COPYRIGHT BY VOGEL VERLAG WU
ERZBURG *.\.... * I
M VERTRIEB VON GRUNER + JAHR AG&CO
*...... *
*...... *
INSTALLATION :
*.%.... *
*.H.H.. * DATE-WRITTEN : 20
.10.83 VERSION: 01 *...R.. *
*...... * SOURCE/OBJEC
T-COMPUTER: VC-64 /
*.1.... *
*.T....
* MEMORY SIZE : 4630 BYTES
*...... *
*...... **************************
**********************************......
.........".....,..53280,6.O.6.T1$."FUER'
S LEBEN":T2$."FUER DIE NAEHERE ZUKUNFT".
..@.T3$."FUER'S WOCHENENDE":T4$."FUER DI
E NAECHSTE NACHT"...J.."..":.1260:.1275.
T.T..:..4);YY$;" M A E D C H E N - T E
S T":.:.1260...Y..YY$.."CHIP". . 64738..
.^..F$(10),L$(10),F(10),M(10,10),V(10),Z
(10):..S.H.Y$."Y":." KEINE ENTSCHEIDUNGS
PROBLEME MEHR FUER".~.R.."VIELBESCHAEFTI
GTE JUNGGESELLEN !!":....|.." GEBEN SIE
MIR BITTE AN, WAS SIE UEBER".U...."DIE D
AMEN WISSEN. ICH HELFE IHNEN"......"DANN
BEI DIESER DELIKATEN ENTSCHEIDUNG":..M.
..." UEBERLASSEN SIE MIR DIESES PROBLEM,
UNDKONZENTRIEREN SIE SICH ";.Y...."VOLL
UND GANZ AUFDAS DANACH.......":.......Y
Y$.."CHIP".. 64738......"BEREIT";B$:.H(B
$,1)."N".1250......".":.:.:.:.:.:..8)"!!
! H A L T !!!"...B..:.:."ICH HAETTE NOCH
EINE (REIN STATISTISCHE) FRAGE :".G.L..
:..6)"TREFFEN SIE DIESE ENTSCHEIDUNG":..
R.V...2)"1-";T1$:..2)"2-";T2$:..2)"3-";T
3$.......2)"4-";T4$......E......E.1.540.
.....E.2.550......E.3.560......E.4.570.N
...O$.T1$:.580...&.O$.T2$:.580...0.O$.T3
$:.580...:.O$.T4$:.580...D..".":.1270.=.
N..:." UNTER WIEVIEL DIESER HIMMLISCHEN
GE-"...X.."SCHOEPFE (MIN=2-MAX=10) MUES
SEN SIE SICH DENN ENTSCHEIDEN";:.L0...B
..:."BITTE GEBEN SIE JETZT ALLE";L0;"MAE
DCHEN"...L.."(REIHENFOLGE SPIELT KEINE R
OLLE) EIN"...V..:.I.1.L0:."NUMMER";I;"BI
TTE":.L$(I):.:.I:..!....".":.1270.A....:
." OK, DAS WAEREN ALSO":..B....I.1.L0:..
3)I;"-";L$(I):.I:.......:."WIEVIEL FAKTO
REN(MAX=10) SIND EIGENTLICHWICHTIG BEI D
ER ";.Y...."ENTSCHEIDUNG FUER IHRE":.:..
4)"PARTNERIN ";O$......F0......"."...F..
"BITTE GEBEN SIE MIR DIESE FAKTOREN AN":
..E.P..I.1.F0:.:."FAKTOR";I;"BITTE":.F$(
I):.I.M.Z..".":."WELCHER VON DIESEN FAKT
OREN"......I.1.F0:..4)I;F$(I):.I......"I
ST DENN FUER SIE DER WICHTIGSTE";:.F2...
...:.:."OK - GEHEN WIR MAL VON EINER BED
EUTUNGS-SKALA AUS,";......"DIE VON 0 BIS
10 REICHT.".:....F$(F2);" ALS WICHTIGST
ER FAKTOR".X...."ERHAELT DEN WERT 10.":.
... .."WELCHEN WERT (DEZIMALWERTE SIND O
K)"...*.."WUERDEN SIE DANN DEN ANDEREN F
AKTOREN".A.4.."ZUORDNEN?".O.>..:.I.1.F0.
..H..I.F2.860...R..F$(I):.F(I)...\..:F(F
2).10:C.0:.I.1.F0:C.C.F(I):../.F..I.1.F0
:F(I).F(I).C:.I.8.P..".".F.Z.." GEBEN SI
E MIR JETZT BITTE AN, WIE DIE"......"MAE
DCHEN BEI DER BETRACHTUNG DER"......"EIN
ZELNEN FAKTOREN ABSCHNEIDEN"......:."LAS
SEN SIE UNS DAVON AUSGEHEN, DASS"......L
$(1)" JEWEILS EINEN WERT VON 10 HAT.":..
=...."SIE GEBEN DANN DEN EINZELNEN MAEDC
HEN ".L...."WERTE GROESSER ODER KLEINER
ALS 10, JE "......"NACHDEM WIE SIE IN BE
ZUG AUF ";L$(1)...J.."ABSCHNEIDEN"...T..
I.1.F0......:."BETRACHTEN WIR EINMAL NUR
";F$(I)......"UND GEHEN WIR DAVON AUS,
DASS ";L$(1).6...."DEN WERT 10 ERREICHT,
WELCHE WERTE".D...."WUERDEN SIE DEN AND
EREN MAEDCHEN GEBEN".R....:.J.2.L0......
L$(J):.M(J,I)......J:.:M(1,I).10:.I:.I.1
.F0:C.0:.J.1.L0...$.C.C.M(J,I):.J:.J.1.L
0:M(J,I).M(J,I).C:.J:.I......J.1.L0:V(J)
.0:.I.1.F0:V(J).V(J).M(J,I).F(I).:.8..I:
.J:.I.1.10:Z(I).I:.:C.L0.1:.J.1.L0.I.B..
I.1.C:N1.Z(I):N2.Z(I.1):.V(N1).V(N2).111
0..L.Z(I.1).N1:Z(I).N2...V..I:.J:C1.Z(1
):C2.Z(2):C.100.V(C1):.J.1.L0.Q.`.V(J).C
.V(J):.:.:.:D.V(C1).V(C2)...J..".":.:...
.T...17)"IHRE":.:." IDEALPARTNERIN ";O$.
'.~...16)"HEISST":.:..15)L$(C1).-.....Y.
...D.10.." (ALLERDINGS ZIEMLICH KNAPP
)......D.20.D..10.." (MIT KLAREM ABST
AND)"......D..20.." (EINE GANZ KLARE
ENTSCHEIDUNG)".B....:.1260......:."HIER
IST DIE ENTGUELTIGE REIHENFOLGE :"...D..
:."PUNKTE","NAME".*.N..J.1.L0:C.Z(J):.V(
C),L$(C):..0.X...6.....M....I.1.40:.".";
:.I:..E....I.1.20:."()";:.I:..T...YY$."C
HIP".Z........
> CLICK IMAGE PREVIEW FOR FULL MODAL