00000000: 01 08 3F 08 50 C3 41 44 24 B2 22 4F 52 49 47 49 |..?.P.AD$."ORIGI|
00000010: 4E 41 4C 44 41 54 45 49 22 3A 20 8F 20 4E 41 4D |NALDATEI": . NAM|
00000020: 45 20 20 44 45 52 20 44 41 54 45 49 20 28 42 45 |E DER DATEI (BE|
00000030: 4C 49 45 42 49 47 20 57 41 45 48 4C 42 2E 29 00 |LIEBIG WAEHLB.).|
00000040: 7E 08 5A C3 4E 44 24 B2 22 4E 45 55 45 44 41 54 |~.Z.ND$."NEUEDAT|
00000050: 45 49 22 3A 20 8F 20 4E 41 4D 45 20 44 45 52 20 |EI": . NAME DER |
00000060: 4E 45 55 45 4E 20 44 41 54 45 49 20 28 42 45 4C |NEUEN DATEI (BEL|
00000070: 49 45 42 49 47 20 57 41 45 48 4C 42 2E 29 00 AE |IEBIG WAEHLB.)..|
00000080: 08 5B C3 4E 44 24 B2 22 20 3A 22 AA 22 2C 53 2C |.[.ND$." :".",S,|
00000090: 57 22 3A 20 8F 20 4E 45 55 45 20 44 41 54 45 49 |W": . NEUE DATEI|
000000A0: 20 5A 55 4D 20 53 43 48 52 45 49 42 45 4E 00 D9 | ZUM SCHREIBEN..|
000000B0: 08 64 C3 85 20 22 57 49 45 56 49 45 4C 45 20 46 |.d.. "WIEVIELE F|
000000C0: 45 4C 44 45 52 20 50 52 4F 20 44 41 54 45 4E 53 |ELDER PRO DATENS|
000000D0: 41 54 5A 20 22 3B 41 46 24 00 E7 08 6E C3 41 46 |ATZ ";AF$...n.AF|
000000E0: B2 C5 28 41 46 24 29 00 1E 09 78 C3 86 20 46 42 |..(AF$)...x.. FB|
000000F0: 24 28 41 46 29 3A 20 8F 20 44 49 4D 45 4E 53 49 |$(AF): . DIMENSI|
00000100: 4F 4E 49 45 52 55 4E 47 20 44 45 52 20 46 45 4C |ONIERUNG DER FEL|
00000110: 44 42 45 5A 45 49 43 48 4E 55 4E 47 45 4E 00 4F |DBEZEICHNUNGEN.O|
00000120: 09 7D C3 86 20 44 46 24 28 41 46 29 3A 20 8F 20 |.}.. DF$(AF): . |
00000130: 44 49 4D 45 4E 53 49 4F 4E 49 45 52 55 4E 47 20 |DIMENSIONIERUNG |
00000140: 44 45 52 20 44 41 54 45 4E 46 45 4C 44 45 52 00 |DER DATENFELDER.|
00000150: 79 09 82 C3 81 20 49 B2 31 20 A4 20 41 46 3A 20 |y.... I.1 . AF: |
00000160: 8F 20 45 49 4E 47 41 42 45 20 41 4C 4C 45 52 20 |. EINGABE ALLER |
00000170: 44 45 4C 44 54 49 54 45 4C 00 86 09 8C C3 85 20 |DELDTITEL...... |
00000180: 46 42 24 28 49 29 00 8E 09 96 C3 82 20 49 00 94 |FB$(I)...... I..|
00000190: 09 A0 C3 99 00 B3 09 AA C3 99 20 22 4B 4F 50 49 |.......... "KOPI|
000001A0: 45 52 56 4F 52 47 41 4E 47 20 4C 41 45 55 46 54 |ERVORGANG LAEUFT|
000001B0: 20 21 22 00 DE 09 B4 C3 9F 20 31 2C 38 2C 32 2C | !"...... 1,8,2,|
000001C0: 41 44 24 3A 20 8F 20 44 41 54 45 49 20 5A 55 4D |AD$: . DATEI ZUM|
000001D0: 20 4C 45 53 45 4E 20 4F 45 46 46 4E 45 4E 00 0D | LESEN OEFFNEN..|
000001E0: 0A BE C3 9F 20 32 2C 38 2C 33 2C 4E 44 24 3A 20 |.... 2,8,3,ND$: |
000001F0: 8F 20 44 41 54 45 49 20 5A 55 4D 20 53 43 48 52 |. DATEI ZUM SCHR|
00000200: 45 49 42 45 4E 20 4F 45 46 46 4E 45 4E 00 32 0A |EIBEN OEFFNEN.2.|
00000210: C0 C3 44 53 B2 31 3A 20 8F 20 42 45 47 49 4E 4E |..DS.1: . BEGINN|
00000220: 45 4E 20 4D 49 54 20 44 41 54 45 4E 53 41 54 5A |EN MIT DATENSATZ|
00000230: 20 31 00 54 0A C3 C3 99 20 22 4C 45 53 45 4E 20 | 1.T.... "LESEN |
00000240: 44 41 54 45 4E 53 41 54 5A 20 4E 52 2E 22 3B 44 |DATENSATZ NR.";D|
00000250: 53 3A 20 99 00 80 0A C8 C3 81 20 49 B2 31 20 A4 |S: ....... I.1 .|
00000260: 20 41 46 3A 20 8F 20 41 4C 4C 45 20 44 41 54 45 | AF: . ALLE DATE|
00000270: 4E 46 45 4C 44 45 52 20 45 49 4E 4C 45 53 45 4E |NFELDER EINLESEN|
00000280: 00 8E 0A D2 C3 84 31 2C 44 46 24 28 49 29 00 A8 |......1,DF$(I)..|
00000290: 0A DC C3 99 20 46 42 24 28 49 29 3B 22 20 3A 20 |.... FB$(I);" : |
000002A0: 22 3B 44 46 24 28 49 29 00 C6 0A E1 C3 44 5A B2 |";DF$(I).....DZ.|
000002B0: 53 54 3A 20 8F 20 44 5A 20 3D 20 44 41 54 45 49 |ST: . DZ = DATEI|
000002C0: 53 54 41 54 55 53 00 CE 0A E6 C3 82 20 49 00 D4 |STATUS...... I..|
000002D0: 0A F0 C3 99 00 FA 0A FA C3 99 20 22 53 43 48 52 |.......... "SCHR|
000002E0: 45 49 42 45 4E 20 44 41 54 45 4E 53 41 54 5A 20 |EIBEN DATENSATZ |
000002F0: 4E 52 2E 22 3B 44 53 3A 20 99 00 27 0B 04 C4 81 |NR.";DS: ..'....|
00000300: 20 49 B2 31 20 A4 20 41 46 3A 20 8F 20 41 4C 4C | I.1 . AF: . ALL|
00000310: 45 20 44 41 54 45 4E 46 45 4C 44 45 52 20 53 43 |E DATENFELDER SC|
00000320: 48 52 45 49 42 45 4E 00 35 0B 0E C4 98 32 2C 44 |HREIBEN.5....2,D|
00000330: 46 24 28 49 29 00 3D 0B 18 C4 82 20 49 00 43 0B |F$(I).=.... I.C.|
00000340: 22 C4 99 00 6D 0B 2C C4 8B 20 44 5A 20 AF 20 36 |"...m.,.. DZ . 6|
00000350: 34 20 A7 20 35 31 30 30 30 3A 20 8F 20 45 4E 44 |4 . 51000: . END|
00000360: 45 20 44 45 52 20 44 41 54 45 49 20 3F 00 90 0B |E DER DATEI ?...|
00000370: 36 C4 44 53 B2 44 53 AA 31 3A 20 8F 20 4E 41 45 |6.DS.DS.1: . NAE|
00000380: 43 48 53 54 45 52 20 44 41 54 45 4E 53 41 54 5A |CHSTER DATENSATZ|
00000390: 00 9C 0B 40 C4 89 20 35 30 31 31 35 00 C3 0B 38 |...@.. 50115...8|
000003A0: C7 99 20 22 41 4C 4C 45 20 44 41 54 45 4E 53 41 |.. "ALLE DATENSA|
000003B0: 45 54 5A 45 20 55 45 42 45 52 54 52 41 47 45 4E |ETZE UEBERTRAGEN|
000003C0: 20 21 22 00 C9 0B 42 C7 99 00 EB 0B 4C C7 A0 20 | !"...B.....L.. |
000003D0: 32 3A 20 8F 20 53 43 48 4C 49 45 53 53 45 4E 20 |2: . SCHLIESSEN |
000003E0: 44 45 52 20 44 41 54 45 49 45 4E 00 F3 0B 56 C7 |DER DATEIEN...V.|
000003F0: A0 20 31 00 01 0C 60 C7 99 20 22 45 4E 44 45 2E |. 1...`.. "ENDE.|
00000400: 22 00 07 0C 6A C7 80 00 00 00 |"...j..... |
..?.PCAD$."ORIGINALDATEI": . NAME DER D
ATEI (BELIEBIG WAEHLB.).~.ZCND$."NEUEDAT
EI": . NAME DER NEUEN DATEI (BELIEBIG WA
EHLB.)...[CND$." :".",S,W": . NEUE DATEI
ZUM SCHREIBEN.Y.DC. "WIEVIELE FELDER PR
O DATENSATZ ";AF$...NCAF.E(AF$)...XC. FB
$(AF): . DIMENSIONIERUNG DER FELDBEZEICH
NUNGEN.O.}C. DF$(AF): . DIMENSIONIERUNG
DER DATENFELDER.Y..C. I.1 . AF: . EINGAB
E ALLER DELDTITEL....C. FB$(I)....C. I..
. C.....C. "KOPIERVORGANG LAEUFT !"....C
. 1,8,2,AD$: . DATEI ZUM LESEN OEFFNEN..
..C. 2,8,3,ND$: . DATEI ZUM SCHREIBEN OE
FFNEN.2..CDS.1: . BEGINNEN MIT DATENSATZ
1.T.CC. "LESEN DATENSATZ NR.";DS: ....H
C. I.1 . AF: . ALLE DATENFELDER EINLESEN
...RC.1,DF$(I)....C. FB$(I);" : ";DF$(I)
.F..CDZ.ST: . DZ = DATEISTATUS.N..C. I.T
..C.....C. "SCHREIBEN DATENSATZ NR.";DS:
..'..D. I.1 . AF: . ALLE DATENFELDER SC
HREIBEN.5..D.2,DF$(I).=..D. I.C."D..M.,D
. DZ . 64 . 51000: . ENDE DER DATEI ?...
6DDS.DS.1: . NAECHSTER DATENSATZ...@D. 5
0115.C.8G. "ALLE DATENSAETZE UEBERTRAGEN
!".I.BG....LG 2: . SCHLIESSEN DER DATE
IEN...VG 1...`G. "ENDE."...JG....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL