10.VEREINSKARTEI
FILE INFORMATION
FILENAME(S): 10.VEREINSKARTEI
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 01:07:52
APPEARS ON: 2 disk(s)
FILE HASH
1451f1b0184070e2e8c672f097a4b048efdf2a1ef6d2582df44936af41ceb624
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A NWENDER | 10.VEREINSKARTEI | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 10 | DOWNLOAD FILE |
| FREEWARE DISK NR | 10.VEREINSKARTEI | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 35 08 |*************.5.|
00000020: 78 00 8F 20 56 45 52 45 49 4E 53 56 45 52 57 41 |x.. VEREINSVERWA|
00000030: 4C 54 55 4E 47 00 80 08 8C 00 8F 20 20 47 45 4E |LTUNG...... GEN|
00000040: 41 55 45 20 41 4E 5A 41 48 4C 20 44 45 52 20 4D |AUE ANZAHL DER M|
00000050: 49 54 47 4C 49 45 44 45 52 20 41 55 46 2C 20 57 |ITGLIEDER AUF, W|
00000060: 45 4E 4E 20 4D 41 4E 20 44 41 53 20 50 47 4D 20 |ENN MAN DAS PGM |
00000070: 41 45 4E 44 45 52 54 20 4B 41 4E 4E 20 4D 41 4E |AENDERT KANN MAN|
00000080: 00 A3 08 96 00 8F 20 20 41 55 43 48 20 41 4E 44 |...... AUCH AND|
00000090: 45 52 45 20 44 41 54 45 4E 20 41 42 46 52 41 47 |ERE DATEN ABFRAG|
000000A0: 45 4E 21 00 BF 08 B4 00 8F 20 2A 2A 2A 2A 2A 2A |EN!...... ******|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000C0: C5 08 C8 00 3A 00 D0 08 D2 00 8F 20 49 4E 49 54 |....:...... INIT|
000000D0: 00 F5 08 DC 00 4E B2 30 3A 8F 20 41 4B 54 55 45 |.....N.0:. AKTUE|
000000E0: 4C 4C 45 20 41 4E 5A 41 48 4C 20 4D 49 54 47 4C |LLE ANZAHL MITGL|
000000F0: 49 45 44 45 52 00 1A 09 E6 00 44 B2 31 30 30 3A |IEDER.....D.100:|
00000100: 8F 20 44 49 4D 45 4E 53 49 4F 4E 20 4D 49 54 47 |. DIMENSION MITG|
00000110: 4C 49 45 44 45 52 46 45 4C 44 00 3C 09 F0 00 86 |LIEDERFELD.<....|
00000120: 20 4B 4F 24 28 38 29 2C 4D 49 24 28 44 2C 38 29 | KO$(8),MI$(D,8)|
00000130: 2C 41 28 44 29 2C 53 28 44 2C 31 29 00 51 09 FA |,A(D),S(D,1).Q..|
00000140: 00 81 49 B2 30 A4 38 3A 87 4B 4F 24 28 49 29 3A |..I.0.8:.KO$(I):|
00000150: 82 00 6F 09 04 01 4C 24 B2 22 20 20 20 20 20 20 |..o...L$." |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000170: 80 09 0E 01 83 20 4D 49 54 47 4C 2E 2D 4E 52 2E |..... MITGL.-NR.|
00000180: 00 91 09 18 01 83 20 4E 41 4D 45 2F 56 4F 52 4E |...... NAME/VORN|
00000190: 2E 00 A2 09 22 01 83 20 53 54 52 41 53 53 45 2E |....".. STRASSE.|
000001A0: 2E 2E 00 B3 09 2C 01 83 20 50 4C 5A 2F 4F 52 54 |.....,.. PLZ/ORT|
000001B0: 2E 2E 2E 00 C4 09 36 01 83 20 54 45 4C 45 46 4F |......6.. TELEFO|
000001C0: 4E 2E 2E 2E 00 D5 09 40 01 83 20 42 45 52 55 46 |N......@.. BERUF|
000001D0: 2E 2E 2E 2E 2E 00 E6 09 4A 01 83 20 41 55 46 47 |........J.. AUFG|
000001E0: 41 42 45 4E 2E 2E 00 F7 09 54 01 83 20 42 45 4D |ABEN.....T.. BEM|
000001F0: 45 52 4B 55 4E 47 2E 00 08 0A 5E 01 83 20 42 45 |ERKUNG....^.. BE|
00000200: 49 54 52 41 45 47 45 2E 00 1F 0A 68 01 97 35 33 |ITRAEGE....h..53|
00000210: 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 31 31 00 |280,0:.53281,11.|
00000220: 2B 0A 72 01 8F 20 4D 45 4E 55 45 00 51 0A 7C 01 |+.r.. MENUE.Q.|.|
00000230: 99 22 93 11 20 20 20 20 20 1E 12 A9 20 20 20 20 |.".. ... |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DF | .|
00000250: 22 00 75 0A 86 01 99 22 20 20 20 20 20 12 20 20 |".u...." . |
00000260: 20 20 56 45 52 45 49 4E 53 56 45 52 57 41 4C 54 | VEREINSVERWALT|
00000270: 45 52 20 92 22 00 9A 0A 87 01 99 22 20 20 20 20 |ER ."......" |
00000280: 20 1E DF 12 20 20 20 20 20 20 20 20 20 20 20 20 | ... |
00000290: 20 20 20 20 20 20 20 92 A9 22 00 BE 0A 90 01 99 | .."......|
000002A0: 22 20 20 20 9C A4 11 9D 12 31 92 9A 20 20 4C 41 |" .....1.. LA|
000002B0: 44 45 20 4D 49 54 47 4C 49 45 44 45 52 22 00 E1 |DE MITGLIEDER"..|
000002C0: 0A 9A 01 99 22 20 20 20 9C A4 11 9D 12 32 92 9A |...." .....2..|
000002D0: 20 20 4E 45 55 45 53 20 4D 49 54 47 4C 49 45 44 | NEUES MITGLIED|
000002E0: 22 00 0C 0B A4 01 99 22 20 20 20 9C A4 11 9D 12 |"......" .....|
000002F0: 33 92 9A 20 20 53 55 43 48 45 20 4E 41 43 48 20 |3.. SUCHE NACH |
00000300: 4D 49 54 47 4C 49 45 44 45 52 4E 22 00 31 0B AE |MITGLIEDERN".1..|
00000310: 01 99 22 20 20 20 9C A4 11 9D 12 34 92 9A 20 20 |.." .....4.. |
00000320: 41 45 4E 44 45 52 45 20 4D 49 54 47 4C 49 45 44 |AENDERE MITGLIED|
00000330: 22 00 58 0B B8 01 99 22 20 20 20 9C A4 11 9D 12 |".X...." .....|
00000340: 35 92 9A 20 20 4C 4F 45 53 43 48 45 20 31 20 4D |5.. LOESCHE 1 M|
00000350: 49 54 47 4C 49 45 44 22 00 81 0B C2 01 99 22 20 |ITGLIED"......" |
00000360: 20 20 9C A4 11 9D 12 36 92 9A 20 20 4C 49 53 54 | .....6.. LIST|
00000370: 45 20 44 45 52 20 4D 49 54 47 4C 49 45 44 45 52 |E DER MITGLIEDER|
00000380: 22 00 A5 0B CC 01 99 22 20 20 20 9C A4 11 9D 12 |"......" .....|
00000390: 37 92 9A 20 20 53 41 56 45 20 4D 49 54 47 4C 49 |7.. SAVE MITGLI|
000003A0: 45 44 45 52 22 00 C8 0B D6 01 99 22 20 20 20 9C |EDER"......" .|
000003B0: A4 11 9D 12 38 92 9A 20 20 53 4F 52 54 49 45 52 |....8.. SORTIER|
000003C0: 52 4F 55 54 49 4E 45 22 00 E0 0B E0 01 99 22 20 |ROUTINE"......" |
000003D0: 20 20 9C A4 11 9D 12 39 92 9A 20 20 45 4E 44 22 | .....9.. END"|
000003E0: 00 F3 0B EA 01 A1 58 24 3A 8B 58 24 B2 22 22 A7 |......X$:.X$."".|
000003F0: 34 39 30 00 08 0C F4 01 58 B2 C5 28 58 24 29 3A |490.....X..(X$):|
00000400: 8B 58 B2 30 A7 34 39 30 00 3C 0C FE 01 91 20 58 |.X.0.490.<.... X|
00000410: 20 8D 20 35 36 30 2C 37 31 30 2C 32 35 36 30 2C | . 560,710,2560,|
00000420: 39 30 30 2C 31 30 33 30 2C 31 31 36 30 2C 31 39 |900,1030,1160,19|
00000430: 30 30 2C 32 30 36 30 2C 32 32 39 30 00 45 0C 1C |00,2060,2290.E..|
00000440: 02 89 33 37 30 00 4B 0C 26 02 3A 00 61 0C 30 02 |..370.K.&.:.a.0.|
00000450: 8F 20 4C 4F 41 44 20 4D 49 54 47 4C 49 45 44 45 |. LOAD MITGLIEDE|
00000460: 52 00 87 0C 3A 02 99 22 90 93 20 20 20 20 20 A4 |R...:..".. .|
00000470: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000480: A4 A4 A4 A4 A4 A4 22 00 AD 0C 44 02 99 22 20 20 |......"...D.." |
00000490: 20 20 20 12 20 4D 49 54 47 4C 49 45 44 45 52 44 | . MITGLIEDERD|
000004A0: 41 54 45 49 20 4C 41 44 45 4E 20 92 22 00 C3 0C |ATEI LADEN ."...|
000004B0: 4E 02 8D 32 34 36 30 3A 8F 20 4B 41 53 53 2F 44 |N..2460:. KASS/D|
000004C0: 49 53 4B 00 D6 0C 58 02 8B 4B 44 24 B2 C7 28 31 |ISK...X..KD$..(1|
000004D0: 33 29 A7 36 39 30 00 FC 0C 62 02 8B 4B 44 24 B2 |3).690...b..KD$.|
000004E0: 22 4B 22 A7 9F 31 2C 31 2C 30 2C 22 4D 49 54 47 |"K"..1,1,0,"MITG|
000004F0: 4C 49 45 44 45 52 44 41 54 45 49 22 00 3A 0D 6C |LIEDERDATEI".:.l|
00000500: 02 8B 4B 44 24 B2 22 44 22 A7 9F 31 35 2C 38 2C |..KD$."D"..15,8,|
00000510: 31 35 2C 22 49 30 22 3A A0 31 35 3A 9F 31 2C 38 |15,"I0":.15:.1,8|
00000520: 2C 38 2C 22 30 3A 4D 49 54 47 4C 49 45 44 45 52 |,8,"0:MITGLIEDER|
00000530: 44 41 54 45 49 2C 53 2C 52 22 00 65 0D 76 02 99 |DATEI,S,R".e.v..|
00000540: 22 9E 11 11 4D 49 54 47 4C 49 45 44 45 52 44 41 |"...MITGLIEDERDA|
00000550: 54 45 49 20 57 49 52 44 20 45 49 4E 47 45 4C 45 |TEI WIRD EINGELE|
00000560: 53 45 4E 2E 22 00 6E 0D 80 02 84 31 2C 4E 00 87 |SEN.".n....1,N..|
00000570: 0D 8A 02 81 49 B2 31 A4 4E 3A 81 4A B2 30 A4 38 |....I.1.N:.J.0.8|
00000580: 3A 84 31 2C 4D 49 24 00 A8 0D 94 02 8B C6 28 4D |:.1,MI$.......(M|
00000590: 49 24 29 B3 33 32 A7 4D 49 24 B2 CA 28 4D 49 24 |I$).32.MI$..(MI$|
000005A0: 2C 32 29 3A 89 36 36 30 00 C0 0D 9E 02 4D 49 24 |,2):.660.....MI$|
000005B0: 28 49 2C 4A 29 B2 4D 49 24 3A 82 3A 82 3A A0 31 |(I,J).MI$:.:.:.1|
000005C0: 00 C6 0D B2 02 8E 00 CC 0D BC 02 3A 00 E1 0D C6 |...........:....|
000005D0: 02 8F 20 4E 45 55 45 53 20 4D 49 54 47 4C 49 45 |.. NEUES MITGLIE|
000005E0: 44 00 F0 0D D0 02 99 22 93 22 3A 4E B2 4E AA 31 |D......".":N.N.1|
000005F0: 00 0A 0E DA 02 81 4A B2 30 A4 38 3A 4D 49 24 28 |......J.0.8:MI$(|
00000600: 4E 2C 4A 29 B2 22 2A 22 3A 82 00 23 0E E4 02 99 |N,J)."*":..#....|
00000610: 22 13 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |"...............|
00000620: A4 A4 22 00 3F 0E EE 02 99 22 12 20 4E 45 55 45 |..".?....". NEUE|
00000630: 53 20 4D 49 54 47 4C 49 45 44 20 92 90 22 3B 00 |S MITGLIED ..";.|
00000640: 56 0E F8 02 99 2C B8 28 30 29 3B 22 42 59 54 45 |V....,.(0);"BYTE|
00000650: 20 46 52 45 49 22 00 69 0E 02 03 99 22 11 A4 A4 | FREI".i...."...|
00000660: A4 A4 A4 A4 A4 A4 A4 A4 22 00 74 0E 0C 03 81 49 |........".t....I|
00000670: B2 30 A4 38 00 94 0E 16 03 99 22 90 12 22 3B 4B |.0.8......"..";K|
00000680: 4F 24 28 49 29 3B 22 92 3F 20 22 3B 4D 49 24 28 |O$(I);".? ";MI$(|
00000690: 4E 2C 49 29 00 A9 0E 20 03 99 22 91 9C 22 2C 3A |N,I)... .."..",:|
000006A0: 85 4D 49 24 28 4E 2C 49 29 00 AF 0E 2A 03 82 00 |.MI$(N,I)...*...|
000006B0: CF 0E 34 03 99 22 11 41 4C 4C 45 20 41 4E 47 41 |..4..".ALLE ANGA|
000006C0: 42 45 4E 20 4F 4B 20 28 4A 2F 4E 29 20 3F 22 00 |BEN OK (J/N) ?".|
000006D0: EC 0E 3E 03 A1 58 24 3A 8B 58 24 B3 B1 22 4A 22 |..>..X$:.X$.."J"|
000006E0: AF 58 24 B3 B1 22 4E 22 A7 38 33 30 00 FC 0E 48 |.X$.."N".830...H|
000006F0: 03 8B 58 24 B2 22 4E 22 A7 37 34 30 00 24 0F 52 |..X$."N".740.$.R|
00000700: 03 99 22 11 57 45 49 54 45 52 45 20 4E 45 55 45 |..".WEITERE NEUE|
00000710: 20 4D 49 54 47 4C 49 45 44 45 52 20 28 4A 2F 4E | MITGLIEDER (J/N|
00000720: 29 20 3F 22 00 41 0F 5C 03 A1 58 24 3A 8B 58 24 |) ?".A.\..X$:.X$|
00000730: B3 B1 22 4A 22 AF 58 24 B3 B1 22 4E 22 A7 38 36 |.."J".X$.."N".86|
00000740: 30 00 51 0F 66 03 8B 58 24 B2 22 4A 22 A7 37 31 |0.Q.f..X$."J".71|
00000750: 30 00 57 0F 70 03 8E 00 5D 0F 7A 03 3A 00 80 0F |0.W.p...].z.:...|
00000760: 84 03 8F 20 41 45 4E 44 45 52 55 4E 47 20 44 45 |... AENDERUNG DE|
00000770: 52 20 4D 49 54 47 4C 49 45 44 53 44 41 54 45 4E |R MITGLIEDSDATEN|
00000780: 00 AB 0F 8E 03 99 22 1E 93 20 20 20 A4 A4 A4 A4 |......".. ....|
00000790: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000007A0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 D7 0F 98 03 |..........".....|
000007B0: 99 22 20 20 20 12 20 41 45 4E 44 45 52 55 4E 47 |." . AENDERUNG|
000007C0: 20 44 45 52 20 4D 49 54 47 4C 49 45 44 53 44 41 | DER MITGLIEDSDA|
000007D0: 54 45 4E 20 92 1E 22 00 EB 0F A2 03 8D 32 33 35 |TEN .."......235|
000007E0: 30 3A 8B 58 B2 30 A7 31 30 31 30 00 FA 0F AC 03 |0:.X.0.1010.....|
000007F0: 99 22 13 11 11 11 11 11 11 22 00 05 10 B6 03 81 |."......."......|
00000800: 49 B2 30 A4 38 00 19 10 C0 03 99 22 81 22 2C 3A |I.0.8......".",:|
00000810: 85 4D 49 24 28 58 2C 49 29 00 1F 10 CA 03 82 00 |.MI$(X,I).......|
00000820: 40 10 D4 03 99 22 11 11 90 44 41 54 45 4E 20 4A |@...."...DATEN J|
00000830: 45 54 5A 54 20 4F 4B 20 28 4A 2F 4E 29 20 3F 22 |ETZT OK (J/N) ?"|
00000840: 00 5D 10 DE 03 A1 58 24 3A 8B 58 24 B3 B1 22 4A |.]....X$:.X$.."J|
00000850: 22 AF 58 24 B3 B1 22 4E 22 A7 39 39 30 00 6D 10 |".X$.."N".990.m.|
00000860: E8 03 8B 58 24 B2 22 4E 22 A7 39 34 30 00 73 10 |...X$."N".940.s.|
00000870: F2 03 8E 00 79 10 FC 03 3A 00 95 10 06 04 8F 20 |....y...:...... |
00000880: 45 49 4E 20 4D 49 54 47 4C 49 45 44 20 4C 4F 45 |EIN MITGLIED LOE|
00000890: 53 43 48 45 4E 00 BA 10 10 04 99 22 93 20 20 20 |SCHEN......". |
000008A0: 20 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 | ..............|
000008B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 E0 10 1A 04 99 |........."......|
000008C0: 22 20 20 20 20 20 12 20 45 49 4E 20 4D 49 54 47 |" . EIN MITG|
000008D0: 4C 49 45 44 20 4C 4F 45 53 43 48 45 4E 20 92 22 |LIED LOESCHEN ."|
000008E0: 00 F4 10 24 04 8D 32 33 35 30 3A 8B 58 B2 30 A7 |...$..2350:.X.0.|
000008F0: 31 31 34 30 00 16 11 2E 04 99 22 11 4D 49 54 47 |1140......".MITG|
00000900: 4C 49 45 44 20 4C 4F 45 53 43 48 45 4E 20 28 4A |LIED LOESCHEN (J|
00000910: 2F 4E 29 20 3F 22 00 34 11 38 04 A1 58 24 3A 8B |/N) ?".4.8..X$:.|
00000920: 58 24 B3 B1 22 4A 22 AF 58 24 B3 B1 22 4E 22 A7 |X$.."J".X$.."N".|
00000930: 31 30 38 30 00 45 11 42 04 8B 58 24 B2 22 4E 22 |1080.E.B..X$."N"|
00000940: A7 31 31 34 30 00 67 11 4C 04 99 22 91 4D 49 54 |.1140.g.L..".MIT|
00000950: 47 4C 49 45 44 20 57 49 52 44 20 47 45 4C 4F 45 |GLIED WIRD GELOE|
00000960: 53 43 48 54 20 21 22 00 7B 11 56 04 81 49 B2 58 |SCHT !".{.V..I.X|
00000970: A4 4E AB 31 3A 81 4A B2 30 A4 38 00 93 11 60 04 |.N.1:.J.0.8...`.|
00000980: 4D 49 24 28 49 2C 4A 29 B2 4D 49 24 28 49 AA 31 |MI$(I,J).MI$(I.1|
00000990: 2C 4A 29 00 A1 11 6A 04 82 3A 82 3A 4E B2 4E AB |,J)...j..:.:N.N.|
000009A0: 31 00 A7 11 74 04 8E 00 AD 11 7E 04 3A 00 C8 11 |1...t.....~.:...|
000009B0: 88 04 8F 20 4C 49 53 54 45 20 44 45 52 20 4D 49 |... LISTE DER MI|
000009C0: 54 47 4C 49 45 44 45 52 00 E6 11 92 04 99 22 93 |TGLIEDER......".|
000009D0: 81 22 2C 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |.","............|
000009E0: A4 A4 A4 A4 A4 22 00 04 12 9C 04 99 2C 22 12 20 |....."......,". |
000009F0: 4D 49 54 47 4C 49 45 44 45 52 44 41 54 45 4E 20 |MITGLIEDERDATEN |
00000A00: 92 11 11 22 00 23 12 A6 04 99 22 90 20 20 20 A4 |...".#....". .|
00000A10: 11 9D 12 31 92 9A 20 20 42 49 4C 44 53 43 48 49 |...1.. BILDSCHI|
00000A20: 52 4D 22 00 39 12 B0 04 99 22 11 11 41 55 46 20 |RM".9...."..AUF |
00000A30: 44 52 55 43 4B 45 52 3A 22 00 58 12 BA 04 99 22 |DRUCKER:".X...."|
00000A40: 90 20 20 20 A4 11 9D 12 32 92 9A 20 20 41 4C 4C |. ....2.. ALL|
00000A50: 45 20 44 41 54 45 4E 22 00 7E 12 C4 04 99 22 90 |E DATEN".~....".|
00000A60: 20 20 20 A4 11 9D 12 33 92 9A 20 20 41 44 52 45 | ....3.. ADRE|
00000A70: 53 53 45 4E 41 55 46 4B 4C 45 42 45 52 22 00 A0 |SSENAUFKLEBER"..|
00000A80: 12 CE 04 99 22 90 20 20 20 A4 11 9D 12 34 92 9A |....". ....4..|
00000A90: 20 20 41 44 52 45 53 53 45 4E 4C 49 53 54 45 22 | ADRESSENLISTE"|
00000AA0: 00 C7 12 D8 04 99 22 90 20 20 20 A4 11 9D 12 35 |......". ....5|
00000AB0: 92 9A 20 20 45 49 4E 5A 45 4C 4E 45 53 20 4D 49 |.. EINZELNES MI|
00000AC0: 54 47 4C 49 45 44 22 00 F5 12 E2 04 99 22 90 20 |TGLIED"......". |
00000AD0: 20 20 A4 11 9D 12 36 92 9A 20 20 41 4B 54 49 56 | ....6.. AKTIV|
00000AE0: 45 2F 50 41 53 53 49 56 45 20 4D 49 54 47 4C 49 |E/PASSIVE MITGLI|
00000AF0: 45 44 45 52 22 00 09 13 EC 04 A1 58 24 3A 8B 58 |EDER"......X$:.X|
00000B00: 24 B2 22 22 A7 31 32 36 30 00 23 13 F6 04 58 B2 |$."".1260.#...X.|
00000B10: C5 28 58 24 29 3A 8B 58 B2 30 B0 58 B1 36 A7 31 |.(X$):.X.0.X.6.1|
00000B20: 32 36 30 00 48 13 00 05 91 58 89 31 33 30 30 2C |260.H....X.1300,|
00000B30: 31 34 32 30 2C 31 34 38 30 2C 31 37 31 30 2C 31 |1420,1480,1710,1|
00000B40: 35 39 30 2C 31 38 32 30 00 4E 13 0A 05 3A 00 5F |590,1820.N...:._|
00000B50: 13 14 05 8F 20 42 49 4C 44 53 43 48 49 52 4D 00 |.... BILDSCHIRM.|
00000B60: 6A 13 1E 05 81 58 B2 31 A4 4E 00 86 13 28 05 99 |j....X.1.N...(..|
00000B70: 22 90 93 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |"...............|
00000B80: A4 A4 A4 A4 A4 22 00 A6 13 32 05 99 22 12 20 4D |....."...2..". M|
00000B90: 49 54 47 4C 49 45 44 45 52 4C 49 53 54 45 3A 20 |ITGLIEDERLISTE: |
00000BA0: 92 11 11 11 9C 22 00 BB 13 3C 05 8D 32 34 30 30 |....."...<..2400|
00000BB0: 3A 8F 20 4D 49 54 47 4C 49 45 44 00 FB 13 46 05 |:. MITGLIED...F.|
00000BC0: 99 22 81 A4 11 9D 12 4E 92 41 45 43 48 53 54 45 |.".....N.AECHSTE|
00000BD0: 53 20 4D 49 54 47 4C 2E 20 20 91 A4 11 9D 12 56 |S MITGL. .....V|
00000BE0: 92 4F 52 49 47 45 53 20 4D 49 54 47 4C 2E 20 20 |.ORIGES MITGL. |
00000BF0: 91 A4 11 9D 12 45 92 4E 44 45 22 00 2B 14 50 05 |.....E.NDE".+.P.|
00000C00: A1 58 24 3A 8B 58 24 B3 B1 22 4E 22 AF 58 24 B3 |.X$:.X$.."N".X$.|
00000C10: B1 22 56 22 AF 58 24 B3 B1 22 45 22 AF 58 24 B3 |."V".X$.."E".X$.|
00000C20: B1 C7 28 31 33 29 A7 31 33 36 30 00 48 14 5A 05 |..(13).1360.H.Z.|
00000C30: 8B 58 24 B2 22 56 22 A7 58 B2 58 AB 32 3A 8B 58 |.X$."V".X.X.2:.X|
00000C40: B3 30 A7 58 B2 58 AA 31 00 58 14 64 05 8B 58 24 |.0.X.X.1.X.d..X$|
00000C50: B2 22 45 22 A7 58 B2 4E 00 5E 14 6E 05 82 00 64 |."E".X.N.^.n...d|
00000C60: 14 78 05 8E 00 6A 14 82 05 3A 00 7E 14 8C 05 8F |.x...j...:.~....|
00000C70: 20 47 45 53 41 4D 54 41 4E 47 41 42 45 4E 00 89 | GESAMTANGABEN..|
00000C80: 14 96 05 81 58 B2 31 A4 4E 00 A8 14 A0 05 8D 31 |....X.1.N......1|
00000C90: 36 33 30 3A 8F 20 41 4C 4C 45 20 44 41 54 45 4E |630:. ALLE DATEN|
00000CA0: 20 44 52 55 43 4B 45 4E 00 AE 14 AA 05 82 00 B4 | DRUCKEN........|
00000CB0: 14 B4 05 8E 00 BA 14 BE 05 3A 00 D2 14 C8 05 8F |.........:......|
00000CC0: 20 41 44 52 45 53 53 45 4E 41 55 46 4B 4C 45 42 | ADRESSENAUFKLEB|
00000CD0: 45 52 00 DE 14 D2 05 9F 34 2C 34 3A 9D 34 00 E9 |ER......4,4:.4..|
00000CE0: 14 DC 05 81 49 B2 31 A4 4E 00 FB 14 E6 05 99 22 |....I.1.N......"|
00000CF0: 48 45 52 52 4E 2F 46 52 41 55 22 00 09 15 F0 05 |HERRN/FRAU".....|
00000D00: 99 4D 49 24 28 49 2C 31 29 00 19 15 FA 05 99 4D |.MI$(I,1)......M|
00000D10: 49 24 28 49 2C 32 29 3A 99 00 27 15 04 06 99 4D |I$(I,2):..'....M|
00000D20: 49 24 28 49 2C 33 29 00 33 15 0E 06 99 3A 99 3A |I$(I,3).3....:.:|
00000D30: 99 3A 99 00 3F 15 18 06 82 3A 98 34 3A A0 34 00 |.:..?....:.4:.4.|
00000D40: 45 15 22 06 8E 00 4B 15 2C 06 3A 00 64 15 36 06 |E."...K.,.:.d.6.|
00000D50: 8F 20 45 49 4E 5A 45 4C 4E 45 53 20 4D 49 54 47 |. EINZELNES MITG|
00000D60: 4C 49 45 44 00 90 15 40 06 99 22 90 93 20 20 20 |LIED...@..".. |
00000D70: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000D80: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 |..............."|
00000D90: 00 BC 15 4A 06 99 22 20 20 20 12 20 45 49 4E 5A |...J.." . EINZ|
00000DA0: 45 4C 4E 45 53 20 4D 49 54 47 4C 49 45 44 20 41 |ELNES MITGLIED A|
00000DB0: 55 53 44 52 55 43 4B 45 4E 20 92 22 00 D0 15 54 |USDRUCKEN ."...T|
00000DC0: 06 8D 32 33 35 30 3A 8B 58 B2 30 A7 31 36 39 30 |..2350:.X.0.1690|
00000DD0: 00 DC 15 5E 06 9F 34 2C 34 3A 9D 34 00 E7 15 68 |...^..4,4:.4...h|
00000DE0: 06 81 4A B2 30 A4 38 00 04 16 72 06 99 4B 4F 24 |..J.0.8...r..KO$|
00000DF0: 28 4A 29 3B 22 2E 2E 2E 2E 20 22 3B 4D 49 24 28 |(J);".... ";MI$(|
00000E00: 58 2C 4A 29 00 0C 16 7C 06 82 3A 99 00 2A 16 86 |X,J)...|..:..*..|
00000E10: 06 81 49 B2 31 A4 34 3A 99 22 2D 2D 2D 2D 2D 2D |..I.1.4:."------|
00000E20: 2D 2D 2D 2D 22 3B 3A 82 3A 99 00 34 16 90 06 98 |----";:.:..4....|
00000E30: 34 3A A0 34 00 3A 16 9A 06 8E 00 40 16 A4 06 3A |4:.4.:.....@...:|
00000E40: 00 54 16 AE 06 8F 20 41 44 52 45 53 53 45 4E 4C |.T.... ADRESSENL|
00000E50: 49 53 54 45 00 62 16 B8 06 9F 34 2C 34 3A 9D 34 |ISTE.b....4,4:.4|
00000E60: 3A 99 00 85 16 C2 06 99 C7 28 31 29 3B C7 28 31 |:........(1);.(1|
00000E70: 29 3B 22 20 20 20 20 41 44 52 45 53 53 45 4E 4C |);" ADRESSENL|
00000E80: 49 53 54 45 22 00 8D 16 CC 06 99 3A 99 00 98 16 |ISTE"......:....|
00000E90: D6 06 81 49 B2 31 A4 4E 00 B9 16 E0 06 81 4A B2 |...I.1.N......J.|
00000EA0: 31 A4 33 3A 99 C8 28 4D 49 24 28 49 2C 4A 29 AA |1.3:..(MI$(I,J).|
00000EB0: 4C 24 2C 32 31 29 3B 3A 82 00 D0 16 EA 06 99 C8 |L$,21);:........|
00000EC0: 28 4D 49 24 28 49 2C 34 29 AA 4C 24 2C 31 36 29 |(MI$(I,4).L$,16)|
00000ED0: 00 DA 16 F4 06 82 3A 99 3A 99 00 E4 16 FE 06 98 |......:.:.......|
00000EE0: 34 3A A0 34 00 EA 16 08 07 8E 00 F0 16 12 07 3A |4:.4...........:|
00000EF0: 00 08 17 1C 07 8F 20 41 4B 54 2F 50 41 53 53 20 |...... AKT/PASS |
00000F00: 4D 49 54 47 4C 49 45 44 00 48 17 26 07 99 22 90 |MITGLIED.H.&..".|
00000F10: 93 11 11 11 A4 11 9D 12 41 92 4B 54 49 56 45 20 |........A.KTIVE |
00000F20: 4F 44 45 52 20 91 A4 11 9D 12 50 92 41 53 53 49 |ODER .....P.ASSI|
00000F30: 56 45 20 4D 49 54 47 4C 49 45 44 45 52 20 44 52 |VE MITGLIEDER DR|
00000F40: 55 43 4B 45 4E 3F 92 22 00 66 17 30 07 A1 58 24 |UCKEN?.".f.0..X$|
00000F50: 3A 8B 58 24 B3 B1 22 41 22 AF 58 24 B3 B1 22 50 |:.X$.."A".X$.."P|
00000F60: 22 A7 31 38 34 30 00 71 17 3A 07 81 58 B2 31 A4 |".1840.q.:..X.1.|
00000F70: 4E 00 A7 17 44 07 8B C8 28 4D 49 24 28 58 2C 30 |N...D...(MI$(X,0|
00000F80: 29 2C 31 29 B2 58 24 A7 8D 31 36 33 30 3A 8F 20 |),1).X$..1630:. |
00000F90: 44 49 45 53 45 53 20 4D 49 54 47 4C 49 45 44 20 |DIESES MITGLIED |
00000FA0: 44 52 55 43 4B 45 4E 00 AD 17 4E 07 82 00 B3 17 |DRUCKEN...N.....|
00000FB0: 58 07 8E 00 B9 17 62 07 3A 00 CA 17 6C 07 8F 20 |X.....b.:...l.. |
00000FC0: 53 41 56 45 20 44 41 54 45 49 00 F2 17 76 07 99 |SAVE DATEI...v..|
00000FD0: 22 96 93 20 20 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |".. ..........|
00000FE0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000FF0: A4 22 00 1A 18 80 07 99 22 20 20 20 12 20 4D 49 |."......" . MI|
00001000: 54 47 4C 49 45 44 45 52 44 41 54 45 49 20 53 50 |TGLIEDERDATEI SP|
00001010: 45 49 43 48 45 52 4E 20 92 22 00 30 18 8A 07 8D |EICHERN .".0....|
00001020: 32 34 36 30 3A 8F 20 4B 41 53 53 2F 44 49 53 4B |2460:. KASS/DISK|
00001030: 00 44 18 94 07 8B 4B 44 24 B2 C7 28 31 33 29 A7 |.D....KD$..(13).|
00001040: 32 30 34 30 00 6A 18 9E 07 8B 4B 44 24 B2 22 4B |2040.j....KD$."K|
00001050: 22 A7 9F 31 2C 31 2C 31 2C 22 4D 49 54 47 4C 49 |"..1,1,1,"MITGLI|
00001060: 45 44 45 52 44 41 54 45 49 22 00 A9 18 A8 07 8B |EDERDATEI"......|
00001070: 4B 44 24 B2 22 44 22 A7 9F 31 35 2C 38 2C 31 35 |KD$."D"..15,8,15|
00001080: 2C 22 49 30 22 3A A0 31 35 3A 9F 31 2C 38 2C 38 |,"I0":.15:.1,8,8|
00001090: 2C 22 40 30 3A 4D 49 54 47 4C 49 45 44 45 52 44 |,"@0:MITGLIEDERD|
000010A0: 41 54 45 49 2C 53 2C 57 22 00 D5 18 B2 07 99 22 |ATEI,S,W"......"|
000010B0: 9E 11 11 4D 49 54 47 4C 49 45 44 45 52 44 41 54 |...MITGLIEDERDAT|
000010C0: 45 49 20 57 49 52 44 20 47 45 53 50 45 49 43 48 |EI WIRD GESPEICH|
000010D0: 45 52 54 2E 22 00 DE 18 BC 07 98 31 2C 4E 00 F0 |ERT."......1,N..|
000010E0: 18 C6 07 81 49 B2 31 A4 4E 3A 81 4A B2 30 A4 38 |....I.1.N:.J.0.8|
000010F0: 00 00 19 D0 07 98 31 2C 4D 49 24 28 49 2C 4A 29 |......1,MI$(I,J)|
00001100: 00 08 19 DA 07 82 3A 82 00 0F 19 E4 07 A0 31 00 |......:.......1.|
00001110: 15 19 F8 07 8E 00 1B 19 02 08 3A 00 3D 19 0C 08 |..........:.=...|
00001120: 99 22 93 20 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |.". ...........|
00001130: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 60 19 |............".`.|
00001140: 16 08 99 22 20 20 12 41 4C 50 48 41 42 45 54 49 |..." .ALPHABETI|
00001150: 53 43 48 20 53 4F 52 54 49 45 52 45 4E 20 92 22 |SCH SORTIEREN ."|
00001160: 00 7E 19 20 08 99 22 11 11 11 53 4F 52 54 49 45 |.~. .."...SORTIE|
00001170: 52 45 4E 20 4C 41 45 55 46 54 2E 2E 2E 22 00 AD |REN LAEUFT..."..|
00001180: 19 2A 08 53 28 31 2C 30 29 B2 31 3A 53 28 31 2C |.*.S(1,0).1:S(1,|
00001190: 31 29 B2 4E 3A 81 49 B2 31 A4 4E 3A 41 28 49 29 |1).N:.I.1.N:A(I)|
000011A0: B2 4E AA 31 AB 49 3A 82 3A 53 31 B2 31 00 CD 19 |.N.1.I:.:S1.1...|
000011B0: 34 08 4C B2 53 28 53 31 2C 30 29 3A 52 B2 53 28 |4.L.S(S1,0):R.S(|
000011C0: 53 31 2C 31 29 3A 53 31 B2 53 31 AB 31 00 F2 19 |S1,1):S1.S1.1...|
000011D0: 3E 08 49 B2 4C 3A 4A B2 52 3A 41 4D 24 B2 4D 49 |>.I.L:J.R:AM$.MI|
000011E0: 24 28 41 28 B5 28 28 4C AA 52 29 AD 32 29 29 2C |$(A(.((L.R).2)),|
000011F0: 31 29 00 18 1A 48 08 8B 4D 49 24 28 41 28 49 29 |1)...H..MI$(A(I)|
00001200: 2C 31 29 B3 41 4D 24 A7 8B 49 B3 52 A7 49 B2 49 |,1).AM$..I.R.I.I|
00001210: AA 31 3A 89 32 31 32 30 00 3E 1A 52 08 8B 4D 49 |.1:.2120.>.R..MI|
00001220: 24 28 41 28 4A 29 2C 31 29 B1 41 4D 24 A7 8B 4A |$(A(J),1).AM$..J|
00001230: B1 4C A7 4A B2 4A AB 31 3A 89 32 31 33 30 00 74 |.L.J.J.1:.2130.t|
00001240: 1A 5C 08 8B 49 B3 B2 4A A7 48 56 B2 41 28 49 29 |.\..I..J.HV.A(I)|
00001250: 3A 41 28 49 29 B2 41 28 4A 29 3A 41 28 4A 29 B2 |:A(I).A(J):A(J).|
00001260: 48 56 3A 49 B2 49 AA 31 3A 4A B2 4A AB 31 3A 89 |HV:I.I.1:J.J.1:.|
00001270: 32 31 32 30 00 87 1A 66 08 8B 52 AB 49 B3 B2 4A |2120...f..R.I..J|
00001280: AB 4C A7 32 31 38 30 00 AC 1A 70 08 8B 4C B3 4A |.L.2180...p..L.J|
00001290: A7 53 31 B2 53 31 AA 31 3A 53 28 53 31 2C 30 29 |.S1.S1.1:S(S1,0)|
000012A0: B2 4C 3A 53 28 53 31 2C 31 29 B2 4A 00 BA 1A 7A |.L:S(S1,1).J...z|
000012B0: 08 4C B2 49 3A 89 32 32 30 30 00 DF 1A 84 08 8B |.L.I:.2200......|
000012C0: 49 B3 52 A7 53 31 B2 53 31 AA 31 3A 53 28 53 31 |I.R.S1.S1.1:S(S1|
000012D0: 2C 30 29 B2 49 3A 53 28 53 31 2C 31 29 B2 52 00 |,0).I:S(S1,1).R.|
000012E0: E7 1A 8E 08 52 B2 4A 00 F5 1A 98 08 8B 52 B1 4C |....R.J......R.L|
000012F0: A7 32 31 31 30 00 02 1B A2 08 8B 53 31 A7 32 31 |.2110......S1.21|
00001300: 30 30 00 0D 1B AC 08 81 4A B2 30 A4 38 00 29 1B |00......J.0.8.).|
00001310: B6 08 81 49 B2 31 A4 4E 3A 41 24 28 49 29 B2 4D |...I.1.N:A$(I).M|
00001320: 49 24 28 49 2C 4A 29 3A 82 00 48 1B C0 08 81 49 |I$(I,J):..H....I|
00001330: B2 31 A4 4E 3A 4D 49 24 28 49 2C 4A 29 B2 41 24 |.1.N:MI$(I,J).A$|
00001340: 28 41 28 49 29 29 3A 82 00 4E 1B CA 08 82 00 61 |(A(I)):..N.....a|
00001350: 1B D4 08 99 2C 22 91 46 45 52 54 49 47 20 21 20 |....,".FERTIG ! |
00001360: 22 00 67 1B DE 08 8E 00 6D 1B E8 08 3A 00 7C 1B |".g.....m...:.|.|
00001370: F2 08 8F 20 50 47 4D 2D 45 4E 44 45 00 8D 1B FC |... PGM-ENDE....|
00001380: 08 99 22 93 11 11 11 43 4F 4E 54 13 22 00 95 1B |.."....CONT."...|
00001390: 06 09 80 3A 8E 00 9B 1B 10 09 3A 00 B7 1B 1A 09 |...:......:.....|
000013A0: 8F 20 53 55 43 48 52 4F 55 54 49 4E 45 20 4E 41 |. SUCHROUTINE NA|
000013B0: 43 48 20 4E 41 4D 45 00 C0 1B 24 09 99 22 93 22 |CH NAME...$.."."|
000013C0: 00 E8 1B 2E 09 85 22 81 11 11 4E 41 4D 45 20 44 |......"...NAME D|
000013D0: 45 53 20 4D 49 54 47 4C 49 45 44 53 20 3F 20 2A |ES MITGLIEDS ? *|
000013E0: 9D 9D 9D 22 3B 4E 41 24 00 FC 1B 38 09 58 B2 30 |...";NA$...8.X.0|
000013F0: 3A 4C 4E B2 C3 28 4E 41 24 29 3A 99 00 26 1C 42 |:LN..(NA$):..&.B|
00001400: 09 81 49 B2 31 A4 4E 3A 8B C8 28 4D 49 24 28 49 |..I.1.N:..(MI$(I|
00001410: 2C 31 29 AA 4C 24 2C 4C 4E 29 B2 4E 41 24 A7 58 |,1).L$,LN).NA$.X|
00001420: B2 49 3A 49 B2 4E 00 2C 1C 4C 09 82 00 63 1C 56 |.I:I.N.,.L...c.V|
00001430: 09 8B 58 B2 30 A7 99 22 9E 4D 49 54 47 4C 49 45 |..X.0..".MITGLIE|
00001440: 44 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E |D NICHT GEFUNDEN|
00001450: 21 22 3A 81 57 B2 31 A4 39 39 39 3A 82 3A 89 32 |!":.W.1.999:.:.2|
00001460: 34 34 30 00 76 1C 60 09 99 22 9C A4 A4 A4 A4 A4 |440.v.`.."......|
00001470: A4 A4 A4 A4 A4 22 00 81 1C 6A 09 81 49 B2 30 A4 |....."...j..I.0.|
00001480: 38 00 A2 1C 74 09 99 22 9C 12 22 3B 4B 4F 24 28 |8...t.."..";KO$(|
00001490: 49 29 3B 22 92 3A 20 90 22 3B 4D 49 24 28 58 2C |I);".: .";MI$(X,|
000014A0: 49 29 00 AA 1C 7E 09 82 3A 99 00 B0 1C 88 09 8E |I)...~..:.......|
000014B0: 00 B6 1C 92 09 3A 00 C6 1C 9C 09 8F 20 44 49 53 |.....:...... DIS|
000014C0: 4B 2F 4B 41 53 53 00 EF 1C A6 09 99 22 81 11 11 |K/KASS......"...|
000014D0: A4 11 9D 12 4B 92 41 53 53 45 54 54 45 2F 91 A4 |....K.ASSETTE/..|
000014E0: 11 9D 12 44 92 49 53 4B 45 54 54 45 20 3F 22 00 |...D.ISKETTE ?".|
000014F0: 1B 1D B0 09 A1 4B 44 24 3A 8B 4B 44 24 B3 B1 22 |.....KD$:.KD$.."|
00001500: 4B 22 AF 4B 44 24 B3 B1 22 44 22 AF 4B 44 24 B3 |K".KD$.."D".KD$.|
00001510: B1 C7 28 31 33 29 A7 32 34 38 30 00 2F 1D BA 09 |..(13).2480./...|
00001520: 8B 4B 44 24 B2 C7 28 31 33 29 A7 32 35 34 30 00 |.KD$..(13).2540.|
00001530: 59 1D C4 09 8B 4B 44 24 B2 22 4B 22 A7 99 22 9C |Y....KD$."K"..".|
00001540: 11 4B 41 53 53 45 54 54 45 20 5A 55 52 55 45 43 |.KASSETTE ZURUEC|
00001550: 4B 53 50 55 4C 45 4E 21 22 00 7F 1D CE 09 8B 4B |KSPULEN!"......K|
00001560: 44 24 B2 22 44 22 A7 99 22 9C 11 44 49 53 4B 45 |D$."D".."..DISKE|
00001570: 54 54 45 20 49 4E 20 44 52 49 56 45 20 21 22 00 |TTE IN DRIVE !".|
00001580: 93 1D D8 09 99 2C 2C 2C 22 91 3C 52 45 54 55 52 |.....,,,".<RETUR|
00001590: 4E 3E 22 00 AB 1D E2 09 A1 58 24 3A 8B 58 24 B3 |N>"......X$:.X$.|
000015A0: B1 C7 28 31 33 29 A7 32 35 33 30 00 B1 1D EC 09 |..(13).2530.....|
000015B0: 8E 00 B7 1D F6 09 3A 00 CC 1D 00 0A 8F 20 45 49 |......:...... EI|
000015C0: 4E 5A 45 4C 4D 49 54 47 4C 49 45 44 00 D6 1D 0A |NZELMITGLIED....|
000015D0: 0A 8D 32 33 33 30 00 EB 1D 14 0A 99 2C 2C 2C 22 |..2330......,,,"|
000015E0: 11 11 3C 52 45 54 55 52 4E 3E 22 00 03 1E 1E 0A |..<RETURN>".....|
000015F0: A1 58 24 3A 8B 58 24 B3 B1 C7 28 31 33 29 A7 32 |.X$:.X$...(13).2|
00001600: 35 39 30 00 09 1E 28 0A 8E 00 0F 1E 32 0A 3A 00 |590...(.....2.:.|
00001610: 00 00 2E |... |
....D.. *********************.5.X.. VERE
INSVERWALTUNG...... GENAUE ANZAHL DER M
ITGLIEDER AUF, WENN MAN DAS PGM AENDERT
KANN MAN...... AUCH ANDERE DATEN ABFRAG
EN!...... *********************.E.H.:.P.
R.. INIT.....N.0:. AKTUELLE ANZAHL MITGL
IEDER.....D.100:. DIMENSION MITGLIEDERFE
LD.<.... KO$(8),MI$(D,8),A(D),S(D,1).Q..
..I.0.8:.KO$(I):..O...L$."
"...... MITGL.-NR....... NAME/VORN
....".. STRASSE......,.. PLZ/ORT....D.6.
. TELEFON....U.@.. BERUF........J.. AUFG
ABEN.....T.. BEMERKUNG....^.. BEITRAEGE.
...H..53280,0:.53281,11.+.R.. MENUE.Q.|.
.".. ... .".U...."
. VEREINSVERWALTER ."......"
... .."......" ....
.1.. LADE MITGLIEDER"......" .....2..
NEUES MITGLIED"......" .....3.. SUC
HE NACH MITGLIEDERN".1...." .....4..
AENDERE MITGLIED".X...." .....5.. LOE
SCHE 1 MITGLIED"...B.." .....6.. LIST
E DER MITGLIEDER"...L.." .....7.. SAV
E MITGLIEDER".H.V.." .....8.. SORTIER
ROUTINE"......" .....9.. END"......X$
:.X$."".490.....X.E(X$):.X.0.490.<.... X
. 560,710,2560,900,1030,1160,1900,2060,
2290.E....370.K.&.:.A.0.. LOAD MITGLIEDE
R...:..".. .......................".
..D.." . MITGLIEDERDATEI LADEN .".C.
N..2460:. KASS/DISK.V.X..KD$.G(13).690..
.B..KD$."K"..1,1,0,"MITGLIEDERDATEI".:.L
..KD$."D"..15,8,15,"I0": 15:.1,8,8,"0:MI
TGLIEDERDATEI,S,R".E.V.."...MITGLIEDERDA
TEI WIRD EINGELESEN.".N....1,N......I.1.
N:.J.0.8:.1,MI$......F(MI$).32.MI$.J(MI$
,2):.660.....MI$(I,J).MI$:.:.: 1.F.....L
...:...F.. NEUES MITGLIED...P..".":N.N.1
...Z..J.0.8:MI$(N,J)."*":..#....".......
..........".?....". NEUES MITGLIED ..";.
V....,.(0);"BYTE FREI".I...."...........
".T....I.0.8......"..";KO$(I);".? ";MI$(
N,I)... .."..",:.MI$(N,I)...*...O.4..".A
LLE ANGABEN OK (J/N) ?"...>..X$:.X$.."J"
.X$.."N".830...H..X$."N".740.$.R..".WEIT
ERE NEUE MITGLIEDER (J/N) ?".A.\..X$:.X$
.."J".X$.."N".860.Q.F..X$."J".710.W.P...
].Z.:...... AENDERUNG DER MITGLIEDSDATEN
......".. ............................
..".W...." . AENDERUNG DER MITGLIEDSDA
TEN .."......2350:.X.0.1010......"......
."......I.0.8......".",:.MI$(X,I)...J...
@.T.."...DATEN JETZT OK (J/N) ?".]....X$
:.X$.."J".X$.."N".990.M....X$."N".940.S.
....Y...:...... EIN MITGLIED LOESCHEN...
...". ......................."......
" . EIN MITGLIED LOESCHEN ."...$..23
50:.X.0.1140......".MITGLIED LOESCHEN (J
/N) ?".4.8..X$:.X$.."J".X$.."N".1080.E.B
..X$."N".1140.G.L..".MITGLIED WIRD GELOE
SCHT !".{.V..I.X.N.1:.J.0.8...`.MI$(I,J)
.MI$(I.1,J)...J..:.:N.N.1...T.....~.:.H.
... LISTE DER MITGLIEDER......"..","....
............."......,". MITGLIEDERDATEN
...".#....". ....1.. BILDSCHIRM".9...
."..AUF DRUCKER:".X....". ....2.. ALL
E DATEN".~.D..". ....3.. ADRESSENAUFK
LEBER". .N..". ....4.. ADRESSENLISTE"
.G.X..". ....5.. EINZELNES MITGLIED".
.....". ....6.. AKTIVE/PASSIVE MITGLI
EDER"......X$:.X$."".1260.#...X.E(X$):.X
.0.X.6.1260.H....X.1300,1420,1480,1710,1
590,1820.N...:._.... BILDSCHIRM.J....X.1
.N...(.."...................."...2..". M
ITGLIEDERLISTE: ....."...<..2400:. MITGL
IED...F..".....N.AECHSTES MITGL. .....V
.ORIGES MITGL. .....E.NDE".+.P..X$:.X$.
."N".X$.."V".X$.."E".X$..G(13).1360.H.Z.
.X$."V".X.X.2:.X.0.X.X.1.X.D..X$."E".X.N
.^.N...D.X...J...:.~.... GESAMTANGABEN..
....X.1.N... ..1630:. ALLE DATEN DRUCKEN
.................:.R.H.. ADRESSENAUFKLEB
ER...R..4,4:.4......I.1.N......"HERRN/FR
AU"......MI$(I,1)......MI$(I,2):..'....M
I$(I,3).3....:.:.:..?....:.4: 4.E."...K.
,.:.D.6.. EINZELNES MITGLIED...@.."..
..............................."...J.."
. EINZELNES MITGLIED AUSDRUCKEN .".P.T
..2350:.X.0.1690...^..4,4:.4...H..J.0.8.
..R..KO$(J);".... ";MI$(X,J)...|..:..*..
..I.1.4:."----------";:.:..4....4: 4.:..
...@...:.T.... ADRESSENLISTE.B....4,4:.4
:....B..G(1);G(1);" ADRESSENLISTE"...
L..:....V..I.1.N......J.1.3:.H(MI$(I,J).
L$,21);:..P....H(MI$(I,4).L$,16).Z....:.
:.......4: 4...........:...... AKT/PASS
MITGLIED.H.&..".........A.KTIVE ODER ...
..P.ASSIVE MITGLIEDER DRUCKEN?.".F.0..X$
:.X$.."A".X$.."P".1840.Q.:..X.1.N...D..H
(MI$(X,0),1).X$..1630:. DIESES MITGLIED
DRUCKEN...N.....X.....B.:.J.L.. SAVE DAT
EI...V..".. ..........................
."......" . MITGLIEDERDATEI SPEICHERN
.".0....2460:. KASS/DISK.D....KD$.G(13).
2040.J....KD$."K"..1,1,1,"MITGLIEDERDATE
I"......KD$."D"..15,8,15,"I0": 15:.1,8,8
,"@0:MITGLIEDERDATEI,S,W".U...."...MITGL
IEDERDATEI WIRD GESPEICHERT."......1,N..
.F..I.1.N:.J.0.8...P..1,MI$(I,J)...Z..:.
..... 1...........:.=....". ...........
............".`...." .ALPHABETISCH SORT
IEREN .".~. .."...SORTIEREN LAEUFT..."..
.*.S(1,0).1:S(1,1).N:.I.1.N:A(I).N.1.I:.
:S1.1.M.4.L.S(S1,0):R.S(S1,1):S1.S1.1...
>.I.L:J.R:AM$.MI$(A(.((L.R).2)),1)...H..
MI$(A(I),1).AM$..I.R.I.I.1:.2120.>.R..MI
$(A(J),1).AM$..J.L.J.J.1:.2130.T.\..I..J
.HV.A(I):A(I).A(J):A(J).HV:I.I.1:J.J.1:.
2120...F..R.I..J.L.2180...P..L.J.S1.S1.1
:S(S1,0).L:S(S1,1).J...Z.L.I:.2200......
I.R.S1.S1.1:S(S1,0).I:S(S1,1).R.....R.J.
.....R.L.2110......S1.2100......J.0.8.).
...I.1.N:A$(I).MI$(I,J):..H....I.1.N:MI$
(I,J).A$(A(I)):..N.J...A.T..,".FERTIG !
".G.....M...:.|.... PGM-ENDE......"....C
ONT."......:......:...... SUCHROUTINE NA
CH NAME...$.."."......"...NAME DES MITGL
IEDS ? *...";NA$...8.X.0:LN.C(NA$):..&.B
..I.1.N:.H(MI$(I,1).L$,LN).NA$.X.I:I.N.,
.L...C.V..X.0..".MITGLIED NICHT GEFUNDEN
!":.W.1.999:.:.2440.V.`.."..........."..
.J..I.0.8...T.."..";KO$(I);".: .";MI$(X,
I)...~..:............:.F.... DISK/KASS..
....".......K.ASSETTE/.....D.ISKETTE ?".
.....KD$:.KD$.."K".KD$.."D".KD$..G(13).2
480./....KD$.G(13).2540.Y.D..KD$."K"..".
.KASSETTE ZURUECKSPULEN!"..N..KD$."D"..
"..DISKETTE IN DRIVE !"...X..,,,".<RETUR
N>"......X$:.X$..G(13).2530...........:.
L.... EINZELMITGLIED.V....2330......,,,"
..<RETURN>"......X$:.X$..G(13).2590...(.
....2.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL