DISK-DATEI
FILE INFORMATION
FILENAME(S): DISK-DATEI
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-12-01 02:26:33
APPEARS ON: 1 disk(s)
FILE HASH
4c188ef922b203e00d65872a2d87f225c844f2d73c1730bb8d708cf9fa5cc2d6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TONSOFT | DISK-DATEI | PRG | hedning, shine | 30 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 01 00 8F 20 48 41 55 50 54 50 52 4F |..*.... HAUPTPRO|
00000010: 47 52 41 4D 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |GRAMM **********|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 05 00 99 |**********.O....|
00000030: 22 93 11 42 49 54 54 45 20 27 53 48 49 46 54 20 |"..BITTE 'SHIFT |
00000040: 43 3D 27 20 44 52 55 45 43 4B 45 4E 20 21 22 00 |C=' DRUECKEN !".|
00000050: 5A 08 0A 00 8D 20 33 31 30 30 00 84 08 0F 00 85 |Z.... 3100......|
00000060: 20 22 93 11 4D 41 58 49 4D 41 4C 45 20 46 45 4C | "..MAXIMALE FEL|
00000070: 44 47 52 4F 45 53 53 45 28 41 2F 42 29 22 3B 46 |DGROESSE(A/B)";F|
00000080: 31 2C 46 32 00 94 08 14 00 86 20 4C 24 28 46 31 |1,F2...... L$(F1|
00000090: 2C 46 32 29 00 BC 08 19 00 99 22 93 11 44 41 54 |,F2)......"..DAT|
000000A0: 45 49 20 45 52 53 54 45 4C 4C 45 4E 20 20 20 20 |EI ERSTELLEN |
000000B0: 20 20 20 20 20 20 20 20 28 31 29 22 00 E3 08 1E | (1)"....|
000000C0: 00 99 22 11 44 41 54 45 49 20 45 52 57 45 49 54 |..".DATEI ERWEIT|
000000D0: 45 52 4E 20 20 20 20 20 20 20 20 20 20 20 20 28 |ERN (|
000000E0: 32 29 22 00 0A 09 23 00 99 22 11 44 41 54 45 49 |2)"...#..".DATEI|
000000F0: 20 45 44 49 54 49 45 52 45 4E 20 20 20 20 20 20 | EDITIEREN |
00000100: 20 20 20 20 20 20 28 33 29 22 00 31 09 28 00 99 | (3)".1.(..|
00000110: 22 11 44 41 54 45 49 20 53 4F 52 54 49 45 52 45 |".DATEI SORTIERE|
00000120: 4E 20 20 20 20 20 20 20 20 20 20 20 20 28 34 29 |N (4)|
00000130: 22 00 58 09 2D 00 99 22 11 44 41 54 45 49 20 53 |".X.-..".DATEI S|
00000140: 50 45 49 43 48 45 52 4E 20 20 20 20 20 20 20 20 |PEICHERN |
00000150: 20 20 20 20 28 35 29 22 00 7F 09 32 00 99 22 11 | (5)"...2..".|
00000160: 44 41 54 45 49 20 41 55 53 44 52 55 43 4B 45 4E |DATEI AUSDRUCKEN|
00000170: 20 20 20 20 20 20 20 20 20 20 20 28 36 29 22 00 | (6)".|
00000180: A6 09 37 00 99 22 11 44 41 54 45 49 20 4C 41 44 |..7..".DATEI LAD|
00000190: 45 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |EN |
000001A0: 20 20 28 37 29 22 00 CC 09 41 00 85 22 11 11 20 | (7)"...A..".. |
000001B0: 20 20 20 20 20 20 20 20 20 20 42 49 54 54 45 20 | BITTE |
000001C0: 57 41 45 48 4C 45 4E 20 21 22 3B 57 00 F2 09 46 |WAEHLEN !";W...F|
000001D0: 00 91 20 57 20 89 20 31 30 30 2C 32 30 30 2C 33 |.. W . 100,200,3|
000001E0: 30 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C 37 |00,400,500,600,7|
000001F0: 30 30 00 1A 0A 63 00 8F 20 2A 2A 2A 2A 2A 2A 2A |00...c.. *******|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3E 0A 64 00 99 |**********.>.d..|
00000220: 22 41 4E 5A 41 48 4C 20 44 45 52 20 46 45 4C 44 |"ANZAHL DER FELD|
00000230: 45 49 4E 54 52 41 47 55 4E 47 45 4E 22 3B 00 49 |EINTRAGUNGEN";.I|
00000240: 0A 69 00 85 20 46 47 3A 99 00 5A 0A 6E 00 81 20 |.i.. FG:..Z.n.. |
00000250: 4B 20 B2 20 31 20 A4 20 46 47 00 74 0A 73 00 99 |K . 1 . FG.t.s..|
00000260: 22 46 45 4C 44 42 45 5A 45 49 43 48 4E 55 4E 47 |"FELDBEZEICHNUNG|
00000270: 22 3B 4B 3B 00 82 0A 78 00 85 20 46 45 4E 24 28 |";K;...x.. FEN$(|
00000280: 4B 29 00 8A 0A 7D 00 82 20 4B 00 A1 0A 82 00 41 |K)...}.. K.....A|
00000290: 46 5A 20 B2 20 30 3A 8D 20 32 30 30 30 3A 89 32 |FZ . 0:. 2000:.2|
000002A0: 35 00 C8 0A C7 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |5...... ********|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 F2 0A C8 00 85 22 11 |********......".|
000002D0: 1D 44 41 54 45 49 20 42 45 52 45 49 54 53 20 47 |.DATEI BEREITS G|
000002E0: 45 4C 41 44 45 4E 20 3F 20 28 4A 2F 4E 29 22 3B |ELADEN ? (J/N)";|
000002F0: 43 24 00 05 0B CD 00 8B 20 43 24 B2 22 4A 22 20 |C$...... C$."J" |
00000300: A7 20 32 33 30 00 28 0B D2 00 8B 20 43 24 B2 22 |. 230.(.... C$."|
00000310: 4E 22 20 A7 20 8D 20 33 30 30 30 3A 8D 20 33 32 |N" . . 3000:. 32|
00000320: 30 30 3A 89 20 32 33 30 00 32 0B D7 00 89 20 32 |00:. 230.2.... 2|
00000330: 30 30 00 42 0B E6 00 8D 20 32 30 30 30 3A 89 20 |00.B.... 2000:. |
00000340: 32 35 00 6B 0B 2C 01 99 22 93 11 11 44 41 54 45 |25.k.,.."...DATE|
00000350: 49 20 42 45 52 45 49 54 53 20 47 45 4C 41 44 45 |I BEREITS GELADE|
00000360: 4E 3F 20 20 28 4A 2F 4E 29 22 3B 00 8B 0B 36 01 |N? (J/N)";...6.|
00000370: 85 20 43 24 3A 8B 20 43 24 B2 22 4A 22 20 A7 20 |. C$:. C$."J" . |
00000380: 99 22 93 22 3B 3A 89 20 33 32 30 00 AD 0B 3B 01 |.".";:. 320...;.|
00000390: 8B 20 43 24 B2 22 4E 22 A7 20 8D 20 33 30 30 30 |. C$."N". . 3000|
000003A0: 3A 8D 20 33 33 30 30 3A 89 20 33 32 30 00 B7 0B |:. 3300:. 320...|
000003B0: 3E 01 89 20 33 30 30 00 C2 0B 40 01 45 42 24 B2 |>.. 300...@.EB$.|
000003C0: 22 22 00 FB 0B 41 01 85 22 11 1D 45 49 4E 53 50 |""...A.."..EINSP|
000003D0: 52 55 4E 47 42 55 43 48 53 54 41 42 45 22 3B 45 |RUNGBUCHSTABE";E|
000003E0: 42 24 3A 8B 20 45 42 24 20 B2 20 22 22 20 A7 20 |B$:. EB$ . "" . |
000003F0: 49 20 B2 20 31 3A 89 20 33 32 35 00 06 0C 42 01 |I . 1:. 325...B.|
00000400: 8D 20 33 34 30 30 00 46 0C 45 01 99 22 93 11 11 |. 3400.F.E.."...|
00000410: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000420: 11 11 11 11 22 3B 3A 99 22 41 45 4E 44 45 52 55 |....";:."AENDERU|
00000430: 4E 47 20 4D 49 54 20 27 4A 27 20 49 4E 49 54 49 |NG MIT 'J' INITI|
00000440: 49 45 52 45 4E 22 00 54 0C 4A 01 99 22 13 11 11 |IEREN".T.J.."...|
00000450: 11 22 3B 49 00 84 0C 4F 01 99 22 3D 3D 3D 3D 3D |.";I...O.."=====|
00000460: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000470: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000480: 3D 3D 3D 22 00 B2 0C 54 01 81 20 4B 20 B2 20 31 |==="...T.. K . 1|
00000490: 20 A4 20 46 47 3A 99 22 20 20 20 20 20 20 20 20 | . FG:." |
000004A0: 20 20 20 20 20 22 3B 4C 24 28 49 2C 4B 29 3A 82 | ";L$(I,K):.|
000004B0: 20 4B 00 E3 0C 59 01 99 20 22 3D 3D 3D 3D 3D 3D | K...Y.. "======|
000004C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000004D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000004E0: 3D 3D 22 00 EC 0C 5B 01 85 20 43 24 00 01 0D 5E |=="...[.. C$...^|
000004F0: 01 8B 20 43 24 20 B2 20 22 4A 22 20 A7 20 33 37 |.. C$ . "J" . 37|
00000500: 30 00 12 0D 60 01 8B 20 43 24 B2 22 5F 22 20 A7 |0...`.. C$."_" .|
00000510: 32 35 00 32 0D 63 01 49 20 B2 20 49 AA 31 3A 8B |25.2.c.I . I.1:.|
00000520: 20 49 B1 41 46 5A 20 A7 20 99 22 93 22 3B 3A 89 | I.AFZ . .".";:.|
00000530: 32 35 00 3C 0D 68 01 89 20 33 32 35 00 42 0D 6D |25.<.h.. 325.B.m|
00000540: 01 8E 00 60 0D 72 01 99 22 11 11 22 3B 3A 81 20 |...`.r.."..";:. |
00000550: 4B B2 31 20 A4 20 46 47 3A 54 24 20 B2 20 22 22 |K.1 . FG:T$ . ""|
00000560: 00 74 0D 77 01 99 20 46 45 4E 24 28 4B 29 3B 3A |.t.w.. FEN$(K);:|
00000570: 85 20 54 24 00 9C 0D 78 01 8B 20 54 24 B2 22 22 |. T$...x.. T$.""|
00000580: 20 A7 20 99 22 91 22 3B 46 45 4E 24 28 4B 29 2C | . .".";FEN$(K),|
00000590: 4C 24 28 49 2C 4B 29 3A 89 33 38 30 00 AD 0D 7A |L$(I,K):.380...z|
000005A0: 01 4C 24 28 49 2C 4B 29 20 B2 20 54 24 00 B5 0D |.L$(I,K) . T$...|
000005B0: 7C 01 82 20 4B 00 BE 0D 81 01 89 33 32 35 00 E5 ||.. K......325..|
000005C0: 0D 8F 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005E0: 2A 2A 2A 2A 2A 00 FB 0D 90 01 8D 20 32 33 30 30 |*****...... 2300|
000005F0: 3A 20 99 22 93 22 3B 3A 89 32 35 00 22 0E F3 01 |: .".";:.25."...|
00000600: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000620: 2A 2A 00 2C 0E F4 01 99 20 22 93 22 00 5C 0E FE |**.,.... ".".\..|
00000630: 01 99 20 22 11 11 1D 42 45 53 54 45 48 45 4E 44 |.. "...BESTEHEND|
00000640: 45 20 41 4C 54 45 20 44 41 54 45 49 20 4C 4F 45 |E ALTE DATEI LOE|
00000650: 53 43 48 45 4E 3F 28 4A 2F 4E 29 22 00 65 0E 03 |SCHEN?(J/N)".e..|
00000660: 02 85 20 45 24 00 9C 0E 08 02 8B 20 45 24 B2 22 |.. E$...... E$."|
00000670: 4A 22 20 A7 20 85 20 22 11 11 1D 41 4C 54 45 52 |J" . . "...ALTER|
00000680: 20 44 41 54 45 49 4E 41 4D 45 22 3B 44 4E 24 3A | DATEINAME";DN$:|
00000690: 8D 20 32 31 30 30 3A 89 20 35 33 35 00 B1 0E 0D |. 2100:. 535....|
000006A0: 02 8B 20 45 24 20 B2 20 22 4E 22 20 A7 20 35 33 |.. E$ . "N" . 53|
000006B0: 35 00 C1 0E 12 02 99 20 22 91 22 3A 89 20 35 31 |5...... ".":. 51|
000006C0: 35 00 E3 0E 17 02 99 20 22 11 11 4E 45 55 45 52 |5...... "..NEUER|
000006D0: 20 44 41 54 45 49 4E 41 4D 45 3A 22 3B 3A 85 20 | DATEINAME:";:. |
000006E0: 44 4E 24 00 F3 0E 1C 02 8D 20 32 32 30 30 3A 89 |DN$...... 2200:.|
000006F0: 20 32 35 00 1A 0F 57 02 8F 20 2A 2A 2A 2A 2A 2A | 25...W.. ******|
00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 24 0F 58 02 99 |**********.$.X..|
00000720: 20 22 93 22 00 50 0F 5D 02 99 20 22 54 45 49 4C | ".".P.].. "TEIL|
00000730: 4C 49 53 54 45 20 28 54 29 20 4F 44 45 52 20 47 |LISTE (T) ODER G|
00000740: 45 53 41 4D 54 4C 49 53 54 45 20 28 47 29 3F 22 |ESAMTLISTE (G)?"|
00000750: 00 59 0F 62 02 85 20 43 24 00 79 0F 67 02 8B 20 |.Y.b.. C$.y.g.. |
00000760: 43 24 20 B3 B1 22 54 22 20 AF 20 43 24 20 B3 B1 |C$ .."T" . C$ ..|
00000770: 22 47 22 20 A7 20 36 30 30 00 8F 0F 6C 02 8B 20 |"G" . 600...l.. |
00000780: 43 24 20 B2 22 54 22 20 A7 20 89 20 38 30 30 00 |C$ ."T" . . 800.|
00000790: 9A 0F 71 02 8D 20 33 35 30 30 00 B8 0F 76 02 81 |..q.. 3500...v..|
000007A0: 20 49 20 B2 20 31 20 A4 20 41 46 5A 3A 20 8D 20 | I . 1 . AFZ: . |
000007B0: 32 34 30 30 3A 82 20 49 00 C5 0F 7B 02 A0 20 32 |2400:. I...{.. 2|
000007C0: 3A 89 20 32 35 00 D4 0F 80 02 99 22 93 22 3B 3A |:. 25......".";:|
000007D0: 89 20 32 35 00 EC 0F BC 02 8F 20 44 41 54 45 49 |. 25...... DATEI|
000007E0: 20 4C 41 44 45 52 4F 55 54 49 4E 45 00 0B 10 C1 | LADEROUTINE....|
000007F0: 02 85 22 93 11 11 11 11 11 1D 1D 44 41 54 45 49 |.."........DATEI|
00000800: 4E 41 4D 45 20 3A 22 3B 44 41 24 00 2B 10 C6 02 |NAME :";DA$.+...|
00000810: 99 22 11 11 1D 1D 46 4C 4F 50 50 59 20 56 4F 52 |."....FLOPPY VOR|
00000820: 42 45 52 45 49 54 45 54 20 3F 22 00 45 10 CB 02 |BEREITET ?".E...|
00000830: 99 22 11 11 11 1D 1D 1D 1D 1D 1D 28 20 54 41 53 |.".........( TAS|
00000840: 54 45 20 29 22 00 6C 10 D0 02 8D 20 33 31 30 30 |TE )".l.... 3100|
00000850: 3A 99 22 11 11 1D 1D 44 41 54 45 49 20 57 49 52 |:."....DATEI WIR|
00000860: 44 20 47 45 4C 41 44 45 4E 20 21 22 00 7C 10 D5 |D GELADEN !".|..|
00000870: 02 9F 20 31 2C 38 2C 30 2C 44 41 24 00 8D 10 DA |.. 1,8,0,DA$....|
00000880: 02 84 31 2C 41 46 5A 3A 84 31 2C 46 47 00 AB 10 |..1,AFZ:.1,FG...|
00000890: DF 02 81 20 4B B2 31 20 A4 20 46 47 3A 84 31 2C |... K.1 . FG:.1,|
000008A0: 46 45 4E 24 28 4B 29 3A 82 20 4B 00 D7 10 E4 02 |FEN$(K):. K.....|
000008B0: 81 20 49 B2 31 20 A4 20 41 46 5A 3A 81 20 4B B2 |. I.1 . AFZ:. K.|
000008C0: 31 20 A4 20 46 47 3A 84 31 2C 4C 24 28 49 2C 4B |1 . FG:.1,L$(I,K|
000008D0: 29 3A 82 20 4B 2C 49 00 E4 10 E9 02 A0 20 31 3A |):. K,I...... 1:|
000008E0: 89 20 32 35 00 FF 10 20 03 8F 20 54 45 49 4C 4C |. 25... .. TEILL|
000008F0: 49 53 54 45 20 41 55 53 44 52 55 43 4B 45 4E 00 |ISTE AUSDRUCKEN.|
00000900: 26 11 25 03 99 22 93 11 20 20 20 20 20 20 20 45 |&.%..".. E|
00000910: 4E 54 53 43 48 45 49 44 55 4E 47 53 4B 52 49 54 |NTSCHEIDUNGSKRIT|
00000920: 45 52 49 45 4E 22 00 56 11 2A 03 99 22 3D 3D 3D |ERIEN".V.*.."===|
00000930: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000940: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000950: 3D 3D 3D 3D 3D 22 00 7C 11 2F 03 81 20 4B B2 31 |=====".|./.. K.1|
00000960: 20 A4 20 46 47 3A 99 46 45 4E 24 28 4B 29 2C 22 | . FG:.FEN$(K),"|
00000970: 28 22 3B 4B 3B 22 29 22 3A 82 20 4B 00 99 11 34 |(";K;")":. K...4|
00000980: 03 5A B2 31 3A 81 20 4C B2 31 20 A4 20 46 47 3A |.Z.1:. L.1 . FG:|
00000990: 46 5A 28 4C 29 B2 30 3A 82 00 A8 11 39 03 43 24 |FZ(L).0:....9.C$|
000009A0: B2 22 22 3A 85 20 43 24 00 BA 11 3E 03 8B 20 43 |."":. C$...>.. C|
000009B0: 24 B2 22 22 20 A7 20 38 35 35 00 D9 11 43 03 8B |$."" . 855...C..|
000009C0: 20 C5 28 43 24 29 B3 31 20 B0 20 C5 28 43 24 29 | .(C$).1 . .(C$)|
000009D0: B1 46 47 20 A7 20 38 30 35 00 F7 11 48 03 99 20 |.FG . 805...H.. |
000009E0: 46 45 4E 24 28 C5 28 43 24 29 29 3A 46 5A 28 C5 |FEN$(.(C$)):FZ(.|
000009F0: 28 43 24 29 29 B2 31 00 0E 12 4D 03 5A B2 5A AA |(C$)).1...M.Z.Z.|
00000A00: 31 3A 8B 20 5A B1 46 47 20 A7 20 38 35 35 00 18 |1:. Z.FG . 855..|
00000A10: 12 52 03 89 20 38 32 35 00 33 12 57 03 8F 20 42 |.R.. 825.3.W.. B|
00000A20: 45 44 49 4E 47 55 4E 47 45 4E 20 45 49 4E 4C 45 |EDINGUNGEN EINLE|
00000A30: 53 45 4E 00 52 12 5C 03 99 22 93 11 1D 42 45 44 |SEN.R.\.."...BED|
00000A40: 49 4E 47 55 4E 47 45 4E 20 45 49 4E 47 45 42 45 |INGUNGEN EINGEBE|
00000A50: 4E 22 00 7A 12 61 03 99 22 11 1D 41 42 4B 55 45 |N".z.a.."..ABKUE|
00000A60: 52 5A 55 4E 47 45 4E 20 4D 49 54 20 27 2A 27 20 |RZUNGEN MIT '*' |
00000A70: 45 52 4C 41 55 42 54 20 21 22 00 AA 12 66 03 99 |ERLAUBT !"...f..|
00000A80: 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |"===============|
00000A90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000AA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 B9 12 6B 03 81 |========="...k..|
00000AB0: 20 4C B2 31 20 A4 20 46 47 00 CD 12 70 03 8B 20 | L.1 . FG...p.. |
00000AC0: 46 5A 28 4C 29 B2 30 20 A7 20 38 39 30 00 E9 12 |FZ(L).0 . 890...|
00000AD0: 75 03 99 20 46 45 4E 24 28 4C 29 3B 22 20 3A 22 |u.. FEN$(L);" :"|
00000AE0: 3B 3A 85 20 45 24 28 4C 29 00 F1 12 7A 03 82 20 |;:. E$(L)...z.. |
00000AF0: 4C 00 0D 13 7F 03 8F 20 42 45 44 49 4E 47 54 45 |L...... BEDINGTE|
00000B00: 20 44 52 55 43 4B 52 4F 55 54 49 4E 45 00 18 13 | DRUCKROUTINE...|
00000B10: 84 03 8D 20 33 32 30 30 00 38 13 85 03 85 22 93 |... 3200.8....".|
00000B20: 11 1D 54 41 42 45 4C 4C 45 4E 4B 4F 50 46 20 28 |..TABELLENKOPF (|
00000B30: 4A 2F 4E 29 22 3B 4B 24 00 55 13 86 03 8B 20 4B |J/N)";K$.U.... K|
00000B40: 24 B3 B1 22 4A 22 20 A7 20 9F 32 2C 34 2C 31 3A |$.."J" . .2,4,1:|
00000B50: 89 20 39 30 35 00 60 13 88 03 8D 20 33 35 30 30 |. 905.`.... 3500|
00000B60: 00 70 13 89 03 81 20 49 B2 31 20 A4 20 41 46 5A |.p.... I.1 . AFZ|
00000B70: 00 78 13 8B 03 54 B2 30 00 87 13 8E 03 81 20 4B |.x...T.0...... K|
00000B80: B2 31 20 A4 20 46 47 00 9C 13 93 03 8B 20 45 24 |.1 . FG...... E$|
00000B90: 28 4B 29 B2 22 22 20 A7 20 39 33 35 00 B8 13 98 |(K)."" . 935....|
00000BA0: 03 8B 20 C9 28 45 24 28 4B 29 2C 31 29 B3 B1 22 |.. .(E$(K),1).."|
00000BB0: 2A 22 20 A7 20 39 32 32 00 C2 13 99 03 89 20 39 |*" . 922...... 9|
00000BC0: 32 35 00 E9 13 9A 03 8B 20 C8 28 4C 24 28 49 2C |25...... .(L$(I,|
00000BD0: 4B 29 2C C3 28 45 24 28 4B 29 29 29 B3 B1 45 24 |K),.(E$(K)))..E$|
00000BE0: 28 4B 29 20 A7 20 39 33 35 00 22 14 9D 03 8B 20 |(K) . 935.".... |
00000BF0: C8 28 4C 24 28 49 2C 4B 29 2C C3 28 45 24 28 4B |.(L$(I,K),.(E$(K|
00000C00: 29 29 AB 31 29 20 B3 B1 20 C8 28 45 24 28 4B 29 |)).1) .. .(E$(K)|
00000C10: 2C C3 28 45 24 28 4B 29 29 AB 31 29 20 A7 20 39 |,.(E$(K)).1) . 9|
00000C20: 33 35 00 2A 14 A2 03 54 B2 31 00 32 14 A7 03 82 |35.*...T.1.2....|
00000C30: 20 4B 00 45 14 AC 03 8B 20 54 B2 31 20 A7 20 8D | K.E.... T.1 . .|
00000C40: 20 32 34 30 30 00 4D 14 B1 03 82 20 49 00 58 14 | 2400.M.... I.X.|
00000C50: B6 03 A0 32 3A 89 32 35 00 71 14 D0 07 8F 20 45 |...2:.25.q.... E|
00000C60: 49 4E 4C 45 53 45 4E 20 56 4F 4E 20 44 41 54 45 |INLESEN VON DATE|
00000C70: 4E 00 A0 14 D5 07 8F 20 55 45 42 45 52 47 41 42 |N...... UEBERGAB|
00000C80: 45 50 41 52 41 4D 45 54 45 52 3A 41 46 5A 28 41 |EPARAMETER:AFZ(A|
00000C90: 4E 46 41 4E 47 53 2D 46 45 4C 44 5A 41 48 4C 29 |NFANGS-FELDZAHL)|
00000CA0: 00 D3 14 DA 07 8F 20 46 47 28 46 45 4C 44 47 52 |...... FG(FELDGR|
00000CB0: 4F 45 53 53 45 29 3B 46 45 4E 24 28 35 29 28 46 |OESSE);FEN$(5)(F|
00000CC0: 45 4C 44 42 45 2D 20 5A 45 49 43 48 4E 55 4E 47 |ELDBE- ZEICHNUNG|
00000CD0: 45 4E 29 00 E4 14 DF 07 99 22 93 22 3A 49 B2 41 |EN)......".":I.A|
00000CE0: 46 5A AA 31 00 EC 14 E4 07 99 20 49 00 10 15 E9 |FZ.1...... I....|
00000CF0: 07 81 20 4B B2 31 20 A4 20 46 47 3A 99 20 46 45 |.. K.1 . FG:. FE|
00000D00: 4E 24 28 4B 29 3B 3A 85 20 4C 24 28 49 2C 4B 29 |N$(K);:. L$(I,K)|
00000D10: 00 28 15 EE 07 8B 20 4C 24 28 49 2C 4B 29 B2 22 |.(.... L$(I,K)."|
00000D20: 5F 22 A7 20 32 30 38 30 00 30 15 F3 07 82 20 4B |_". 2080.0.... K|
00000D30: 00 4C 15 F8 07 99 22 91 91 91 91 91 91 22 3B 3A |.L...."......";:|
00000D40: 81 20 4A B2 31 20 A4 20 46 47 AA 31 00 81 15 FA |. J.1 . FG.1....|
00000D50: 07 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00000D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D70: 20 20 20 20 20 20 20 20 20 20 20 22 3B 3A 82 20 | ";:. |
00000D80: 4A 00 A5 15 FD 07 99 22 93 11 22 3B 3A 81 20 4B |J......"..";:. K|
00000D90: B2 31 20 A4 20 46 47 3A 99 20 4C 24 28 49 2C 4B |.1 . FG:. L$(I,K|
00000DA0: 29 3A 82 20 4B 00 C9 15 02 08 85 20 22 11 11 20 |):. K...... ".. |
00000DB0: 45 49 4E 47 41 42 45 20 4B 4F 52 52 45 4B 54 20 |EINGABE KORREKT |
00000DC0: 28 4A 2F 4E 29 22 3B 45 24 00 EC 15 07 08 8B 20 |(J/N)";E$...... |
00000DD0: 45 24 B2 22 4A 22 A7 20 99 22 11 11 11 22 3B 3A |E$."J". ."...";:|
00000DE0: 49 B2 49 AA 31 3A 89 20 32 30 32 30 00 32 16 0C |I.I.1:. 2020.2..|
00000DF0: 08 8B 20 45 24 B3 B1 22 4E 22 20 A7 20 99 22 91 |.. E$.."N" . .".|
00000E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E20: 20 20 20 20 20 20 20 20 91 22 3B 3A 89 20 32 30 | .";:. 20|
00000E30: 35 30 00 3D 16 0E 08 89 20 32 30 32 35 00 59 16 |50.=.... 2025.Y.|
00000E40: 11 08 99 22 91 91 91 91 91 91 22 3B 3A 81 20 4A |..."......";:. J|
00000E50: B2 31 20 A4 20 46 47 AA 31 00 8E 16 13 08 99 22 |.1 . FG.1......"|
00000E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E80: 20 20 20 20 20 20 20 20 22 3B 3A 82 20 4A 00 9C | ";:. J..|
00000E90: 16 20 08 41 46 5A B2 49 AB 31 3A 8E 00 B1 16 34 |. .AFZ.I.1:....4|
00000EA0: 08 8F 20 44 41 54 45 49 20 4C 4F 45 53 43 48 45 |.. DATEI LOESCHE|
00000EB0: 4E 00 DC 16 35 08 8F 20 55 45 42 45 52 47 41 42 |N...5.. UEBERGAB|
00000EC0: 45 50 41 52 41 4D 45 54 45 52 3A 20 44 4E 24 20 |EPARAMETER: DN$ |
00000ED0: 28 44 41 54 45 49 2D 4E 41 4D 45 29 00 E7 16 39 |(DATEI-NAME)...9|
00000EE0: 08 8D 20 33 30 30 30 00 F5 16 3E 08 9F 20 31 35 |.. 3000...>.. 15|
00000EF0: 2C 38 2C 31 35 00 06 17 43 08 98 31 35 2C 22 53 |,8,15...C..15,"S|
00000F00: 3A 22 AA 44 4E 24 00 0F 17 48 08 A0 20 31 35 00 |:".DN$...H.. 15.|
00000F10: 15 17 4D 08 8E 00 2B 17 98 08 8F 20 44 41 54 45 |..M...+.... DATE|
00000F20: 49 20 53 50 45 49 43 48 45 52 4E 00 58 17 9D 08 |I SPEICHERN.X...|
00000F30: 8F 20 55 45 42 45 52 47 41 42 45 50 41 52 41 4D |. UEBERGABEPARAM|
00000F40: 45 54 45 52 3A 20 41 46 5A 3B 46 47 3B 44 4E 24 |ETER: AFZ;FG;DN$|
00000F50: 3B 46 45 4E 24 28 4B 29 00 63 17 A2 08 8D 20 33 |;FEN$(K).c.... 3|
00000F60: 30 30 30 00 73 17 A7 08 9F 20 31 2C 38 2C 31 2C |000.s.... 1,8,1,|
00000F70: 44 4E 24 00 84 17 AC 08 98 31 2C 41 46 5A 3A 98 |DN$......1,AFZ:.|
00000F80: 31 2C 46 47 00 A2 17 B1 08 81 20 4B B2 31 20 A4 |1,FG...... K.1 .|
00000F90: 20 46 47 3A 98 31 2C 46 45 4E 24 28 4B 29 3A 82 | FG:.1,FEN$(K):.|
00000FA0: 20 4B 00 CE 17 B6 08 81 20 49 B2 31 20 A4 20 41 | K...... I.1 . A|
00000FB0: 46 5A 3A 81 20 4B B2 31 20 A4 20 46 47 3A 98 31 |FZ:. K.1 . FG:.1|
00000FC0: 2C 4C 24 28 49 2C 4B 29 3A 82 20 4B 2C 49 00 D9 |,L$(I,K):. K,I..|
00000FD0: 17 BB 08 A0 20 31 3A 20 8E 00 F0 17 FC 08 8F 20 |.... 1: ....... |
00000FE0: 53 4F 52 54 49 45 52 50 52 4F 47 52 41 4D 4D 4D |SORTIERPROGRAMMM|
00000FF0: 00 11 18 01 09 8F 20 55 45 42 45 52 47 41 42 45 |...... UEBERGABE|
00001000: 50 41 52 41 4D 45 54 45 52 3A 20 46 47 3B 41 46 |PARAMETER: FG;AF|
00001010: 5A 00 29 18 03 09 99 22 42 49 54 54 45 20 57 41 |Z.)...."BITTE WA|
00001020: 52 54 45 4E 20 2E 2E 2E 22 00 40 18 06 09 56 5A |RTEN ...".@...VZ|
00001030: B2 30 3A 81 20 49 B2 31 20 A4 20 41 46 5A AB 31 |.0:. I.1 . AFZ.1|
00001040: 00 61 18 0B 09 8B 20 4C 24 28 49 2C 31 29 20 B3 |.a.... L$(I,1) .|
00001050: 20 4C 24 28 49 AA 31 2C 31 29 20 A7 20 32 33 33 | L$(I.1,1) . 233|
00001060: 35 00 98 18 10 09 8B 20 4C 24 28 49 2C 31 29 20 |5...... L$(I,1) |
00001070: B2 20 4C 24 28 49 AA 31 2C 31 29 20 AF 20 4C 24 |. L$(I.1,1) . L$|
00001080: 28 49 2C 32 29 20 B3 20 4C 24 28 49 AA 31 2C 32 |(I,2) . L$(I.1,2|
00001090: 29 20 A7 20 32 33 33 35 00 D5 18 15 09 81 20 4B |) . 2335...... K|
000010A0: B2 31 20 A4 20 46 47 3A 48 24 B2 4C 24 28 49 2C |.1 . FG:H$.L$(I,|
000010B0: 4B 29 3A 4C 24 28 49 2C 4B 29 B2 4C 24 28 49 AA |K):L$(I,K).L$(I.|
000010C0: 31 2C 4B 29 3A 4C 24 28 49 AA 31 2C 4B 29 B2 48 |1,K):L$(I.1,K).H|
000010D0: 24 3A 82 20 4B 00 E1 18 1A 09 56 5A B2 56 5A AA |$:. K.....VZ.VZ.|
000010E0: 31 00 E9 18 1F 09 82 20 49 00 FD 18 24 09 8B 20 |1...... I...$.. |
000010F0: 56 5A 20 B1 20 30 20 A7 20 32 33 31 30 00 03 19 |VZ . 0 . 2310...|
00001100: 29 09 8E 00 16 19 60 09 8F 20 44 52 55 43 4B 52 |).....`.. DRUCKR|
00001110: 4F 55 54 49 4E 45 00 27 19 6A 09 81 20 4B B2 31 |OUTINE.'.j.. K.1|
00001120: 20 A4 20 46 47 AB 31 00 46 19 6F 09 98 32 2C C8 | . FG.1.F.o..2,.|
00001130: 28 4C 24 28 49 2C 4B 29 2C 31 37 29 3B C7 28 39 |(L$(I,K),17);.(9|
00001140: 29 3B 22 2A 22 3B 00 4E 19 74 09 82 20 4B 00 5E |);"*";.N.t.. K.^|
00001150: 19 79 09 98 32 2C 4C 24 28 49 2C 46 47 29 00 64 |.y..2,L$(I,FG).d|
00001160: 19 7E 09 8E 00 7C 19 C4 09 8F 20 44 41 54 45 4E |.~...|.... DATEN|
00001170: 53 41 54 5A 20 41 45 4E 44 45 52 4E 00 BD 19 C9 |SATZ AENDERN....|
00001180: 09 8F 20 55 45 42 45 52 47 41 42 45 50 41 52 41 |.. UEBERGABEPARA|
00001190: 4D 45 54 45 52 3A 20 41 4E 28 41 4B 54 55 45 4C |METER: AN(AKTUEL|
000011A0: 4C 45 20 44 41 54 45 4E 53 41 54 5A 4E 55 4D 4D |LE DATENSATZNUMM|
000011B0: 45 52 29 3B 46 47 3B 46 4E 24 28 35 29 00 E0 19 |ER);FG;FN$(5)...|
000011C0: CE 09 99 22 93 20 20 20 20 20 20 20 20 41 4C 54 |...". ALT|
000011D0: 22 2C 22 D9 20 20 20 20 20 20 20 20 4E 45 55 22 |",". NEU"|
000011E0: 00 10 1A D3 09 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |......"---------|
000011F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00001210: 00 2E 1A D8 09 81 20 4B B2 31 20 A4 20 46 47 3A |...... K.1 . FG:|
00001220: 99 20 4C 24 28 41 4E 2C 4B 29 3A 82 20 4B 00 4D |. L$(AN,K):. K.M|
00001230: 1A DD 09 81 20 4B B2 31 20 A4 20 46 47 3A 99 20 |.... K.1 . FG:. |
00001240: 22 91 22 3B 3A 82 20 4B 3A 99 2C 2C 3B 00 6E 1A |".";:. K:.,,;.n.|
00001250: E2 09 81 20 4B B2 31 20 A4 20 46 47 3A 85 20 4C |... K.1 . FG:. L|
00001260: 24 28 41 4E 2C 4B 29 3A 99 2C 2C 3A 82 4B 00 74 |$(AN,K):.,,:.K.t|
00001270: 1A E7 09 8E 00 8E 1A B8 0B 8F 20 56 4F 52 42 45 |.......... VORBE|
00001280: 52 45 49 54 55 4E 47 20 46 4C 4F 50 50 59 00 B0 |REITUNG FLOPPY..|
00001290: 1A BD 0B 99 22 93 11 11 11 46 4C 4F 50 50 59 20 |...."....FLOPPY |
000012A0: 45 49 4E 53 43 48 41 4C 54 45 4E 20 55 4E 44 22 |EINSCHALTEN UND"|
000012B0: 00 CB 1A C2 0B 99 22 11 44 49 53 4B 45 54 54 45 |......".DISKETTE|
000012C0: 20 45 49 4E 4C 45 47 45 4E 11 22 00 DB 1A CC 0B | EINLEGEN.".....|
000012D0: 99 22 46 45 52 54 49 47 20 3F 22 00 E9 1A D1 0B |."FERTIG ?".....|
000012E0: 8D 20 33 31 30 30 3A 20 8E 00 07 1B 1C 0C 8F 20 |. 3100: ....... |
000012F0: 41 42 46 52 41 47 45 20 2D 20 57 41 52 54 45 53 |ABFRAGE - WARTES|
00001300: 43 48 4C 45 49 46 45 00 1D 1B 21 0C A1 20 43 24 |CHLEIFE...!.. C$|
00001310: 3A 8B 20 43 24 B2 22 22 A7 33 31 30 35 00 23 1B |:. C$."".3105.#.|
00001320: 26 0C 8E 00 3E 1B 80 0C 8F 20 56 4F 52 42 45 52 |&...>.... VORBER|
00001330: 45 49 54 55 4E 47 20 44 52 55 43 4B 45 52 00 85 |EITUNG DRUCKER..|
00001340: 1B 85 0C 8F 20 55 45 42 45 52 47 41 42 45 50 41 |.... UEBERGABEPA|
00001350: 52 41 4D 45 54 45 52 3A 20 53 50 28 53 50 41 4C |RAMETER: SP(SPAL|
00001360: 54 45 4E 2D 5A 41 48 4C 29 3B 5A 56 28 5A 45 49 |TEN-ZAHL);ZV(ZEI|
00001370: 4C 45 4E 56 4F 52 53 43 48 55 42 29 3B 4B 42 28 |LENVORSCHUB);KB(|
00001380: 49 2F 49 49 29 00 99 1B 8A 0C 85 22 93 11 42 52 |I/II)......"..BR|
00001390: 45 49 54 45 20 22 3B 53 50 00 B4 1B 8C 0C 85 22 |EITE ";SP......"|
000013A0: 11 5A 45 49 4C 45 4E 56 4F 52 53 43 48 55 42 20 |.ZEILENVORSCHUB |
000013B0: 22 3B 5A 56 00 C4 1B 8F 0C 85 22 11 4B 42 20 22 |";ZV......".KB "|
000013C0: 3B 4B 42 24 00 D5 1B 94 0C 99 22 11 46 45 52 54 |;KB$......".FERT|
000013D0: 49 47 20 3F 22 00 E2 1B 99 0C 8D 20 33 31 30 30 |IG ?"...... 3100|
000013E0: 3A 8E 00 08 1C E4 0C 8F 20 44 41 54 45 49 20 4C |:....... DATEI L|
000013F0: 41 44 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ADEN ***********|
00001400: 2A 2A 2A 2A 2A 2A 2A 2A 00 17 1C E9 0C 9F 31 2C |********......1,|
00001410: 38 2C 30 2C 44 4E 24 00 28 1C EE 0C 84 31 2C 41 |8,0,DN$.(....1,A|
00001420: 46 5A 3A 84 31 2C 46 47 00 45 1C F3 0C 81 20 4B |FZ:.1,FG.E.... K|
00001430: B2 31 A4 20 46 47 3A 84 31 2C 46 45 4E 24 28 4B |.1. FG:.1,FEN$(K|
00001440: 29 3A 82 20 4B 00 6E 1C F8 0C 81 20 49 B2 31 A4 |):. K.n.... I.1.|
00001450: 20 41 46 5A 3A 81 20 4B B2 31 A4 46 47 3A 84 31 | AFZ:. K.1.FG:.1|
00001460: 2C 4C 24 28 49 2C 4B 29 3A 82 20 4B 2C 49 00 77 |,L$(I,K):. K,I.w|
00001470: 1C FD 0C A0 31 3A 8E 00 C4 1C 48 0D 8F 20 55 4D |....1:....H.. UM|
00001480: 52 45 43 48 4E 55 4E 47 20 56 4F 4E 20 45 49 4E |RECHNUNG VON EIN|
00001490: 53 50 52 55 4E 47 42 55 43 48 53 54 2E 20 20 20 |SPRUNGBUCHST. |
000014A0: 20 20 20 20 20 20 49 4E 20 45 49 4E 53 50 52 55 | IN EINSPRU|
000014B0: 4E 47 53 54 45 4C 4C 45 20 49 20 2A 2A 2A 2A 2A |NGSTELLE I *****|
000014C0: 2A 2A 2A 2A 00 D4 1C 4D 0D 81 20 49 B2 31 20 A4 |****...M.. I.1 .|
000014D0: 20 41 46 5A 00 ED 1C 52 0D 8B 20 45 42 24 20 B1 | AFZ...R.. EB$ .|
000014E0: 20 4C 24 28 49 2C 31 29 A7 20 82 20 49 00 F3 1C | L$(I,1). . I...|
000014F0: 57 0D 8E 00 06 1D AC 0D 8F 20 54 41 42 45 4C 4C |W........ TABELL|
00001500: 45 4E 4B 4F 50 46 00 2C 1D B1 0D 8F 20 55 45 42 |ENKOPF.,.... UEB|
00001510: 45 52 47 41 42 45 50 41 52 41 4D 45 54 45 52 3A |ERGABEPARAMETER:|
00001520: 20 46 47 3B 46 45 4E 24 28 46 47 29 00 45 1D B6 | FG;FEN$(FG).E..|
00001530: 0D 99 22 93 11 20 42 52 45 49 54 45 20 3A 22 3B |..".. BREITE :";|
00001540: 46 47 AC 31 36 00 5F 1D BB 0D 99 22 11 1D 5A 45 |FG.16._...."..ZE|
00001550: 49 4C 45 4E 56 4F 52 53 43 48 55 42 20 31 22 00 |ILENVORSCHUB 1".|
00001560: 7A 1D C0 0D 99 22 11 1D 4B 42 20 49 49 20 45 49 |z...."..KB II EI|
00001570: 4E 20 21 20 21 20 21 20 21 22 00 94 1D C5 0D 99 |N ! ! ! !"......|
00001580: 22 11 1D 46 45 52 54 49 47 20 3F 22 3B 3A 8D 20 |"..FERTIG ?";:. |
00001590: 33 31 30 30 00 A0 1D C7 0D 9F 20 32 2C 34 2C 31 |3100...... 2,4,1|
000015A0: 00 C8 1D CA 0D 81 20 4B 20 B2 20 31 20 A4 20 46 |...... K . 1 . F|
000015B0: 47 AB 31 3A 41 24 B2 22 20 20 20 20 20 20 20 20 |G.1:A$." |
000015C0: 20 20 20 20 20 20 20 22 00 ED 1D CB 0D 8B 20 4B | "...... K|
000015D0: B2 31 20 A7 20 41 24 B2 22 20 20 20 20 20 20 20 |.1 . A$." |
000015E0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 07 1E | "...|
000015F0: CC 0D 8B 20 4B B2 34 20 A7 20 41 24 B2 22 20 20 |... K.4 . A$." |
00001600: 20 20 20 20 20 20 22 00 21 1E CD 0D 8B 20 4B B2 | ".!.... K.|
00001610: 35 20 A7 20 41 24 B2 22 20 20 20 20 20 20 20 20 |5 . A$." |
00001620: 22 00 52 1E CF 0D 98 32 2C 46 45 4E 24 28 4B 29 |".R....2,FEN$(K)|
00001630: 3B C8 28 41 24 2C C3 28 41 24 29 AB C3 28 46 45 |;.(A$,.(A$)..(FE|
00001640: 4E 24 28 4B 29 29 29 3B C7 28 31 31 29 3B 22 2A |N$(K)));.(11);"*|
00001650: 22 3B 00 66 1E D4 0D 82 20 4B 3A 98 32 2C 46 45 |";.f.... K:.2,FE|
00001660: 4E 24 28 46 47 29 00 89 1E D9 0D 81 20 4C 20 B2 |N$(FG)...... L .|
00001670: 20 31 20 A4 20 46 47 AC 31 36 3A 98 32 2C 22 3D | 1 . FG.16:.2,"=|
00001680: 22 3B 3A 82 20 4C 3A 98 32 00 8F 1E DE 0D 8E 00 |";:. L:.2.......|
00001690: C0 1E 10 27 8F 20 41 45 4E 44 45 52 55 4E 47 20 |...'. AENDERUNG |
000016A0: 44 45 53 20 41 55 53 44 52 55 43 4B 53 20 49 4E |DES AUSDRUCKS IN|
000016B0: 20 5A 45 49 4C 45 20 32 34 31 35 2B 33 35 33 35 | ZEILE 2415+3535|
000016C0: 00 00 00 |... |
..*.... HAUPTPROGRAMM ******************
**.O...."..BITTE 'SHIFT C=' DRUECKEN !".
Z.... 3100...... "..MAXIMALE FELDGROESSE
(A/B)";F1,F2...... L$(F1,F2)......"..DAT
EI ERSTELLEN (1)"......".DATE
I ERWEITERN (2)"...#..".DATEI
EDITIEREN (3)".1.(..".DATEI
SORTIEREN (4)".X.-..".DATEI S
PEICHERN (5)"..2..".DATEI AU
SDRUCKEN (6)"...7..".DATEI LAD
EN (7)".L.A.."..
BITTE WAEHLEN !";W...F.. W . 100,200,3
00,400,500,600,700...C.. ***************
******************.>.D.."ANZAHL DER FELD
EINTRAGUNGEN";.I.I.. FG:..Z.N.. K . 1 .
FG.T.S.."FELDBEZEICHNUNG";K;...X.. FEN$(
K)...}.. K.....AFZ . 0:. 2000:.25.H.G..
********************************...H..".
.DATEI BEREITS GELADEN ? (J/N)";C$...M..
C$."J" . 230.(.R.. C$."N" . . 3000:. 32
00:. 230.2.W.. 200.B.... 2000:. 25.K.,..
"...DATEI BEREITS GELADEN? (J/N)";...6.
. C$:. C$."J" . .".";:. 320...;.. C$."N"
. . 3000:. 3300:. 320...>.. 300.B.@.EB$.
""...A.."..EINSPRUNGBUCHSTABE";EB$:. EB$
. "" . I . 1:. 325...B.. 3400.F.E.."...
....................";:."AENDERUNG MIT '
J' INITIIEREN".T.J.."....";I...O.."=====
==================================="...T
.. K . 1 . FG:." ";L$(I,K):.
K...Y.. "==============================
=========="...[.. C$...^.. C$ . "J" . 37
0...`.. C$."_" .25.2.C.I . I.1:. I.AFZ .
.".";:.25.<.H.. 325.B.M...`.R.."..";:.
K.1 . FG:T$ . "".T.W.. FEN$(K);:. T$...X
.. T$."" . .".";FEN$(K),L$(I,K):.380...Z
.L$(I,K) . T$...|.. K......325...... ***
*****************************...... 2300
: .".";:.25.".... **********************
**********.,.... ".".\.... "...BESTEHEND
E ALTE DATEI LOESCHEN?(J/N)".E.... E$...
... E$."J" . . "...ALTER DATEINAME";DN$:
. 2100:. 535...... E$ . "N" . 535.A....
".":. 515...... "..NEUER DATEINAME:";:.
DN$...... 2200:. 25...W.. **************
******************.$.X.. ".".P.].. "TEIL
LISTE (T) ODER GESAMTLISTE (G)?".Y.B.. C
$.Y.G.. C$ .."T" . C$ .."G" . 600...L..
C$ ."T" . . 800...Q.. 3500...V.. I . 1 .
AFZ: . 2400:. I.E.{. 2:. 25.T....".";:
. 25...... DATEI LADEROUTINE...A..".....
...DATEINAME :";DA$.+.F.."....FLOPPY VOR
BEREITET ?".E.K..".........( TASTE )".L.
P.. 3100:."....DATEI WIRD GELADEN !".|.U
.. 1,8,0,DA$...Z..1,AFZ:.1,FG...... K.1
. FG:.1,FEN$(K):. K.W.... I.1 . AFZ:. K.
1 . FG:.1,L$(I,K):. K,I..... 1:. 25...
.. TEILLISTE AUSDRUCKEN.&.%..".. E
NTSCHEIDUNGSKRITERIEN".V.*.."===========
=============================".|./.. K.1
. FG:.FEN$(K),"(";K;")":. K...4.Z.1:. L
.1 . FG:FZ(L).0:....9.C$."":. C$...>.. C
$."" . 855.Y.C.. E(C$).1 . E(C$).FG . 80
5...H.. FEN$(E(C$)):FZ(E(C$)).1...M.Z.Z.
1:. Z.FG . 855...R.. 825.3.W.. BEDINGUNG
EN EINLESEN.R.\.."...BEDINGUNGEN EINGEBE
N".Z.A.."..ABKUERZUNGEN MIT '*' ERLAUBT
!"...F.."===============================
========="...K.. L.1 . FG.M.P.. FZ(L).0
. 890...U.. FEN$(L);" :";:. E$(L)...Z..
L..... BEDINGTE DRUCKROUTINE...... 3200
.8...."...TABELLENKOPF (J/N)";K$.U.... K
$.."J" . .2,4,1:. 905.`.... 3500.P.... I
.1 . AFZ.X...T.0...... K.1 . FG...... E$
(K)."" . 935...... I(E$(K),1).."*" . 922
.B.... 925...... H(L$(I,K),C(E$(K)))..E$
(K) . 935.".... H(L$(I,K),C(E$(K)).1) ..
H(E$(K),C(E$(K)).1) . 935.*...T.1.2....
K.E.... T.1 . . 2400.M.... I.X... 2:.25
.Q.P.. EINLESEN VON DATEN. .U.. UEBERGAB
EPARAMETER:AFZ(ANFANGS-FELDZAHL).S.Z.. F
G(FELDGROESSE);FEN$(5)(FELDBE- ZEICHNUNG
EN)......".":I.AFZ.1...... I...... K.1 .
FG:. FEN$(K);:. L$(I,K).(.... L$(I,K)."
_". 2080.0.... K.L...."......";:. J.1 .
FG.1......"
";:. J......"..";:. K.1 . FG:
. L$(I,K):. K.I.... ".. EINGABE KORREKT
(J/N)";E$...... E$."J". ."...";:I.I.1:.
2020.2.... E$.."N" . .".
.";:. 2050.=....
2025.Y...."......";:. J.1 . FG.1......"
";:. J... .AFZ.I.1:....4.. DATEI LOESCHE
N...5.. UEBERGABEPARAMETER: DN$ (DATEI-N
AME)...9.. 3000...>.. 15,8,15...C..15,"S
:".DN$...H. 15...M...+.... DATEI SPEICH
ERN.X.... UEBERGABEPARAMETER: AFZ;FG;DN$
;FEN$(K).C.... 3000.S.... 1,8,1,DN$.....
.1,AFZ:.1,FG...... K.1 . FG:.1,FEN$(K):.
K.N.... I.1 . AFZ:. K.1 . FG:.1,L$(I,K)
:. K,I.Y... 1: ....... SORTIERPROGRAMMM
...... UEBERGABEPARAMETER: FG;AFZ.)...."
BITTE WARTEN ...".@...VZ.0:. I.1 . AFZ.1
.A.... L$(I,1) . L$(I.1,1) . 2335......
L$(I,1) . L$(I.1,1) . L$(I,2) . L$(I.1,2
) . 2335.U.... K.1 . FG:H$.L$(I,K):L$(I,
K).L$(I.1,K):L$(I.1,K).H$:. K.....VZ.VZ.
1...... I...$.. VZ . 0 . 2310...).....`.
. DRUCKROUTINE.'.J.. K.1 . FG.1.F.O..2,H
(L$(I,K),17);G(9);"*";.N.T.. K.^.Y..2,L$
(I,FG).D.~...|.D.. DATENSATZ AENDERN...I
.. UEBERGABEPARAMETER: AN(AKTUELLE DATEN
SATZNUMMER);FG;FN$(5)...N..". ALT
","Y NEU"...S.."-----------------
-----------------------"...X.. K.1 . FG:
. L$(AN,K):. K.M.... K.1 . FG:. ".";:. K
:.,,;.N.... K.1 . FG:. L$(AN,K):.,,:.K.T
.......... VORBEREITUNG FLOPPY......"...
.FLOPPY EINSCHALTEN UND".K.B..".DISKETTE
EINLEGEN."...L.."FERTIG ?"...Q.. 3100:
....... ABFRAGE - WARTESCHLEIFE...!.. C$
:. C$."".3105.#.&...>.... VORBEREITUNG D
RUCKER...... UEBERGABEPARAMETER: SP(SPAL
TEN-ZAHL);ZV(ZEILENVORSCHUB);KB(I/II)...
..."..BREITE ";SP......".ZEILENVORSCHUB
";ZV.D....".KB ";KB$.U....".FERTIG ?"...
... 3100:....... DATEI LADEN ***********
********......1,8,0,DN$.(....1,AFZ:.1,FG
.E.... K.1. FG:.1,FEN$(K):. K.N.... I.1.
AFZ:. K.1.FG:.1,L$(I,K):. K,I.W... 1:..
D.H.. UMRECHNUNG VON EINSPRUNGBUCHST.
IN EINSPRUNGSTELLE I *********.T.M
.. I.1 . AFZ...R.. EB$ . L$(I,1). . I...
W........ TABELLENKOPF.,.... UEBERGABEPA
RAMETER: FG;FEN$(FG).E....".. BREITE :";
FG.16._...."..ZEILENVORSCHUB 1".Z...."..
KB II EIN ! ! ! !"...E.."..FERTIG ?";:.
3100. .G.. 2,4,1.H.J.. K . 1 . FG.1:A$."
"...K.. K.1 . A$."
"...L.. K.4 . A$." ".
!.M.. K.5 . A$." ".R.O..2,FEN$(K)
;H(A$,C(A$).C(FEN$(K)));G(11);"*";.F.T..
K:.2,FEN$(FG)...Y.. L . 1 . FG.16:.2,"=
";:. L:.2..........'. AENDERUNG DES AUSD
RUCKS IN ZEILE 2415+3535...
> CLICK IMAGE PREVIEW FOR FULL MODAL