RELDAT 3.0
FILE INFORMATION
FILENAME(S): RELDAT 3.0
FILE TYPE(S): PRG
FILE SIZE: 7.9K
FIRST SEEN: 2025-11-30 21:12:50
APPEARS ON: 1 disk(s)
FILE HASH
230e0fb001d04ecc10a53e5be9e0223ef53284d6d2fc95737445ada7fcdf0a69
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 8 95 | RELDAT 3.0 | PRG | DuncanTwain | 17 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 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 2A 2A 2A |****************|
00000020: 2A 00 41 08 6E 00 8F 20 2A 20 44 45 4D 4F 50 52 |*.A.n.. * DEMOPR|
00000030: 4F 47 52 41 4D 4D 20 46 55 45 52 20 20 20 20 20 |OGRAMM FUER |
00000040: 2A 00 61 08 78 00 8F 20 2A 20 52 45 4C 41 54 49 |*.a.x.. * RELATI|
00000050: 56 45 20 44 41 54 45 49 56 45 52 2D 20 20 20 20 |VE DATEIVER- |
00000060: 2A 00 81 08 82 00 8F 20 2A 20 56 45 52 57 41 4C |*...... * VERWAL|
00000070: 54 55 4E 47 20 20 20 20 20 20 20 20 20 20 20 20 |TUNG |
00000080: 2A 00 A1 08 8C 00 8F 20 2A 20 31 39 39 35 20 42 |*...... * 1995 B|
00000090: 59 20 36 34 27 45 52 20 4D 41 47 41 5A 49 4E 20 |Y 64'ER MAGAZIN |
000000A0: 2A 00 C1 08 96 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 00 E1 08 55 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...U.. ********|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 00 01 09 56 02 8F 20 2A 20 20 50 52 4F 47 52 |*...V.. * PROGR|
000000F0: 41 4D 4D 2D 48 41 4E 44 4C 45 52 20 20 20 20 20 |AMM-HANDLER |
00000100: 2A 00 21 09 57 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.!.W.. ********|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 00 43 09 58 02 47 41 B2 38 3A 20 8F 20 46 4C |*.C.X.GA.8: . FL|
00000130: 4F 50 50 59 2D 47 45 52 41 45 54 45 41 44 52 45 |OPPY-GERAETEADRE|
00000140: 53 53 45 00 69 09 5D 02 4D 50 B2 31 3A 20 8F 20 |SSE.i.].MP.1: . |
00000150: 46 4C 41 47 20 46 55 45 52 20 4D 45 4E 55 45 50 |FLAG FUER MENUEP|
00000160: 55 4E 4B 54 45 57 41 48 4C 00 85 09 5E 02 8D 38 |UNKTEWAHL...^..8|
00000170: 30 30 3A 20 8F 20 44 49 4D 45 4E 53 49 4F 4E 49 |00: . DIMENSIONI|
00000180: 45 52 55 4E 47 00 B3 09 62 02 97 35 33 32 38 30 |ERUNG...b..53280|
00000190: 2C 31 3A 97 35 33 32 38 31 2C 31 3A 97 36 34 36 |,1:.53281,1:.646|
000001A0: 2C 30 3A 99 C7 28 31 34 29 C7 28 38 29 C7 28 31 |,0:..(14).(8).(1|
000001B0: 34 37 29 00 C1 09 64 02 81 20 49 B2 31 20 A4 20 |47)...d.. I.1 . |
000001C0: 36 00 CE 09 65 02 87 20 4D 45 24 28 49 29 00 D6 |6...e.. ME$(I)..|
000001D0: 09 66 02 82 20 49 00 E0 09 67 02 8D 39 39 30 30 |.f.. I...g..9900|
000001E0: 00 1B 0A 6C 02 99 C7 28 31 39 29 C7 28 31 33 29 |...l...(19).(13)|
000001F0: C7 28 31 33 29 A3 31 30 29 C7 28 31 38 29 22 20 |.(13).10).(18)" |
00000200: D2 C5 CC C1 D4 C9 D6 C5 20 C1 C4 D2 C5 D3 D3 C4 |........ .......|
00000210: C1 D4 C5 C9 20 22 C7 28 31 33 29 00 29 0A 75 02 |.... ".(13).).u.|
00000220: 81 20 43 B2 31 20 A4 20 36 00 47 0A 76 02 8B 4D |. C.1 . 6.G.v..M|
00000230: 50 B2 43 20 A7 20 99 A3 31 30 29 C7 28 31 38 29 |P.C . ..10).(18)|
00000240: 4D 45 24 28 4D 50 29 00 60 0A 7B 02 8B 4D 50 B3 |ME$(MP).`.{..MP.|
00000250: B1 43 20 A7 20 99 A3 31 30 29 4D 45 24 28 43 29 |.C . ..10)ME$(C)|
00000260: 00 68 0A 80 02 82 20 43 00 71 0A A8 02 A1 20 54 |.h.... C.q.... T|
00000270: 24 00 93 0A AA 02 8B 54 24 B2 C7 28 31 37 29 A7 |$......T$..(17).|
00000280: 20 4D 50 B2 4D 50 AA 31 3A 8B 4D 50 B1 36 A7 4D | MP.MP.1:.MP.6.M|
00000290: 50 B2 31 00 B6 0A AC 02 8B 54 24 B2 C7 28 31 34 |P.1......T$..(14|
000002A0: 35 29 A7 20 4D 50 B2 4D 50 AB 31 3A 8B 4D 50 B3 |5). MP.MP.1:.MP.|
000002B0: 31 A7 4D 50 B2 31 00 C9 0A AE 02 8B 54 24 B2 C7 |1.MP.1......T$..|
000002C0: 28 31 33 29 A7 20 37 38 30 00 D2 0A B2 02 89 36 |(13). 780......6|
000002D0: 32 30 00 FB 0A 0C 03 91 20 4D 50 20 8D 20 31 31 |20...... MP . 11|
000002E0: 30 30 2C 39 30 30 30 2C 37 30 30 30 2C 38 30 30 |00,9000,7000,800|
000002F0: 30 2C 32 35 30 30 2C 32 34 30 30 00 05 0B 16 03 |0,2500,2400.....|
00000300: 89 20 36 32 30 00 28 0B 1D 03 8F 20 2A 2A 2A 2A |. 620.(.... ****|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 00 4B 0B 1E 03 8F 20 2A |********.K.... *|
00000330: 20 56 41 52 49 41 42 4C 45 4E 20 44 49 4D 45 4E | VARIABLEN DIMEN|
00000340: 53 49 4F 4E 49 45 52 45 4E 20 2A 00 6E 0B 1F 03 |SIONIEREN *.n...|
00000350: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 98 |**************..|
00000370: 0B 20 03 44 4D B2 34 30 30 3A 20 8F 20 56 4F 52 |. .DM.400: . VOR|
00000380: 47 45 53 45 48 45 4E 45 20 44 41 54 45 4E 53 41 |GESEHENE DATENSA|
00000390: 54 5A 41 4E 5A 41 48 4C 00 C4 0B 2A 03 86 20 49 |TZANZAHL...*.. I|
000003A0: 44 24 28 44 4D 29 3A 20 8F 20 53 43 48 4C 55 45 |D$(DM): . SCHLUE|
000003B0: 53 53 45 4C 57 4F 52 54 20 28 49 4E 44 45 58 46 |SSELWORT (INDEXF|
000003C0: 45 4C 44 29 00 EF 0B 34 03 86 20 49 4E 28 44 4D |ELD)...4.. IN(DM|
000003D0: 29 3A 20 8F 20 44 41 5A 55 47 45 48 4F 45 52 49 |): . DAZUGEHOERI|
000003E0: 47 45 20 52 45 43 4F 52 44 4E 55 4D 4D 45 52 00 |GE RECORDNUMMER.|
000003F0: 32 0C 3E 03 86 20 44 53 24 28 36 29 3A 20 8F 20 |2.>.. DS$(6): . |
00000400: 44 41 54 45 4E 46 45 4C 44 45 52 20 2D 20 42 45 |DATENFELDER - BE|
00000410: 49 20 42 45 44 41 52 46 20 45 52 48 4F 45 48 45 |I BEDARF ERHOEHE|
00000420: 4E 20 4F 44 45 52 20 52 45 44 55 5A 49 45 52 45 |N ODER REDUZIERE|
00000430: 4E 21 00 38 0C 48 03 8E 00 5B 0C DB 03 8F 20 2A |N!.8.H...[.... *|
00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7E 0C DC 03 |***********.~...|
00000460: 8F 20 2A 20 52 45 4C 2E 44 41 54 45 49 20 41 4E |. * REL.DATEI AN|
00000470: 4C 45 47 45 4E 2F 4F 45 46 46 4E 45 4E 2A 00 A1 |LEGEN/OEFFNEN*..|
00000480: 0C DD 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004A0: 2A 00 B9 0C DE 03 8F 20 4C 46 3D 4C 4F 47 2E 46 |*...... LF=LOG.F|
000004B0: 49 4C 45 4E 55 4D 4D 45 52 00 D3 0C DF 03 8F 20 |ILENUMMER...... |
000004C0: 53 41 3D 53 45 4B 55 4E 44 41 45 52 41 44 52 45 |SA=SEKUNDAERADRE|
000004D0: 53 53 45 00 E7 0C E0 03 8F 20 44 4E 24 3D 44 41 |SSE...... DN$=DA|
000004E0: 54 45 49 4E 41 4D 45 00 FD 0C E1 03 8F 20 52 4C |TEINAME...... RL|
000004F0: 3D 52 45 43 4F 52 44 4C 41 45 4E 47 45 00 2A 0D |=RECORDLAENGE.*.|
00000500: E8 03 9F 31 35 2C 38 2C 31 35 3A 20 8F 20 46 4C |...15,8,15: . FL|
00000510: 4F 50 50 59 2D 4B 4F 4D 4D 41 4E 44 4F 4B 41 4E |OPPY-KOMMANDOKAN|
00000520: 41 4C 20 4F 45 46 46 4E 45 4E 00 5E 0D F2 03 9F |AL OEFFNEN.^....|
00000530: 20 4C 46 2C 47 41 2C 53 41 2C 44 4E 24 AA 22 2C | LF,GA,SA,DN$.",|
00000540: 4C 2C 22 AA C7 28 52 4C 29 3A 20 8F 20 52 45 4C |L,"..(RL): . REL|
00000550: 2D 44 41 54 45 49 20 4F 45 46 46 4E 45 4E 00 64 |-DATEI OEFFNEN.d|
00000560: 0D FC 03 8E 00 83 0D 49 04 8F 20 2A 2A 2A 2A 2A |.......I.. *****|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000580: 2A 2A 2A 00 A2 0D 4A 04 8F 20 2A 20 44 41 54 45 |***...J.. * DATE|
00000590: 49 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E |I INITIALISIEREN|
000005A0: 20 2A 00 C1 0D 4B 04 8F 20 2A 2A 2A 2A 2A 2A 2A | *...K.. *******|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005C0: 2A 00 09 0E 4C 04 4C 46 B2 31 3A 53 41 B2 32 3A |*...L.LF.1:SA.2:|
000005D0: 44 4E 24 B2 22 41 44 52 45 53 53 45 4E 22 3A 52 |DN$."ADRESSEN":R|
000005E0: 4C B2 31 35 31 3A 8D 31 30 30 30 3A 20 8F 20 52 |L.151:.1000: . R|
000005F0: 45 4C 2D 44 41 54 45 49 20 41 44 52 45 53 53 45 |EL-DATEI ADRESSE|
00000600: 4E 20 4F 45 46 46 4E 45 4E 00 45 0E 56 04 9F 32 |N OEFFNEN.E.V..2|
00000610: 2C 38 2C 33 2C 22 49 4E 44 45 58 2C 53 2C 52 22 |,8,3,"INDEX,S,R"|
00000620: 3A 20 8F 20 53 45 51 2D 44 41 54 45 49 20 49 4E |: . SEQ-DATEI IN|
00000630: 44 45 58 20 5A 55 4D 20 4C 45 53 45 4E 20 4F 45 |DEX ZUM LESEN OE|
00000640: 46 46 4E 45 4E 00 64 0E 60 04 8D 34 30 30 30 3A |FFNEN.d.`..4000:|
00000650: 20 8F 20 46 45 48 4C 45 52 4B 41 4E 41 4C 20 4C | . FEHLERKANAL L|
00000660: 45 53 45 4E 00 9A 0E 6A 04 8B 20 45 52 B3 B1 30 |ESEN...j.. ER..0|
00000670: 20 A7 20 41 44 B2 30 3A 89 31 31 39 30 3A 20 8F | . AD.0:.1190: .|
00000680: 20 44 41 54 45 49 20 4E 4F 43 48 20 4E 49 43 48 | DATEI NOCH NICH|
00000690: 54 20 41 4E 47 45 4C 45 47 54 00 BE 0E 6F 04 84 |T ANGELEGT...o..|
000006A0: 32 2C 41 44 3A 20 8F 20 41 4E 5A 41 48 4C 20 44 |2,AD: . ANZAHL D|
000006B0: 45 52 20 44 41 54 45 4E 53 41 45 54 5A 45 00 CD |ER DATENSAETZE..|
000006C0: 0E 74 04 81 20 49 B2 31 20 A4 20 41 44 00 E1 0E |.t.. I.1 . AD...|
000006D0: 76 04 84 32 2C 49 44 24 28 49 29 2C 49 4E 28 49 |v..2,ID$(I),IN(I|
000006E0: 29 00 FD 0E 78 04 82 20 49 3A 20 8F 20 49 4E 44 |)...x.. I: . IND|
000006F0: 45 58 44 41 54 45 49 20 4C 45 53 45 4E 00 28 0F |EXDATEI LESEN.(.|
00000700: A6 04 46 4C B2 31 3A 20 8F 20 4B 45 4E 4E 5A 45 |..FL.1: . KENNZE|
00000710: 49 43 48 45 4E 20 27 44 41 54 45 49 20 49 4D 20 |ICHEN 'DATEI IM |
00000720: 52 45 43 48 4E 45 52 27 00 4E 0F A8 04 A0 20 32 |RECHNER'.N.... 2|
00000730: 3A 20 8F 20 53 45 51 2E 20 49 4E 44 45 58 44 41 |: . SEQ. INDEXDA|
00000740: 54 45 49 20 53 43 48 4C 49 45 53 53 45 4E 00 7C |TEI SCHLIESSEN.||
00000750: 0F AB 04 99 C7 28 31 33 29 C7 28 31 33 29 A3 39 |.....(13).(13).9|
00000760: 29 22 57 41 45 48 4C 45 4E 20 4D 49 54 20 3C C3 |)"WAEHLEN MIT <.|
00000770: D2 D3 D2 20 41 55 46 2F 41 42 3E 22 00 9F 0F AC |... AUF/AB>"....|
00000780: 04 99 A3 31 30 29 22 41 4B 54 49 56 49 45 52 45 |...10)"AKTIVIERE|
00000790: 4E 20 4D 49 54 20 3C D2 C5 D4 D5 D2 CE 3E 22 00 |N MIT <......>".|
000007A0: A5 0F AF 04 8E 00 C8 0F C3 07 8F 20 2A 2A 2A 2A |........... ****|
000007B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 EB 0F C4 07 8F 20 2A |********...... *|
000007D0: 20 41 55 46 20 52 45 43 4F 52 44 20 50 4F 53 49 | AUF RECORD POSI|
000007E0: 54 49 4F 4E 49 45 52 45 4E 20 2A 00 0E 10 C5 07 |TIONIEREN *.....|
000007F0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2A |**************.*|
00000810: 10 C6 07 8F 20 53 41 20 3D 20 53 45 4B 55 4E 44 |.... SA = SEKUND|
00000820: 41 45 52 41 44 52 45 53 53 45 00 43 10 C7 07 8F |AERADRESSE.C....|
00000830: 20 52 4E 20 3D 20 52 45 43 4F 52 44 2D 4E 55 4D | RN = RECORD-NUM|
00000840: 4D 45 52 00 61 10 C8 07 8F 20 52 50 20 3D 20 50 |MER.a.... RP = P|
00000850: 4F 53 49 54 49 4F 4E 20 49 4E 20 52 45 43 4F 52 |OSITION IN RECOR|
00000860: 44 00 A6 10 D0 07 48 42 B2 B5 28 52 4E AD 32 35 |D.....HB..(RN.25|
00000870: 36 29 3A 20 4C 42 B2 52 4E AB 32 35 36 AC 48 42 |6): LB.RN.256.HB|
00000880: 3A 20 8F 20 52 45 43 4F 52 44 2D 4E 52 2E 20 49 |: . RECORD-NR. I|
00000890: 4E 20 48 49 47 48 2F 4C 4F 57 2D 42 59 54 45 20 |N HIGH/LOW-BYTE |
000008A0: 54 45 49 4C 45 4E 00 CA 10 DA 07 98 31 35 2C 22 |TEILEN......15,"|
000008B0: 50 22 AA C7 28 53 41 29 AA C7 28 4C 42 29 AA C7 |P"..(SA)..(LB)..|
000008C0: 28 48 42 29 AA C7 28 52 50 29 00 D0 10 E4 07 8E |(HB)..(RP)......|
000008D0: 00 EF 10 5D 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...].. *********|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000008F0: 0E 11 5E 09 8F 20 2A 20 20 20 20 50 52 4F 47 52 |..^.. * PROGR|
00000900: 41 4D 4D 20 42 45 45 4E 44 45 4E 20 20 2A 00 2D |AMM BEENDEN *.-|
00000910: 11 5F 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |._.. ***********|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 11 |*************.Q.|
00000930: 60 09 A0 31 3A A0 31 35 3A 9F 34 2C 38 2C 31 35 |`..1:.15:.4,8,15|
00000940: 2C 22 49 22 3A A0 34 3A 99 C7 28 31 34 37 29 3A |,"I":.4:..(147):|
00000950: 80 00 70 11 C1 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..p.... ********|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000970: 00 8F 11 C2 09 8F 20 2A 20 20 44 41 54 45 49 41 |...... * DATEIA|
00000980: 52 42 45 49 54 20 42 45 45 4E 44 45 4E 20 2A 00 |RBEIT BEENDEN *.|
00000990: AE 11 C3 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 |**************..|
000009B0: 11 C4 09 8B 20 46 4C B2 30 20 A7 20 8D 39 35 30 |.... FL.0 . .950|
000009C0: 30 3A 20 8E 00 F2 11 CD 09 98 31 35 2C 22 53 3A |0: .......15,"S:|
000009D0: 49 4E 44 45 58 22 3A 20 8F 20 41 4C 54 45 20 49 |INDEX": . ALTE I|
000009E0: 4E 44 45 58 44 41 54 45 49 20 4C 4F 45 53 43 48 |NDEXDATEI LOESCH|
000009F0: 45 4E 00 3B 12 CE 09 9F 32 2C 38 2C 33 2C 22 49 |EN.;....2,8,3,"I|
00000A00: 4E 44 45 58 2C 53 2C 57 22 3A 20 8F 20 41 4B 54 |NDEX,S,W": . AKT|
00000A10: 55 41 4C 49 53 49 45 52 54 45 20 49 4E 44 45 58 |UALISIERTE INDEX|
00000A20: 44 41 54 45 49 20 5A 55 4D 20 53 43 48 52 45 49 |DATEI ZUM SCHREI|
00000A30: 42 45 4E 20 4F 45 46 46 4E 45 4E 00 5B 12 D8 09 |BEN OEFFNEN.[...|
00000A40: 98 32 2C 41 44 3A 20 8F 20 41 4E 5A 41 48 4C 20 |.2,AD: . ANZAHL |
00000A50: 44 45 52 20 52 45 43 4F 52 44 53 00 6A 12 E2 09 |DER RECORDS.j...|
00000A60: 81 20 43 B2 31 20 A4 20 41 44 00 80 12 EC 09 98 |. C.1 . AD......|
00000A70: 32 2C 49 44 24 28 43 29 22 2C 22 49 4E 28 43 29 |2,ID$(C)","IN(C)|
00000A80: 00 9E 12 F6 09 82 20 43 3A 20 8F 20 49 4E 44 45 |...... C: . INDE|
00000A90: 58 44 41 54 45 49 20 53 49 43 48 45 52 4E 00 A9 |XDATEI SICHERN..|
00000AA0: 12 00 0A 8D 20 33 30 30 30 00 B7 12 0A 0A 99 C7 |.... 3000.......|
00000AB0: 28 31 34 37 29 3A 80 00 D6 12 B4 0B 8F 20 2A 2A |(147):....... **|
00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AD0: 2A 2A 2A 2A 2A 2A 00 F5 12 B5 0B 8F 20 2A 20 52 |******...... * R|
00000AE0: 45 4C 2D 44 41 54 45 49 20 53 43 48 4C 49 45 53 |EL-DATEI SCHLIES|
00000AF0: 53 45 4E 20 2A 00 14 13 B6 0B 8F 20 2A 2A 2A 2A |SEN *...... ****|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B10: 2A 2A 2A 2A 00 2D 13 B7 0B 8F 20 4C 46 3D 4C 4F |****.-.... LF=LO|
00000B20: 47 2E 20 46 49 4C 45 4E 55 4D 4D 45 52 00 4E 13 |G. FILENUMMER.N.|
00000B30: B8 0B A0 20 4C 46 3A 20 8F 20 52 45 4C 2D 44 41 |... LF: . REL-DA|
00000B40: 54 45 49 20 53 43 48 4C 49 45 53 53 45 4E 00 6D |TEI SCHLIESSEN.m|
00000B50: 13 C2 0B A0 20 31 35 3A 20 8F 20 46 4C 4F 50 50 |.... 15: . FLOPP|
00000B60: 59 2D 4B 41 4E 41 4C 20 53 43 48 4C 2E 00 73 13 |Y-KANAL SCHL..s.|
00000B70: CC 0B 8E 00 90 13 9D 0F 8F 20 2A 2A 2A 2A 2A 2A |......... ******|
00000B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B90: 00 AD 13 9E 0F 8F 20 2A 20 46 4C 4F 50 50 59 2D |...... * FLOPPY-|
00000BA0: 46 45 48 4C 45 52 4B 41 4E 41 4C 20 2A 00 CA 13 |FEHLERKANAL *...|
00000BB0: 9F 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 13 A0 0F 84 |**********......|
00000BD0: 31 35 2C 45 52 2C 45 52 24 2C 54 52 2C 53 4B 00 |15,ER,ER$,TR,SK.|
00000BE0: 2B 14 AA 0F 8F 20 50 52 49 4E 54 20 45 52 3B 45 |+.... PRINT ER;E|
00000BF0: 52 24 3B 54 52 3B 53 4B 3A 4F 48 4E 45 20 27 52 |R$;TR;SK:OHNE 'R|
00000C00: 45 4D 27 20 45 52 53 43 48 45 49 4E 54 20 46 45 |EM' ERSCHEINT FE|
00000C10: 48 4C 45 52 4D 45 4C 44 55 4E 47 20 41 55 46 20 |HLERMELDUNG AUF |
00000C20: 44 45 4D 20 53 43 52 45 45 4E 21 00 31 14 B4 0F |DEM SCREEN!.1...|
00000C30: 8E 00 4E 14 84 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..N.... ********|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6B |**************.k|
00000C50: 14 85 13 8F 20 2A 20 46 45 4C 44 4C 2E 20 4B 4F |.... * FELDL. KO|
00000C60: 52 52 49 47 49 45 52 45 4E 20 2A 00 88 14 86 13 |RRIGIEREN *.....|
00000C70: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 00 BC 14 87 13 8F 20 42 |********...... B|
00000C90: 45 49 53 50 49 45 4C 20 46 55 45 52 20 53 45 43 |EISPIEL FUER SEC|
00000CA0: 48 53 20 44 41 54 45 4E 46 45 4C 44 45 52 20 44 |HS DATENFELDER D|
00000CB0: 53 24 28 31 29 2D 44 53 24 28 36 29 00 FD 14 88 |S$(1)-DS$(6)....|
00000CC0: 13 4C 45 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.LE$." |
00000CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000CE0: 3A 20 8F 20 4C 45 45 52 53 54 52 49 4E 47 20 5A |: . LEERSTRING Z|
00000CF0: 55 4D 20 41 55 46 46 55 45 4C 4C 45 4E 00 38 15 |UM AUFFUELLEN.8.|
00000D00: 92 13 44 53 24 28 31 29 B2 C8 28 44 53 24 28 31 |..DS$(1)..(DS$(1|
00000D10: 29 AA C8 28 4C 45 24 2C B6 28 32 35 AB C3 28 44 |)..(LE$,.(25..(D|
00000D20: 53 24 28 31 29 29 29 29 2C 32 35 29 3A 20 8F 20 |S$(1)))),25): . |
00000D30: 4E 41 43 48 4E 41 4D 45 00 72 15 9C 13 44 53 24 |NACHNAME.r...DS$|
00000D40: 28 32 29 B2 C8 28 44 53 24 28 32 29 AA C8 28 4C |(2)..(DS$(2)..(L|
00000D50: 45 24 2C B6 28 32 35 AB C3 28 44 53 24 28 32 29 |E$,.(25..(DS$(2)|
00000D60: 29 29 29 2C 32 35 29 3A 20 8F 20 56 4F 52 4E 41 |))),25): . VORNA|
00000D70: 4D 45 00 AC 15 A6 13 44 53 24 28 33 29 B2 C8 28 |ME.....DS$(3)..(|
00000D80: 44 53 24 28 33 29 AA C8 28 4C 45 24 2C B6 28 32 |DS$(3)..(LE$,.(2|
00000D90: 35 AB C3 28 44 53 24 28 33 29 29 29 29 2C 32 35 |5..(DS$(3)))),25|
00000DA0: 29 3A 20 8F 20 53 54 52 41 53 53 45 00 EB 15 B0 |): . STRASSE....|
00000DB0: 13 44 53 24 28 34 29 B2 C8 28 44 53 24 28 34 29 |.DS$(4)..(DS$(4)|
00000DC0: AA C8 28 4C 45 24 2C B6 28 32 35 AB C3 28 44 53 |..(LE$,.(25..(DS|
00000DD0: 24 28 34 29 29 29 29 2C 32 35 29 3A 20 8F 20 50 |$(4)))),25): . P|
00000DE0: 4F 53 54 4C 45 49 54 5A 41 48 4C 00 25 16 BA 13 |OSTLEITZAHL.%...|
00000DF0: 44 53 24 28 35 29 B2 C8 28 44 53 24 28 35 29 AA |DS$(5)..(DS$(5).|
00000E00: C8 28 4C 45 24 2C B6 28 32 35 AB C3 28 44 53 24 |.(LE$,.(25..(DS$|
00000E10: 28 35 29 29 29 29 2C 32 35 29 3A 20 8F 20 57 4F |(5)))),25): . WO|
00000E20: 48 4E 4F 52 54 00 5F 16 C4 13 44 53 24 28 36 29 |HNORT._...DS$(6)|
00000E30: B2 C8 28 44 53 24 28 36 29 AA C8 28 4C 45 24 2C |..(DS$(6)..(LE$,|
00000E40: B6 28 32 35 AB C3 28 44 53 24 28 36 29 29 29 29 |.(25..(DS$(6))))|
00000E50: 2C 32 35 29 3A 20 8F 20 54 45 4C 45 46 4F 4E 00 |,25): . TELEFON.|
00000E60: 65 16 EB 13 8E 00 85 16 6D 17 8F 20 2A 2A 2A 2A |e.......m.. ****|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E80: 2A 2A 2A 2A 2A 00 A5 16 6E 17 8F 20 2A 20 52 45 |*****...n.. * RE|
00000E90: 43 4F 52 44 20 5A 55 53 41 4D 4D 45 4E 46 41 53 |CORD ZUSAMMENFAS|
00000EA0: 53 45 4E 20 2A 00 C5 16 6F 17 8F 20 2A 2A 2A 2A |SEN *...o.. ****|
00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EC0: 2A 2A 2A 2A 2A 00 FA 16 70 17 52 43 24 B2 22 22 |*****...p.RC$.""|
00000ED0: 3A 8F 20 56 41 52 49 41 42 4C 45 20 46 55 45 52 |:. VARIABLE FUER|
00000EE0: 20 49 4E 48 41 4C 54 20 44 45 53 20 47 45 53 41 | INHALT DES GESA|
00000EF0: 4D 54 2D 52 45 43 4F 52 44 53 00 13 17 7A 17 81 |MT-RECORDS...z..|
00000F00: 20 43 B2 31 20 A4 20 36 3A 20 8F 20 3D 4D 45 4E | C.1 . 6: . =MEN|
00000F10: 47 45 21 00 26 17 84 17 52 43 24 B2 52 43 24 AA |GE!.&...RC$.RC$.|
00000F20: 44 53 24 28 43 29 00 2E 17 8E 17 82 20 43 00 34 |DS$(C)...... C.4|
00000F30: 17 98 17 8E 00 54 17 55 1B 8F 20 2A 2A 2A 2A 2A |.....T.U.. *****|
00000F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F50: 2A 2A 2A 2A 00 74 17 56 1B 8F 20 2A 20 20 20 20 |****.t.V.. * |
00000F60: 44 41 54 45 4E 20 45 49 4E 47 45 42 45 4E 20 20 |DATEN EINGEBEN |
00000F70: 20 20 20 2A 00 94 17 57 1B 8F 20 2A 2A 2A 2A 2A | *...W.. *****|
00000F80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F90: 2A 2A 2A 2A 00 AA 17 58 1B 8B 20 46 4C B2 30 20 |****...X.. FL.0 |
00000FA0: A7 20 8D 39 35 30 30 3A 20 8E 00 BF 17 61 1B 99 |. .9500: ....a..|
00000FB0: C7 28 31 34 37 29 C8 28 4C 41 24 2C 37 39 29 00 |.(147).(LA$,79).|
00000FC0: FF 17 62 1B 99 C7 28 31 39 29 C7 28 31 38 29 A3 |..b...(19).(18).|
00000FD0: 32 29 22 20 C4 41 54 45 4E 45 49 4E 47 41 42 45 |2)" .ATENEINGABE|
00000FE0: 2D CD 41 53 4B 45 20 22 A3 32 33 29 22 D2 45 43 |-.ASKE ".23)".EC|
00000FF0: 4F 52 44 2D CE 52 2E 3A 20 22 3B 41 44 AA 31 00 |ORD-.R.: ";AD.1.|
00001000: 05 18 67 1B 99 00 1A 18 6C 1B 99 A3 32 29 22 CE |..g.....l...2)".|
00001010: 41 43 48 4E 41 4D 45 3A 20 22 00 2F 18 6E 1B 99 |ACHNAME: "./.n..|
00001020: A3 32 29 22 D6 4F 52 4E 41 4D 45 20 3A 20 22 00 |.2)".ORNAME : ".|
00001030: 44 18 70 1B 99 A3 32 29 22 D3 54 52 41 53 53 45 |D.p...2)".TRASSE|
00001040: 20 3A 20 22 00 59 18 72 1B 99 A3 32 29 22 D0 CC | : ".Y.r...2)"..|
00001050: DA 20 20 20 20 20 3A 20 22 00 6E 18 74 1B 99 A3 |. : ".n.t...|
00001060: 32 29 22 D7 4F 48 4E 4F 52 54 20 3A 20 22 00 83 |2)".OHNORT : "..|
00001070: 18 76 1B 99 A3 32 29 22 D4 45 4C 45 46 4F 4E 20 |.v...2)".ELEFON |
00001080: 3A 20 22 00 94 18 78 1B 99 3A 99 C8 28 4C 41 24 |: "...x..:..(LA$|
00001090: 2C 37 39 29 00 BE 18 80 1B 53 50 B2 31 32 3A 20 |,79).....SP.12: |
000010A0: 8F 20 45 49 4E 47 41 42 45 53 50 41 4C 54 45 20 |. EINGABESPALTE |
000010B0: 42 4C 45 49 42 54 20 47 4C 45 49 43 48 21 00 CD |BLEIBT GLEICH!..|
000010C0: 18 85 1B 81 20 5A 4C B2 32 20 A4 20 37 00 F8 18 |.... ZL.2 . 7...|
000010D0: 87 1B 8D 20 37 39 30 30 3A 20 8F 20 45 49 4E 47 |... 7900: . EING|
000010E0: 41 42 45 2D 43 55 52 53 4F 52 20 50 4F 53 49 54 |ABE-CURSOR POSIT|
000010F0: 49 4F 4E 49 45 52 45 4E 00 16 19 8A 1B 97 31 39 |IONIEREN......19|
00001100: 2C 36 34 3A 85 44 53 24 28 5A 4C AB 31 29 3A 97 |,64:.DS$(ZL.1):.|
00001110: 31 39 2C 30 3A 99 00 1F 19 94 1B 82 20 5A 4C 00 |19,0:....... ZL.|
00001120: 45 19 9E 1B 8F 20 45 49 4E 47 41 42 45 20 49 4E |E.... EINGABE IN|
00001130: 20 49 4E 44 45 58 44 41 54 45 49 20 56 45 52 4D | INDEXDATEI VERM|
00001140: 45 52 4B 45 4E 00 7A 19 A8 1B 41 44 B2 41 44 AA |ERKEN.z...AD.AD.|
00001150: 31 3A 20 52 4E B2 41 44 3A 20 8F 20 44 41 54 45 |1: RN.AD: . DATE|
00001160: 4E 53 41 54 5A 41 4E 5A 41 48 4C 20 49 4E 4B 52 |NSATZANZAHL INKR|
00001170: 45 4D 45 4E 54 49 45 52 45 4E 00 A4 19 B2 1B 49 |EMENTIEREN.....I|
00001180: 44 24 28 41 44 29 B2 44 53 24 28 31 29 3A 20 8F |D$(AD).DS$(1): .|
00001190: 20 53 43 48 4C 55 45 53 53 45 4C 44 41 54 45 4E | SCHLUESSELDATEN|
000011A0: 46 45 4C 44 00 C2 19 BC 1B 49 4E 28 41 44 29 B2 |FELD.....IN(AD).|
000011B0: 52 4E 3A 20 8F 20 52 45 43 4F 52 44 4E 55 4D 4D |RN: . RECORDNUMM|
000011C0: 45 52 00 C8 19 C6 1B 3A 00 FA 19 D0 1B 8F 20 44 |ER.....:...... D|
000011D0: 41 54 45 4E 46 45 4C 44 45 52 20 4D 49 54 20 50 |ATENFELDER MIT P|
000011E0: 41 53 53 45 4E 44 45 52 20 4C 41 45 4E 47 45 20 |ASSENDER LAENGE |
000011F0: 41 55 53 53 54 41 54 54 45 4E 00 43 1A DA 1B 8D |AUSSTATTEN.C....|
00001200: 20 35 30 30 30 3A 20 8F 20 55 4E 54 45 52 50 52 | 5000: . UNTERPR|
00001210: 4F 47 52 41 4D 4D 20 4D 55 53 53 20 41 55 46 20 |OGRAMM MUSS AUF |
00001220: 53 45 43 48 53 20 44 41 54 45 4E 46 45 4C 44 45 |SECHS DATENFELDE|
00001230: 52 20 45 49 4E 47 45 52 49 43 48 54 45 54 20 53 |R EINGERICHTET S|
00001240: 45 49 4E 00 49 1A 1F 1C 3A 00 7B 1A 20 1C 8F 20 |EIN.I...:.{. .. |
00001250: 44 41 54 45 4E 45 49 4E 47 41 42 45 20 5A 55 52 |DATENEINGABE ZUR|
00001260: 20 53 50 45 49 43 48 45 52 55 4E 47 20 5A 55 53 | SPEICHERUNG ZUS|
00001270: 41 4D 4D 45 4E 46 41 53 53 45 4E 00 86 1A 2A 1C |AMMENFASSEN...*.|
00001280: 8D 20 36 30 30 30 00 A4 1A 3C 1C 8F 20 2A 2A 2A |. 6000...<.. ***|
00001290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012A0: 2A 2A 2A 2A 00 C2 1A 3D 1C 8F 20 2A 20 44 41 54 |****...=.. * DAT|
000012B0: 45 4E 53 41 54 5A 20 53 50 45 49 43 48 45 52 4E |ENSATZ SPEICHERN|
000012C0: 20 2A 00 E0 1A 3E 1C 8F 20 2A 2A 2A 2A 2A 2A 2A | *...>.. *******|
000012D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012E0: 00 0E 1B 48 1C 52 4E B2 41 44 3A 52 50 B2 31 3A |...H.RN.AD:RP.1:|
000012F0: 8D 20 32 30 30 30 3A 20 8F 20 52 45 43 4F 52 44 |. 2000: . RECORD|
00001300: 20 50 4F 53 49 54 49 4F 4E 49 45 52 45 4E 00 31 | POSITIONIEREN.1|
00001310: 1B 52 1C 98 4C 46 2C 52 43 24 3A 20 8F 20 44 41 |.R..LF,RC$: . DA|
00001320: 54 45 4E 53 41 54 5A 20 53 43 48 52 45 49 42 45 |TENSATZ SCHREIBE|
00001330: 4E 00 4B 1B 5C 1C 8D 20 34 30 30 30 3A 20 8F 20 |N.K.\.. 4000: . |
00001340: 46 45 48 4C 45 52 4B 41 4E 41 4C 00 7B 1B 66 1C |FEHLERKANAL.{.f.|
00001350: 99 C7 28 31 33 29 A3 36 29 C7 28 31 38 29 22 20 |..(13).6).(18)" |
00001360: C4 41 54 45 4E 53 41 54 5A 20 57 55 52 44 45 20 |.ATENSATZ WURDE |
00001370: 47 45 53 49 43 48 45 52 54 21 22 00 9A 1B 68 1C |GESICHERT!"...h.|
00001380: 81 20 54 B2 31 20 A4 20 31 35 30 30 3A 20 82 20 |. T.1 . 1500: . |
00001390: 54 3A 20 99 C7 28 31 34 37 29 00 A6 1B 70 1C 8D |T: ..(147)...p..|
000013A0: 39 39 30 30 3A 8E 00 C6 1B D0 1E 8F 20 2A 2A 2A |9900:....... ***|
000013B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013C0: 2A 2A 2A 2A 2A 2A 00 E6 1B DA 1E 8F 20 2A 20 43 |******...... * C|
000013D0: 55 52 53 4F 52 2D 50 4F 53 49 54 49 4F 4E 49 45 |URSOR-POSITIONIE|
000013E0: 52 55 4E 47 20 2A 00 06 1C DB 1E 8F 20 2A 2A 2A |RUNG *...... ***|
000013F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001400: 2A 2A 2A 2A 2A 2A 00 1B 1C DC 1E 97 32 31 34 2C |******......214,|
00001410: 5A 4C 3A 97 20 32 31 31 2C 53 50 00 27 1C DE 1E |ZL:. 211,SP.'...|
00001420: 9E 20 35 38 36 34 30 00 2D 1C E0 1E 8E 00 4D 1C |. 58640.-.....M.|
00001430: 3D 1F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |=.. ************|
00001440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6D 1C |*************.m.|
00001450: 3E 1F 8F 20 2A 20 20 20 44 41 54 45 4E 20 41 55 |>.. * DATEN AU|
00001460: 53 47 45 42 45 4E 20 20 20 20 20 20 2A 00 8D 1C |SGEBEN *...|
00001470: 3F 1F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |?.. ************|
00001480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A4 1C |*************...|
00001490: 40 1F 8B 20 46 4C B2 30 20 A7 20 8D 20 39 35 30 |@.. FL.0 . . 950|
000014A0: 30 20 3A 8E 00 E0 1C 4A 1F 99 C7 28 31 34 37 29 |0 :....J...(147)|
000014B0: 3A 97 31 39 2C 36 34 3A 85 22 C9 4E 44 45 58 2D |:.19,64:.".NDEX-|
000014C0: C2 45 47 52 2E 3A 22 3B 49 58 24 3A 97 31 39 2C |.EGR.:";IX$:.19,|
000014D0: 30 3A 8F 20 49 4E 44 45 58 41 42 46 52 41 47 45 |0:. INDEXABFRAGE|
000014E0: 00 09 1D 54 1F 81 20 43 B2 31 20 A4 20 41 44 3A |...T.. C.1 . AD:|
000014F0: 20 8F 20 49 4E 44 45 58 44 41 54 45 49 20 44 55 | . INDEXDATEI DU|
00001500: 52 43 48 53 55 43 48 45 4E 00 43 1D 5E 1F 8B 20 |RCHSUCHEN.C.^.. |
00001510: 49 58 24 B2 49 44 24 28 43 29 20 A7 20 47 4E B2 |IX$.ID$(C) . GN.|
00001520: 43 3A 43 B2 41 44 3A 82 20 43 3A 89 20 38 31 30 |C:C.AD:. C:. 810|
00001530: 30 3A 20 8F 20 49 4E 44 45 58 20 47 45 46 55 4E |0: . INDEX GEFUN|
00001540: 44 45 4E 00 4B 1D 68 1F 82 20 43 00 87 1D 72 1F |DEN.K.h.. C...r.|
00001550: 99 C7 28 31 34 37 29 22 D3 43 48 4C 55 45 53 53 |..(147)".CHLUESS|
00001560: 45 4C 57 4F 52 54 20 46 41 4C 53 43 48 20 4F 44 |ELWORT FALSCH OD|
00001570: 45 52 22 3A 99 22 4E 49 43 48 54 20 56 4F 52 48 |ER":."NICHT VORH|
00001580: 41 4E 44 45 4E 21 22 00 99 1D 74 1F 81 54 B2 31 |ANDEN!"...t..T.1|
00001590: 20 A4 20 31 30 30 30 3A 82 00 AD 1D 7C 1F 99 C7 | . 1000:....|...|
000015A0: 28 31 34 37 29 3A 8D 39 39 30 30 3A 8E 00 DF 1D |(147):.9900:....|
000015B0: A4 1F 52 4E B2 47 4E 3A 52 50 B2 31 3A 52 43 24 |..RN.GN:RP.1:RC$|
000015C0: B2 22 22 3A 8D 32 30 30 30 3A 8F 20 52 45 43 4F |."":.2000:. RECO|
000015D0: 52 44 20 50 4F 53 54 49 4F 4E 49 45 52 45 4E 00 |RD POSTIONIEREN.|
000015E0: EF 1D AE 1F 81 49 B2 31 20 A4 20 52 4C AB 31 00 |.....I.1 . RL.1.|
000015F0: 08 1E AF 1F A1 23 4C 46 2C 42 59 24 3A 52 43 24 |.....#LF,BY$:RC$|
00001600: B2 52 43 24 AA 42 59 24 00 10 1E B0 1F 82 20 49 |.RC$.BY$...... I|
00001610: 00 31 1E B7 1F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.1.... *********|
00001620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001630: 2A 00 52 1E B8 1F 8F 20 2A 20 47 45 53 41 4D 54 |*.R.... * GESAMT|
00001640: 53 54 52 49 4E 47 20 41 55 46 54 45 49 4C 45 4E |STRING AUFTEILEN|
00001650: 20 2A 00 73 1E B9 1F 8F 20 2A 2A 2A 2A 2A 2A 2A | *.s.... *******|
00001660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001670: 2A 2A 2A 00 96 1E C2 1F 44 53 24 28 31 29 B2 CA |***.....DS$(1)..|
00001680: 28 52 43 24 2C 31 2C 32 35 29 3A 20 8F 20 4E 41 |(RC$,1,25): . NA|
00001690: 43 48 4E 41 4D 45 00 B9 1E C4 1F 44 53 24 28 32 |CHNAME.....DS$(2|
000016A0: 29 B2 CA 28 52 43 24 2C 32 36 2C 32 35 29 3A 20 |)..(RC$,26,25): |
000016B0: 8F 20 56 4F 52 4E 41 4D 45 00 DC 1E C6 1F 44 53 |. VORNAME.....DS|
000016C0: 24 28 33 29 B2 CA 28 52 43 24 2C 35 31 2C 32 35 |$(3)..(RC$,51,25|
000016D0: 29 3A 20 8F 20 53 54 52 41 53 53 45 00 FB 1E C8 |): . STRASSE....|
000016E0: 1F 44 53 24 28 34 29 B2 CA 28 52 43 24 2C 37 36 |.DS$(4)..(RC$,76|
000016F0: 2C 32 35 29 3A 20 8F 20 50 4C 5A 00 1F 1F C9 1F |,25): . PLZ.....|
00001700: 44 53 24 28 35 29 B2 CA 28 52 43 24 2C 31 30 31 |DS$(5)..(RC$,101|
00001710: 2C 32 35 29 3A 20 8F 20 57 4F 48 4E 4F 52 54 00 |,25): . WOHNORT.|
00001720: 43 1F CA 1F 44 53 24 28 36 29 B2 CA 28 52 43 24 |C...DS$(6)..(RC$|
00001730: 2C 31 32 36 2C 32 35 29 3A 20 8F 20 54 45 4C 45 |,126,25): . TELE|
00001740: 46 4F 4E 00 67 1F CB 1F 8F 20 2A 2A 2A 2A 2A 2A |FON.g.... ******|
00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001760: 2A 2A 2A 2A 2A 2A 2A 00 8B 1F CC 1F 8F 20 44 41 |*******...... DA|
00001770: 54 45 4E 53 41 54 5A 20 41 55 46 20 53 43 52 45 |TENSATZ AUF SCRE|
00001780: 45 4E 20 41 55 53 47 45 42 45 4E 00 AF 1F CD 1F |EN AUSGEBEN.....|
00001790: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000017A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000017B0: C4 1F CE 1F 99 C7 28 31 34 37 29 C8 28 4C 41 24 |......(147).(LA$|
000017C0: 2C 37 39 29 00 FC 1F CF 1F 99 C7 28 31 39 29 C7 |,79).......(19).|
000017D0: 28 31 38 29 A3 32 29 22 20 C4 41 54 45 4E 41 55 |(18).2)" .ATENAU|
000017E0: 53 47 41 42 45 20 22 A3 32 33 29 22 D2 45 43 4F |SGABE ".23)".ECO|
000017F0: 52 44 2D CE 52 2E 3A 20 22 3B 52 4E 00 11 20 D6 |RD-.R.: ";RN.. .|
00001800: 1F 99 C7 28 31 33 29 3A 81 20 43 B2 31 20 A4 20 |...(13):. C.1 . |
00001810: 36 00 20 20 E0 1F 99 A3 35 29 44 53 24 28 43 29 |6. ....5)DS$(C)|
00001820: 00 28 20 EA 1F 82 20 43 00 47 20 EC 1F 99 3A 99 |.( ... C.G ...:.|
00001830: C8 28 4C 41 24 2C 37 39 29 AA C7 28 31 34 35 29 |.(LA$,79)..(145)|
00001840: AA C7 28 31 34 35 29 00 51 20 F4 1F 8D 38 33 30 |..(145).Q ...830|
00001850: 30 00 65 20 F9 1F 99 C7 28 31 34 37 29 3A 8D 39 |0.e ....(147):.9|
00001860: 39 30 30 3A 8E 00 86 20 03 20 8F 20 2A 2A 2A 2A |900:... . . ****|
00001870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001880: 2A 2A 2A 2A 2A 2A 00 A7 20 04 20 8F 20 2A 20 20 |******.. . . * |
00001890: 44 52 55 43 4B 41 55 53 47 41 42 45 20 20 20 20 |DRUCKAUSGABE |
000018A0: 20 20 20 20 20 20 2A 00 C8 20 05 20 8F 20 2A 2A | *.. . . **|
000018B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000018C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 D6 20 08 20 9F 34 2C |********.. . .4,|
000018D0: 34 2C 37 3A 9D 31 00 F1 20 12 20 98 34 2C 22 D2 |4,7:.1.. . .4,".|
000018E0: 45 43 4F 52 44 2D CE 52 2E 3A 22 3B C4 28 52 4E |ECORD-.R.:";.(RN|
000018F0: 29 00 FF 20 1C 20 81 20 43 B2 31 20 A4 20 36 00 |).. . . C.1 . 6.|
00001900: 0D 21 26 20 98 34 2C 44 53 24 28 43 29 00 13 21 |.!& .4,DS$(C)..!|
00001910: 30 20 82 00 1D 21 3A 20 98 34 3A A0 34 00 23 21 |0 ...!: .4:.4.#!|
00001920: 44 20 8E 00 50 21 6C 20 99 3A 99 22 20 C4 41 54 |D ..P!l .:." .AT|
00001930: 45 4E 53 41 54 5A 20 22 C7 28 31 38 29 22 44 22 |ENSATZ ".(18)"D"|
00001940: C7 28 31 34 36 29 22 52 55 43 4B 45 4E 20 22 3B |.(146)"RUCKEN ";|
00001950: 00 89 21 71 20 99 C7 28 31 38 29 22 45 22 C7 28 |..!q ..(18)"E".(|
00001960: 31 34 36 29 22 44 49 54 49 45 52 45 4E 20 22 C7 |146)"DITIEREN ".|
00001970: 28 31 38 29 22 C8 22 C7 28 31 34 36 29 22 41 55 |(18)".".(146)"AU|
00001980: 50 54 4D 45 4E 55 45 20 22 00 91 21 76 20 A1 54 |PTMENUE "..!v .T|
00001990: 24 00 A5 21 80 20 8B 54 24 B2 22 44 22 A7 8D 38 |$..!. .T$."D"..8|
000019A0: 32 30 30 3A 8E 00 B9 21 8A 20 8B 54 24 B2 22 45 |200:...!. .T$."E|
000019B0: 22 A7 8D 38 34 30 30 3A 8E 00 C7 21 8F 20 8B 54 |"..8400:...!. .T|
000019C0: 24 B2 22 48 22 A7 8E 00 D1 21 94 20 89 38 33 31 |$."H"....!. .831|
000019D0: 30 00 E6 21 D0 20 99 C7 28 31 34 37 29 C8 28 4C |0..!. ..(147).(L|
000019E0: 41 24 2C 37 39 29 00 25 22 DA 20 99 C7 28 31 39 |A$,79).%". ..(19|
000019F0: 29 C7 28 31 38 29 A3 32 29 22 20 C4 41 54 45 4E |).(18).2)" .ATEN|
00001A00: 53 41 54 5A 20 45 44 49 54 49 45 52 45 4E 20 22 |SATZ EDITIEREN "|
00001A10: A3 32 33 29 22 D2 45 43 4F 52 44 2D CE 52 2E 3A |.23)".ECORD-.R.:|
00001A20: 20 22 3B 52 4E 00 2B 22 E4 20 99 00 47 22 EE 20 | ";RN.+". ..G". |
00001A30: 99 A3 32 29 22 CE 41 43 48 4E 41 4D 45 3A 20 22 |..2)".ACHNAME: "|
00001A40: 3B 44 53 24 28 31 29 00 63 22 F8 20 99 A3 32 29 |;DS$(1).c". ..2)|
00001A50: 22 D6 4F 52 4E 41 4D 45 20 3A 20 22 3B 44 53 24 |".ORNAME : ";DS$|
00001A60: 28 32 29 00 7F 22 02 21 99 A3 32 29 22 D3 54 52 |(2)..".!..2)".TR|
00001A70: 41 53 53 45 20 3A 20 22 3B 44 53 24 28 33 29 00 |ASSE : ";DS$(3).|
00001A80: 9B 22 0C 21 99 A3 32 29 22 D0 CC DA 20 20 20 20 |.".!..2)"... |
00001A90: 20 3A 20 22 3B 44 53 24 28 34 29 00 B7 22 16 21 | : ";DS$(4)..".!|
00001AA0: 99 A3 32 29 22 D7 4F 48 4E 4F 52 54 20 3A 20 22 |..2)".OHNORT : "|
00001AB0: 3B 44 53 24 28 35 29 00 D3 22 20 21 99 A3 32 29 |;DS$(5).." !..2)|
00001AC0: 22 D4 45 4C 45 46 4F 4E 20 3A 20 22 3B 44 53 24 |".ELEFON : ";DS$|
00001AD0: 28 36 29 00 E4 22 2A 21 99 3A 99 C8 28 4C 41 24 |(6).."*!.:..(LA$|
00001AE0: 2C 37 39 29 00 0E 23 34 21 53 50 B2 31 32 3A 20 |,79)..#4!SP.12: |
00001AF0: 8F 20 45 49 4E 47 41 42 45 53 50 41 4C 54 45 20 |. EINGABESPALTE |
00001B00: 42 4C 45 49 42 54 20 47 4C 45 49 43 48 21 00 1D |BLEIBT GLEICH!..|
00001B10: 23 3E 21 81 20 5A 4C B2 32 20 A4 20 37 00 48 23 |#>!. ZL.2 . 7.H#|
00001B20: 48 21 8D 20 37 39 30 30 3A 20 8F 20 45 49 4E 47 |H!. 7900: . EING|
00001B30: 41 42 45 2D 43 55 52 53 4F 52 20 50 4F 53 49 54 |ABE-CURSOR POSIT|
00001B40: 49 4F 4E 49 45 52 45 4E 00 66 23 5C 21 97 31 39 |IONIEREN.f#\!.19|
00001B50: 2C 36 34 3A 85 44 53 24 28 5A 4C AB 31 29 3A 97 |,64:.DS$(ZL.1):.|
00001B60: 31 39 2C 30 3A 99 00 6F 23 66 21 82 20 5A 4C 00 |19,0:..o#f!. ZL.|
00001B70: 8D 23 68 21 49 44 24 28 52 4E 29 B2 44 53 24 28 |.#h!ID$(RN).DS$(|
00001B80: 31 29 3A 20 49 4E 28 52 4E 29 B2 52 4E 00 A0 23 |1): IN(RN).RN..#|
00001B90: 70 21 8D 20 35 30 30 30 3A 20 8D 20 36 30 30 30 |p!. 5000: . 6000|
00001BA0: 00 B9 23 75 21 52 50 B2 31 3A 20 8D 20 32 30 30 |..#u!RP.1: . 200|
00001BB0: 30 3A 20 8D 20 37 32 35 30 00 BF 23 7A 21 8E 00 |0: . 7250..#z!..|
00001BC0: CB 23 28 23 99 C7 28 31 34 37 29 00 D7 23 32 23 |.#(#..(147)..#2#|
00001BD0: 81 49 B2 31 A4 41 44 00 E3 23 3C 23 99 49 44 24 |.I.1.AD..#<#.ID$|
00001BE0: 28 49 29 00 EB 23 46 23 82 20 49 00 01 24 50 23 |(I)..#F#. I..$P#|
00001BF0: 99 3A 99 C7 28 31 38 29 22 20 D4 C1 D3 D4 C5 20 |.:..(18)" ..... |
00001C00: 22 00 13 24 5A 23 97 31 39 38 2C 30 3A 92 31 39 |"..$Z#.198,0:.19|
00001C10: 38 2C 31 00 26 24 64 23 4D 50 B2 34 3A 8D 20 39 |8,1.&$d#MP.4:. 9|
00001C20: 39 30 30 3A 20 8E 00 47 24 19 25 8F 20 2A 2A 2A |900: ..G$.%. ***|
00001C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001C40: 2A 2A 2A 2A 2A 2A 2A 00 68 24 1A 25 8F 20 2A 20 |*******.h$.%. * |
00001C50: 4B 45 49 4E 45 20 44 41 54 45 49 20 47 45 4F 45 |KEINE DATEI GEOE|
00001C60: 46 46 4E 45 54 21 20 2A 00 89 24 1B 25 8F 20 2A |FFNET! *..$.%. *|
00001C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 24 1C 25 99 C7 |*********..$.%..|
00001C90: 28 31 34 37 29 3A 8D 20 39 39 30 30 00 D0 24 3A |(147):. 9900..$:|
00001CA0: 25 99 C7 28 31 39 29 C7 28 31 33 29 C7 28 31 33 |%..(19).(13).(13|
00001CB0: 29 A3 31 33 29 22 20 C6 C5 C8 CC C5 D2 CD C5 CC |).13)" .........|
00001CC0: C4 D5 CE C7 20 22 C7 28 31 33 29 C7 28 31 33 29 |.... ".(13).(13)|
00001CD0: 00 EC 24 3F 25 99 A3 31 32 29 22 C4 41 54 45 49 |..$?%..12)".ATEI|
00001CE0: 20 57 55 52 44 45 20 4E 4F 43 48 22 00 0B 25 40 | WURDE NOCH"..%@|
00001CF0: 25 99 A3 31 32 29 22 4E 49 43 48 54 20 49 4E 49 |%..12)"NICHT INI|
00001D00: 54 49 41 4C 49 53 49 45 52 54 22 00 27 25 41 25 |TIALISIERT".'%A%|
00001D10: 99 A3 31 32 29 22 4F 44 45 52 20 41 4E 47 45 4C |..12)"ODER ANGEL|
00001D20: 45 47 54 21 21 21 22 00 37 25 76 25 81 54 B2 31 |EGT!!!".7%v%.T.1|
00001D30: A4 31 35 30 30 3A 82 00 49 25 78 25 99 C7 28 31 |.1500:..I%x%..(1|
00001D40: 34 37 29 3A 8D 39 39 30 30 00 4F 25 7F 25 8E 00 |47):.9900.O%.%..|
00001D50: 6F 25 A9 26 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |o%.&. **********|
00001D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001D70: 8F 25 AA 26 8F 20 2A 20 55 4E 54 45 52 50 52 2E |.%.&. * UNTERPR.|
00001D80: 20 57 49 4E 44 4F 57 20 20 20 20 20 20 20 2A 00 | WINDOW *.|
00001D90: AF 25 AB 26 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.%.&. **********|
00001DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001DB0: D7 25 AC 26 45 31 24 B2 22 12 B0 22 3A 45 32 24 |.%.&E1$."..":E2$|
00001DC0: B2 22 12 AE 22 3A 45 33 24 B2 22 12 AD 22 3A 45 |."..":E3$."..":E|
00001DD0: 34 24 B2 22 12 BD 22 00 F4 25 AD 26 55 4C 24 B2 |4$.".."..%.&UL$.|
00001DE0: 22 12 AB 22 3A 55 52 24 B2 22 12 B3 22 3A 4C 4E |"..":UR$."..":LN|
00001DF0: 24 B2 22 22 00 0F 26 B0 26 81 49 B2 31 A4 32 32 |$.""..&.&.I.1.22|
00001E00: 3A 4C 4E 24 B2 4C 4E 24 AA 22 12 C0 22 3A 82 00 |:LN$.LN$."..":..|
00001E10: 1F 26 B1 26 4C 41 24 B2 4C 4E 24 AA 4C 4E 24 00 |.&.&LA$.LN$.LN$.|
00001E20: 38 26 B2 26 99 C7 28 31 39 29 3A 99 A3 39 29 45 |8&.&..(19):..9)E|
00001E30: 31 24 4C 4E 24 45 32 24 00 4C 26 B3 26 5A 4C B2 |1$LN$E2$.L&.&ZL.|
00001E40: 32 3A 53 50 B2 39 3A 8D 37 39 30 30 00 5A 26 B4 |2:SP.9:.7900.Z&.|
00001E50: 26 81 20 43 B2 31 20 A4 20 38 00 6F 26 B6 26 99 |&. C.1 . 8.o&.&.|
00001E60: A3 39 29 22 12 DD 22 A3 33 32 29 22 12 DD 22 00 |.9)"..".32)"..".|
00001E70: 77 26 B7 26 82 20 43 00 89 26 B9 26 99 A3 39 29 |w&.&. C..&.&..9)|
00001E80: 45 33 24 4C 4E 24 45 34 24 00 9D 26 BB 26 5A 4C |E3$LN$E4$..&.&ZL|
00001E90: B2 33 3A 53 50 B2 39 3A 8D 37 39 30 30 00 AF 26 |.3:SP.9:.7900..&|
00001EA0: BC 26 99 A3 39 29 55 4C 24 4C 4E 24 55 52 24 00 |.&..9)UL$LN$UR$.|
00001EB0: B5 26 C0 26 8E 00 D5 26 0D 27 8F 20 2A 2A 2A 2A |.&.&...&.'. ****|
00001EC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001ED0: 2A 2A 2A 2A 2A 00 F5 26 0E 27 8F 20 2A 20 20 20 |*****..&.'. * |
00001EE0: 20 20 20 4D 45 4E 55 45 50 55 4E 4B 54 45 20 20 | MENUEPUNKTE |
00001EF0: 20 20 20 20 2A 00 15 27 0F 27 8F 20 2A 2A 2A 2A | *..'.'. ****|
00001F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F10: 2A 2A 2A 2A 2A 00 33 27 10 27 83 22 20 C4 41 54 |*****.3'.'." .AT|
00001F20: 45 49 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 |EI INITIALISIERE|
00001F30: 4E 20 22 00 51 27 15 27 83 22 20 D3 55 43 48 42 |N ".Q'.'." .UCHB|
00001F40: 45 47 52 49 46 46 2D CC 49 53 54 45 20 20 20 20 |EGRIFF-.ISTE |
00001F50: 22 00 6F 27 1A 27 83 22 20 C4 41 54 45 4E 45 49 |".o'.'." .ATENEI|
00001F60: 4E 47 41 42 45 20 20 20 20 20 20 20 20 20 22 00 |NGABE ".|
00001F70: 8D 27 24 27 83 22 20 C4 41 54 45 4E 41 55 53 47 |.'$'." .ATENAUSG|
00001F80: 41 42 45 20 20 20 20 20 20 20 20 20 22 00 AB 27 |ABE "..'|
00001F90: 2E 27 83 22 20 C4 41 54 45 49 20 53 43 48 4C 49 |.'." .ATEI SCHLI|
00001FA0: 45 53 53 45 4E 20 20 20 20 20 22 00 C9 27 38 27 |ESSEN "..'8'|
00001FB0: 83 22 20 D0 52 4F 47 52 41 4D 4D 20 42 45 45 4E |." .ROGRAMM BEEN|
00001FC0: 44 45 4E 20 20 20 20 20 22 00 00 00 |DEN "... |
..!.D.. *************************.A.N..
* DEMOPROGRAMM FUER *.A.X.. * RELATI
VE DATEIVER- *...... * VERWALTUNG
*...... * 1995 BY 64'ER MAGAZIN
*.A.... *************************...U..
*************************...V.. * PROGR
AMM-HANDLER *.!.W.. ****************
*********.C.X.GA.8: . FLOPPY-GERAETEADRE
SSE.I.].MP.1: . FLAG FUER MENUEPUNKTEWAH
L...^..800: . DIMENSIONIERUNG...B..53280
,1:.53281,1:.646,0:.G(14)G(8)G(147).A.D.
. I.1 . 6.N.E.. ME$(I).V.F.. I...G..9900
...L..G(19)G(13)G(13).10)G(18)" RELATIVE
ADRESSDATEI "G(13).).U.. C.1 . 6.G.V..M
P.C . ..10)G(18)ME$(MP).`.{..MP..C . ..1
0)ME$(C).H.... C.Q.... T$......T$.G(17).
MP.MP.1:.MP.6.MP.1......T$.G(145). MP.M
P.1:.MP.1.MP.1.I....T$.G(13). 780.R....6
20...... MP . 1100,9000,7000,8000,2500,2
400...... 620.(.... ********************
********.K.... * VARIABLEN DIMENSIONIERE
N *.N.... ****************************..
. .DM.400: . VORGESEHENE DATENSATZANZAHL
.D.*.. ID$(DM): . SCHLUESSELWORT (INDEXF
ELD)...4.. IN(DM): . DAZUGEHOERIGE RECOR
DNUMMER.2.>.. DS$(6): . DATENFELDER - BE
I BEDARF ERHOEHEN ODER REDUZIEREN!.8.H..
.[.... ****************************.~...
. * REL.DATEI ANLEGEN/OEFFNEN*...... ***
*************************...... LF=LOG.F
ILENUMMER.S.... SA=SEKUNDAERADRESSE.....
. DN$=DATEINAME...... RL=RECORDLAENGE.*.
...15,8,15: . FLOPPY-KOMMANDOKANAL OEFFN
EN.^.... LF,GA,SA,DN$.",L,".G(RL): . REL
-DATEI OEFFNEN.D.......I.. *************
***********...J.. * DATEI INITIALISIEREN
*.A.K.. ************************...L.LF
.1:SA.2:DN$."ADRESSEN":RL.151:.1000: . R
EL-DATEI ADRESSEN OEFFNEN.E.V..2,8,3,"IN
DEX,S,R": . SEQ-DATEI INDEX ZUM LESEN OE
FFNEN.D.`..4000: . FEHLERKANAL LESEN...J
.. ER..0 . AD.0:.1190: . DATEI NOCH NICH
T ANGELEGT...O..2,AD: . ANZAHL DER DATEN
SAETZE.M.T.. I.1 . AD...V..2,ID$(I),IN(I
)...X.. I: . INDEXDATEI LESEN.(...FL.1:
. KENNZEICHEN 'DATEI IM RECHNER'.N... 2
: . SEQ. INDEXDATEI SCHLIESSEN.|....G(13
)G(13).9)"WAEHLEN MIT <CRSR AUF/AB>"....
...10)"AKTIVIEREN MIT <RETURN>".......H.
C.. ****************************...D.. *
AUF RECORD POSITIONIEREN *...E.. ******
**********************.*.F.. SA = SEKUND
AERADRESSE.C.G.. RN = RECORD-NUMMER.A.H.
. RP = POSITION IN RECORD...P.HB..(RN.25
6): LB.RN.256.HB: . RECORD-NR. IN HIGH/L
OW-BYTE TEILEN.J.Z..15,"P".G(SA).G(LB).G
(HB).G(RP).P.......].. *****************
*******...^.. * PROGRAMM BEENDEN *.-
._.. ************************.Q.`. 1: 15
:.4,8,15,"I": 4:.G(147):..P.A.. ********
****************...B.. * DATEIARBEIT BE
ENDEN *...C.. ************************.D
.D.. FL.0 . .9500: ....M..15,"S:INDEX":
. ALTE INDEXDATEI LOESCHEN.;.N..2,8,3,"I
NDEX,S,W": . AKTUALISIERTE INDEXDATEI ZU
M SCHREIBEN OEFFNEN.[.X..2,AD: . ANZAHL
DER RECORDS.J.... C.1 . AD......2,ID$(C)
","IN(C)...... C: . INDEXDATEI SICHERN..
.... 3000......G(147):..V.... **********
**************...... * REL-DATEI SCHLIES
SEN *...... ************************.-..
.. LF=LOG. FILENUMMER.N... LF: . REL-DA
TEI SCHLIESSEN.M.B. 15: . FLOPPY-KANAL
SCHL..S.L........ **********************
...... * FLOPPY-FEHLERKANAL *.J.... ****
******************... ..15,ER,ER$,TR,SK.
+.... PRINT ER;ER$;TR;SK:OHNE 'REM' ERSC
HEINT FEHLERMELDUNG AUF DEM SCREEN!.1...
..N.... **********************.K.... * F
ELDL. KORRIGIEREN *...... **************
********...... BEISPIEL FUER SECHS DATEN
FELDER DS$(1)-DS$(6).....LE$."
": . LEERSTRING ZUM AUFFU
ELLEN.8...DS$(1).H(DS$(1).H(LE$,.(25.C(D
S$(1)))),25): . NACHNAME.R...DS$(2).H(DS
$(2).H(LE$,.(25.C(DS$(2)))),25): . VORNA
ME.....DS$(3).H(DS$(3).H(LE$,.(25.C(DS$(
3)))),25): . STRASSE.....DS$(4).H(DS$(4)
.H(LE$,.(25.C(DS$(4)))),25): . POSTLEITZ
AHL.%...DS$(5).H(DS$(5).H(LE$,.(25.C(DS$
(5)))),25): . WOHNORT._.D.DS$(6).H(DS$(6
).H(LE$,.(25.C(DS$(6)))),25): . TELEFON.
E.......M.. *************************...
N.. * RECORD ZUSAMMENFASSEN *.E.O.. ****
*********************...P.RC$."":. VARIA
BLE FUER INHALT DES GESAMT-RECORDS...Z..
C.1 . 6: . =MENGE!.&...RC$.RC$.DS$(C)..
.... C.4.....T.U.. *********************
****.T.V.. * DATEN EINGEBEN *...W
.. *************************...X.. FL.0
. .9500: ....A..G(147)H(LA$,79)...B..G(1
9)G(18).2)" DATENEINGABE-MASKE ".23)"REC
ORD-NR.: ";AD.1...G.....L...2)"NACHNAME:
"./.N...2)"VORNAME : ".D.P...2)"STRASSE
: ".Y.R...2)"PLZ : ".N.T...2)"WOHNO
RT : "...V...2)"TELEFON : "...X..:.H(LA$
,79).....SP.12: . EINGABESPALTE BLEIBT G
LEICH!.M.... ZL.2 . 7...... 7900: . EING
ABE-CURSOR POSITIONIEREN......19,64:.DS$
(ZL.1):.19,0:....... ZL.E.... EINGABE IN
INDEXDATEI VERMERKEN.Z...AD.AD.1: RN.AD
: . DATENSATZANZAHL INKREMENTIEREN.....I
D$(AD).DS$(1): . SCHLUESSELDATENFELD.B..
.IN(AD).RN: . RECORDNUMMER.H.F.:...P.. D
ATENFELDER MIT PASSENDER LAENGE AUSSTATT
EN.C.Z.. 5000: . UNTERPROGRAMM MUSS AUF
SECHS DATENFELDER EINGERICHTET SEIN.I...
:.{. .. DATENEINGABE ZUR SPEICHERUNG ZUS
AMMENFASSEN...*.. 6000...<.. ***********
************.B.=.. * DATENSATZ SPEICHERN
*...>.. ***********************...H.RN.
AD:RP.1:. 2000: . RECORD POSITIONIEREN.1
.R..LF,RC$: . DATENSATZ SCHREIBEN.K.\..
4000: . FEHLERKANAL.{.F..G(13).6)G(18)"
DATENSATZ WURDE GESICHERT!"...H.. T.1 .
1500: . T: .G(147)...P..9900:..F.P.. ***
**********************...Z.. * CURSOR-PO
SITIONIERUNG *...... *******************
******......214,ZL:. 211,SP.'.... 58640.
-.....M.=.. *************************.M.
>.. * DATEN AUSGEBEN *...?.. ****
*********************...@.. FL.0 . . 950
0 :....J..G(147):.19,64:."INDEX-BEGR.:";
IX$:.19,0:. INDEXABFRAGE...T.. C.1 . AD:
. INDEXDATEI DURCHSUCHEN.C.^.. IX$.ID$(
C) . GN.C:C.AD:. C:. 8100: . INDEX GEFUN
DEN.K.H.. C...R..G(147)"SCHLUESSELWORT F
ALSCH ODER":."NICHT VORHANDEN!"...T..T.1
. 1000:....|..G(147):.9900:......RN.GN:
RP.1:RC$."":.2000:. RECORD POSTIONIEREN.
.....I.1 . RL.1......#LF,BY$:RC$.RC$.BY$
...... I.1.... *************************
*.R.... * GESAMTSTRING AUFTEILEN *.S....
**************************...B.DS$(1).J
(RC$,1,25): . NACHNAME...D.DS$(2).J(RC$,
26,25): . VORNAME...F.DS$(3).J(RC$,51,25
): . STRASSE...H.DS$(4).J(RC$,76,25): .
PLZ...I.DS$(5).J(RC$,101,25): . WOHNORT.
C.J.DS$(6).J(RC$,126,25): . TELEFON.G.K.
. *****************************...L.. DA
TENSATZ AUF SCREEN AUSGEBEN...M.. ******
***********************.D.N..G(147)H(LA$
,79)...O..G(19)G(18).2)" DATENAUSGABE ".
23)"RECORD-NR.: ";RN.. V..G(13):. C.1 .
6. ....5)DS$(C).( ... C.G ...:.H(LA$,79
).G(145).G(145).Q ...8300.E ...G(147):.9
900:... . . **************************..
. . * DRUCKAUSGABE *.H . . **
************************.V . .4,4,7:.1..
. .4,"RECORD-NR.:";D(RN).. . . C.1 . 6.
.!& .4,DS$(C)..!0 ...!: .4: 4.#!D ..P!L
.:." DATENSATZ "G(18)"D"G(146)"RUCKEN ";
..!Q .G(18)"E"G(146)"DITIEREN "G(18)"H"G
(146)"AUPTMENUE "..!V .T$..!. .T$."D"..8
200:...!. .T$."E"..8400:..G!. .T$."H"...
Q!. .8310..!P .G(147)H(LA$,79).%"Z .G(19
)G(18).2)" DATENSATZ EDITIEREN ".23)"REC
ORD-NR.: ";RN.+". ..G". ..2)"NACHNAME: "
;DS$(1).C". ..2)"VORNAME : ";DS$(2).".!
..2)"STRASSE : ";DS$(3)..".!..2)"PLZ
: ";DS$(4)..".!..2)"WOHNORT : ";DS$(5).
S" !..2)"TELEFON : ";DS$(6).."*!.:.H(LA$
,79)..#4!SP.12: . EINGABESPALTE BLEIBT G
LEICH!..#>!. ZL.2 . 7.H#H!. 7900: . EING
ABE-CURSOR POSITIONIEREN.F#\!.19,64:.DS$
(ZL.1):.19,0:..O#F!. ZL..#H!ID$(RN).DS$(
1): IN(RN).RN. #P!. 5000: . 6000..#U!RP.
1: . 2000: . 7250..#Z!..K#(#.G(147).W#2#
.I.1.AD..#<#.ID$(I)..#F#. I..$P#.:.G(18)
" TASTE "..$Z#.198,0:.198,1.&$D#MP.4:. 9
900: ..G$.%. **************************.
H$.%. * KEINE DATEI GEOEFFNET! *..$.%. *
*************************..$.%.G(147):.
9900.P$:%.G(19)G(13)G(13).13)" FEHLERMEL
DUNG "G(13)G(13)..$?%..12)"DATEI WURDE N
OCH"..%@%..12)"NICHT INITIALISIERT".'%A%
..12)"ODER ANGELEGT!!!".7%V%.T.1.1500:..
I%X%.G(147):.9900.O%%..O%.&. **********
***************..%.&. * UNTERPR. WINDOW
*..%.&. *************************.
W%.&E1$."..":E2$."..":E3$."..":E4$."..".
.%.&UL$."..":UR$."..":LN$.""..&.&.I.1.22
:LN$.LN$."..":...&.&LA$.LN$.LN$.8&.&.G(1
9):..9)E1$LN$E2$.L&.&ZL.2:SP.9:.7900.Z&.
&. C.1 . 8.O&.&..9)"..".32)"..".W&.&. C.
.&.&..9)E3$LN$E4$..&.&ZL.3:SP.9:.7900..&
.&..9)UL$LN$UR$..&.&..U&.'. ************
*************..&.'. * MENUEPUNKTE
*..'.'. *************************.3'
.'." DATEI INITIALISIEREN ".Q'.'." SUCHB
EGRIFF-LISTE ".O'.'." DATENEINGABE
"..'$'." DATENAUSGABE "..'
.'." DATEI SCHLIESSEN ".I'8'." PROGR
AMM BEENDEN "...
> CLICK IMAGE PREVIEW FOR FULL MODAL