ADRESSDATEI
FILE INFORMATION
FILENAME(S): ADRESSDATEI
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-11-30 16:11:11
APPEARS ON: 1 disk(s)
FILE HASH
a956af8b9344652e19c5baba8f6b4993bfb43d4f3bc33ead2c87e6f863a72c4c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ADLER DISK B29 A | ADRESSDATEI | PRG | BrainSkull, Sammlung | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 11 08 0A 00 8F 22 50 52 4F 47 52 41 4D 4D |......."PROGRAMM|
00000010: 22 00 3B 08 64 00 97 35 33 32 38 30 2C 35 3A 97 |".;.d..53280,5:.|
00000020: 35 33 32 38 31 2C 32 3A 99 C7 28 31 35 38 29 3B |53281,2:..(158);|
00000030: 3A 86 44 24 28 37 30 30 2C 37 29 00 45 08 6E 00 |:.D$(700,7).E.n.|
00000040: 8D 32 30 33 30 00 4E 08 73 00 99 22 93 22 00 7B |.2030.N.s..".".{|
00000050: 08 78 00 99 22 57 41 45 48 4C 45 4E 20 53 49 45 |.x.."WAEHLEN SIE|
00000060: 20 44 49 45 20 47 45 57 55 45 4E 53 43 48 54 45 | DIE GEWUENSCHTE|
00000070: 20 46 55 4E 4B 54 49 4F 4E 3A 22 00 AA 08 82 00 | FUNKTION:".....|
00000080: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
00000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000A0: 2D 2D 2D 2D 2D 2D 2D 22 3A 99 00 C9 08 8C 00 99 |-------":.......|
000000B0: 22 20 20 20 20 20 20 20 20 2D 31 2D 20 44 41 54 |" -1- DAT|
000000C0: 45 49 20 4C 41 44 45 4E 22 00 EA 08 96 00 99 22 |EI LADEN"......"|
000000D0: 20 20 20 20 20 20 20 20 2D 32 2D 20 44 41 54 45 | -2- DATE|
000000E0: 49 20 53 49 43 48 45 52 4E 22 00 0C 09 A0 00 99 |I SICHERN"......|
000000F0: 22 20 20 20 20 20 20 20 20 2D 33 2D 20 44 41 54 |" -3- DAT|
00000100: 45 4E 20 45 49 4E 47 45 42 45 4E 22 00 2D 09 AA |EN EINGEBEN".-..|
00000110: 00 99 22 20 20 20 20 20 20 20 20 2D 34 2D 20 44 |.." -4- D|
00000120: 41 54 45 4E 20 41 45 4E 44 45 52 4E 22 00 5B 09 |ATEN AENDERN".[.|
00000130: B4 00 99 22 20 20 20 20 20 20 20 20 2D 35 2D 20 |..." -5- |
00000140: 44 41 54 45 4E 20 53 45 4C 45 4B 54 49 45 52 45 |DATEN SELEKTIERE|
00000150: 4E 2F 41 55 53 47 45 42 45 4E 22 00 7F 09 BE 00 |N/AUSGEBEN".....|
00000160: 99 22 20 20 20 20 20 20 20 20 2D 36 2D 20 44 41 |." -6- DA|
00000170: 54 45 4E 20 4C 4F 45 53 43 48 45 4E 22 3A 99 00 |TEN LOESCHEN":..|
00000180: A3 09 C8 00 99 22 20 20 20 20 20 20 20 20 2D 30 |....." -0|
00000190: 2D 20 50 52 4F 47 52 41 4D 4D 20 42 45 45 4E 44 |- PROGRAMM BEEND|
000001A0: 45 4E 22 00 A9 09 D2 00 99 00 CB 09 DC 00 99 22 |EN"............"|
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 41 55 53 57 | AUSW|
000001C0: 41 48 4C 20 28 4F 2D 36 29 3F 22 00 E6 09 E6 00 |AHL (O-6)?".....|
000001D0: A1 58 24 3A 8B 58 24 B3 22 30 22 B0 58 24 B1 22 |.X$:.X$."0".X$."|
000001E0: 36 22 A7 32 33 30 00 F7 09 F0 00 8B 58 24 B3 B1 |6".230......X$..|
000001F0: 22 30 22 A7 33 34 30 00 1E 0A FA 00 99 3A 99 22 |"0".340......:."|
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 53 49 43 48 45 52 20 28 4A 2F 4E 29 3F 22 00 3B |SICHER (J/N)?".;|
00000220: 0A 04 01 A1 58 24 3A 8B 58 24 B3 B1 22 4A 22 AF |....X$:.X$.."J".|
00000230: 58 24 B3 B1 22 4E 22 A7 32 36 30 00 4B 0A 0E 01 |X$.."N".260.K...|
00000240: 8B 58 24 B2 22 4E 22 A7 31 31 30 00 56 0A 18 01 |.X$."N".110.V...|
00000250: 8D 20 32 30 33 30 00 77 0A 22 01 99 A3 39 29 3B |. 2030.w."...9);|
00000260: 22 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 4B 41 |"DAS PROGRAMM KA|
00000270: 4E 4E 20 4D 49 54 22 00 8E 0A 2C 01 99 A3 31 35 |NN MIT"...,...15|
00000280: 29 3B 22 27 47 4F 54 4F 20 31 31 30 27 22 00 B1 |);"'GOTO 110'"..|
00000290: 0A 36 01 99 A3 38 29 3B 22 57 49 45 44 45 52 20 |.6...8);"WIEDER |
000002A0: 47 45 53 54 41 52 54 45 54 20 57 45 52 44 45 4E |GESTARTET WERDEN|
000002B0: 22 00 DC 0A 40 01 99 A3 34 29 3B 22 4F 48 4E 45 |"...@...4);"OHNE|
000002C0: 20 44 41 53 53 20 44 41 54 45 4E 20 56 45 52 4C | DASS DATEN VERL|
000002D0: 4F 52 45 4E 20 47 45 48 45 4E 21 22 00 E2 0A 4A |OREN GEHEN!"...J|
000002E0: 01 80 00 07 0B 54 01 91 C5 28 58 24 29 8D 33 36 |.....T...(X$).36|
000002F0: 30 2C 35 34 30 2C 36 38 30 2C 38 38 30 2C 31 31 |0,540,680,880,11|
00000300: 39 30 2C 31 37 37 30 00 10 0B 5E 01 89 31 31 30 |90,1770...^..110|
00000310: 00 36 0B 68 01 8F 20 20 20 20 20 20 20 20 20 20 |.6.h.. |
00000320: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A | *******|
00000330: 2A 2A 2A 2A 2A 2A 00 5C 0B 72 01 8F 20 20 20 20 |******.\.r.. |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000350: 44 41 54 45 49 20 4C 41 44 45 4E 2A 00 82 0B 7C |DATEI LADEN*...||
00000360: 01 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000370: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********|
00000380: 2A 2A 00 8C 0B 86 01 8D 32 30 33 30 00 A7 0B 90 |**......2030....|
00000390: 01 85 22 4E 41 4D 45 20 44 45 52 20 44 41 54 45 |.."NAME DER DATE|
000003A0: 49 3A 22 3B 44 4E 24 00 B4 0B 9A 01 9F 31 35 2C |I:";DN$......15,|
000003B0: 38 2C 31 35 00 CA 0B A4 01 9F 31 2C 38 2C 32 2C |8,15......1,8,2,|
000003C0: 44 4E 24 AA 22 2C 53 2C 52 22 00 DF 0B AE 01 84 |DN$.",S,R"......|
000003D0: 31 35 2C 46 45 3A 8B 46 45 B2 30 A7 34 36 30 00 |15,FE:.FE.0.460.|
000003E0: FA 0B B8 01 99 22 12 44 49 53 4B 45 54 54 45 4E |.....".DISKETTEN|
000003F0: 46 45 48 4C 45 52 21 21 21 22 00 03 0C C2 01 89 |FEHLER!!!"......|
00000400: 35 31 30 00 0B 0C CC 01 58 B2 31 00 4A 0C D6 01 |510.....X.1.J...|
00000410: 84 31 2C 44 24 28 58 2C 31 29 2C 44 24 28 58 2C |.1,D$(X,1),D$(X,|
00000420: 32 29 2C 44 24 28 58 2C 33 29 2C 44 24 28 58 2C |2),D$(X,3),D$(X,|
00000430: 34 29 2C 44 24 28 58 2C 35 29 2C 44 24 28 58 2C |4),D$(X,5),D$(X,|
00000440: 36 29 2C 44 24 28 58 2C 37 29 00 62 0C E0 01 8B |6),D$(X,7).b....|
00000450: 20 53 54 B3 B1 36 34 A7 58 B2 58 AA 31 3A 89 34 | ST..64.X.X.1:.4|
00000460: 37 30 00 8D 0C EA 01 99 22 44 41 54 45 49 20 49 |70......"DATEI I|
00000470: 53 54 20 47 45 4C 41 44 45 4E 20 55 4E 44 20 42 |ST GELADEN UND B|
00000480: 45 49 4E 48 41 4C 54 45 54 20 22 3B 58 00 A3 0C |EINHALTET ";X...|
00000490: F4 01 99 22 44 41 54 45 4E 53 41 45 54 5A 45 2E |..."DATENSAETZE.|
000004A0: 22 3A 99 00 AE 0C FE 01 A0 31 3A A0 31 35 00 C8 |":.......1:.15..|
000004B0: 0C 03 02 99 22 57 45 49 54 45 52 20 4D 49 54 20 |...."WEITER MIT |
000004C0: 52 45 54 55 52 4E 21 22 00 D2 0C 08 02 85 58 24 |RETURN!"......X$|
000004D0: 3A 8E 00 F8 0C 1C 02 8F 20 20 20 20 20 20 20 20 |:....... |
000004E0: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A | *******|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 1E 0D 26 02 8F 20 20 |********...&.. |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000510: 44 41 54 45 49 20 53 49 43 48 45 52 4E 2A 00 44 |DATEI SICHERN*.D|
00000520: 0D 30 02 8F 20 20 20 20 20 20 20 20 20 20 20 20 |.0.. |
00000530: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***********|
00000540: 2A 2A 2A 2A 00 52 0D 3A 02 8B 20 58 B1 30 A7 35 |****.R.:.. X.0.5|
00000550: 39 30 00 5F 0D 44 02 8D 20 32 32 33 30 3A 8E 00 |90._.D.. 2230:..|
00000560: 6A 0D 4E 02 8D 20 32 30 33 30 00 74 0D 58 02 8D |j.N.. 2030.t.X..|
00000570: 32 33 30 30 00 7F 0D 62 02 81 49 B2 31 A4 58 00 |2300...b..I.1.X.|
00000580: A6 0D 6C 02 98 31 2C 44 24 28 49 2C 31 29 22 2C |..l..1,D$(I,1)",|
00000590: 22 44 24 28 49 2C 32 29 22 2C 22 44 24 28 49 2C |"D$(I,2)","D$(I,|
000005A0: 33 29 22 2C 22 3B 00 D3 0D 76 02 98 31 2C 44 24 |3)",";...v..1,D$|
000005B0: 28 49 2C 34 29 22 2C 22 44 24 28 49 2C 35 29 22 |(I,4)","D$(I,5)"|
000005C0: 2C 22 44 24 28 49 2C 36 29 22 2C 22 44 24 28 49 |,"D$(I,6)","D$(I|
000005D0: 2C 37 29 00 D9 0D 80 02 82 00 F9 0D 8A 02 99 22 |,7)............"|
000005E0: 44 41 54 45 49 20 49 53 54 20 47 45 53 49 43 48 |DATEI IST GESICH|
000005F0: 45 52 54 22 3A A0 31 3A 99 00 12 0E 94 02 99 22 |ERT":.1:......."|
00000600: 57 45 49 54 45 52 20 4D 49 54 20 52 45 54 55 52 |WEITER MIT RETUR|
00000610: 4E 22 00 1C 0E 9E 02 85 58 24 3A 8E 00 42 0E A8 |N"......X$:..B..|
00000620: 02 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000630: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************|
00000640: 2A 2A 00 68 0E B2 02 8F 20 20 20 20 20 20 20 20 |**.h.... |
00000650: 20 20 20 20 20 20 20 20 2A 44 41 54 45 4E 20 45 | *DATEN E|
00000660: 49 4E 47 45 42 45 4E 2A 00 8E 0E BC 02 8F 20 20 |INGEBEN*...... |
00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C |**************..|
00000690: 0E C6 02 8B 58 B1 30 A7 89 37 33 30 00 B8 0E D0 |....X.0..730....|
000006A0: 02 8D 32 30 33 30 3A 85 22 44 41 54 45 49 4E 41 |..2030:."DATEINA|
000006B0: 4D 45 20 22 3B 44 4E 24 00 C2 0E DA 02 58 B2 58 |ME ";DN$.....X.X|
000006C0: AA 31 00 CC 0E E4 02 8D 32 30 33 30 00 E1 0E EE |.1......2030....|
000006D0: 02 99 22 44 41 54 45 4E 45 49 4E 47 41 42 45 3A |.."DATENEINGABE:|
000006E0: 22 00 F8 0E F8 02 99 22 2D 2D 2D 2D 2D 2D 2D 2D |"......"--------|
000006F0: 2D 2D 2D 2D 2D 22 3A 99 00 06 0F 02 03 49 B2 58 |-----":......I.X|
00000700: 3A 8D 32 31 31 30 00 1C 0F 0C 03 81 49 B2 31 A4 |:.2110......I.1.|
00000710: 37 3A 99 C7 28 31 34 35 29 3B 3A 82 00 39 0F 16 |7:..(145);:..9..|
00000720: 03 81 49 B2 31 A4 37 3A 99 A3 31 32 29 3B 3A 85 |..I.1.7:..12);:.|
00000730: 44 24 28 58 2C 49 29 3A 82 00 51 0F 20 03 99 3A |D$(X,I):..Q. ..:|
00000740: 99 22 52 49 43 48 54 49 47 20 28 4A 2F 4E 29 3F |."RICHTIG (J/N)?|
00000750: 22 00 6E 0F 2A 03 A1 58 24 3A 8B 58 24 B3 B1 22 |".n.*..X$:.X$.."|
00000760: 4A 22 AF 58 24 B3 B1 22 4E 22 A7 38 31 30 00 7E |J".X$.."N".810.~|
00000770: 0F 34 03 8B 58 24 B2 22 4A 22 A7 38 34 30 00 87 |.4..X$."J".840..|
00000780: 0F 3E 03 89 37 34 30 00 A6 0F 48 03 99 22 57 45 |.>..740...H.."WE|
00000790: 49 54 45 52 45 20 45 49 4E 47 41 42 45 4E 20 28 |ITERE EINGABEN (|
000007A0: 4A 2F 4E 29 3F 22 00 C3 0F 52 03 A1 58 24 3A 8B |J/N)?"...R..X$:.|
000007B0: 58 24 B3 B1 22 4A 22 AF 58 24 B3 B1 22 4E 22 A7 |X$.."J".X$.."N".|
000007C0: 38 35 30 00 D3 0F 5C 03 8B 58 24 B2 22 4A 22 A7 |850...\..X$."J".|
000007D0: 37 33 30 00 D9 0F 66 03 8E 00 FF 0F 70 03 8F 20 |730...f.....p.. |
000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000800: 25 10 7A 03 8F 20 20 20 20 20 20 20 20 20 20 20 |%.z.. |
00000810: 20 20 20 20 20 20 2A 44 41 54 45 4E 20 41 45 4E | *DATEN AEN|
00000820: 44 45 52 4E 2A 00 4B 10 84 03 8F 20 20 20 20 20 |DERN*.K.... |
00000830: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A | ****|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 58 10 8E 03 |***********.X...|
00000850: 8B 58 B1 30 A7 39 33 30 00 64 10 98 03 8D 32 32 |.X.0.930.d....22|
00000860: 33 30 3A 8E 00 6E 10 A2 03 8D 32 30 33 30 00 82 |30:..n....2030..|
00000870: 10 AC 03 85 22 4E 41 4D 45 20 31 3A 20 22 3B 4E |...."NAME 1: ";N|
00000880: 31 24 00 96 10 B6 03 85 22 4E 41 4D 45 20 32 3A |1$......"NAME 2:|
00000890: 20 22 3B 4E 32 24 00 A2 10 C0 03 81 20 49 B2 31 | ";N2$...... I.1|
000008A0: A4 58 00 C4 10 CA 03 8B 44 24 28 49 2C 32 29 B2 |.X......D$(I,2).|
000008B0: 4E 31 24 AF 44 24 28 49 2C 33 29 B2 4E 32 24 A7 |N1$.D$(I,3).N2$.|
000008C0: 31 30 31 30 00 CB 10 D4 03 82 49 00 EA 10 DE 03 |1010......I.....|
000008D0: 99 22 12 4E 41 4D 45 20 4E 49 43 48 54 20 47 45 |.".NAME NICHT GE|
000008E0: 46 55 4E 44 45 4E 21 21 21 22 00 09 11 E8 03 99 |FUNDEN!!!"......|
000008F0: 22 57 45 49 54 45 52 20 4D 49 54 20 52 45 54 55 |"WEITER MIT RETU|
00000900: 52 4E 22 3A 85 58 24 3A 8E 00 13 11 F2 03 8D 32 |RN":.X$:.......2|
00000910: 30 33 30 00 33 11 FC 03 99 22 2D 31 2D 20 41 4E |030.3...."-1- AN|
00000920: 52 45 44 45 20 20 20 20 20 3A 22 3B 44 24 28 49 |REDE :";D$(I|
00000930: 2C 31 29 00 53 11 06 04 99 22 2D 32 2D 20 4E 41 |,1).S...."-2- NA|
00000940: 4D 45 20 31 20 20 20 20 20 3A 22 3B 44 24 28 49 |ME 1 :";D$(I|
00000950: 2C 32 29 00 73 11 10 04 99 22 2D 33 2D 20 4E 41 |,2).s...."-3- NA|
00000960: 4D 45 20 32 20 20 20 20 20 3A 22 3B 44 24 28 49 |ME 2 :";D$(I|
00000970: 2C 33 29 00 93 11 1A 04 99 22 2D 34 2D 20 53 54 |,3)......"-4- ST|
00000980: 52 41 53 53 45 2F 4E 52 2E 3A 22 3B 44 24 28 49 |RASSE/NR.:";D$(I|
00000990: 2C 34 29 00 B3 11 24 04 99 22 2D 35 2D 20 50 4C |,4)...$.."-5- PL|
000009A0: 5A 2F 4F 52 54 20 20 20 20 3A 22 3B 44 24 28 49 |Z/ORT :";D$(I|
000009B0: 2C 35 29 00 D3 11 2E 04 99 22 2D 36 2D 20 54 45 |,5)......"-6- TE|
000009C0: 4C 45 50 48 4F 4E 20 20 20 3A 22 3B 44 24 28 49 |LEPHON :";D$(I|
000009D0: 2C 36 29 00 F3 11 38 04 99 22 2D 37 2D 20 42 45 |,6)...8.."-7- BE|
000009E0: 4D 45 52 4B 55 4E 47 20 20 3A 22 3B 44 24 28 49 |MERKUNG :";D$(I|
000009F0: 2C 37 29 00 33 12 42 04 99 22 4E 52 2E 20 44 45 |,7).3.B.."NR. DE|
00000A00: 53 20 5A 55 20 41 45 4E 44 45 52 4E 44 45 4E 20 |S ZU AENDERNDEN |
00000A10: 46 45 4C 44 45 53 3A 20 22 3A 99 22 28 39 3D 4B |FELDES: ":."(9=K|
00000A20: 45 49 4E 45 20 41 45 4E 44 45 52 55 4E 47 29 22 |EINE AENDERUNG)"|
00000A30: 3B 3A 99 00 5A 12 4C 04 A1 58 24 3A 8B C5 28 58 |;:..Z.L..X$:..(X|
00000A40: 24 29 B3 31 B0 C5 28 58 24 29 B1 37 AF C5 28 58 |$).1..(X$).7..(X|
00000A50: 24 29 B3 B1 39 A7 31 31 30 30 00 6C 12 56 04 8B |$)..9.1100.l.V..|
00000A60: C5 28 58 24 29 B2 39 A7 31 31 35 30 00 78 12 60 |.(X$).9.1150.x.`|
00000A70: 04 59 B2 C5 28 58 24 29 00 98 12 6A 04 85 22 4E |.Y..(X$)...j.."N|
00000A80: 45 55 45 52 20 49 4E 48 41 4C 54 3A 20 22 3B 44 |EUER INHALT: ";D|
00000A90: 24 28 49 2C 59 29 3A 99 00 A2 12 74 04 89 31 30 |$(I,Y):....t..10|
00000AA0: 31 30 00 C4 12 7E 04 99 22 57 45 49 54 45 52 45 |10...~.."WEITERE|
00000AB0: 20 41 45 4E 44 45 52 55 4E 47 45 4E 20 28 4A 2F | AENDERUNGEN (J/|
00000AC0: 4E 29 3F 22 00 E2 12 88 04 A1 58 24 3A 8B 58 24 |N)?"......X$:.X$|
00000AD0: B3 B1 22 4A 22 AF 58 24 B3 B1 22 4E 22 A7 31 31 |.."J".X$.."N".11|
00000AE0: 36 30 00 F2 12 92 04 8B 58 24 B2 22 4A 22 A7 38 |60......X$."J".8|
00000AF0: 38 30 00 F8 12 9C 04 8E 00 1D 13 A6 04 8F 20 20 |80............ |
00000B00: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 13 |*************.B.|
00000B20: B0 04 8F 20 20 20 2A 44 41 54 45 4E 20 53 45 4C |... *DATEN SEL|
00000B30: 45 4B 54 49 45 52 45 4E 2F 41 55 53 47 45 42 45 |EKTIEREN/AUSGEBE|
00000B40: 4E 2A 00 67 13 BA 04 8F 20 20 20 2A 2A 2A 2A 2A |N*.g.... *****|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B60: 2A 2A 2A 2A 2A 2A 2A 00 75 13 C4 04 8B 58 B1 30 |*******.u....X.0|
00000B70: A7 31 32 34 30 00 81 13 CE 04 8D 32 32 33 30 3A |.1240......2230:|
00000B80: 8E 00 B5 13 D8 04 8D 32 30 33 30 3A 99 22 41 55 |.......2030:."AU|
00000B90: 53 47 41 42 45 20 41 55 46 20 44 29 52 55 43 4B |SGABE AUF D)RUCK|
00000BA0: 45 52 20 4F 44 45 52 20 42 29 49 4C 44 53 43 48 |ER ODER B)ILDSCH|
00000BB0: 49 52 4D 3F 22 00 D3 13 E2 04 A1 58 24 3A 8B 58 |IRM?"......X$:.X|
00000BC0: 24 B3 B1 22 44 22 AF 58 24 B3 B1 22 42 22 A7 31 |$.."D".X$.."B".1|
00000BD0: 32 35 30 00 EA 13 EC 04 4F 24 B2 58 24 3A 8B 4F |250.....O$.X$:.O|
00000BE0: 24 B2 22 42 22 A7 31 33 30 30 00 0A 14 F6 04 99 |$."B".1300......|
00000BF0: 22 50 29 41 50 49 45 52 20 4F 44 45 52 20 41 29 |"P)APIER ODER A)|
00000C00: 55 46 4B 4C 45 42 45 52 3F 22 00 28 14 00 05 A1 |UFKLEBER?".(....|
00000C10: 58 24 3A 8B 58 24 B3 B1 22 50 22 AF 58 24 B3 B1 |X$:.X$.."P".X$..|
00000C20: 22 41 22 A7 31 32 38 30 00 32 14 0A 05 44 24 B2 |"A".1280.2...D$.|
00000C30: 58 24 00 3C 14 14 05 8D 32 30 33 30 00 63 14 23 |X$.<....2030.c.#|
00000C40: 05 99 22 47 45 42 45 4E 20 53 49 45 20 44 49 45 |.."GEBEN SIE DIE|
00000C50: 20 53 55 43 48 42 45 47 52 49 46 46 45 20 45 49 | SUCHBEGRIFFE EI|
00000C60: 4E 3A 22 00 92 14 28 05 99 22 42 45 49 20 4E 49 |N:"...(.."BEI NI|
00000C70: 43 48 54 20 52 45 4C 45 56 41 4E 54 45 4E 20 46 |CHT RELEVANTEN F|
00000C80: 45 4C 44 45 52 4E 20 4E 55 52 20 52 45 54 55 52 |ELDERN NUR RETUR|
00000C90: 4E 22 00 C3 14 32 05 99 22 2D 2D 2D 2D 2D 2D 2D |N"...2.."-------|
00000CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000CC0: 22 3A 99 00 D1 14 3C 05 49 B2 30 3A 8D 32 31 31 |":....<.I.0:.211|
00000CD0: 30 00 F0 14 46 05 81 49 B2 31 A4 37 3A 99 C7 28 |0...F..I.1.7:..(|
00000CE0: 31 34 35 29 3B 3A 53 24 28 49 29 B2 22 22 3A 82 |145);:S$(I)."":.|
00000CF0: 00 0B 15 50 05 81 49 B2 31 A4 37 3A 99 A3 31 32 |...P..I.1.7:..12|
00000D00: 29 3B 3A 85 53 24 28 49 29 3A 82 00 23 15 5A 05 |);:.S$(I):..#.Z.|
00000D10: 8B 4F 24 B2 22 42 22 B0 44 24 B2 22 41 22 A7 31 |.O$."B".D$."A".1|
00000D20: 34 35 30 00 4B 15 64 05 8D 32 30 33 30 3A 99 22 |450.K.d..2030:."|
00000D30: 44 52 55 43 4B 45 52 20 45 49 4E 47 45 53 43 48 |DRUCKER EINGESCH|
00000D40: 41 4C 54 45 54 20 28 4A 29 3F 22 00 61 15 6E 05 |ALTET (J)?".a.n.|
00000D50: A1 58 24 3A 8B 58 24 B3 B1 22 4A 22 A7 31 33 39 |.X$:.X$.."J".139|
00000D60: 30 00 6A 15 78 05 9F 31 2C 34 00 A4 15 82 05 98 |0.j.x..1,4......|
00000D70: 31 2C 22 41 4E 52 45 44 45 22 3B A6 34 29 3B 22 |1,"ANREDE";.4);"|
00000D80: 4E 41 4D 45 20 31 22 3B A6 31 34 29 3B 22 4E 41 |NAME 1";.14);"NA|
00000D90: 4D 45 20 32 22 3B A6 31 34 29 3B 22 53 54 52 41 |ME 2";.14);"STRA|
00000DA0: 53 53 45 22 00 D9 15 8C 05 98 31 2C A6 33 29 3B |SSE"......1,.3);|
00000DB0: 22 50 4C 5A 2F 4F 52 54 22 3B A6 31 38 29 3B 22 |"PLZ/ORT";.18);"|
00000DC0: 54 45 4C 45 50 48 4F 4E 22 3B A6 38 29 3B 22 42 |TELEPHON";.8);"B|
00000DD0: 45 4D 45 52 4B 55 4E 47 22 00 F2 15 96 05 81 49 |EMERKUNG"......I|
00000DE0: B2 31 A4 37 39 3A 98 31 2C 22 3D 22 3B 3A 82 3A |.1.79:.1,"=";:.:|
00000DF0: 98 31 00 F9 15 A0 05 A0 31 00 04 16 AA 05 81 49 |.1......1......I|
00000E00: B2 31 A4 58 00 0F 16 B4 05 81 59 B2 31 A4 37 00 |.1.X......Y.1.7.|
00000E10: 3A 16 BE 05 8B 53 24 28 59 29 B2 C8 28 44 24 28 |:....S$(Y)..(D$(|
00000E20: 49 2C 59 29 2C C3 28 53 24 28 59 29 29 29 A7 5A |I,Y),.(S$(Y))).Z|
00000E30: B2 5A AA 31 3A 89 31 34 38 30 00 41 16 C8 05 82 |.Z.1:.1480.A....|
00000E40: 59 00 50 16 D2 05 8B 5A B2 37 A7 8D 31 35 35 30 |Y.P....Z.7..1550|
00000E50: 00 5B 16 DC 05 5A B2 30 3A 82 49 00 74 16 E6 05 |.[...Z.0:.I.t...|
00000E60: 99 3A 99 22 12 44 41 54 45 49 45 4E 44 45 21 21 |.:.".DATEIENDE!!|
00000E70: 21 22 3A 99 00 8F 16 F0 05 99 22 57 45 49 54 45 |!":......."WEITE|
00000E80: 52 20 4D 49 54 20 52 45 54 55 52 4E 22 3A 99 00 |R MIT RETURN":..|
00000E90: 97 16 FA 05 85 58 24 00 9D 16 04 06 8E 00 AE 16 |.....X$.........|
00000EA0: 0E 06 8B 4F 24 B2 22 42 22 A7 31 37 33 30 00 BF |...O$."B".1730..|
00000EB0: 16 18 06 8B 44 24 B2 22 41 22 A7 31 36 37 30 00 |....D$."A".1670.|
00000EC0: C8 16 22 06 9F 31 2C 34 00 E8 16 2C 06 98 31 2C |.."..1,4...,..1,|
00000ED0: 44 24 28 49 2C 31 29 3B A6 31 30 AB C3 28 44 24 |D$(I,1);.10..(D$|
00000EE0: 28 49 2C 31 29 29 29 3B 00 08 17 36 06 98 31 2C |(I,1)));...6..1,|
00000EF0: 44 24 28 49 2C 32 29 3B A6 32 30 AB C3 28 44 24 |D$(I,2);.20..(D$|
00000F00: 28 49 2C 32 29 29 29 3B 00 28 17 40 06 98 31 2C |(I,2)));.(.@..1,|
00000F10: 44 24 28 49 2C 33 29 3B A6 32 30 AB C3 28 44 24 |D$(I,3);.20..(D$|
00000F20: 28 49 2C 33 29 29 29 3B 00 37 17 4A 06 98 31 2C |(I,3)));.7.J..1,|
00000F30: 44 24 28 49 2C 34 29 00 5B 17 54 06 98 31 2C A6 |D$(I,4).[.T..1,.|
00000F40: 33 29 3B 44 24 28 49 2C 35 29 3B A6 32 35 AB C3 |3);D$(I,5);.25..|
00000F50: 28 44 24 28 49 2C 35 29 29 29 3B 00 7B 17 5E 06 |(D$(I,5)));.{.^.|
00000F60: 98 31 2C 44 24 28 49 2C 36 29 3B A6 31 35 AB C3 |.1,D$(I,6);.15..|
00000F70: 28 44 24 28 49 2C 36 29 29 29 3B 00 8A 17 68 06 |(D$(I,6)));...h.|
00000F80: 98 31 2C 44 24 28 49 2C 37 29 00 94 17 72 06 98 |.1,D$(I,7)...r..|
00000F90: 31 3A A0 31 00 9A 17 7C 06 8E 00 A3 17 86 06 9F |1:.1...|........|
00000FA0: 32 2C 34 00 AA 17 90 06 98 32 00 C2 17 9A 06 81 |2,4......2......|
00000FB0: 4A B2 31 A4 35 3A 98 32 2C 44 24 28 49 2C 4A 29 |J.1.5:.2,D$(I,J)|
00000FC0: 3A 82 00 CF 17 A4 06 98 32 3A 98 32 3A 98 32 00 |:.......2:.2:.2.|
00000FD0: D6 17 AE 06 A0 32 00 DC 17 B8 06 8E 00 EC 17 C2 |.....2..........|
00000FE0: 06 8D 32 30 33 30 3A 8D 32 31 31 30 00 01 18 CC |..2030:.2110....|
00000FF0: 06 99 3A 99 22 57 45 49 54 45 52 20 28 4A 29 3F |..:."WEITER (J)?|
00001000: 22 00 17 18 D6 06 A1 58 24 3A 8B 58 24 B3 B1 22 |"......X$:.X$.."|
00001010: 4A 22 A7 31 37 35 30 00 1D 18 E0 06 8E 00 42 18 |J".1750.......B.|
00001020: EA 06 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00001030: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************|
00001040: 2A 2A 00 67 18 F4 06 8F 20 20 20 20 20 20 20 20 |**.g.... |
00001050: 20 20 20 20 20 20 20 2A 44 41 54 45 4E 20 4C 4F | *DATEN LO|
00001060: 45 53 43 48 45 4E 2A 00 8C 18 FE 06 8F 20 20 20 |ESCHEN*...... |
00001070: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A | ****|
00001080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9A 18 08 |************....|
00001090: 07 8B 58 B1 30 A7 31 38 32 30 00 A6 18 12 07 8D |..X.0.1820......|
000010A0: 32 32 33 30 3A 8E 00 B0 18 1C 07 8D 32 30 33 30 |2230:.......2030|
000010B0: 00 C5 18 26 07 85 22 4E 41 4D 45 20 31 20 3A 20 |...&.."NAME 1 : |
000010C0: 22 3B 4E 31 24 00 DA 18 30 07 85 22 4E 41 4D 45 |";N1$...0.."NAME|
000010D0: 20 32 20 3A 20 22 3B 4E 32 24 00 E5 18 3A 07 81 | 2 : ";N2$...:..|
000010E0: 49 B2 31 A4 58 00 07 19 44 07 8B 44 24 28 49 2C |I.1.X...D..D$(I,|
000010F0: 32 29 B2 4E 31 24 AF 44 24 28 49 2C 33 29 B2 4E |2).N1$.D$(I,3).N|
00001100: 32 24 A7 31 39 30 30 00 0E 19 4E 07 82 49 00 2E |2$.1900...N..I..|
00001110: 19 58 07 99 22 12 4E 41 4D 45 20 4E 49 43 48 54 |.X..".NAME NICHT|
00001120: 20 47 45 46 55 4E 44 45 4E 21 21 22 3A 99 00 4D | GEFUNDEN!!":..M|
00001130: 19 62 07 99 22 57 45 49 54 45 52 20 4D 49 54 20 |.b.."WEITER MIT |
00001140: 52 45 54 55 52 4E 22 3A 85 58 24 3A 8E 00 5D 19 |RETURN":.X$:..].|
00001150: 6C 07 8D 32 30 33 30 3A 8D 32 31 31 30 00 7E 19 |l..2030:.2110.~.|
00001160: 76 07 99 3A 99 22 41 44 52 45 53 53 45 20 4C 4F |v..:."ADRESSE LO|
00001170: 45 53 43 48 45 4E 20 28 4A 2F 4E 29 3F 22 00 9C |ESCHEN (J/N)?"..|
00001180: 19 80 07 A1 58 24 3A 8B 58 24 B3 B1 22 4A 22 AF |....X$:.X$.."J".|
00001190: 58 24 B3 B1 22 4E 22 A7 31 39 32 30 00 AA 19 8A |X$.."N".1920....|
000011A0: 07 8B 58 24 B2 22 4E 22 A7 8E 00 B7 19 94 07 81 |..X$."N"........|
000011B0: 59 B2 49 A4 58 AB 31 00 C2 19 9E 07 81 4A B2 31 |Y.I.X.1......J.1|
000011C0: A4 37 00 D8 19 A8 07 44 24 28 59 2C 4A 29 B2 44 |.7.....D$(Y,J).D|
000011D0: 24 28 59 AA 31 2C 4A 29 00 E1 19 B2 07 82 4A 2C |$(Y.1,J)......J,|
000011E0: 59 00 FA 19 BC 07 81 4A B2 31 A4 37 3A 44 24 28 |Y......J.1.7:D$(|
000011F0: 58 2C 4A 29 B2 22 22 3A 82 4A 00 04 1A C6 07 58 |X,J)."":.J.....X|
00001200: B2 58 AB 31 00 1F 1A D0 07 99 22 53 41 54 5A 20 |.X.1......"SATZ |
00001210: 49 53 54 20 47 45 4C 4F 45 53 43 48 54 21 22 00 |IST GELOESCHT!".|
00001220: 39 1A DA 07 99 22 57 45 49 54 45 52 20 4D 49 54 |9...."WEITER MIT|
00001230: 20 52 45 54 55 52 4E 21 22 00 43 1A E4 07 85 58 | RETURN!".C....X|
00001240: 24 3A 8E 00 68 1A EE 07 8F 20 20 20 20 20 20 20 |$:..h.... |
00001250: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A | ******|
00001260: 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 1A F8 07 8F 20 20 |********...... |
00001270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00001280: 50 52 4F 47 52 41 4D 4D 4B 4F 50 46 2A 00 B2 1A |PROGRAMMKOPF*...|
00001290: 02 08 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000012A0: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ************|
000012B0: 2A 2A 00 BF 1A 0C 08 99 C7 28 31 34 37 29 3B 00 |**.......(147);.|
000012C0: E4 1A 16 08 99 A3 38 29 3B 22 3D 3D 3D 3D 3D 3D |......8);"======|
000012D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000012E0: 3D 3D 3D 22 00 09 1B 20 08 99 A3 38 29 3B 22 41 |==="... ...8);"A|
000012F0: 20 44 20 52 20 45 20 53 20 53 20 45 20 4E 20 44 | D R E S S E N D|
00001300: 20 41 20 54 20 45 20 49 22 00 2E 1B 2A 08 99 A3 | A T E I"...*...|
00001310: 38 29 3B 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |8);"============|
00001320: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 38 |=============".8|
00001330: 1B 34 08 99 3A 99 3A 8E 00 5D 1B 3E 08 8F 20 20 |.4..:.:..].>.. |
00001340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 82 1B |*************...|
00001360: 48 08 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |H.. |
00001370: 20 20 20 20 20 2A 53 41 54 5A 41 55 53 47 41 42 | *SATZAUSGAB|
00001380: 45 2A 00 A7 1B 52 08 8F 20 20 20 20 20 20 20 20 |E*...R.. |
00001390: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A | ******|
000013A0: 2A 2A 2A 2A 2A 2A 2A 00 C5 1B 5C 08 99 22 41 4E |*******...\.."AN|
000013B0: 52 45 44 45 20 20 20 20 20 20 3A 20 22 3B 44 24 |REDE : ";D$|
000013C0: 28 49 2C 31 29 00 E3 1B 66 08 99 22 4E 41 4D 45 |(I,1)...f.."NAME|
000013D0: 20 31 20 20 20 20 20 20 3A 20 22 3B 44 24 28 49 | 1 : ";D$(I|
000013E0: 2C 32 29 00 01 1C 70 08 99 22 4E 41 4D 45 20 32 |,2)...p.."NAME 2|
000013F0: 20 20 20 20 20 20 3A 20 22 3B 44 24 28 49 2C 33 | : ";D$(I,3|
00001400: 29 00 1F 1C 7A 08 99 22 53 54 52 41 53 53 45 2F |)...z.."STRASSE/|
00001410: 4E 52 2E 20 3A 20 22 3B 44 24 28 49 2C 34 29 00 |NR. : ";D$(I,4).|
00001420: 3D 1C 84 08 99 22 50 4C 5A 2F 4F 52 54 20 20 20 |=...."PLZ/ORT |
00001430: 20 20 3A 20 22 3B 44 24 28 49 2C 35 29 00 5B 1C | : ";D$(I,5).[.|
00001440: 8E 08 99 22 54 45 4C 45 50 48 4F 4E 20 20 20 20 |..."TELEPHON |
00001450: 3A 20 22 3B 44 24 28 49 2C 36 29 00 79 1C 98 08 |: ";D$(I,6).y...|
00001460: 99 22 42 45 4D 45 52 4B 55 4E 47 20 20 20 3A 20 |."BEMERKUNG : |
00001470: 22 3B 44 24 28 49 2C 37 29 00 7F 1C AC 08 8E 00 |";D$(I,7).......|
00001480: A4 1C B6 08 8F 20 20 20 20 20 20 20 20 20 20 20 |..... |
00001490: 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | *********|
000014A0: 2A 2A 2A 2A 00 C9 1C C0 08 8F 20 20 20 20 20 20 |****...... |
000014B0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 4B 45 49 | *KEI|
000014C0: 4E 45 20 44 41 54 45 49 2A 00 EE 1C CA 08 8F 20 |NE DATEI*...... |
000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014E0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F8 | *************..|
000014F0: 1C D4 08 8D 32 30 33 30 00 1C 1D DE 08 99 22 12 |....2030......".|
00001500: 4B 45 49 4E 45 20 44 41 54 45 49 20 49 4D 20 52 |KEINE DATEI IM R|
00001510: 45 43 48 4E 45 52 21 21 21 22 3A 99 00 36 1D E8 |ECHNER!!!":..6..|
00001520: 08 99 22 57 45 49 54 45 52 20 4D 49 54 20 52 45 |.."WEITER MIT RE|
00001530: 54 55 52 4E 21 22 00 40 1D F2 08 85 58 24 3A 8E |TURN!".@....X$:.|
00001540: 00 6B 1D FC 08 99 22 53 4F 4C 4C 20 45 49 4E 45 |.k...."SOLL EINE|
00001550: 20 4E 29 45 55 45 20 44 41 54 45 49 20 41 4E 47 | N)EUE DATEI ANG|
00001560: 45 4C 45 47 54 20 4F 44 45 52 22 00 8E 1D 06 09 |ELEGT ODER".....|
00001570: 99 22 45 49 4E 45 20 41 29 4C 54 45 20 45 52 47 |."EINE A)LTE ERG|
00001580: 41 45 4E 5A 54 20 57 45 52 44 45 4E 3F 22 00 BB |AENZT WERDEN?"..|
00001590: 1D 09 09 99 22 4F 44 45 52 20 53 4F 4C 4C 20 45 |...."ODER SOLL E|
000015A0: 49 4E 45 20 5A 55 45 52 53 54 20 47 29 45 4C 41 |INE ZUERST G)ELA|
000015B0: 44 45 4E 45 20 44 41 54 45 49 22 00 DE 1D 0C 09 |DENE DATEI".....|
000015C0: 99 22 56 45 52 41 45 4E 44 45 52 54 20 45 49 4E |."VERAENDERT EIN|
000015D0: 4C 45 53 45 4E 20 57 45 52 44 45 4E 3F 22 00 04 |LESEN WERDEN?"..|
000015E0: 1E 10 09 A1 58 24 3A 8B 58 24 B3 B1 22 41 22 AF |....X$:.X$.."A".|
000015F0: 58 24 B3 B1 22 4E 22 AF 58 24 B3 B1 22 47 22 A7 |X$.."N".X$.."G".|
00001600: 32 33 32 30 00 26 1E 1A 09 8B 58 24 B2 22 41 22 |2320.&....X$."A"|
00001610: A7 9F 31 2C 38 2C 32 2C 22 3A 22 AA 44 4E 24 AA |..1,8,2,":".DN$.|
00001620: 22 2C 53 2C 41 22 00 48 1E 24 09 8B 58 24 B2 22 |",S,A".H.$..X$."|
00001630: 4E 22 A7 9F 31 2C 38 2C 32 2C 22 3A 22 AA 44 4E |N"..1,8,2,":".DN|
00001640: 24 AA 22 2C 53 2C 57 22 00 7E 1E 29 09 8B 58 24 |$.",S,W".~.)..X$|
00001650: B2 22 47 22 A7 9F 31 2C 38 2C 31 35 2C 22 53 3A |."G"..1,8,15,"S:|
00001660: 22 AA 44 4E 24 3A A0 31 3A 9F 31 2C 38 2C 32 2C |".DN$:.1:.1,8,2,|
00001670: 22 3A 22 AA 44 4E 24 AA 22 2C 53 2C 57 22 00 84 |":".DN$.",S,W"..|
00001680: 1E 2E 09 8E 00 8A 1E 38 09 80 00 93 1E 88 13 9F |.......8........|
00001690: 31 2C 34 00 9C 1E 92 13 9D 31 3A 9B 00 A3 1E 9C |1,4......1:.....|
000016A0: 13 98 31 00 AA 1E A6 13 A0 31 00 B0 1E B0 13 80 |..1......1......|
000016B0: 00 00 00 FF 82 24 |.....$ |
......."PROGRAMM".;.D..53280,5:.53281,2:
.G(158);:.D$(700,7).E.N..2030.N.S..".".{
.X.."WAEHLEN SIE DIE GEWUENSCHTE FUNKTIO
N:"......"------------------------------
-------":..I...." -1- DATEI LADEN
"......" -2- DATEI SICHERN"... ..
" -3- DATEN EINGEBEN".-...."
-4- DATEN AENDERN".[...." -5-
DATEN SELEKTIEREN/AUSGEBEN"....."
-6- DATEN LOESCHEN":....H.." -0
- PROGRAMM BEENDEN"...R...K...."
AUSWAHL (O-6)?"......X$:.X$."0".X$."
6".230......X$.."0".340......:."
SICHER (J/N)?".;....X$:.X$.."J".
X$.."N".260.K....X$."N".110.V.... 2030.W
."...9);"DAS PROGRAMM KANN MIT"...,...15
);"'GOTO 110'"...6...8);"WIEDER GESTARTE
T WERDEN"...@...4);"OHNE DASS DATEN VERL
OREN GEHEN!"...J.....T..E(X$).360,540,68
0,880,1190,1770...^..110.6.H..
*************.\.R..
*DATEI LADEN*...|..
*************......2030......"NAME
DER DATEI:";DN$......15,8,15.J....1,8,2,
DN$.",S,R"......15,FE:.FE.0.460......".D
ISKETTENFEHLER!!!"...B..510...L.X.1.J.V.
.1,D$(X,1),D$(X,2),D$(X,3),D$(X,4),D$(X,
5),D$(X,6),D$(X,7).B.... ST..64.X.X.1:.4
70......"DATEI IST GELADEN UND BEINHALTE
T ";X......"DATENSAETZE.":...... 1: 15.H
...."WEITER MIT RETURN!".R....X$:.......
***************...&..
*DATEI SICHERN*.D.0..
***************.R.:.. X.0.5
90._.D.. 2230:..J.N.. 2030.T.X..2300..B
..I.1.X...L..1,D$(I,1)","D$(I,2)","D$(I,
3)",";.S.V..1,D$(I,4)","D$(I,5)","D$(I,6
)","D$(I,7).Y.........."DATEI IST GESICH
ERT": 1:......."WEITER MIT RETURN"......
X$:..B.... **************
**.H.... *DATEN EINGEBEN*
...... ****************..
.F..X.0..730...P..2030:."DATEINAME ";DN$
.B.Z.X.X.1.L....2030......"DATENEINGABE:
"......"-------------":......I.X:.2110..
....I.1.7:.G(145);:..9....I.1.7:..12);:.
D$(X,I):..Q. ..:."RICHTIG (J/N)?".N.*..X
$:.X$.."J".X$.."N".810.~.4..X$."J".840..
.>..740...H.."WEITERE EINGABEN (J/N)?".C
.R..X$:.X$.."J".X$.."N".850.S.\..X$."J".
730.Y.F.....P.. ********
*******.%.Z.. *DATEN AEN
DERN*.K.... ************
***.X....X.0.930.D....2230:..N....2030..
...."NAME 1: ";N1$......"NAME 2: ";N2$..
.... I.1.X.D.J..D$(I,2).N1$.D$(I,3).N2$.
1010.K.T..I......".NAME NICHT GEFUNDEN!!
!"......"WEITER MIT RETURN":.X$:.......2
030.3...."-1- ANREDE :";D$(I,1).S...
."-2- NAME 1 :";D$(I,2).S...."-3- NA
ME 2 :";D$(I,3)......"-4- STRASSE/NR
.:";D$(I,4)...$.."-5- PLZ/ORT :";D$(I
,5).S...."-6- TELEPHON :";D$(I,6)...8.
."-7- BEMERKUNG :";D$(I,7).3.B.."NR. DE
S ZU AENDERNDEN FELDES: ":."(9=KEINE AEN
DERUNG)";:..Z.L..X$:.E(X$).1.E(X$).7.E(X
$)..9.1100.L.V..E(X$).9.1150.X.`.Y.E(X$)
...J.."NEUER INHALT: ";D$(I,Y):....T..10
10.D.~.."WEITERE AENDERUNGEN (J/N)?"....
..X$:.X$.."J".X$.."N".1160......X$."J".8
80............ ***********************
*****.B.... *DATEN SELEKTIEREN/AUSGEBE
N*.G.... ****************************.
U.D..X.0.1240...N..2230:....X..2030:."AU
SGABE AUF D)RUCKER ODER B)ILDSCHIRM?".S.
...X$:.X$.."D".X$.."B".1250.....O$.X$:.O
$."B".1300......"P)APIER ODER A)UFKLEBER
?".(....X$:.X$.."P".X$.."A".1280.2...D$.
X$.<....2030.C.#.."GEBEN SIE DIE SUCHBEG
RIFFE EIN:"...(.."BEI NICHT RELEVANTEN F
ELDERN NUR RETURN".C.2.."---------------
------------------------":..Q.<.I.0:.211
0...F..I.1.7:.G(145);:S$(I)."":....P..I.
1.7:..12);:.S$(I):..#.Z..O$."B".D$."A".1
450.K.D..2030:."DRUCKER EINGESCHALTET (J
)?".A.N..X$:.X$.."J".1390.J.X..1,4......
1,"ANREDE";.4);"NAME 1";.14);"NAME 2";.1
4);"STRASSE".Y....1,.3);"PLZ/ORT";.18);"
TELEPHON";.8);"BEMERKUNG"......I.1.79:.1
,"=";:.:.1... . 1......I.1.X......Y.1.7.
:....S$(Y).H(D$(I,Y),C(S$(Y))).Z.Z.1:.14
80.A.H..Y.P.R..Z.7..1550.[...Z.0:.I.T...
.:.".DATEIENDE!!!":......."WEITER MIT RE
TURN":.......X$............O$."B".1730..
....D$."A".1670.H."..1,4...,..1,D$(I,1);
.10.C(D$(I,1)));...6..1,D$(I,2);.20.C(D$
(I,2)));.(.@..1,D$(I,3);.20.C(D$(I,3)));
.7.J..1,D$(I,4).[.T..1,.3);D$(I,5);.25.C
(D$(I,5)));.{.^..1,D$(I,6);.15.C(D$(I,6)
));...H..1,D$(I,7)...R..1: 1...|........
2,4......2.B....J.1.5:.2,D$(I,J):..O....
2:.2:.2.V... 2.........B..2030:.2110...L
..:."WEITER (J)?"...V..X$:.X$.."J".1750.
......B.... **************
**.G.... *DATEN LOESCHEN*.
..... ****************....
..X.0.1820......2230:.......2030.E.&.."N
AME 1 : ";N1$.Z.0.."NAME 2 : ";N2$...:..
I.1.X...D..D$(I,2).N1$.D$(I,3).N2$.1900.
..N..I...X..".NAME NICHT GEFUNDEN!!":..M
.B.."WEITER MIT RETURN":.X$:..].L..2030:
.2110.~.V..:."ADRESSE LOESCHEN (J/N)?"..
....X$:.X$.."J".X$.."N".1920......X$."N"
........Y.I.X.1.B....J.1.7.X...D$(Y,J).D
$(Y.1,J)......J,Y......J.1.7:D$(X,J)."":
.J...F.X.X.1...P.."SATZ IST GELOESCHT!".
9.Z.."WEITER MIT RETURN!".C....X$:..H...
. **************......
*PROGRAMMKOPF*......
**************......G(147);.
......8);"========================="...
...8);"A D R E S S E N D A T E I"...*...
8);"=========================".8.4..:.:.
.].>.. *************...
H.. *SATZAUSGABE*...R..
*************.E.\.."AN
REDE : ";D$(I,1)...F.."NAME 1
: ";D$(I,2)...P.."NAME 2 : ";D$(I,3
)...Z.."STRASSE/NR. : ";D$(I,4).=...."PL
Z/ORT : ";D$(I,5).[...."TELEPHON
: ";D$(I,6).Y...."BEMERKUNG : ";D$(I,7
)........... *********
****.I.... *KEINE DATEI
*...J.. *************..
.T..2030......".KEINE DATEI IM RECHNER!!
!":..6...."WEITER MIT RETURN!".@....X$:.
.K...."SOLL EINE N)EUE DATEI ANGELEGT OD
ER"......"EINE A)LTE ERGAENZT WERDEN?"..
...."ODER SOLL EINE ZUERST G)ELADENE DAT
EI"......"VERAENDERT EINLESEN WERDEN?"..
....X$:.X$.."A".X$.."N".X$.."G".2320.&..
..X$."A"..1,8,2,":".DN$.",S,A".H.$..X$."
N"..1,8,2,":".DN$.",S,W".~.)..X$."G"..1,
8,15,"S:".DN$: 1:.1,8,2,":".DN$.",S,W"..
.......8........1,4......1:.......1.....
1...........$
> CLICK IMAGE PREVIEW FOR FULL MODAL