DISCSORTER.BASIC
FILE INFORMATION
FILENAME(S): DISCSORTER.BASIC
FILE TYPE(S): PRG
FILE SIZE: 13K
FIRST SEEN: 2025-11-02 16:57:12
APPEARS ON: 6 disk(s)
FILE HASH
75e2f5b7b19aa5c9b17b0d34e4b7102e35187df41286ba905210ebda6d212c71
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| USER 17 B | DISCSORTER.BASIC | PRG | Treasure Chest - Romfreak | 3 | 0 | DOWNLOAD FILE |
| HULPPROGRAMMA S | DISCSORTER.BASIC | PRG | DuncanTwain | 6 | 9 | DOWNLOAD FILE |
| 64 SONDER 1 2 85 | DISCSORTER.BASIC | PRG | DuncanTwain | 12 | 1 | DOWNLOAD FILE |
| X | DISCSORTER.BASIC | PRG | DuncanTwain | 5 | 4 | DOWNLOAD FILE |
| SONDER 1 FLOPPY | DISCSORTER.BASIC | PRG | DuncanTwain | 24 | 10 | DOWNLOAD FILE |
| 64ER SONDERHEFT | DISCSORTER.BASIC | PRG | DuncanTwain | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 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 00 |***************.|
00000020: 3D 08 6E 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |=.n.. * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 5B 08 | *.[.|
00000040: 78 00 8F 20 2A 20 50 52 4F 47 52 41 4D 4D 20 44 |x.. * PROGRAMM D|
00000050: 49 53 4B 53 4F 52 54 45 52 20 2A 00 79 08 82 00 |ISKSORTER *.y...|
00000060: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * |
00000070: 20 20 20 20 20 20 20 20 2A 00 97 08 8C 00 8F 20 | *...... |
00000080: 2A 20 20 42 45 52 4E 48 41 52 44 20 57 49 4E 4B |* BERNHARD WINK|
00000090: 4C 45 52 20 20 20 2A 00 B5 08 96 00 8F 20 2A 20 |LER *...... * |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 2A 00 D3 08 A0 00 8F 20 2A 20 20 47 | *...... * G|
000000C0: 49 45 53 53 45 4E 45 52 53 54 52 2E 34 32 20 20 |IESSENERSTR.42 |
000000D0: 20 20 2A 00 F1 08 AA 00 8F 20 2A 20 20 20 20 20 | *...... * |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 2A 00 0F 09 B4 00 8F 20 2A 20 20 35 30 30 30 20 |*...... * 5000 |
00000100: 4B 4F 45 4C 4E 20 39 31 20 20 20 20 20 20 2A 00 |KOELN 91 *.|
00000110: 2D 09 BE 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |-.... * |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 4B 09 | *.K.|
00000130: C8 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 09 D2 00 |***********.Q...|
00000150: 8F 00 57 09 DC 00 8F 00 74 09 E6 00 99 22 93 11 |..W.....t...."..|
00000160: 05 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |.":.53280,0:.532|
00000170: 38 31 2C 30 00 A3 09 F0 00 99 22 D1 D1 20 20 D1 |81,0......".. .|
00000180: D1 D1 20 D1 D1 D1 20 D1 20 D1 20 D1 D1 D1 20 D1 |.. ... . . ... .|
00000190: D1 D1 20 D1 D1 D1 20 D1 D1 D1 20 D1 D1 D1 20 D1 |.. ... ... ... .|
000001A0: D1 D1 22 00 D2 09 FA 00 99 22 D1 20 D1 20 20 D1 |.."......". . .|
000001B0: 20 20 D1 20 20 20 D1 20 D1 20 D1 20 20 20 D1 20 | . . . . . |
000001C0: D1 20 D1 20 D1 20 20 D1 20 20 D1 20 20 20 D1 20 |. . . . . . |
000001D0: D1 22 00 01 0A 04 01 99 22 D1 20 D1 20 20 D1 20 |."......". . . |
000001E0: 20 D1 D1 D1 20 D1 D1 20 20 D1 D1 D1 20 D1 20 D1 | ... .. ... . .|
000001F0: 20 D1 D1 20 20 20 D1 20 20 D1 D1 20 20 D1 D1 20 | .. . .. .. |
00000200: 22 00 30 0A 0E 01 99 22 D1 20 D1 20 20 D1 20 20 |".0....". . . |
00000210: 20 20 D1 20 D1 20 D1 20 20 20 D1 20 D1 20 D1 20 | . . . . . . |
00000220: D1 20 D1 20 20 D1 20 20 D1 20 20 20 D1 20 D1 22 |. . . . . ."|
00000230: 00 5F 0A 18 01 99 22 D1 D1 20 20 D1 D1 D1 20 D1 |._....".. ... .|
00000240: D1 D1 20 D1 20 D1 20 D1 D1 D1 20 D1 D1 D1 20 D1 |.. . . ... ... .|
00000250: 20 D1 20 20 D1 20 20 D1 D1 D1 20 D1 20 D1 22 00 | . . ... . .".|
00000260: 89 0A 22 01 99 22 11 11 11 11 1D 1D 42 49 54 54 |..".."......BITT|
00000270: 45 20 54 41 53 54 45 20 44 52 55 45 43 4B 45 4E |E TASTE DRUECKEN|
00000280: 21 22 3A 8D 31 31 30 30 30 00 AC 0A 2C 01 8F 20 |!":.11000...,.. |
00000290: 2A 2A 2A 20 56 41 52 49 41 42 4C 45 4E 2D 44 45 |*** VARIABLEN-DE|
000002A0: 46 49 4E 49 54 49 4F 4E 20 2A 2A 2A 00 B2 0A 36 |FINITION ***...6|
000002B0: 01 8F 00 D9 0A 40 01 53 24 B2 22 11 1D 1D 1D 1D |.....@.S$.".....|
000002C0: 1D 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |.":.53280,0:.532|
000002D0: 38 31 2C 30 3A 99 22 1E 22 00 0B 0B 54 01 42 46 |81,0:."."...T.BF|
000002E0: 24 B2 22 42 4C 4F 43 4B 53 20 46 52 45 45 22 3A |$."BLOCKS FREE":|
000002F0: 45 5A 24 B2 22 20 45 4C 45 4D 45 4E 54 22 3A 45 |EZ$." ELEMENT":E|
00000300: 58 24 B2 22 20 4E 49 43 48 54 22 00 57 0B 5E 01 |X$." NICHT".W.^.|
00000310: 56 24 B2 22 93 11 11 1D 1D 12 20 22 3A 4D 24 B2 |V$."...... ":M$.|
00000320: 22 11 11 1D 1D 1D 22 3A 58 24 B2 22 11 11 1D 1D |".....":X$."....|
00000330: 12 20 22 3A 4E 24 B2 22 11 1D 12 20 22 3A 5A 4D |. ":N$."... ":ZM|
00000340: 24 B2 22 12 20 5F 20 92 20 12 20 20 5A 55 4D 20 |$.". _ . . ZUM |
00000350: 4D 45 4E 55 45 20 22 00 6E 0B 68 01 46 49 24 B2 |MENUE ".n.h.FI$.|
00000360: 22 53 54 41 4E 44 41 52 44 4B 4F 50 46 22 00 74 |"STANDARDKOPF".t|
00000370: 0B 72 01 8F 00 97 0B 7C 01 8F 20 2A 2A 2A 20 53 |.r.....|.. *** S|
00000380: 54 41 4E 44 41 52 44 4B 4F 46 20 45 49 4E 4C 45 |TANDARDKOF EINLE|
00000390: 53 45 4E 20 2A 2A 2A 00 9D 0B 86 01 8F 00 B3 0B |SEN ***.........|
000003A0: 90 01 9F 37 2C 38 2C 37 2C 46 49 24 AA 22 2C 53 |...7,8,7,FI$.",S|
000003B0: 2C 52 22 00 EA 0B 9A 01 84 37 2C 42 4E 24 2C 42 |,R"......7,BN$,B|
000003C0: 41 24 2C 42 57 24 2C 42 54 24 3A A0 37 3A 99 58 |A$,BW$,BT$:.7:.X|
000003D0: 24 3B 22 44 41 54 55 4D 20 3F 22 3B 3A 8D 31 38 |$;"DATUM ?";:.18|
000003E0: 30 30 30 3A 44 41 24 B2 4B 24 00 08 0C A4 01 86 |000:DA$.K$......|
000003F0: 42 24 28 38 35 30 29 2C 46 46 24 28 32 30 30 29 |B$(850),FF$(200)|
00000400: 3A 9F 33 2C 38 2C 31 35 00 0E 0C AE 01 8F 00 24 |:.3,8,15.......$|
00000410: 0C B8 01 8F 20 2A 2A 2A 20 20 4D 45 4E 55 45 20 |.... *** MENUE |
00000420: 20 2A 2A 2A 00 32 0C C2 01 4E 24 B2 22 11 1D 12 | ***.2...N$."...|
00000430: 20 22 00 57 0C CC 01 5A 4B 24 B2 22 20 20 20 20 | ".W...ZK$." |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 22 00 8B 0C D6 01 99 4E 24 3B | "......N$;|
00000460: 22 93 1D 20 28 43 29 31 39 38 33 20 92 20 42 59 |".. (C)1983 . BY|
00000470: 20 42 2E 57 49 4E 4B 4C 45 52 20 54 45 4C 28 30 | B.WINKLER TEL(0|
00000480: 32 32 31 29 38 38 31 33 37 33 22 00 B2 0C E0 01 |221)881373".....|
00000490: 99 4E 24 3B 22 46 31 20 92 20 44 41 54 45 4E 20 |.N$;"F1 . DATEN |
000004A0: 50 45 52 20 44 49 53 4B 20 45 49 4E 4C 45 53 45 |PER DISK EINLESE|
000004B0: 4E 22 00 DD 0C EA 01 99 4E 24 3B 22 46 33 20 92 |N"......N$;"F3 .|
000004C0: 20 44 41 54 45 4E 20 45 52 57 45 49 54 45 52 4E | DATEN ERWEITERN|
000004D0: 20 2F 20 4C 4F 45 53 43 48 45 4E 20 22 00 FC 0C | / LOESCHEN "...|
000004E0: F4 01 99 4E 24 3B 22 46 35 20 92 20 4C 49 53 54 |...N$;"F5 . LIST|
000004F0: 45 20 45 44 49 54 49 45 52 45 4E 22 00 1B 0D FE |E EDITIEREN"....|
00000500: 01 99 4E 24 3B 22 46 37 20 92 20 4C 49 53 54 45 |..N$;"F7 . LISTE|
00000510: 20 53 4F 52 54 49 45 52 45 4E 22 00 3C 0D 08 02 | SORTIEREN".<...|
00000520: 99 4E 24 3B 22 46 32 20 92 20 44 41 54 45 4E 20 |.N$;"F2 . DATEN |
00000530: 41 42 53 50 45 49 43 48 45 52 4E 22 00 6A 0D 12 |ABSPEICHERN".j..|
00000540: 02 99 4E 24 3B 22 46 34 20 92 20 44 41 54 45 4E |..N$;"F4 . DATEN|
00000550: 20 45 49 4E 4C 45 53 45 4E 20 20 20 20 12 20 43 | EINLESEN . C|
00000560: 4C 52 20 92 20 51 55 49 54 22 00 9C 0D 1C 02 99 |LR . QUIT"......|
00000570: 4E 24 3B 22 46 36 20 92 20 4C 49 53 54 45 20 44 |N$;"F6 . LISTE D|
00000580: 52 55 43 4B 45 4E 20 20 20 20 20 12 20 25 20 92 |RUCKEN . % .|
00000590: 20 53 50 45 5A 2E 4C 49 53 54 45 22 00 CE 0D 26 | SPEZ.LISTE"...&|
000005A0: 02 99 4E 24 3B 22 46 38 20 92 20 4C 49 53 54 45 |..N$;"F8 . LISTE|
000005B0: 20 41 55 46 20 53 43 52 45 45 4E 20 20 12 20 26 | AUF SCREEN . &|
000005C0: 20 92 20 44 49 53 4B 20 4F 50 45 52 2E 22 00 FD | . DISK OPER."..|
000005D0: 0D 30 02 99 4E 24 3B 22 2A 20 20 92 20 22 3B 42 |.0..N$;"* . ";B|
000005E0: 46 24 3B 22 20 20 20 20 20 20 20 12 20 24 20 92 |F$;" . $ .|
000005F0: 20 44 49 52 45 43 54 4F 52 59 20 22 22 00 24 0E | DIRECTORY "".$.|
00000600: 3A 02 99 4E 24 3B 22 5C 20 20 92 20 41 4E 44 45 |:..N$;"\ . ANDE|
00000610: 52 45 20 42 49 4C 44 53 43 48 49 52 4D 20 46 41 |RE BILDSCHIRM FA|
00000620: 52 42 45 22 00 4F 0E 44 02 99 4E 24 3B 22 21 20 |RBE".O.D..N$;"! |
00000630: 20 92 20 41 55 53 53 4F 52 54 49 45 52 45 4E 20 | . AUSSORTIEREN |
00000640: 46 52 45 4D 44 45 52 20 4C 49 53 54 45 20 22 00 |FREMDER LISTE ".|
00000650: 5A 0E 4E 02 8D 31 31 30 30 30 00 8D 0E 58 02 8B |Z.N..11000...X..|
00000660: 41 24 B2 C7 28 31 33 33 29 A7 49 B2 30 3A 42 42 |A$..(133).I.0:BB|
00000670: B2 42 3A 42 B2 30 3A 51 B2 30 3A 8D 31 30 30 30 |.B:B.0:Q.0:.1000|
00000680: 3A 8B 41 24 B2 22 5F 22 A7 42 B2 42 42 00 A2 0E |:.A$."_".B.BB...|
00000690: 62 02 8B 41 24 B2 C7 28 31 33 38 29 A7 8D 36 30 |b..A$..(138)..60|
000006A0: 30 30 00 B6 0E 6C 02 8B 41 24 B2 C7 28 33 37 29 |00...l..A$..(37)|
000006B0: A7 8D 38 32 30 30 00 D3 0E 76 02 8B 41 24 B2 C7 |..8200...v..A$..|
000006C0: 28 31 33 35 29 A7 9F 34 2C 34 3A 8D 37 30 30 30 |(135)..4,4:.7000|
000006D0: 3A A0 34 00 E7 0E 80 02 8B 41 24 B2 C7 28 33 38 |:.4......A$..(38|
000006E0: 29 A7 8D 36 33 30 30 00 FC 0E 8A 02 8B 41 24 B2 |)..6300......A$.|
000006F0: C7 28 33 33 29 A7 8D 31 34 30 30 30 00 36 0F 94 |.(33)..14000.6..|
00000700: 02 8B 41 24 B2 C7 28 33 36 29 A7 42 B2 42 AA 32 |..A$..(36).B.B.2|
00000710: 3A 49 B2 42 3A 48 B2 31 3A 47 54 B2 31 3A 47 B2 |:I.B:H.1:GT.1:G.|
00000720: 30 3A 8D 31 30 35 30 3A 48 B2 30 3A 42 B2 42 AB |0:.1050:H.0:B.B.|
00000730: 32 3A 47 54 B2 30 00 4B 0F 9E 02 8B 41 24 B2 C7 |2:GT.0.K....A$..|
00000740: 28 31 33 36 29 A7 8D 34 30 30 30 00 61 0F A8 02 |(136)..4000.a...|
00000750: 8B 41 24 B2 C7 28 31 34 37 29 A7 9E 36 34 37 33 |.A$..(147)..6473|
00000760: 38 00 76 0F B2 02 8B 41 24 B2 C7 28 31 33 37 29 |8.v....A$..(137)|
00000770: A7 8D 35 30 30 30 00 8B 0F BC 02 8B 41 24 B2 C7 |..5000......A$..|
00000780: 28 31 33 34 29 A7 8D 39 30 30 30 00 A8 0F C6 02 |(134)..9000.....|
00000790: 8B 41 24 B2 C7 28 31 33 39 29 A7 9F 34 2C 34 3A |.A$..(139)..4,4:|
000007A0: 8D 33 30 30 30 3A A0 34 00 BD 0F D0 02 8B 41 24 |.3000:.4......A$|
000007B0: B2 C7 28 31 34 30 29 A7 8D 38 30 30 30 00 D1 0F |..(140)..8000...|
000007C0: DA 02 8B 41 24 B2 C7 28 39 32 29 A7 8D 32 30 30 |...A$..(92)..200|
000007D0: 30 00 F0 0F E4 02 8B 41 24 B2 C7 28 34 32 29 A7 |0......A$..(42).|
000007E0: 42 42 B2 42 3A 8D 31 32 30 30 30 3A 42 B2 42 42 |BB.B:.12000:B.BB|
000007F0: 00 F9 0F EE 02 89 34 35 30 00 FF 0F F8 02 8F 00 |......450.......|
00000800: 05 10 E8 03 8F 00 1D 10 F2 03 8F 20 2A 2A 2A 20 |........... *** |
00000810: 44 49 53 4B 4C 45 53 45 52 20 2A 2A 2A 00 23 10 |DISKLESER ***.#.|
00000820: FC 03 8F 00 66 10 06 04 47 B2 30 3A 99 56 24 3B |....f...G.0:.V$;|
00000830: 22 44 49 53 4B 20 45 49 4E 4C 45 47 45 4E 20 3A |"DISK EINLEGEN :|
00000840: 20 44 41 54 45 4E 20 4B 4F 4D 50 4C 45 54 54 20 | DATEN KOMPLETT |
00000850: 22 3A 99 58 24 3B 22 4F 44 45 52 20 45 49 4E 5A |":.X$;"ODER EINZ|
00000860: 45 4C 4E 20 22 3B 00 99 10 0B 04 99 22 45 49 4E |ELN ";......"EIN|
00000870: 4C 45 53 45 4E 20 3F 20 28 4B 2F 45 29 22 3A 99 |LESEN ? (K/E)":.|
00000880: 58 24 3B 5A 4D 24 3A 8D 31 30 30 30 30 3A 8B 41 |X$;ZM$:.10000:.A|
00000890: 24 B2 22 45 22 A7 47 B2 31 00 A7 10 10 04 8B 41 |$."E".G.1......A|
000008A0: 24 B2 22 5F 22 A7 8E 00 C5 10 1A 04 99 56 24 3B |$."_"........V$;|
000008B0: 22 49 43 48 20 4C 45 53 45 20 44 49 53 4B 20 22 |"ICH LESE DISK "|
000008C0: 3A 99 58 24 3B 00 DB 10 24 04 9F 31 2C 38 2C 30 |:.X$;...$..1,8,0|
000008D0: 2C 22 24 30 22 20 3A 47 42 B2 31 00 04 11 2E 04 |,"$0" :GB.1.....|
000008E0: 8D 31 36 30 30 30 3A 99 22 20 12 22 4B 24 22 11 |.16000:." ."K$".|
000008F0: 11 22 3A 8B 54 B3 B1 30 A7 8D 31 30 30 30 30 3A |.":.T..0..10000:|
00000900: A0 31 3A 8E 00 12 11 38 04 A1 23 31 2C 41 24 2C |.1:....8..#1,A$,|
00000910: 46 24 00 2B 11 42 04 A1 23 31 2C 41 24 2C 46 24 |F$.+.B..#1,A$,F$|
00000920: 3A 42 24 28 49 AA 31 29 B2 22 22 00 39 11 4C 04 |:B$(I.1)."".9.L.|
00000930: A1 23 31 2C 41 24 2C 46 24 00 4A 11 56 04 43 B2 |.#1,A$,F$.J.V.C.|
00000940: 30 3A 4C 24 B2 22 20 20 20 22 00 5E 11 60 04 8B |0:L$." ".^.`..|
00000950: 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 29 00 78 |A$.."".C..(A$).x|
00000960: 11 6A 04 8B 46 24 B3 B1 22 22 A7 43 B2 43 AA C6 |.j..F$.."".C.C..|
00000970: 28 46 24 29 AC 32 35 36 00 97 11 74 04 51 24 B2 |(F$).256...t.Q$.|
00000980: CA 28 C4 28 43 29 2C 32 29 3A 4C 24 B2 C8 28 51 |.(.(C),2):L$..(Q|
00000990: 24 AA 4C 24 2C 33 29 00 C2 11 7E 04 A1 23 31 2C |$.L$,3)...~..#1,|
000009A0: 46 24 3A 8B 46 24 B2 22 22 A7 99 22 11 1D 1D 12 |F$:.F$."".."....|
000009B0: 22 3B 4C 24 3B 22 20 22 3B 42 46 24 3A 89 31 32 |";L$;" ";BF$:.12|
000009C0: 39 35 00 D6 11 88 04 8B 46 24 B3 B1 C7 28 33 34 |95......F$...(34|
000009D0: 29 A7 31 31 35 30 00 05 12 92 04 A1 23 31 2C 46 |).1150......#1,F|
000009E0: 24 3A 8B 46 24 B3 B1 C7 28 33 34 29 A7 42 24 28 |$:.F$...(34).B$(|
000009F0: 49 AA 51 29 B2 42 24 28 49 AA 51 29 AA 46 24 3A |I.Q).B$(I.Q).F$:|
00000A00: 89 31 31 37 30 00 19 12 9C 04 8B 51 B2 31 A7 42 |.1170......Q.1.B|
00000A10: 24 28 49 AA 31 29 B2 22 22 00 33 12 A6 04 A1 23 |$(I.1)."".3....#|
00000A20: 31 2C 46 24 3A 8B 46 24 B2 C7 28 33 32 29 A7 31 |1,F$:.F$..(32).1|
00000A30: 31 39 30 00 3D 12 B0 04 43 24 B2 22 22 00 5E 12 |190.=...C$."".^.|
00000A40: BA 04 43 24 B2 43 24 AA 46 24 3A A1 23 31 2C 46 |..C$.C$.F$:.#1,F|
00000A50: 24 3A 8B 46 24 B3 B1 22 22 A7 31 32 31 30 00 74 |$:.F$.."".1210.t|
00000A60: 12 C4 04 8B 47 42 B2 31 A7 47 42 24 B2 43 24 3A |....GB.1.GB$.C$:|
00000A70: 47 42 B2 30 00 A7 12 CE 04 42 24 28 49 AA 51 29 |GB.0.....B$(I.Q)|
00000A80: B2 C8 28 42 24 28 49 AA 51 29 AA 5A 4B 24 2C 31 |..(B$(I.Q).ZK$,1|
00000A90: 37 29 AA C8 28 47 42 24 2C 33 29 AA C9 28 5A 4B |7)..(GB$,3)..(ZK|
00000AA0: 24 AA 51 24 2C 33 29 00 D9 12 D8 04 99 22 1D 1D |$.Q$,3)......"..|
00000AB0: 22 3B 42 24 28 49 AA 51 29 3B 22 1D 1D 1D 22 3B |";B$(I.Q);"...";|
00000AC0: 22 12 20 22 3B C8 28 43 24 2C 35 29 3B 3A 8B 47 |". ";.(C$,5);:.G|
00000AD0: B2 30 AF 47 54 B2 30 A7 99 00 F9 12 E2 04 8B 47 |.0.GT.0........G|
00000AE0: 54 B2 31 A7 47 54 B2 30 3A 42 24 28 49 29 B2 22 |T.1.GT.0:B$(I)."|
00000AF0: 22 3A 99 3A 89 31 30 39 30 00 11 13 EC 04 8B 51 |":.:.1090......Q|
00000B00: B2 31 A7 51 B2 30 3A 42 24 28 49 AA 31 29 B2 22 |.1.Q.0:B$(I.1)."|
00000B10: 22 00 53 13 F6 04 8B 47 B2 31 AF 47 54 B2 30 AF |".S....G.1.GT.0.|
00000B20: 49 B1 30 A7 99 22 92 20 4A 2F 4E 9D 9D 9D 22 3B |I.0..". J/N...";|
00000B30: 3A 8D 31 31 30 30 30 3A 8B 41 24 B2 22 4E 22 A7 |:.11000:.A$."N".|
00000B40: 99 22 4E 45 49 4E 22 3B 3A 47 54 B2 31 3A 89 31 |."NEIN";:GT.1:.1|
00000B50: 32 35 30 00 6A 13 00 05 49 B2 49 AA 31 3A 8B 47 |250.j...I.I.1:.G|
00000B60: B2 31 A7 99 22 92 20 4A 41 22 00 A5 13 05 05 8B |.1..". JA"......|
00000B70: 49 AA 51 AA 31 B2 38 35 30 A7 99 58 24 3B 22 53 |I.Q.1.850..X$;"S|
00000B80: 50 45 49 43 48 45 52 20 49 53 54 20 56 4F 4C 4C |PEICHER IST VOLL|
00000B90: 22 3A 99 58 24 3B 5A 4D 24 3A A0 31 3A 8D 31 31 |":.X$;ZM$:.1:.11|
00000BA0: 30 30 30 3A 8E 00 B0 13 0A 05 89 20 31 30 39 30 |000:....... 1090|
00000BB0: 00 C5 13 0F 05 A0 31 3A 8B 48 B2 31 A7 8D 31 30 |......1:.H.1..10|
00000BC0: 30 30 30 3A 8E 00 E4 13 14 05 99 58 24 3B 22 4E |000:.......X$;"N|
00000BD0: 4F 43 48 20 45 49 4E 45 20 44 49 53 4B 20 28 4A |OCH EINE DISK (J|
00000BE0: 2F 4E 29 22 00 F3 13 1E 05 51 57 24 B2 C4 28 49 |/N)".....QW$..(I|
00000BF0: AB 31 29 00 26 14 28 05 99 58 24 3B 22 42 49 53 |.1).&.(..X$;"BIS|
00000C00: 48 45 52 20 57 55 52 44 45 4E 20 22 3B 51 57 24 |HER WURDEN ";QW$|
00000C10: 3B 22 20 44 41 54 45 4E 20 47 45 4C 45 53 45 4E |;" DATEN GELESEN|
00000C20: 20 11 11 11 11 22 00 31 14 32 05 8D 31 31 30 30 | ....".1.2..1100|
00000C30: 30 00 4D 14 3C 05 8B 41 24 B2 22 4A 22 A7 47 54 |0.M.<..A$."J".GT|
00000C40: B2 31 3A 99 56 24 3B 3A 89 31 30 36 30 00 5F 14 |.1:.V$;:.1060._.|
00000C50: 46 05 8B 41 24 B3 B1 22 4E 22 A7 31 33 33 30 00 |F..A$.."N".1330.|
00000C60: 6C 14 50 05 42 B2 49 AB 31 3A A0 31 00 7A 14 5A |l.P.B.I.1:.1.z.Z|
00000C70: 05 41 24 B2 22 22 3A 54 B2 30 00 80 14 64 05 8E |.A$."":T.0...d..|
00000C80: 00 86 14 D0 07 8F 00 A0 14 DA 07 8F 20 2A 2A 2A |............ ***|
00000C90: 20 46 41 52 42 57 45 43 48 53 45 4C 20 2A 2A 2A | FARBWECHSEL ***|
00000CA0: 00 A6 14 E4 07 8F 00 B6 14 EE 07 49 B2 30 3A 46 |...........I.0:F|
00000CB0: B2 30 3A 4A B2 30 00 DC 14 F8 07 99 56 24 3B 22 |.0:J.0......V$;"|
00000CC0: 46 31 92 20 12 46 41 52 42 57 45 43 48 53 45 4C |F1. .FARBWECHSEL|
00000CD0: 20 42 49 4C 44 53 43 48 49 52 4D 22 00 03 15 02 | BILDSCHIRM"....|
00000CE0: 08 99 58 24 3B 22 46 33 92 20 12 46 41 52 42 57 |..X$;"F3. .FARBW|
00000CF0: 45 43 48 53 45 4C 20 48 49 4E 54 45 52 47 52 55 |ECHSEL HINTERGRU|
00000D00: 4E 44 22 00 26 15 0C 08 99 58 24 3B 22 46 35 92 |ND".&....X$;"F5.|
00000D10: 20 12 46 41 52 42 57 45 43 48 53 45 4C 20 53 43 | .FARBWECHSEL SC|
00000D20: 48 52 49 46 54 22 00 32 15 16 08 99 58 24 3B 5A |HRIFT".2....X$;Z|
00000D30: 4D 24 00 3D 15 20 08 8D 31 31 30 30 30 00 5B 15 |M$.=. ..11000.[.|
00000D40: 2A 08 8B 41 24 B2 C7 28 31 33 33 29 A7 49 B2 49 |*..A$..(133).I.I|
00000D50: AA 31 3A 97 35 33 32 38 30 2C 49 00 79 15 34 08 |.1:.53280,I.y.4.|
00000D60: 8B 41 24 B2 C7 28 31 33 34 29 A7 4A B2 4A AA 31 |.A$..(134).J.J.1|
00000D70: 3A 97 35 33 32 38 31 2C 4A 00 95 15 3E 08 8B 41 |:.53281,J...>..A|
00000D80: 24 B2 C7 28 31 33 35 29 A7 46 B2 46 AA 31 3A 97 |$..(135).F.F.1:.|
00000D90: 36 34 36 2C 46 00 A3 15 48 08 8B 41 24 B2 22 5F |646,F...H..A$."_|
00000DA0: 22 A7 8E 00 AD 15 52 08 89 32 30 34 30 00 B3 15 |".....R..2040...|
00000DB0: B8 0B 8F 00 D1 15 C2 0B 8F 20 2A 2A 2A 20 44 52 |......... *** DR|
00000DC0: 55 43 4B 45 52 20 41 55 53 47 41 42 45 20 2A 2A |UCKER AUSGABE **|
00000DD0: 2A 00 E7 15 CC 0B 5A 4B 24 B2 C8 28 5A 4B 24 AA |*.....ZK$..(ZK$.|
00000DE0: 5A 4B 24 2C 33 33 29 00 2F 16 D6 0B 4A 24 B2 22 |ZK$,33)./...J$."|
00000DF0: 12 20 4A 41 20 22 3A 4E 24 B2 22 12 4E 45 49 4E |. JA ":N$.".NEIN|
00000E00: 22 3A 46 31 24 B2 4E 24 3A 46 33 24 B2 4A 24 3A |":F1$.N$:F3$.J$:|
00000E10: 46 35 24 B2 4A 24 3A 46 37 24 B2 4E 24 3A 46 32 |F5$.J$:F7$.N$:F2|
00000E20: 24 B2 4E 24 3A 5A 24 B2 22 1D 1D 1D 1D 1D 22 00 |$.N$:Z$.".....".|
00000E30: 49 16 E0 0B 59 24 B2 22 11 22 AA 5A 24 3A 46 34 |I...Y$.".".Z$:F4|
00000E40: 24 B2 4E 24 3A 44 52 B2 31 00 4F 16 EA 0B 8F 00 |$.N$:DR.1.O.....|
00000E50: 5C 16 F4 0B 54 24 B2 22 1D 12 20 22 00 84 16 FE |\...T$.".. "....|
00000E60: 0B 53 54 24 B2 22 22 3A 41 4E 24 B2 22 42 49 54 |.ST$."":AN$."BIT|
00000E70: 54 45 20 46 55 4E 4B 54 49 4F 4E 20 57 41 45 48 |TE FUNKTION WAEH|
00000E80: 4C 45 4E 22 00 A5 16 03 0C 99 22 93 1D 1D 1D 1D |LEN"......".....|
00000E90: 1D 12 20 44 52 55 43 4B 45 52 20 41 55 53 47 41 |.. DRUCKER AUSGA|
00000EA0: 42 45 20 11 22 00 C7 16 08 0C 99 46 31 24 3B 54 |BE ."......F1$;T|
00000EB0: 24 3B 22 46 31 20 92 20 44 52 55 43 4B 2D 42 45 |$;"F1 . DRUCK-BE|
00000EC0: 47 49 4E 4E 20 11 22 00 F3 16 12 0C 99 46 33 24 |GINN ."......F3$|
00000ED0: 3B 54 24 3B 22 46 33 20 92 20 53 54 41 4E 44 2E |;T$;"F3 . STAND.|
00000EE0: 4B 4F 50 46 20 4D 49 54 20 44 52 55 43 4B 45 4E |KOPF MIT DRUCKEN|
00000EF0: 20 11 22 00 1F 17 1C 0C 99 46 35 24 3B 54 24 3B | ."......F5$;T$;|
00000F00: 22 46 35 20 92 20 50 52 4F 47 52 41 4D 4D 2D 4C |"F5 . PROGRAMM-L|
00000F10: 49 53 54 45 20 44 52 55 43 4B 45 4E 20 11 22 00 |ISTE DRUCKEN .".|
00000F20: 48 17 26 0C 99 46 37 24 3B 54 24 3B 22 46 37 20 |H.&..F7$;T$;"F7 |
00000F30: 92 20 50 52 45 49 53 2D 4C 49 53 54 45 20 44 52 |. PREIS-LISTE DR|
00000F40: 55 43 4B 45 4E 20 11 22 00 72 17 30 0C 99 46 32 |UCKEN .".r.0..F2|
00000F50: 24 3B 54 24 3B 22 46 32 20 92 20 4C 49 53 54 45 |$;T$;"F2 . LISTE|
00000F60: 20 4E 41 43 48 20 4B 52 49 54 45 52 49 55 4D 20 | NACH KRITERIUM |
00000F70: 11 22 00 9B 17 3A 0C 99 46 34 24 3B 54 24 3B 22 |."...:..F4$;T$;"|
00000F80: 46 34 20 92 20 53 54 41 4E 44 41 52 44 4B 4F 50 |F4 . STANDARDKOP|
00000F90: 46 20 41 45 4E 44 45 52 4E 20 22 00 AC 17 44 0C |F AENDERN "...D.|
00000FA0: 99 58 24 3B 22 9D 9D 22 3B 5A 4D 24 00 B6 17 4E |.X$;"..";ZM$...N|
00000FB0: 0C 99 22 11 11 22 00 E4 17 58 0C 99 22 20 20 20 |..".."...X.." |
00000FC0: 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...............|
00000FD0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000FE0: C0 C0 C0 AE 00 12 18 62 0C 99 22 20 20 20 20 C2 |.......b.." .|
00000FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001010: 20 C2 00 40 18 6C 0C 99 22 20 20 20 20 AB C0 C0 | ..@.l.." ...|
00001020: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 |................|
00001040: 00 6E 18 76 0C 99 22 20 20 20 20 C2 20 20 20 20 |.n.v.." . |
00001050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001060: 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 00 9C | ...|
00001070: 18 80 0C 99 22 20 20 20 20 AD C0 C0 C0 C0 C0 C0 |...." .......|
00001080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 00 BF 18 8A |................|
000010A0: 0C 99 22 13 22 3B 3A 81 4A B2 31 A4 32 30 3A 99 |..".";:.J.1.20:.|
000010B0: 22 11 22 3B 3A 82 3A 99 5A 24 3B 3B 53 54 24 00 |".";:.:.Z$;;ST$.|
000010C0: CB 18 94 0C 99 59 24 3B 41 4E 24 00 EB 18 9E 0C |.....Y$;AN$.....|
000010D0: 8B 43 B2 31 A7 43 B2 30 3A 8D 33 34 35 30 3A 46 |.C.1.C.0:.3450:F|
000010E0: 34 24 B2 4E 24 3A 89 33 30 37 30 00 0A 19 A8 0C |4$.N$:.3070.....|
000010F0: 8B 46 31 24 B2 4A 24 A7 46 31 24 B2 4E 24 3A 8D |.F1$.J$.F1$.N$:.|
00001100: 33 33 38 30 3A 89 33 30 37 30 00 15 19 B2 0C 8D |3380:.3070......|
00001110: 31 31 30 30 30 00 38 19 BC 0C 8B 41 24 B2 C7 28 |11000.8....A$..(|
00001120: 31 33 33 29 AF 46 31 24 B2 4E 24 A7 46 31 24 B2 |133).F1$.N$.F1$.|
00001130: 4A 24 3A 89 33 30 37 30 00 5B 19 C6 0C 8B 41 24 |J$:.3070.[....A$|
00001140: B2 C7 28 31 33 34 29 AF 46 33 24 B2 4A 24 A7 46 |..(134).F3$.J$.F|
00001150: 33 24 B2 4E 24 3A 89 33 30 37 30 00 7E 19 D0 0C |3$.N$:.3070.~...|
00001160: 8B 41 24 B2 C7 28 31 33 34 29 AF 46 33 24 B2 4E |.A$..(134).F3$.N|
00001170: 24 A7 46 33 24 B2 4A 24 3A 89 33 30 37 30 00 AF |$.F3$.J$:.3070..|
00001180: 19 DA 0C 8B 41 24 B2 C7 28 31 33 35 29 AF 46 35 |....A$..(135).F5|
00001190: 24 B2 4E 24 A7 46 35 24 B2 4A 24 3A 46 32 24 B2 |$.N$.F5$.J$:F2$.|
000011A0: 4E 24 3A 46 37 24 B2 4E 24 3A 89 33 30 37 30 00 |N$:F7$.N$:.3070.|
000011B0: D2 19 E4 0C 8B 41 24 B2 C7 28 31 33 35 29 AF 46 |.....A$..(135).F|
000011C0: 35 24 B2 4A 24 A7 46 35 24 B2 4E 24 3A 89 33 30 |5$.J$.F5$.N$:.30|
000011D0: 37 30 00 F5 19 EE 0C 8B 41 24 B2 C7 28 31 33 36 |70......A$..(136|
000011E0: 29 AF 46 37 24 B2 4A 24 A7 46 37 24 B2 4E 24 3A |).F7$.J$.F7$.N$:|
000011F0: 89 33 30 37 30 00 26 1A F8 0C 8B 41 24 B2 C7 28 |.3070.&....A$..(|
00001200: 31 33 36 29 AF 46 37 24 B2 4E 24 A7 46 37 24 B2 |136).F7$.N$.F7$.|
00001210: 4A 24 3A 46 32 24 B2 4E 24 3A 46 35 24 B2 4E 24 |J$:F2$.N$:F5$.N$|
00001220: 3A 89 33 30 37 30 00 57 1A 02 0D 8B 41 24 B2 C7 |:.3070.W....A$..|
00001230: 28 31 33 37 29 AF 46 32 24 B2 4E 24 A7 46 32 24 |(137).F2$.N$.F2$|
00001240: B2 4A 24 3A 46 37 24 B2 4E 24 3A 46 35 24 B2 4E |.J$:F7$.N$:F5$.N|
00001250: 24 3A 89 33 30 37 30 00 7A 1A 0C 0D 8B 41 24 B2 |$:.3070.z....A$.|
00001260: C7 28 31 33 37 29 AF 46 32 24 B2 4A 24 A7 46 32 |.(137).F2$.J$.F2|
00001270: 24 B2 4E 24 3A 89 33 30 37 30 00 8F 1A 16 0D 8B |$.N$:.3070......|
00001280: 41 24 B2 C7 28 39 35 29 A7 44 52 B2 30 3A 8E 00 |A$..(95).DR.0:..|
00001290: AF 1A 20 0D 8B 41 24 B2 C7 28 31 33 38 29 A7 46 |.. ..A$..(138).F|
000012A0: 34 24 B2 4A 24 3A 43 B2 31 3A 89 33 30 37 30 00 |4$.J$:C.1:.3070.|
000012B0: CC 1A 2A 0D 8B 41 24 B3 C7 28 39 35 29 B0 41 24 |..*..A$..(95).A$|
000012C0: B1 C7 28 31 33 37 29 A7 33 32 35 30 00 02 1B 34 |..(137).3250...4|
000012D0: 0D 99 22 13 22 3A 81 4A B2 31 A4 31 39 3A 99 22 |..".":.J.1.19:."|
000012E0: 11 22 3B 3A 82 3A 99 5A 24 3B 5A 4B 24 3A 99 22 |.";:.:.Z$;ZK$:."|
000012F0: 91 22 3B 5A 24 3B 22 4F 4B 20 3F 20 28 4A 2F 4E |.";Z$;"OK ? (J/N|
00001300: 29 22 00 20 1B 39 0D 99 59 24 3B 5A 4B 24 3A 8D |)". .9..Y$;ZK$:.|
00001310: 31 31 30 30 30 3A 8B 41 24 B3 B1 22 4A 22 A7 8E |11000:.A$.."J"..|
00001320: 00 5E 1B 3E 0D 99 22 13 22 3A 81 4A B2 31 A4 31 |.^.>..".":.J.1.1|
00001330: 39 3A 99 22 11 22 3B 3A 82 3A 99 5A 24 3B 22 57 |9:.".";:.:.Z$;"W|
00001340: 49 45 56 49 45 4C 20 5A 45 49 4C 45 4E 20 50 52 |IEVIEL ZEILEN PR|
00001350: 4F 20 53 45 49 54 45 20 3F 3E 3D 31 35 22 00 97 |O SEITE ?>=15"..|
00001360: 1B 48 0D 99 59 24 3B 5A 4B 24 3A 99 22 91 91 22 |.H..Y$;ZK$:.".."|
00001370: 3B 59 24 3B 3A 8D 31 38 30 30 30 3A 44 5A B2 C5 |;Y$;:.18000:DZ..|
00001380: 28 4B 24 29 3A 8B 44 5A B3 31 35 B0 44 5A B1 33 |(K$):.DZ.15.DZ.3|
00001390: 30 30 A7 33 33 39 30 00 B3 1B 4D 0D 8B 46 32 24 |00.3390...M..F2$|
000013A0: B2 4E 24 AF 46 35 24 B2 4E 24 AF 46 37 24 B2 4E |.N$.F5$.N$.F7$.N|
000013B0: 24 A7 8E 00 C4 1B 52 0D 8B 46 33 24 B2 4A 24 A7 |$.....R..F3$.J$.|
000013C0: 33 35 33 30 00 D5 1B 5C 0D 8B 46 33 24 B2 4E 24 |3530...\..F3$.N$|
000013D0: A7 33 35 39 30 00 E3 1B 66 0D 8B 41 24 B2 22 5F |.3590...f..A$."_|
000013E0: 22 A7 8E 00 E9 1B 70 0D 8E 00 08 1C 7A 0D 53 54 |".....p.....z.ST|
000013F0: 24 B2 22 44 41 54 55 4D 20 3F 22 3A 8D 33 35 31 |$."DATUM ?":.351|
00001400: 30 3A 44 41 24 B2 4B 24 00 26 1C 84 0D 53 54 24 |0:DA$.K$.&...ST$|
00001410: B2 22 4E 41 4D 45 20 3F 22 3A 8D 33 35 31 30 3A |."NAME ?":.3510:|
00001420: 42 4E 24 B2 4B 24 00 4B 1C 8E 0D 53 54 24 B2 22 |BN$.K$.K...ST$."|
00001430: 53 54 52 41 53 53 45 2C 4E 52 2E 20 3F 22 3A 8D |STRASSE,NR. ?":.|
00001440: 33 35 31 30 3A 42 41 24 B2 4B 24 00 6C 1C 98 0D |3510:BA$.K$.l...|
00001450: 53 54 24 B2 22 57 4F 48 4E 4F 52 54 20 3F 22 3A |ST$."WOHNORT ?":|
00001460: 8D 33 35 31 30 3A 42 57 24 B2 4B 24 00 8D 1C A2 |.3510:BW$.K$....|
00001470: 0D 53 54 24 B2 22 54 45 4C 45 46 4F 4E 20 3F 22 |.ST$."TELEFON ?"|
00001480: 3A 8D 33 35 31 30 3A 42 54 24 B2 4B 24 00 93 1C |:.3510:BT$.K$...|
00001490: AC 0D 8E 00 B4 1C B6 0D 99 22 13 22 3A 81 4A B2 |.........".":.J.|
000014A0: 31 A4 31 39 3A 99 22 11 22 3B 3A 82 3A 99 5A 24 |1.19:.".";:.:.Z$|
000014B0: 3B 53 54 24 00 D1 1C BB 0D 99 59 24 3B 5A 4B 24 |;ST$......Y$;ZK$|
000014C0: 3A 99 22 91 91 22 3B 59 24 3B 3A 8D 31 38 30 30 |:."..";Y$;:.1800|
000014D0: 30 00 FC 1C C0 0D 99 22 13 22 3A 81 4A B2 31 A4 |0......".":.J.1.|
000014E0: 31 39 3A 99 22 11 22 3B 3A 82 3A 99 5A 24 3B 5A |19:.".";:.:.Z$;Z|
000014F0: 4B 24 3A 99 59 24 3B 5A 4B 24 3A 8E 00 13 1D CA |K$:.Y$;ZK$:.....|
00001500: 0D 5A 44 B2 30 3A 8B 46 33 24 B2 4A 24 A7 5A 44 |.ZD.0:.F3$.J$.ZD|
00001510: B2 31 35 00 34 1D D4 0D 98 34 2C C7 28 31 34 29 |.15.4....4,.(14)|
00001520: 22 20 20 22 3B 42 4E 24 3A 98 34 2C 22 20 20 22 |" ";BN$:.4," "|
00001530: 3B 42 41 24 00 53 1D DE 0D 98 34 2C 22 20 20 22 |;BA$.S....4," "|
00001540: 3B 42 57 24 3A 98 34 2C 22 20 20 22 3B 42 54 24 |;BW$:.4," ";BT$|
00001550: 3A 98 34 00 77 1D E8 0D 98 34 2C 22 20 20 44 49 |:.4.w....4," DI|
00001560: 53 4B 45 54 54 45 4E 49 4E 48 41 4C 54 20 56 4F |SKETTENINHALT VO|
00001570: 4D 20 22 3B 44 41 24 00 98 1D F2 0D 98 34 3A 98 |M ";DA$......4:.|
00001580: 34 2C 22 20 20 50 52 4F 47 52 41 4D 4D 45 3A 22 |4," PROGRAMME:"|
00001590: 3B 42 3B C7 28 31 35 29 00 9F 1D FC 0D 98 34 00 |;B;.(15)......4.|
000015A0: B0 1D 06 0E 8B 46 32 24 B2 4A 24 A7 33 37 36 30 |.....F2$.J$.3760|
000015B0: 00 C1 1D 0B 0E 8B 46 37 24 B2 4E 24 A7 33 36 31 |......F7$.N$.361|
000015C0: 30 00 EC 1D 10 0E 51 53 24 B2 22 50 52 47 2E 4E |0.....QS$."PRG.N|
000015D0: 41 4D 45 20 20 20 20 20 20 20 20 4B 42 2E 20 50 |AME KB. P|
000015E0: 52 45 49 53 20 22 3A 89 33 36 32 30 00 11 1E 1A |REIS ":.3620....|
000015F0: 0E 51 53 24 B2 22 50 52 47 2E 4E 41 4D 45 20 20 |.QS$."PRG.NAME |
00001600: 20 20 20 20 20 20 20 49 44 20 42 4C 2E 20 20 20 | ID BL. |
00001610: 22 00 24 1E 24 0E 5A 44 24 B2 22 20 20 22 3A 89 |".$.$.ZD$." ":.|
00001620: 33 36 34 30 00 34 1E 38 0E 44 44 B2 B5 28 42 AD |3640.4.8.DD..(B.|
00001630: 33 29 AA 31 00 3C 1E 42 0E 53 B2 31 00 61 1E 4C |3).1.<.B.S.1.a.L|
00001640: 0E 42 24 28 42 AA 31 29 B2 22 22 3A 42 24 28 42 |.B$(B.1)."":B$(B|
00001650: AA 32 29 B2 22 22 3A 42 24 28 42 AA 33 29 B2 22 |.2)."":B$(B.3)."|
00001660: 22 00 81 1E 56 0E 98 34 2C C8 28 22 20 20 20 20 |"...V..4,.(" |
00001670: 22 AA 51 53 24 AA 51 53 24 AA 51 53 24 2C 37 38 |".QS$.QS$.QS$,78|
00001680: 29 00 A8 1E 60 0E 98 34 2C 22 20 20 20 20 22 3B |)...`..4," ";|
00001690: 3A 81 54 B2 31 A4 37 34 3A 98 34 2C C7 28 31 30 |:.T.1.74:.4,.(10|
000016A0: 31 29 3B 3A 82 3A 98 34 00 B5 1E 6A 0E 81 20 54 |1);:.:.4...j.. T|
000016B0: B2 31 A4 44 44 00 E9 1E 74 0E 98 34 2C 22 20 20 |.1.DD...t..4," |
000016C0: 20 20 22 3B 42 24 28 53 29 3B 22 20 20 20 22 3B | ";B$(S);" ";|
000016D0: 42 24 28 53 AA 44 44 29 3B 22 20 20 20 22 3B 42 |B$(S.DD);" ";B|
000016E0: 24 28 53 AA 32 AC 44 44 29 00 F5 1E 7E 0E 5A 44 |$(S.2.DD)...~.ZD|
000016F0: B2 5A 44 AA 31 00 11 1F 88 0E 53 B2 53 AA 31 3A |.ZD.1.....S.S.1:|
00001700: 8B 5A 44 B2 44 5A A7 5A 44 B2 30 3A 8D 33 37 34 |.ZD.DZ.ZD.0:.374|
00001710: 30 00 19 1F 92 0E 82 3A 8E 00 37 1F 9C 0E 99 22 |0......:..7...."|
00001720: 13 22 3A 81 4A B2 31 A4 31 39 3A 99 22 11 22 3B |.":.J.1.19:.".";|
00001730: 3A 82 3A 99 5A 24 3B 00 79 1F A6 0E 99 22 44 52 |:.:.Z$;.y...."DR|
00001740: 55 43 4B 45 52 50 41 50 49 45 52 20 4A 55 53 54 |UCKERPAPIER JUST|
00001750: 49 45 52 45 4E 20 3F 20 22 3A 99 59 24 3B 22 54 |IEREN ? ":.Y$;"T|
00001760: 41 53 54 45 20 44 52 55 45 43 4B 45 4E 20 22 3B |ASTE DRUECKEN ";|
00001770: 3A 8D 31 31 30 30 30 3A 8E 00 AE 1F B0 0E 46 B2 |:.11000:......F.|
00001780: 32 3A 99 22 13 22 3A 81 49 B2 31 A4 31 39 3A 99 |2:.".":.I.1.19:.|
00001790: 22 11 22 3B 3A 82 3A 99 5A 24 3B 5A 4B 24 3A 99 |".";:.:.Z$;ZK$:.|
000017A0: 59 24 3B 5A 4B 24 3A 99 22 91 91 91 91 22 00 D7 |Y$;ZK$:."...."..|
000017B0: 1F B5 0E 99 5A 24 3B 22 49 44 2E 43 4F 44 45 20 |....Z$;"ID.CODE |
000017C0: 45 49 4E 47 45 42 45 4E 20 21 22 3A 99 59 24 3B |EINGEBEN !":.Y$;|
000017D0: 3A 8D 31 38 30 30 30 00 EC 1F BA 0E 8B C9 28 4B |:.18000.......(K|
000017E0: 24 2C 31 29 B2 22 2A 22 A7 46 B2 31 00 FF 1F C4 |$,1)."*".F.1....|
000017F0: 0E 4B 24 B2 C8 28 4B 24 AA 5A 4B 24 2C 46 29 00 |.K$..(K$.ZK$,F).|
00001800: 1C 20 CE 0E 81 49 B2 31 A4 42 3A 8B 5A 44 B2 44 |. ...I.1.B:.ZD.D|
00001810: 5A A7 5A 44 B2 30 3A 8D 33 37 34 30 00 4A 20 D8 |Z.ZD.0:.3740.J .|
00001820: 0E 8B CA 28 42 24 28 49 29 2C 31 38 2C 46 29 B2 |...(B$(I),18,F).|
00001830: 4B 24 A7 98 34 2C 22 20 20 20 20 22 3B 42 24 28 |K$..4," ";B$(|
00001840: 49 29 3A 5A 44 B2 5A 44 AA 31 00 53 20 E2 0E 82 |I):ZD.ZD.1.S ...|
00001850: 3A 98 34 00 59 20 EC 0E 8E 00 5F 20 A0 0F 8F 00 |:.4.Y ...._ ....|
00001860: 7C 20 AA 0F 8F 20 2A 2A 2A 20 53 4F 52 54 49 45 || ... *** SORTIE|
00001870: 52 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 82 20 B4 |RROUTINE ***.. .|
00001880: 0F 8F 00 BB 20 BE 0F 99 56 24 3B 22 53 4F 52 54 |.... ...V$;"SORT|
00001890: 49 45 52 2D 52 4F 55 54 49 4E 45 20 4C 41 45 55 |IER-ROUTINE LAEU|
000018A0: 46 54 21 22 3A 42 24 28 42 AA 31 29 B2 22 5A 5A |FT!":B$(B.1)."ZZ|
000018B0: 5A 5A 5A 5A 5A 5A 22 3A 46 B2 30 00 E5 20 C3 0F |ZZZZZZ":F.0.. ..|
000018C0: 99 58 24 3B 22 41 4C 50 48 41 42 45 54 49 53 43 |.X$;"ALPHABETISC|
000018D0: 48 20 4F 44 45 52 20 4E 41 43 48 20 49 44 2E 4E |H ODER NACH ID.N|
000018E0: 52 2E 20 3F 22 00 0E 21 C8 0F 99 58 24 3B 22 28 |R. ?"..!...X$;"(|
000018F0: 41 2F 49 29 22 3A 99 58 24 3B 5A 4D 24 3A 8D 31 |A/I)":.X$;ZM$:.1|
00001900: 31 30 30 30 3A 8B 41 24 B2 22 5F 22 A7 8E 00 1E |1000:.A$."_"....|
00001910: 21 D7 0F 8B 41 24 B2 22 49 22 A7 46 B2 31 00 29 |!...A$."I".F.1.)|
00001920: 21 DC 0F 81 43 B2 31 A4 42 00 56 21 E6 0F 4A B2 |!...C.1.B.V!..J.|
00001930: 43 AA 31 3A 99 58 24 3B 22 45 4C 45 4D 45 4E 54 |C.1:.X$;"ELEMENT|
00001940: 20 20 20 20 20 20 20 9D 9D 9D 9D 22 3B 4A AB 31 | ....";J.1|
00001950: 3B 22 91 91 91 22 00 61 21 F0 0F 81 44 B2 4A A4 |;"...".a!...D.J.|
00001960: 42 00 85 21 FA 0F 8B 46 B2 31 AF C9 28 42 24 28 |B..!...F.1..(B$(|
00001970: 43 29 2C 36 29 B1 C9 28 42 24 28 44 29 2C 36 29 |C),6)..(B$(D),6)|
00001980: A7 34 31 32 30 00 9B 21 04 10 8B 42 24 28 43 29 |.4120..!...B$(C)|
00001990: B1 42 24 28 44 29 A7 34 31 32 30 00 A5 21 0E 10 |.B$(D).4120..!..|
000019A0: 89 34 31 33 30 00 CD 21 18 10 43 24 28 30 29 B2 |.4130..!..C$(0).|
000019B0: 42 24 28 43 29 3A 42 24 28 43 29 B2 42 24 28 44 |B$(C):B$(C).B$(D|
000019C0: 29 3A 42 24 28 44 29 B2 43 24 28 30 29 00 D3 21 |):B$(D).C$(0)..!|
000019D0: 22 10 82 00 D9 21 2C 10 82 00 06 22 36 10 99 56 |"....!,...."6..V|
000019E0: 24 3B 22 44 4F 50 50 45 4C 54 45 20 44 41 54 45 |$;"DOPPELTE DATE|
000019F0: 4E 20 41 55 53 53 4F 52 54 49 45 52 45 4E 20 28 |N AUSSORTIEREN (|
00001A00: 4A 2F 4E 29 20 22 00 11 22 40 10 8D 31 31 30 30 |J/N) ".."@..1100|
00001A10: 30 00 22 22 4A 10 8B 41 24 B2 22 4A 22 A7 34 31 |0.""J..A$."J".41|
00001A20: 39 30 00 28 22 54 10 8E 00 4B 22 5E 10 99 56 24 |90.("T...K"^..V$|
00001A30: 3B 22 45 53 20 57 49 52 44 20 41 55 53 53 4F 52 |;"ES WIRD AUSSOR|
00001A40: 54 49 45 52 54 20 22 3A 4A B2 31 00 85 22 68 10 |TIERT ":J.1.."h.|
00001A50: 99 58 24 3B 22 57 49 45 56 49 45 4C 45 20 5A 45 |.X$;"WIEVIELE ZE|
00001A60: 49 43 48 45 4E 20 42 45 52 55 45 43 4B 53 49 43 |ICHEN BERUECKSIC|
00001A70: 48 54 49 47 45 4E 20 3F 22 3A 99 58 24 3B 3A 8D |HTIGEN ?":.X$;:.|
00001A80: 31 38 30 30 30 00 A4 22 72 10 53 53 B2 C5 28 4B |18000.."r.SS..(K|
00001A90: 24 29 3A 8B 53 53 B2 30 B0 53 53 B1 32 35 A7 53 |$):.SS.0.SS.25.S|
00001AA0: 53 B2 32 35 00 C8 22 7C 10 8B C8 28 42 24 28 4A |S.25.."|...(B$(J|
00001AB0: 29 2C 53 53 29 B2 C8 28 42 24 28 4A AA 31 29 2C |),SS)..(B$(J.1),|
00001AC0: 53 53 29 A7 34 32 37 30 00 D2 22 86 10 4A B2 4A |SS).4270.."..J.J|
00001AD0: AA 31 00 E3 22 90 10 8B 4A B3 B2 42 AB 31 A7 34 |.1.."...J..B.1.4|
00001AE0: 32 32 30 00 FE 22 9A 10 81 49 B2 42 AA 31 A4 42 |220.."...I.B.1.B|
00001AF0: AA 31 30 3A 42 24 28 49 29 B2 22 22 3A 82 00 04 |.10:B$(I)."":...|
00001B00: 23 A4 10 8E 00 0F 23 AE 10 81 49 B2 4A A4 42 00 |#.....#...I.J.B.|
00001B10: 21 23 B8 10 42 24 28 49 29 B2 42 24 28 49 AA 31 |!#..B$(I).B$(I.1|
00001B20: 29 00 27 23 C2 10 82 00 3D 23 CC 10 4A B2 4A AB |).'#....=#..J.J.|
00001B30: 31 3A 42 B2 42 AB 31 3A 89 34 32 33 30 00 43 23 |1:B.B.1:.4230.C#|
00001B40: D6 10 8E 00 49 23 88 13 8F 00 6C 23 92 13 8F 20 |....I#....l#... |
00001B50: 2A 2A 2A 20 44 41 54 45 4E 20 46 49 4C 45 20 53 |*** DATEN FILE S|
00001B60: 50 45 49 43 48 45 52 4E 20 2A 2A 2A 00 72 23 9C |PEICHERN ***.r#.|
00001B70: 13 8F 00 96 23 A6 13 99 56 24 3B 22 44 41 54 45 |....#...V$;"DATE|
00001B80: 4E 20 57 45 52 44 45 4E 20 47 45 53 50 45 49 43 |N WERDEN GESPEIC|
00001B90: 48 45 52 54 20 22 00 CC 23 B0 13 8D 31 37 30 30 |HERT "..#...1700|
00001BA0: 30 3A 49 B2 30 3A 99 58 24 3B 22 53 49 43 48 45 |0:I.0:.X$;"SICHE|
00001BB0: 52 20 3F 20 28 4A 2F 4E 29 22 3A 8D 31 31 30 30 |R ? (J/N)":.1100|
00001BC0: 30 3A 8B 41 24 B3 B1 22 4A 22 A7 8E 00 E2 23 BA |0:.A$.."J"....#.|
00001BD0: 13 9F 32 2C 38 2C 32 2C 46 49 24 AA 22 2C 53 2C |..2,8,2,FI$.",S,|
00001BE0: 57 22 00 06 24 C4 13 8D 31 36 30 30 30 3A 99 58 |W"..$...16000:.X|
00001BF0: 24 3B 4B 24 3A 8B 54 B3 B1 30 A7 A0 32 3A 8D 31 |$;K$:.T..0..2:.1|
00001C00: 30 30 30 30 3A 8E 00 0F 24 CE 13 98 32 2C 42 00 |0000:...$...2,B.|
00001C10: 2F 24 D8 13 8B 47 B2 31 A7 81 49 B2 31 A4 5A 3A |/$...G.1..I.1.Z:|
00001C20: 98 32 2C 46 46 24 28 49 29 3A 89 35 31 30 30 00 |.2,FF$(I):.5100.|
00001C30: 43 24 E2 13 81 49 B2 31 A4 42 3A 98 32 2C 42 24 |C$...I.1.B:.2,B$|
00001C40: 28 49 29 00 49 24 EC 13 82 00 50 24 F6 13 A0 32 |(I).I$....P$...2|
00001C50: 00 56 24 00 14 8E 00 5C 24 70 17 8F 00 7E 24 7A |.V$....\$p...~$z|
00001C60: 17 8F 20 2A 2A 2A 20 44 41 54 45 4E 2D 46 49 4C |.. *** DATEN-FIL|
00001C70: 45 20 45 49 4E 4C 45 53 45 4E 20 2A 2A 2A 00 84 |E EINLESEN ***..|
00001C80: 24 84 17 8F 00 AC 24 8E 17 99 56 24 3B 22 44 41 |$.....$...V$;"DA|
00001C90: 54 45 4E 20 57 45 52 44 45 4E 20 47 45 4C 45 53 |TEN WERDEN GELES|
00001CA0: 45 4E 20 22 3A 99 58 24 3B 5A 4D 24 00 C1 24 98 |EN ":.X$;ZM$..$.|
00001CB0: 17 8D 31 37 30 30 30 3A 8B 4B 24 B2 22 5F 22 A7 |..17000:.K$."_".|
00001CC0: 8E 00 ED 24 A2 17 99 58 24 3B 22 44 41 54 45 4E |...$...X$;"DATEN|
00001CD0: 20 46 49 4C 45 20 22 3B 46 49 24 22 20 45 49 4E | FILE ";FI$" EIN|
00001CE0: 4C 45 53 45 4E 20 28 4A 2F 4E 29 20 22 00 F8 24 |LESEN (J/N) "..$|
00001CF0: AC 17 8D 31 31 30 30 30 00 07 25 B6 17 8B 41 24 |...11000..%...A$|
00001D00: B3 B1 22 4A 22 A7 8E 00 27 25 C0 17 9F 32 2C 38 |.."J"...'%...2,8|
00001D10: 2C 32 2C 46 49 24 AA 22 2C 53 2C 52 22 3A 99 22 |,2,FI$.",S,R":."|
00001D20: 11 11 1D 1D 1D 22 3B 00 50 25 CA 17 8D 31 36 30 |.....";.P%...160|
00001D30: 30 30 3A 99 22 20 12 22 4B 24 22 11 11 22 3A 8B |00:." ."K$"..":.|
00001D40: 54 B3 B1 30 A7 8D 31 30 30 30 30 3A A0 32 3A 8E |T..0..10000:.2:.|
00001D50: 00 59 25 D4 17 84 32 2C 42 00 6A 25 DE 17 81 49 |.Y%...2,B.j%...I|
00001D60: B2 46 4A AA 31 A4 42 AA 46 4A 00 85 25 E8 17 84 |.FJ.1.B.FJ..%...|
00001D70: 32 2C 42 24 28 49 29 3A 82 3A A0 32 3A 42 B2 42 |2,B$(I):.:.2:B.B|
00001D80: AA 46 4A 3A 8E 00 A3 25 9C 18 99 56 24 3B 22 44 |.FJ:...%...V$;"D|
00001D90: 49 53 4B 20 4F 50 45 52 41 54 49 4F 4E 20 4D 4F |ISK OPERATION MO|
00001DA0: 44 45 22 00 CD 25 A6 18 99 58 24 3B 22 44 49 53 |DE"..%...X$;"DIS|
00001DB0: 4B 45 54 54 45 4E 42 45 46 45 48 4C 45 20 53 2C |KETTENBEFEHLE S,|
00001DC0: 20 56 2C 20 4E 2C 20 52 2C 20 49 20 22 00 08 26 | V, N, R, I "..&|
00001DD0: B0 18 99 58 24 3B 22 42 45 46 45 48 4C 20 3F 22 |...X$;"BEFEHL ?"|
00001DE0: 3B 3A 8D 31 38 30 30 30 3A 46 49 24 B2 4B 24 3A |;:.18000:FI$.K$:|
00001DF0: 99 58 24 3B 22 41 55 53 46 55 45 48 52 45 4E 20 |.X$;"AUSFUEHREN |
00001E00: 28 4A 2F 4E 29 20 3F 22 00 13 26 B5 18 8D 31 31 |(J/N) ?"..&...11|
00001E10: 30 30 30 00 21 26 BA 18 8B 41 24 B2 22 5F 22 A7 |000.!&...A$."_".|
00001E20: 8E 00 5D 26 C4 18 8B 41 24 B2 22 4A 22 A7 9F 31 |..]&...A$."J"..1|
00001E30: 35 2C 38 2C 31 35 3A 98 31 35 2C 46 49 24 3A A0 |5,8,15:.15,FI$:.|
00001E40: 31 35 3A 8D 31 36 30 30 30 3A 8B 54 B3 B1 30 A7 |15:.16000:.T..0.|
00001E50: 99 58 24 3B 4B 24 3A 8D 31 30 30 30 30 00 68 26 |.X$;K$:.10000.h&|
00001E60: C9 18 8B 54 B2 30 A7 8E 00 7A 26 CE 18 99 22 13 |...T.0...z&...".|
00001E70: 22 3B 58 24 3A 89 36 33 31 30 00 80 26 58 1B 8F |";X$:.6310..&X..|
00001E80: 00 95 26 62 1B 8F 20 2A 2A 2A 20 45 44 49 54 4F |..&b.. *** EDITO|
00001E90: 52 20 2A 2A 2A 00 9B 26 6C 1B 8F 00 A8 26 76 1B |R ***..&l....&v.|
00001EA0: 97 36 35 30 2C 31 32 38 00 D3 26 80 1B 99 53 24 |.650,128..&...S$|
00001EB0: 3B 22 93 1D 1D 1D 1D 1D 12 20 40 20 92 20 20 3A |;"....... @ . :|
00001EC0: 20 20 45 4C 45 4D 45 4E 54 20 4C 4F 45 53 43 48 | ELEMENT LOESCH|
00001ED0: 45 4E 22 00 F6 26 8A 1B 99 53 24 3B 22 12 20 5C |EN"..&...S$;". \|
00001EE0: 20 92 20 20 3A 20 20 45 4C 45 4D 45 4E 54 20 53 | . : ELEMENT S|
00001EF0: 55 43 48 45 4E 22 00 1D 27 94 1B 99 53 24 3B 22 |UCHEN"..'...S$;"|
00001F00: 12 20 2A 20 92 20 20 3A 20 20 45 4C 45 4D 45 4E |. * . : ELEMEN|
00001F10: 54 20 56 45 52 42 45 53 53 45 52 4E 22 00 3C 27 |T VERBESSERN".<'|
00001F20: 9E 1B 99 53 24 3B 22 12 20 5F 20 92 20 20 3A 20 |...S$;". _ . : |
00001F30: 20 22 3B C9 28 5A 4D 24 2C 31 33 29 00 61 27 A8 | ";.(ZM$,13).a'.|
00001F40: 1B 99 53 24 3B 22 12 20 50 20 92 20 20 3A 20 20 |..S$;". P . : |
00001F50: 45 4C 45 4D 45 4E 54 20 44 52 55 43 4B 45 4E 20 |ELEMENT DRUCKEN |
00001F60: 22 00 85 27 B2 1B 99 53 24 3B 22 12 20 20 20 92 |"..'...S$;". .|
00001F70: 20 20 3A 20 20 45 49 4E 20 45 4C 45 4D 45 4E 54 | : EIN ELEMENT|
00001F80: 20 56 4F 52 22 00 AA 27 BC 1B 99 53 24 3B 22 12 | VOR"..'...S$;".|
00001F90: 20 46 31 92 20 20 3A 20 20 32 30 20 45 4C 45 4D | F1. : 20 ELEM|
00001FA0: 45 4E 54 45 20 56 4F 52 20 22 00 D2 27 C6 1B 99 |ENTE VOR "..'...|
00001FB0: 53 24 3B 22 12 20 46 33 92 20 20 3A 20 20 32 30 |S$;". F3. : 20|
00001FC0: 20 45 4C 45 4D 45 4E 54 45 20 5A 55 52 55 45 43 | ELEMENTE ZURUEC|
00001FD0: 4B 22 00 FA 27 D0 1B 99 53 24 3B 22 12 20 5E 20 |K"..'...S$;". ^ |
00001FE0: 92 20 20 3A 20 20 45 49 4E 20 45 4C 45 4D 45 4E |. : EIN ELEMEN|
00001FF0: 54 20 5A 55 52 55 45 43 4B 22 00 21 28 DA 1B 99 |T ZURUECK".!(...|
00002000: 53 24 3B 22 12 20 24 20 92 20 20 3A 20 20 44 4D |S$;". $ . : DM|
00002010: 2D 4C 49 53 54 45 20 45 52 53 54 45 4C 4C 45 4E |-LISTE ERSTELLEN|
00002020: 22 00 4C 28 DF 1B 99 53 24 3B 22 12 20 2B 20 92 |".L(...S$;". + .|
00002030: 20 20 3A 20 20 45 4C 45 4D 45 4E 54 20 45 49 4E | : ELEMENT EIN|
00002040: 46 55 45 47 45 4E 11 11 20 22 3A 99 00 57 28 E4 |FUEGEN.. ":..W(.|
00002050: 1B 81 49 B2 31 A4 42 00 7A 28 EE 1B 99 22 91 1D |..I.1.B.z(..."..|
00002060: 1D 1D 22 3B 5A 4B 24 3B 22 11 22 3A 99 22 1D 1D |..";ZK$;".":."..|
00002070: 1D 20 20 22 3B 42 24 28 49 29 00 85 28 F8 1B 8D |. ";B$(I)..(...|
00002080: 31 31 30 30 30 00 A2 28 02 1C 8B 42 24 28 31 29 |11000..(...B$(1)|
00002090: B2 22 22 AF 42 B1 31 A7 41 24 B2 22 40 22 3A 49 |."".B.1.A$."@":I|
000020A0: B2 31 00 CA 28 0C 1C 8B 41 24 B2 22 40 22 AF 42 |.1..(...A$."@".B|
000020B0: B1 31 A7 42 24 28 49 29 B2 42 24 28 42 29 3A 42 |.1.B$(I).B$(B):B|
000020C0: B2 42 AB 31 3A 41 24 B2 22 22 00 E7 28 16 1C 8B |.B.1:A$.""..(...|
000020D0: 41 24 B2 C7 28 31 33 33 29 AF 49 AA 32 30 B3 42 |A$..(133).I.20.B|
000020E0: A7 49 B2 49 AA 32 30 00 04 29 20 1C 8B 41 24 B2 |.I.I.20..) ..A$.|
000020F0: C7 28 31 33 34 29 AF 49 AB 32 30 B1 30 A7 49 B2 |.(134).I.20.0.I.|
00002100: 49 AB 32 30 00 3C 29 2A 1C 8B 41 24 B2 22 2A 22 |I.20.<)*..A$."*"|
00002110: A7 99 22 91 91 1D 1D 1D 1D 1D 22 3B 22 12 4B 4F |..".......";".KO|
00002120: 52 52 45 4B 54 55 52 45 4C 45 4D 45 4E 54 22 3A |RREKTURELEMENT":|
00002130: 85 22 1D 1D 1D 22 3B 42 24 28 49 29 00 6B 29 34 |."...";B$(I).k)4|
00002140: 1C 8B 41 24 B2 22 2A 22 A7 99 22 91 91 22 3B 5A |..A$."*".."..";Z|
00002150: 4B 24 3A 99 3A 8B 42 24 28 49 29 B2 22 22 A7 42 |K$:.:.B$(I)."".B|
00002160: 24 28 49 29 B2 22 5A 5A 5A 5A 22 00 83 29 39 1C |$(I)."ZZZZ"..)9.|
00002170: 8B 41 24 B2 22 24 22 A7 8D 37 35 30 30 3A 89 37 |.A$."$"..7500:.7|
00002180: 30 30 30 00 9E 29 3E 1C 8B 41 24 B2 22 5F 22 A7 |000..)>..A$."_".|
00002190: 41 24 B2 22 22 3A 97 36 35 30 2C 30 3A 8E 00 BD |A$."":.650,0:...|
000021A0: 29 48 1C 8B 20 41 24 B2 22 5E 22 A7 20 49 B2 49 |)H.. A$."^". I.I|
000021B0: AB 32 3A 8B 49 B3 31 A7 49 B2 42 AB 31 00 01 2A |.2:.I.1.I.B.1..*|
000021C0: 52 1C 8B 41 24 B2 22 2B 22 A7 42 B2 42 AA 31 3A |R..A$."+".B.B.1:|
000021D0: 99 22 12 91 91 1D 1D 1D 1D 1D 4E 45 55 45 53 20 |."........NEUES |
000021E0: 45 4C 45 4D 45 4E 54 22 3A 85 22 1D 1D 1D 22 3B |ELEMENT":."...";|
000021F0: 42 24 28 42 29 3A 99 22 91 91 22 3B 5A 4B 24 3A |B$(B):."..";ZK$:|
00002200: 99 00 1D 2A 5C 1C 8B 41 24 B2 22 50 22 A7 98 34 |...*\..A$."P"..4|
00002210: 2C 22 20 20 20 20 22 3B 42 24 28 49 29 00 65 2A |," ";B$(I).e*|
00002220: 66 1C 8B 41 24 B2 22 5C 22 A7 99 56 24 3B 22 4E |f..A$."\"..V$;"N|
00002230: 41 43 48 20 57 45 4C 43 48 45 4D 20 45 4C 45 4D |ACH WELCHEM ELEM|
00002240: 45 4E 54 20 53 55 43 48 45 4E 20 3F 22 3A 99 58 |ENT SUCHEN ?":.X|
00002250: 24 3B 3A 8D 31 38 30 30 30 3A 8D 37 33 31 30 3A |$;:.18000:.7310:|
00002260: 89 37 30 30 30 00 86 2A 70 1C 8B C8 28 42 24 28 |.7000..*p...(B$(|
00002270: 42 29 2C 34 29 B2 22 5A 5A 5A 5A 22 AF 49 B1 31 |B),4)."ZZZZ".I.1|
00002280: A7 42 B2 42 AB 31 00 A0 2A 7A 1C 99 22 91 91 91 |.B.B.1..*z.."...|
00002290: 1D 1D 1D 22 3B 5A 4B 24 3A 82 3A 89 37 31 34 30 |...";ZK$:.:.7140|
000022A0: 00 A6 2A 84 1C 8E 00 B3 2A 8E 1C 8B 4B 24 B2 22 |..*.....*...K$."|
000022B0: 22 A7 8E 00 CC 2A 98 1C 46 B2 30 3A 8B C9 28 4B |"....*..F.0:..(K|
000022C0: 24 2C 31 29 B2 22 2A 22 A7 46 B2 31 00 EA 2A A2 |$,1)."*".F.1..*.|
000022D0: 1C 51 B2 C3 28 4B 24 29 AB 46 3A 51 24 B2 C8 28 |.Q..(K$).F:Q$..(|
000022E0: 4B 24 2C 51 29 3A 45 5A B2 30 00 17 2B AC 1C 45 |K$,Q):EZ.0..+..E|
000022F0: 45 24 B2 22 20 4B 45 49 4E 20 57 45 49 54 45 52 |E$." KEIN WEITER|
00002300: 45 53 22 3A 45 59 24 B2 22 20 56 4F 52 48 41 4E |ES":EY$." VORHAN|
00002310: 44 45 4E 20 22 3A 99 00 22 2B B6 1C 81 4B B2 31 |DEN ":.."+...K.1|
00002320: A4 42 00 43 2B C0 1C 8B C8 28 42 24 28 4B 29 2C |.B.C+....(B$(K),|
00002330: 51 29 B2 51 24 A7 45 5A B2 31 3A 53 45 B2 31 3A |Q).Q$.EZ.1:SE.1:|
00002340: 52 B2 31 00 4F 2B CA 1C 8B 53 45 B2 30 A7 82 00 |R.1.O+...SE.0...|
00002350: 72 2B D4 1C 8B 53 45 B2 31 A7 99 22 1D 1D 1D 1D |r+...SE.1.."....|
00002360: 1D 1D 1D 1D 22 3B 42 24 28 4B 29 3A 53 45 B2 30 |....";B$(K):SE.0|
00002370: 3A 82 00 90 2B DE 1C 8B 45 5A B2 30 A7 99 22 1D |:...+...EZ.0..".|
00002380: 1D 11 12 22 3B 45 5A 24 AA 45 58 24 AA 45 59 24 |...";EZ$.EX$.EY$|
00002390: 00 BD 2B E8 1C 8B 45 5A B2 31 A7 99 22 11 11 22 |..+...EZ.1..".."|
000023A0: 3A 99 22 1D 1D 12 22 3B 45 45 24 AA 45 5A 24 AA |:."...";EE$.EZ$.|
000023B0: 45 59 24 3A 99 22 1D 1D 22 3B 57 53 24 00 D0 2B |EY$:."..";WS$..+|
000023C0: F2 1C 99 58 24 3B 5A 4D 24 3A 8D 31 31 30 30 30 |...X$;ZM$:.11000|
000023D0: 00 D6 2B FC 1C 8E 00 13 2C 4C 1D 99 22 93 11 11 |..+.....,L.."...|
000023E0: 1D 1D 12 20 44 4D 2D 4C 49 53 54 45 4E 45 52 53 |... DM-LISTENERS|
000023F0: 54 45 4C 4C 55 4E 47 20 92 11 11 22 3A 99 22 11 |TELLUNG ...":.".|
00002400: 11 22 3B 58 24 3B 5A 4D 24 3A 99 22 13 11 11 11 |.";X$;ZM$:."....|
00002410: 11 11 22 00 39 2C 56 1D 81 4A B2 49 A4 42 3A 99 |..".9,V..J.I.B:.|
00002420: 22 20 20 22 3B 3A 43 24 B2 C8 28 42 24 28 4A 29 |" ";:C$..(B$(J)|
00002430: 2C 31 37 29 3A 99 43 24 3B 00 67 2C 60 1D 46 24 |,17):.C$;.g,`.F$|
00002440: B2 C9 28 5A 4B 24 AA C4 28 B5 28 C5 28 C9 28 42 |..(ZK$..(.(.(.(B|
00002450: 24 28 4A 29 2C 33 29 29 AD 34 AA 2E 35 29 29 2C |$(J),3)).4..5)),|
00002460: 32 29 3A 99 46 24 3B 00 88 2C 6A 1D 99 22 20 30 |2):.F$;..,j.." 0|
00002470: 30 30 9D 9D 9D 22 3B 3A 8D 31 38 30 30 30 3A 8B |00...";:.18000:.|
00002480: 4B 24 B2 22 5F 22 A7 8E 00 A8 2C 74 1D 42 24 28 |K$."_"....,t.B$(|
00002490: 4A 29 B2 43 24 AA 46 24 AA 22 20 22 AA C8 28 4B |J).C$.F$." "..(K|
000024A0: 24 AA 5A 4B 24 2C 33 29 00 B6 2C 7E 1D 99 22 91 |$.ZK$,3)..,~..".|
000024B0: 22 3B 3A 82 3A 8E 00 BC 2C 40 1F 8F 00 DD 2C 4A |";:.:...,@....,J|
000024C0: 1F 8F 20 2A 2A 2A 20 42 49 4C 44 53 43 48 49 52 |.. *** BILDSCHIR|
000024D0: 4D 2D 41 55 53 47 41 42 45 20 2A 2A 2A 00 E3 2C |M-AUSGABE ***..,|
000024E0: 54 1F 8F 00 30 2D 5E 1F 99 56 24 3B 22 49 4E 48 |T...0-^..V$;"INH|
000024F0: 41 4C 54 20 45 49 4E 45 52 20 44 49 53 4B 20 4C |ALT EINER DISK L|
00002500: 49 53 54 45 4E 20 22 3A 99 58 24 3B 22 4F 44 45 |ISTEN ":.X$;"ODE|
00002510: 52 20 41 4C 4C 45 20 44 49 53 4B 20 44 41 54 45 |R ALLE DISK DATE|
00002520: 4E 20 4C 49 53 54 45 4E 20 28 45 2F 41 29 20 22 |N LISTEN (E/A) "|
00002530: 00 3B 2D 68 1F 8D 31 31 30 30 30 00 4D 2D 72 1F |.;-h..11000.M-r.|
00002540: 3A 8B 41 24 B2 22 45 22 A7 38 31 32 30 00 5F 2D |:.A$."E".8120._-|
00002550: 7C 1F 99 56 24 3B 5A 4D 24 3A 99 3A 5A B2 31 00 ||..V$;ZM$:.:Z.1.|
00002560: 70 2D 86 1F 81 49 B2 31 A4 42 3A 5A B2 5A AA 31 |p-...I.1.B:Z.Z.1|
00002570: 00 9A 2D 90 1F 99 22 1D 1D 1D 1D 1D 1D 1D 1D 22 |..-..."........"|
00002580: 3B 42 24 28 49 29 3A 8B C2 28 36 33 31 29 B2 39 |;B$(I):..(631).9|
00002590: 35 A7 97 31 39 38 2C 30 3A 8E 00 B6 2D 9A 1F 8B |5..198,0:...-...|
000025A0: 5A B2 32 33 A7 8D 31 31 30 30 30 3A 5A B2 31 3A |Z.23..11000:Z.1:|
000025B0: 8B 48 B2 31 A7 8E 00 C3 2D A4 1F 82 3A 8D 31 30 |.H.1....-...:.10|
000025C0: 30 30 30 00 C9 2D AE 1F 8E 00 05 2E B8 1F 99 56 |000..-.........V|
000025D0: 24 3B 22 57 45 4C 43 48 45 20 44 49 53 4B 20 4C |$;"WELCHE DISK L|
000025E0: 49 53 54 45 4E 20 22 3A 99 58 24 3B 22 49 44 2E |ISTEN ":.X$;"ID.|
000025F0: 4E 52 20 45 49 4E 47 45 42 45 4E 20 22 3B 3A 8D |NR EINGEBEN ";:.|
00002600: 31 38 30 30 30 00 34 2E C2 1F 81 49 B2 31 A4 42 |18000.4....I.1.B|
00002610: 3A 8B 4B 24 B2 CA 28 42 24 28 49 29 2C 31 38 2C |:.K$..(B$(I),18,|
00002620: 32 29 A7 99 22 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 42 |2).."........";B|
00002630: 24 28 49 29 00 3A 2E CC 1F 82 00 45 2E D6 1F 8D |$(I).:.....E....|
00002640: 31 30 30 30 30 00 80 2E E0 1F 99 58 24 3B 22 4E |10000......X$;"N|
00002650: 4F 43 48 20 45 49 4E 45 20 44 49 53 4B 20 4C 49 |OCH EINE DISK LI|
00002660: 53 54 45 4E 20 28 4A 2F 4E 29 20 22 3A 8D 31 31 |STEN (J/N) ":.11|
00002670: 30 30 30 3A 8B 41 24 B2 22 4A 22 A7 38 31 32 30 |000:.A$."J".8120|
00002680: 00 86 2E EA 1F 8E 00 8C 2E 08 20 8F 00 BD 2E 12 |.......... .....|
00002690: 20 8F 20 2A 2A 2A 20 4C 49 53 54 45 4E 20 4E 41 | . *** LISTEN NA|
000026A0: 43 48 20 49 44 20 4B 52 49 54 45 52 49 55 4D 20 |CH ID KRITERIUM |
000026B0: 45 52 53 54 45 4C 4C 45 4E 20 2A 2A 2A 00 C3 2E |ERSTELLEN ***...|
000026C0: 1C 20 8F 00 F9 2E 26 20 99 56 24 3B 22 4C 49 53 |. ....& .V$;"LIS|
000026D0: 54 45 4E 20 4E 41 43 48 20 49 44 20 4B 52 49 54 |TEN NACH ID KRIT|
000026E0: 45 52 49 55 4D 20 45 52 53 54 45 4C 4C 45 4E 20 |ERIUM ERSTELLEN |
000026F0: 22 3A 99 58 24 3B 5A 4D 24 00 36 2F 30 20 99 58 |":.X$;ZM$.6/0 .X|
00002700: 24 3B 22 4E 41 43 48 20 57 45 4C 43 48 45 4D 20 |$;"NACH WELCHEM |
00002710: 4B 52 49 54 45 52 49 55 4D 20 53 55 43 48 45 4E |KRITERIUM SUCHEN|
00002720: 20 3F 22 3B 3A 8D 31 38 30 30 30 3A 46 24 B2 C8 | ?";:.18000:F$..|
00002730: 28 4B 24 2C 31 29 00 44 2F 3A 20 8B 46 24 B2 22 |(K$,1).D/: .F$."|
00002740: 5F 22 A7 8E 00 7A 2F 44 20 99 58 24 3B 22 44 41 |_"...z/D .X$;"DA|
00002750: 54 45 4E 44 49 53 4B 45 54 54 45 20 45 49 4E 4C |TENDISKETTE EINL|
00002760: 45 47 45 4E 20 22 3A 8D 31 37 30 30 30 3A 46 49 |EGEN ":.17000:FI|
00002770: 24 B2 22 40 3A 22 AA 46 49 24 00 A1 2F 4E 20 58 |$."@:".FI$../N X|
00002780: B2 30 3A 81 49 B2 31 A4 42 3A 8B CA 28 42 24 28 |.0:.I.1.B:..(B$(|
00002790: 49 29 2C 31 38 2C 31 29 B2 46 24 A7 58 B2 58 AA |I),18,1).F$.X.X.|
000027A0: 31 00 A7 2F 58 20 82 00 D2 2F 62 20 8B 58 B2 30 |1../X .../b .X.0|
000027B0: A7 99 58 24 3B 22 4B 45 49 4E 20 45 4C 45 4D 45 |..X$;"KEIN ELEME|
000027C0: 4E 54 20 56 4F 52 48 2E 22 3A 8D 31 30 30 30 30 |NT VORH.":.10000|
000027D0: 3A 8E 00 ED 2F 6C 20 9F 31 2C 38 2C 31 2C 46 49 |:.../l .1,8,1,FI|
000027E0: 24 AA 22 2C 53 2C 57 22 3A 98 31 2C 58 00 0A 30 |$.",S,W":.1,X..0|
000027F0: 76 20 8D 31 36 30 30 30 3A 8B 54 B3 B1 30 A7 8D |v .16000:.T..0..|
00002800: 31 30 30 30 30 3A A0 31 3A 8E 00 42 30 80 20 81 |10000:.1:..B0. .|
00002810: 49 B2 31 A4 42 3A 8B CA 28 42 24 28 49 29 2C 31 |I.1.B:..(B$(I),1|
00002820: 38 2C 31 29 B2 46 24 A7 99 22 20 20 20 20 20 20 |8,1).F$.." |
00002830: 20 20 22 3B 42 24 28 49 29 3A 98 31 2C 42 24 28 | ";B$(I):.1,B$(|
00002840: 49 29 00 4D 30 8A 20 82 3A A0 31 3A 8E 00 53 30 |I).M0. .:.1:..S0|
00002850: 28 23 8F 00 79 30 32 23 8F 20 2A 2A 2A 20 44 41 |(#..y02#. *** DA|
00002860: 54 45 4E 20 45 52 57 45 49 54 45 52 2F 4C 4F 45 |TEN ERWEITER/LOE|
00002870: 53 43 48 45 4E 20 2A 2A 2A 00 7F 30 3C 23 8F 00 |SCHEN ***..0<#..|
00002880: 9F 30 46 23 99 56 24 3B 22 46 31 20 92 20 44 41 |.0F#.V$;"F1 . DA|
00002890: 54 45 4E 20 45 52 57 45 49 54 45 52 4E 20 22 00 |TEN ERWEITERN ".|
000028A0: C0 30 50 23 99 58 24 3B 22 46 33 20 92 20 44 41 |.0P#.X$;"F3 . DA|
000028B0: 54 45 4E 20 46 49 4C 45 20 5A 55 4C 41 44 45 4E |TEN FILE ZULADEN|
000028C0: 00 E8 30 5A 23 99 58 24 3B 22 46 35 20 92 20 44 |..0Z#.X$;"F5 . D|
000028D0: 41 54 45 4E 20 4C 4F 45 53 43 48 45 4E 20 28 49 |ATEN LOESCHEN (I|
000028E0: 44 2E 4E 52 2E 29 20 22 00 0F 31 64 23 99 58 24 |D.NR.) "..1d#.X$|
000028F0: 3B 22 46 37 20 92 20 53 54 41 4E 44 41 52 44 4B |;"F7 . STANDARDK|
00002900: 4F 50 46 20 53 50 45 49 43 48 45 52 4E 20 22 00 |OPF SPEICHERN ".|
00002910: 1B 31 6E 23 99 58 24 3B 5A 4D 24 00 26 31 78 23 |.1n#.X$;ZM$.&1x#|
00002920: 8D 31 31 30 30 30 00 36 31 82 23 8B 41 24 B2 C7 |.11000.61.#.A$..|
00002930: 28 39 35 29 A7 8E 00 56 31 8C 23 8B 41 24 B2 C7 |(95)...V1.#.A$..|
00002940: 28 31 33 33 29 A7 47 54 B2 31 3A 49 B2 42 AA 31 |(133).GT.1:I.B.1|
00002950: 3A 89 31 30 30 30 00 77 31 96 23 8B 41 24 B2 C7 |:.1000.w1.#.A$..|
00002960: 28 31 33 34 29 A7 46 4A B2 42 3A 8D 36 30 30 30 |(134).FJ.B:.6000|
00002970: 3A 46 4A B2 30 3A 8E 00 8B 31 A0 23 8B 41 24 B2 |:FJ.0:...1.#.A$.|
00002980: C7 28 31 33 35 29 A7 39 31 36 30 00 C4 31 AA 23 |.(135).9160..1.#|
00002990: 8B 41 24 B2 C7 28 31 33 36 29 A7 9F 37 2C 38 2C |.A$..(136)..7,8,|
000029A0: 37 2C 22 40 3A 53 54 41 4E 44 41 52 44 4B 4F 50 |7,"@:STANDARDKOP|
000029B0: 46 2C 53 2C 57 22 3A 98 37 2C 42 4E 24 3A 98 37 |F,S,W":.7,BN$:.7|
000029C0: 2C 42 41 24 00 E4 31 B4 23 8B 41 24 B2 C7 28 31 |,BA$..1.#.A$..(1|
000029D0: 33 36 29 A7 98 37 2C 42 57 24 3A 98 37 2C 42 54 |36)..7,BW$:.7,BT|
000029E0: 24 3A A0 37 00 EE 31 BE 23 89 39 30 33 30 00 22 |$:.7..1.#.9030."|
000029F0: 32 C8 23 99 56 24 3B 22 45 49 4E 47 41 42 45 20 |2.#.V$;"EINGABE |
00002A00: 44 45 52 20 5A 55 20 4C 4F 45 53 43 48 45 4E 44 |DER ZU LOESCHEND|
00002A10: 45 4E 20 49 44 20 4E 52 2E 20 3F 20 22 3A 99 58 |EN ID NR. ? ":.X|
00002A20: 24 3B 00 2D 32 D2 23 8D 31 38 30 30 30 00 5D 32 |$;.-2.#.18000.]2|
00002A30: DC 23 99 58 24 3B 22 53 4F 4C 4C 20 22 3B 4B 24 |.#.X$;"SOLL ";K$|
00002A40: 3B 22 20 47 45 4C 4F 45 53 43 48 54 20 57 45 52 |;" GELOESCHT WER|
00002A50: 44 45 4E 20 28 4A 2F 4E 29 20 3F 20 22 00 73 32 |DEN (J/N) ? ".s2|
00002A60: E6 23 8D 31 31 30 30 30 3A 8B 41 24 B3 B1 22 4A |.#.11000:.A$.."J|
00002A70: 22 A7 8E 00 7E 32 F0 23 81 49 B2 31 A4 42 00 9A |"...~2.#.I.1.B..|
00002A80: 32 FA 23 8B 4B 24 B2 CA 28 42 24 28 49 29 2C 31 |2.#.K$..(B$(I),1|
00002A90: 38 2C 32 29 A7 8D 39 32 34 30 00 A0 32 04 24 82 |8,2)..9240..2.$.|
00002AA0: 00 A6 32 0E 24 8E 00 C1 32 18 24 81 4A B2 49 A4 |..2.$...2.$.J.I.|
00002AB0: 42 3A 42 24 28 4A 29 B2 42 24 28 4A AA 31 29 3A |B:B$(J).B$(J.1):|
00002AC0: 82 00 D3 32 22 24 49 B2 49 AB 31 3A 42 B2 42 AB |...2"$I.I.1:B.B.|
00002AD0: 31 3A 8E 00 FA 32 10 27 99 58 24 3B 22 54 41 53 |1:...2.'.X$;"TAS|
00002AE0: 54 45 20 44 52 55 45 43 4B 45 4E 20 22 3A 54 B2 |TE DRUECKEN ":T.|
00002AF0: 30 3A 8D 31 31 30 30 30 3A 8E 00 0F 33 F8 2A A1 |0:.11000:...3.*.|
00002B00: 41 24 3A 8B 41 24 B2 22 22 A7 31 31 30 30 30 00 |A$:.A$."".11000.|
00002B10: 15 33 02 2B 8E 00 1B 33 E0 2E 8F 00 3D 33 EA 2E |.3.+...3....=3..|
00002B20: 8F 20 2A 2A 2A 20 42 4C 4F 43 4B 53 20 46 52 45 |. *** BLOCKS FRE|
00002B30: 45 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 43 33 |E ROUTINE ***.C3|
00002B40: F4 2E 8F 00 5B 33 FE 2E 99 56 24 3B 42 46 24 3B |....[3...V$;BF$;|
00002B50: 22 20 46 55 4E 4B 54 49 4F 4E 22 00 81 33 08 2F |" FUNKTION"..3./|
00002B60: 46 49 24 B2 22 40 3A 22 AA 42 46 24 3A 81 49 B2 |FI$."@:".BF$:.I.|
00002B70: 31 A4 32 30 30 3A 46 46 24 28 49 29 B2 22 22 3A |1.200:FF$(I)."":|
00002B80: 82 00 A5 33 12 2F 46 46 B2 31 3A 4B B2 32 3A 49 |...3./FF.1:K.2:I|
00002B90: B2 32 3A 42 52 24 B2 22 46 55 4E 4B 49 4F 4E 20 |.2:BR$."FUNKION |
00002BA0: 45 4E 44 45 22 00 DA 33 1C 2F 99 58 24 3B 22 42 |ENDE"..3./.X$;"B|
00002BB0: 49 54 54 45 20 57 41 52 54 45 4E 20 42 49 53 20 |ITTE WARTEN BIS |
00002BC0: 22 3B 42 52 24 3A 46 46 24 28 31 29 B2 CA 28 42 |";BR$:FF$(1)..(B|
00002BD0: 24 28 31 29 2C 31 38 2C 32 29 00 F3 33 26 2F 46 |$(1),18,2)..3&/F|
00002BE0: 46 24 28 49 29 B2 CA 28 42 24 28 4B 29 2C 31 38 |F$(I)..(B$(K),18|
00002BF0: 2C 32 29 00 00 34 30 2F 81 4A B2 31 A4 49 AB 31 |,2)..40/.J.1.I.1|
00002C00: 00 19 34 3A 2F 8B 46 46 24 28 49 29 B2 46 46 24 |..4:/.FF$(I).FF$|
00002C10: 28 4A 29 A7 31 32 31 32 30 00 1F 34 44 2F 82 00 |(J).12120..4D/..|
00002C20: 29 34 4E 2F 49 B2 49 AA 31 00 3E 34 58 2F 4B B2 |)4N/I.I.1.>4X/K.|
00002C30: 4B AA 31 3A 8B 4B B1 42 A7 31 32 31 34 30 00 49 |K.1:.K.B.12140.I|
00002C40: 34 62 2F 89 31 32 30 37 30 00 53 34 6C 2F 5A B2 |4b/.12070.S4l/Z.|
00002C50: 49 AB 31 00 60 34 76 2F 81 43 B2 31 A4 5A AB 31 |I.1.`4v/.C.1.Z.1|
00002C60: 00 8D 34 80 2F 4A B2 43 AA 31 3A 99 58 24 3B 22 |..4./J.C.1:.X$;"|
00002C70: 45 4C 45 4D 45 4E 54 20 20 20 20 20 20 20 9D 9D |ELEMENT ..|
00002C80: 9D 9D 22 3B 4A AB 31 3B 22 91 91 91 22 00 98 34 |..";J.1;"..."..4|
00002C90: 8A 2F 81 44 B2 4A A4 5A 00 B1 34 94 2F 8B 46 46 |./.D.J.Z..4./.FF|
00002CA0: 24 28 43 29 B1 46 46 24 28 44 29 A7 31 32 32 30 |$(C).FF$(D).1220|
00002CB0: 30 00 BC 34 9E 2F 89 31 32 32 31 30 00 E8 34 A8 |0..4./.12210..4.|
00002CC0: 2F 43 24 28 30 29 B2 46 46 24 28 43 29 3A 46 46 |/C$(0).FF$(C):FF|
00002CD0: 24 28 43 29 B2 46 46 24 28 44 29 3A 46 46 24 28 |$(C).FF$(D):FF$(|
00002CE0: 44 29 B2 43 24 28 30 29 00 EE 34 B2 2F 82 00 F4 |D).C$(0)..4./...|
00002CF0: 34 BC 2F 82 00 2D 35 C6 2F 99 58 24 3B 22 42 4C |4./..-5./.X$;"BL|
00002D00: 4F 43 4B 53 20 57 45 52 44 45 4E 20 41 44 44 49 |OCKS WERDEN ADDI|
00002D10: 45 52 54 22 3A 42 4C 24 B2 22 12 44 49 53 4B 20 |ERT":BL$.".DISK |
00002D20: 22 3A 42 4D 24 B2 22 12 22 AA 42 46 24 00 35 35 |":BM$.".".BF$.55|
00002D30: D0 2F 4A B2 31 00 4A 35 DA 2F 81 49 B2 31 A4 42 |./J.1.J5./.I.1.B|
00002D40: 3A 8B 49 B2 31 A7 47 53 B2 30 00 6B 35 E4 2F 8B |:.I.1.GS.0.k5./.|
00002D50: CA 28 42 24 28 49 29 2C 31 38 2C 32 29 B2 46 46 |.(B$(I),18,2).FF|
00002D60: 24 28 4A 29 A7 8D 31 32 33 35 30 00 A9 35 EE 2F |$(J)..12350..5./|
00002D70: 82 3A 46 46 24 28 4A 29 B2 42 46 24 AA 22 20 44 |.:FF$(J).BF$." D|
00002D80: 49 53 4B 20 22 AA 46 46 24 28 4A 29 AA 22 20 22 |ISK ".FF$(J)." "|
00002D90: AA C9 28 5A 4B 24 AA C4 28 36 36 34 AB 47 53 29 |..(ZK$..(664.GS)|
00002DA0: 2C 33 29 3A 4A B2 4A AA 31 00 BA 35 F8 2F 8B 4A |,3):J.J.1..5./.J|
00002DB0: B3 5A AA 31 A7 31 32 32 35 30 00 C6 35 02 30 99 |.Z.1.12250..5.0.|
00002DC0: 58 24 3B 42 52 24 00 F4 35 0C 30 99 58 24 3B 22 |X$;BR$..5.0.X$;"|
00002DD0: 44 52 55 43 4B 45 52 20 4F 44 45 52 20 53 43 52 |DRUCKER ODER SCR|
00002DE0: 45 45 4E 20 28 44 2F 53 29 20 22 3A 8D 31 31 30 |EEN (D/S) ":.110|
00002DF0: 30 30 3A 99 00 17 36 16 30 8B 41 24 B3 B1 22 53 |00:...6.0.A$.."S|
00002E00: 22 AF 41 24 B3 B1 22 44 22 A7 8D 31 31 30 30 30 |".A$.."D"..11000|
00002E10: 3A 89 31 32 33 32 30 00 29 36 20 30 8B 41 24 B2 |:.12320.)6 0.A$.|
00002E20: 22 44 22 A7 31 32 33 38 30 00 43 36 2A 30 81 49 |"D".12380.C6*0.I|
00002E30: B2 31 A4 5A 3A 99 22 1D 1D 1D 1D 22 3B 46 46 24 |.1.Z:."....";FF$|
00002E40: 28 49 29 00 57 36 34 30 8D 31 31 30 30 30 3A 82 |(I).W640.11000:.|
00002E50: 3A 89 31 32 34 32 30 00 6F 36 3E 30 47 B2 30 3A |:.12420.o6>0G.0:|
00002E60: 47 B2 C5 28 C9 28 42 24 28 49 29 2C 33 29 29 00 |G..(.(B$(I),3)).|
00002E70: 7B 36 48 30 47 53 B2 47 53 AA 47 00 81 36 52 30 |{6H0GS.GS.G..6R0|
00002E80: 8E 00 A2 36 5C 30 99 58 24 3B 22 44 52 55 43 4B |...6\0.X$;"DRUCK|
00002E90: 45 52 20 45 49 4E 53 43 48 41 4C 54 45 4E 20 21 |ER EINSCHALTEN !|
00002EA0: 20 22 00 AD 36 66 30 8D 31 30 30 30 30 00 B6 36 | "..6f0.10000..6|
00002EB0: 70 30 9F 34 2C 34 00 DB 36 7A 30 81 49 B2 31 A4 |p0.4,4..6z0.I.1.|
00002EC0: 5A 3A 98 34 2C 22 20 20 20 20 20 22 3B 46 46 24 |Z:.4," ";FF$|
00002ED0: 28 49 29 3A 82 3A 98 34 3A A0 34 00 18 37 84 30 |(I):.:.4:.4..7.0|
00002EE0: 99 56 24 3B 22 44 41 54 45 4E 20 41 55 46 20 44 |.V$;"DATEN AUF D|
00002EF0: 49 53 4B 20 53 50 45 49 43 48 45 52 4E 20 3F 20 |ISK SPEICHERN ? |
00002F00: 28 4A 2F 4E 29 22 3A 8D 31 31 30 30 30 3A 8B 41 |(J/N)":.11000:.A|
00002F10: 24 B3 B1 22 4A 22 A7 8E 00 3B 37 8E 30 99 58 24 |$.."J"...;7.0.X$|
00002F20: 3B 22 44 41 54 45 4E 20 44 49 53 4B 45 54 54 45 |;"DATEN DISKETTE|
00002F30: 20 45 49 4E 4C 45 47 45 4E 20 22 00 5D 37 98 30 | EINLEGEN ".]7.0|
00002F40: 8D 31 30 30 30 30 3A 9F 32 2C 38 2C 32 2C 46 49 |.10000:.2,8,2,FI|
00002F50: 24 AA 22 2C 53 2C 57 22 3A 98 32 2C 5A 00 77 37 |$.",S,W":.2,Z.w7|
00002F60: A2 30 81 49 B2 31 A4 5A 3A 98 32 2C 46 46 24 28 |.0.I.1.Z:.2,FF$(|
00002F70: 49 29 3A 82 3A A0 32 00 7D 37 AC 30 8E 00 83 37 |I):.:.2.}7.0...7|
00002F80: B0 36 8F 00 AD 37 BA 36 8F 20 2A 2A 2A 20 41 55 |.6...7.6. *** AU|
00002F90: 53 53 4F 52 54 49 45 52 45 4E 20 46 52 45 4D 44 |SSORTIEREN FREMD|
00002FA0: 45 52 20 4C 49 53 54 45 4E 20 2A 2A 2A 00 B3 37 |ER LISTEN ***..7|
00002FB0: C4 36 8F 00 BE 37 CE 36 8B 42 B3 32 A7 8E 00 06 |.6...7.6.B.2....|
00002FC0: 38 D8 36 99 56 24 3B 22 41 55 53 53 4F 52 54 49 |8.6.V$;"AUSSORTI|
00002FD0: 45 52 45 4E 20 46 52 45 4D 44 45 52 20 4C 49 53 |EREN FREMDER LIS|
00002FE0: 54 45 4E 22 3A 44 49 24 B2 22 40 3A 44 49 46 46 |TEN":DI$."@:DIFF|
00002FF0: 45 52 45 4E 5A 22 3A 4C 49 24 B2 22 4C 49 53 54 |ERENZ":LI$."LIST|
00003000: 45 22 3A 58 B2 31 00 37 38 E2 36 99 58 24 3B 22 |E":X.1.78.6.X$;"|
00003010: 4D 49 54 20 57 45 4C 43 48 45 52 20 4C 49 53 54 |MIT WELCHER LIST|
00003020: 45 20 56 45 52 47 4C 45 49 43 48 45 4E 20 3F 22 |E VERGLEICHEN ?"|
00003030: 3A 8D 31 37 30 30 30 00 76 38 EC 36 99 58 24 3B |:.17000.v8.6.X$;|
00003040: 22 57 49 45 56 49 45 4C 20 5A 45 49 43 48 45 4E |"WIEVIEL ZEICHEN|
00003050: 20 56 45 52 47 4C 45 49 43 48 45 4E 20 28 31 2D | VERGLEICHEN (1-|
00003060: 32 30 29 20 22 3B 3A 8D 31 38 30 30 30 3A 53 4B |20) ";:.18000:SK|
00003070: B2 C5 28 4B 24 29 00 87 38 F6 36 8B 53 4B B1 32 |..(K$)..8.6.SK.2|
00003080: 35 A7 53 4B B2 32 35 00 B0 38 00 37 9F 35 2C 38 |5.SK.25..8.7.5,8|
00003090: 2C 35 2C 46 49 24 AA 22 2C 53 2C 52 22 3A 8D 31 |,5,FI$.",S,R":.1|
000030A0: 36 30 30 30 3A 8B 54 B3 B1 30 A7 31 34 31 30 30 |6000:.T..0.14100|
000030B0: 00 D3 38 0A 37 9F 32 2C 38 2C 32 2C 22 40 3A 4C |..8.7.2,8,2,"@:L|
000030C0: 49 53 54 45 22 AA 22 2C 53 2C 57 22 3A 8D 31 36 |ISTE".",S,W":.16|
000030D0: 30 30 30 00 FB 38 14 37 8B 54 B3 B1 30 A7 A0 35 |000..8.7.T..0..5|
000030E0: 3A A0 32 3A 99 58 24 3B 4B 24 3A 99 58 24 3B 5A |:.2:.X$;K$:.X$;Z|
000030F0: 4D 24 3A 8D 31 31 30 30 30 3A 8E 00 04 39 1E 37 |M$:.11000:...9.7|
00003100: 84 35 2C 43 00 0F 39 28 37 81 4A B2 31 A4 43 00 |.5,C..9(7.J.1.C.|
00003110: 25 39 32 37 84 35 2C 44 24 3A 99 22 1D 1D 1D 1D |%927.5,D$:."....|
00003120: 1D 22 3B 44 24 00 30 39 3C 37 81 49 B2 31 A4 42 |.";D$.09<7.I.1.B|
00003130: 00 50 39 46 37 8B C8 28 44 24 2C 53 4B 29 B2 C8 |.P9F7..(D$,SK)..|
00003140: 28 42 24 28 49 29 2C 53 4B 29 A7 31 34 33 30 30 |(B$(I),SK).14300|
00003150: 00 57 39 50 37 82 49 00 67 39 5A 37 98 32 2C 44 |.W9P7.I.g9Z7.2,D|
00003160: 24 3A 58 B2 58 AA 31 00 6E 39 64 37 82 4A 00 7E |$:X.X.1.n9d7.J.~|
00003170: 39 6E 37 A0 35 3A A0 32 3A 58 B2 58 AB 31 00 B1 |9n7.5:.2:X.X.1..|
00003180: 39 78 37 8B 58 B2 30 A7 99 22 93 11 12 20 4B 45 |9x7.X.0.."... KE|
00003190: 49 4E 20 4E 45 55 45 53 20 45 4C 45 4D 45 4E 54 |IN NEUES ELEMENT|
000031A0: 20 47 45 46 55 4E 44 45 4E 22 3A 89 31 30 30 30 | GEFUNDEN":.1000|
000031B0: 30 00 C7 39 82 37 9F 37 2C 38 2C 37 2C 44 49 24 |0..9.7.7,8,7,DI$|
000031C0: AA 22 2C 53 2C 57 22 00 D0 39 8C 37 98 37 2C 58 |.",S,W"..9.7.7,X|
000031D0: 00 E6 39 96 37 9F 35 2C 38 2C 35 2C 4C 49 24 AA |..9.7.5,8,5,LI$.|
000031E0: 22 2C 53 2C 52 22 00 FF 39 A0 37 81 49 B2 31 A4 |",S,R"..9.7.I.1.|
000031F0: 58 3A 84 35 2C 44 24 3A 98 37 2C 44 24 3A 82 00 |X:.5,D$:.7,D$:..|
00003200: 09 3A AA 37 A0 37 3A A0 35 00 31 3A B4 37 99 56 |.:.7.7:.5.1:.7.V|
00003210: 24 3B 22 44 41 53 20 41 55 53 53 4F 52 54 49 45 |$;"DAS AUSSORTIE|
00003220: 52 45 4E 20 49 53 54 20 42 45 45 4E 44 45 54 20 |REN IST BEENDET |
00003230: 22 00 58 3A BE 37 99 58 24 3B 22 44 41 53 20 44 |".X:.7.X$;"DAS D|
00003240: 41 54 45 4E 46 49 4C 45 20 3C 20 44 49 46 46 45 |ATENFILE < DIFFE|
00003250: 52 45 4E 5A 20 3E 20 22 00 76 3A C8 37 99 58 24 |RENZ > ".v:.7.X$|
00003260: 3B 22 4B 41 4E 4E 20 47 45 4C 41 44 45 4E 20 45 |;"KANN GELADEN E|
00003270: 52 44 45 4E 20 22 00 9B 3A D2 37 9F 31 35 2C 38 |RDEN "..:.7.15,8|
00003280: 2C 31 35 2C 22 53 30 3A 4C 49 53 54 45 22 3A A0 |,15,"S0:LISTE":.|
00003290: 31 35 3A 8D 31 36 30 30 30 3A 8E 00 AA 3A DC 37 |15:.16000:...:.7|
000032A0: 8B 4A B2 43 A7 31 34 31 39 30 00 B1 3A E6 37 82 |.J.C.14190..:.7.|
000032B0: 4A 00 B7 3A F0 37 8E 00 BD 3A 98 3A 8F 00 DC 3A |J..:.7...:.:...:|
000032C0: A2 3A 8F 20 2A 2A 2A 20 41 42 46 52 41 47 45 20 |.:. *** ABFRAGE |
000032D0: 52 4F 55 54 49 4E 45 4E 20 2A 2A 2A 00 E2 3A AC |ROUTINEN ***..:.|
000032E0: 3A 8F 00 F4 3A 80 3E 84 33 2C 54 2C 4B 24 2C 4F |:...:.>.3,T,K$,O|
000032F0: 2C 4F 3A 8E 00 22 3B 68 42 99 58 24 3B 22 46 49 |,O:..";hB.X$;"FI|
00003300: 4C 45 20 4E 41 4D 45 20 22 3B 3A 46 B2 31 3A 8D |LE NAME ";:F.1:.|
00003310: 31 38 30 30 30 3A 46 B2 30 3A 46 49 24 B2 4B 24 |18000:F.0:FI$.K$|
00003320: 3A 8E 00 2C 3B 50 46 4B 24 B2 22 22 00 45 3B 5A |:..,;PFK$."".E;Z|
00003330: 46 8D 31 31 30 30 30 3A 8B 41 24 B2 C7 28 31 33 |F.11000:.A$..(13|
00003340: 29 A7 99 3A 8E 00 72 3B 64 46 8B 41 24 B2 C7 28 |)..:..r;dF.A$..(|
00003350: 32 30 29 AF C3 28 4B 24 29 B3 B1 30 A7 4B 24 B2 |20)..(K$)..0.K$.|
00003360: C8 28 4B 24 2C C3 28 4B 24 29 AB 31 29 3A 99 41 |.(K$,.(K$).1):.A|
00003370: 24 3B 00 8B 3B 6E 46 8B 44 52 B2 31 AF C3 28 4B |$;..;nF.DR.1..(K|
00003380: 24 29 B2 33 33 A7 31 38 30 31 30 00 A3 3B 78 46 |$).33.18010..;xF|
00003390: 8B 46 B2 31 AF C3 28 4B 24 29 B2 31 38 A7 31 38 |.F.1..(K$).18.18|
000033A0: 30 31 30 00 BF 3B 82 46 8B 41 24 B1 C7 28 33 31 |010..;.F.A$..(31|
000033B0: 29 A7 4B 24 B2 4B 24 AA 41 24 3A 99 41 24 3B 00 |).K$.K$.A$:.A$;.|
000033C0: CA 3B 8C 46 89 31 38 30 31 30 00 00 00 00 20 1A |.;.F.18010.... .|
....D.. ***********************.=.N.. *
*.[.X.. * PROGRAMM D
ISKSORTER *.Y.... *
*...... * BERNHARD WINKLER *...... *
*.S. .. * GIESSENER
STR.42 *...... *
*...... * 5000 KOELN 91 *.-.... *
*.K.H.. ************
***********.Q.R...W.....T...."...":.5328
0,0:.53281,0......"QQ QQQ QQQ Q Q QQQ Q
QQ QQQ QQQ QQQ QQQ".R...."Q Q Q Q Q
Q Q Q Q Q Q Q Q Q Q"......"Q Q Q
QQQ QQ QQQ Q Q QQ Q QQ QQ ".0...."
Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q"
._...."QQ QQQ QQQ Q Q QQQ QQQ Q Q Q Q
QQ Q Q"...".."......BITTE TASTE DRUECKEN
!":.11000...,.. *** VARIABLEN-DEFINITION
***...6...Y.@.S$."......":.53280,0:.532
81,0:."."...T.BF$."BLOCKS FREE":EZ$." EL
EMENT":EX$." NICHT".W.^.V$."...... ":M$.
".....":X$."..... ":N$."... ":ZM$.". _ .
. ZUM MENUE ".N.H.FI$."STANDARDKOPF".T
.R.....|.. *** STANDARDKOF EINLESEN ***.
...........7,8,7,FI$.",S,R"......7,BN$,B
A$,BW$,BT$: 7:.X$;"DATUM ?";:.18000:DA$.
K$......B$(850),FF$(200):.3,8,15.......$
.... *** MENUE ***.2.B.N$."... ".W.L.Z
K$." "...V..N$;
".. (C)1983 . BY B.WINKLER TEL(0221)8813
73"......N$;"F1 . DATEN PER DISK EINLESE
N"......N$;"F3 . DATEN ERWEITERN / LOESC
HEN "......N$;"F5 . LISTE EDITIEREN"....
..N$;"F7 . LISTE SORTIEREN".<....N$;"F2
. DATEN ABSPEICHERN".J....N$;"F4 . DATEN
EINLESEN . CLR . QUIT"......N$;"F6 .
LISTE DRUCKEN . % . SPEZ.LISTE".N.&
..N$;"F8 . LISTE AUF SCREEN . & . DISK
OPER."...0..N$;"* . ";BF$;" . $ .
DIRECTORY "".$.:..N$;"\ . ANDERE BILDS
CHIRM FARBE".O.D..N$;"! . AUSSORTIEREN
FREMDER LISTE ".Z.N..11000...X..A$.G(133
).I.0:BB.B:B.0:Q.0:.1000:.A$."_".B.BB...
B..A$.G(138)..6000...L..A$.G(37)..8200.S
.V..A$.G(135)..4,4:.7000: 4......A$.G(38
)..6300......A$.G(33)..14000.6....A$.G(3
6).B.B.2:I.B:H.1:GT.1:G.0:.1050:H.0:B.B.
2:GT.0.K....A$.G(136)..4000.A....A$.G(14
7)..64738.V....A$.G(137)..5000......A$.G
(134)..9000...F..A$.G(139)..4,4:.3000: 4
...P..A$.G(140)..8000.Q.Z..A$.G(92)..200
0......A$.G(42).BB.B:.12000:B.BB......45
0.................. *** DISKLESER ***.#.
....F...G.0:.V$;"DISK EINLEGEN : DATEN K
OMPLETT ":.X$;"ODER EINZELN ";......"EIN
LESEN ? (K/E)":.X$;ZM$:.10000:.A$."E".G.
1......A$."_"...E....V$;"ICH LESE DISK "
:.X$;...$..1,8,0,"$0" :GB.1......16000:.
" ."K$"..":.T..0..10000: 1:....8..#1,A$,
F$.+.B..#1,A$,F$:B$(I.1)."".9.L..#1,A$,F
$.J.V.C.0:L$." ".^.`..A$.."".C.F(A$).X
.J..F$.."".C.C.F(F$).256...T.Q$.J(D(C),2
):L$.H(Q$.L$,3).B.~..#1,F$:.F$."".."....
";L$;" ";BF$:.1295.V....F$..G(34).1150..
....#1,F$:.F$..G(34).B$(I.Q).B$(I.Q).F$:
.1170......Q.1.B$(I.1)."".3....#1,F$:.F$
.G(32).1190.=...C$."".^...C$.C$.F$:.#1,F
$:.F$.."".1210.T.D..GB.1.GB$.C$:GB.0...N
.B$(I.Q).H(B$(I.Q).ZK$,17).H(GB$,3).I(ZK
$.Q$,3).Y.X.."..";B$(I.Q);"...";". ";H(C
$,5);:.G.0.GT.0........GT.1.GT.0:B$(I)."
":.:.1090......Q.1.Q.0:B$(I.1)."".S....G
.1.GT.0.I.0..". J/N...";:.11000:.A$."N".
."NEIN";:GT.1:.1250.J...I.I.1:.G.1..". J
A"......I.Q.1.850..X$;"SPEICHER IST VOLL
":.X$;ZM$: 1:.11000:....... 1090.E... 1:
.H.1..10000:.......X$;"NOCH EINE DISK (J
/N)".....QW$.D(I.1).&.(..X$;"BISHER WURD
EN ";QW$;" DATEN GELESEN ....".1.2..1100
0.M.<..A$."J".GT.1:.V$;:.1060._.F..A$.."
N".1330.L.P.B.I.1: 1.Z.Z.A$."":T.0...D..
...P... .Z.. *** FARBWECHSEL ***........
...I.0:F.0:J.0......V$;"F1. .FARBWECHSEL
BILDSCHIRM"......X$;"F3. .FARBWECHSEL H
INTERGRUND".&....X$;"F5. .FARBWECHSEL SC
HRIFT".2....X$;ZM$.=. ..11000.[.*..A$.G(
133).I.I.1:.53280,I.Y.4..A$.G(134).J.J.1
:.53281,J...>..A$.G(135).F.F.1:.646,F...
H..A$."_".....R..2040.......Q.B.. *** DR
UCKER AUSGABE ***...L.ZK$.H(ZK$.ZK$,33).
/.V.J$.". JA ":N$.".NEIN":F1$.N$:F3$.J$:
F5$.J$:F7$.N$:F2$.N$:Z$.".....".I...Y$."
.".Z$:F4$.N$:DR.1.O.....\...T$.".. "....
.ST$."":AN$."BITTE FUNKTION WAEHLEN"....
.."....... DRUCKER AUSGABE .".G....F1$;T
$;"F1 . DRUCK-BEGINN ."......F3$;T$;"F3
. STAND.KOPF MIT DRUCKEN ."......F5$;T$;
"F5 . PROGRAMM-LISTE DRUCKEN .".H.&..F7$
;T$;"F7 . PREIS-LISTE DRUCKEN .".R.0..F2
$;T$;"F2 . LISTE NACH KRITERIUM ."...:..
F4$;T$;"F4 . STANDARDKOPF AENDERN "...D.
.X$;"..";ZM$...N..".."...X.." .......
...............................B.." B
B.@.L..
" ...................................
.N.V.." B
B......" .......................
..................".";:.J.1.20:.".";:.:.
Z$;;ST$.K....Y$;AN$......C.1.C.0:.3450:F
4$.N$:.3070......F1$.J$.F1$.N$:.3380:.30
70......11000.8....A$.G(133).F1$.N$.F1$.
J$:.3070.[.F..A$.G(134).F3$.J$.F3$.N$:.3
070.~.P..A$.G(134).F3$.N$.F3$.J$:.3070..
.Z..A$.G(135).F5$.N$.F5$.J$:F2$.N$:F7$.N
$:.3070.R....A$.G(135).F5$.J$.F5$.N$:.30
70......A$.G(136).F7$.J$.F7$.N$:.3070.&.
...A$.G(136).F7$.N$.F7$.J$:F2$.N$:F5$.N$
:.3070.W....A$.G(137).F2$.N$.F2$.J$:F7$.
N$:F5$.N$:.3070.Z....A$.G(137).F2$.J$.F2
$.N$:.3070......A$.G(95).DR.0:.... ..A$.
G(138).F4$.J$:C.1:.3070.L.*..A$.G(95).A$
.G(137).3250...4..".":.J.1.19:.".";:.:.Z
$;ZK$:.".";Z$;"OK ? (J/N)". .9..Y$;ZK$:.
11000:.A$.."J"...^.>..".":.J.1.19:.".";:
.:.Z$;"WIEVIEL ZEILEN PRO SEITE ?>=15"..
.H..Y$;ZK$:."..";Y$;:.18000:DZ.E(K$):.DZ
.15.DZ.300.3390...M..F2$.N$.F5$.N$.F7$.N
$...D.R..F3$.J$.3530.U.\..F3$.N$.3590...
F..A$."_".....P.....Z.ST$."DATUM ?":.351
0:DA$.K$.&...ST$."NAME ?":.3510:BN$.K$.K
...ST$."STRASSE,NR. ?":.3510:BA$.K$.L...
ST$."WOHNORT ?":.3510:BW$.K$.....ST$."TE
LEFON ?":.3510:BT$.K$............".":.J.
1.19:.".";:.:.Z$;ST$.Q....Y$;ZK$:."..";Y
$;:.18000......".":.J.1.19:.".";:.:.Z$;Z
K$:.Y$;ZK$:....J.ZD.0:.F3$.J$.ZD.15.4.T.
.4,G(14)" ";BN$:.4," ";BA$.S....4," "
;BW$:.4," ";BT$:.4.W....4," DISKETTENI
NHALT VOM ";DA$......4:.4," PROGRAMME:"
;B;G(15)......4......F2$.J$.3760.A....F7
$.N$.3610.....QS$."PRG.NAME KB. P
REIS ":.3620.....QS$."PRG.NAME I
D BL. ".$.$.ZD$." ":.3640.4.8.DD..(B.
3).1.<.B.S.1.A.L.B$(B.1)."":B$(B.2)."":B
$(B.3).""...V..4,H(" ".QS$.QS$.QS$,78
)...`..4," ";:.T.1.74:.4,G(101);:.:.4
...J.. T.1.DD...T..4," ";B$(S);" ";
B$(S.DD);" ";B$(S.2.DD)...~.ZD.ZD.1...
..S.S.1:.ZD.DZ.ZD.0:.3740......:..7...."
.":.J.1.19:.".";:.:.Z$;.Y...."DRUCKERPAP
IER JUSTIEREN ? ":.Y$;"TASTE DRUECKEN ";
:.11000:......F.2:.".":.I.1.19:.".";:.:.
Z$;ZK$:.Y$;ZK$:."....".W....Z$;"ID.CODE
EINGEBEN !":.Y$;:.18000......I(K$,1)."*"
.F.1...D.K$.H(K$.ZK$,F).. N..I.1.B:.ZD.D
Z.ZD.0:.3740.J X..J(B$(I),18,F).K$..4,"
";B$(I):ZD.ZD.1.S ...:.4.Y ...._ ...
| ... *** SORTIERROUTINE ***.. ..... ...
V$;"SORTIER-ROUTINE LAEUFT!":B$(B.1)."ZZ
ZZZZZZ":F.0.. C..X$;"ALPHABETISCH ODER N
ACH ID.NR. ?"..!H..X$;"(A/I)":.X$;ZM$:.1
1000:.A$."_"....!W..A$."I".F.1.)!...C.1.
B.V!..J.C.1:.X$;"ELEMENT ....";J.1
;"...".A!...D.J.B..!...F.1.I(B$(C),6).I(
B$(D),6).4120..!...B$(C).B$(D).4120..!..
.4130.M!..C$(0).B$(C):B$(C).B$(D):B$(D).
C$(0).S!"...Y!,...."6..V$;"DOPPELTE DATE
N AUSSORTIEREN (J/N) ".."@..11000.""J..A
$."J".4190.("T...K"^..V$;"ES WIRD AUSSOR
TIERT ":J.1.."H..X$;"WIEVIELE ZEICHEN BE
RUECKSICHTIGEN ?":.X$;:.18000.."R.SS.E(K
$):.SS.0.SS.25.SS.25.H"|..H(B$(J),SS).H(
B$(J.1),SS).4270.R"..J.J.1.."...J..B.1.4
220.."...I.B.1.B.10:B$(I)."":...#.....#.
..I.J.B.!#..B$(I).B$(I.1).'#B...=#L.J.J.
1:B.B.1:.4230.C#V...I#....L#... *** DATE
N FILE SPEICHERN ***.R#.....#...V$;"DATE
N WERDEN GESPEICHERT ".L#...17000:I.0:.X
$;"SICHER ? (J/N)":.11000:.A$.."J"....#.
..2,8,2,FI$.",S,W"..$D..16000:.X$;K$:.T.
.0. 2:.10000:...$N..2,B./$X..G.1..I.1.Z:
.2,FF$(I):.5100.C$...I.1.B:.2,B$(I).I$..
..P$.. 2.V$....\$P...~$Z.. *** DATEN-FIL
E EINLESEN ***..$.....$...V$;"DATEN WERD
EN GELESEN ":.X$;ZM$.A$...17000:.K$."_".
...$...X$;"DATEN FILE ";FI$" EINLESEN (J
/N) "..$...11000..%...A$.."J"...'%...2,8
,2,FI$.",S,R":.".....";.P%J..16000:." ."
K$"..":.T..0..10000: 2:..Y%T..2,B.J%...I
.FJ.1.B.FJ..%...2,B$(I):.: 2:B.B.FJ:...%
...V$;"DISK OPERATION MODE".M%...X$;"DIS
KETTENBEFEHLE S, V, N, R, I "..&...X$;"B
EFEHL ?";:.18000:FI$.K$:.X$;"AUSFUEHREN
(J/N) ?"..&...11000.!&...A$."_"...]&D..A
$."J"..15,8,15:.15,FI$: 15:.16000:.T..0.
.X$;K$:.10000.H&I..T.0...Z&N..".";X$:.63
10..&X....&B.. *** EDITOR ***..&L....&V.
.650,128.S&...S$;"....... @ . : ELEMEN
T LOESCHEN"..&...S$;". \ . : ELEMENT S
UCHEN"..'...S$;". * . : ELEMENT VERBES
SERN".<'...S$;". _ . : ";I(ZM$,13).A'.
..S$;". P . : ELEMENT DRUCKEN "..'...S
$;". . : EIN ELEMENT VOR"..'...S$;".
F1. : 20 ELEMENTE VOR ".R'F..S$;". F3
. : 20 ELEMENTE ZURUECK"..'P..S$;". ^
. : EIN ELEMENT ZURUECK".!(Z..S$;". $
. : DM-LISTE ERSTELLEN".L(...S$;". + .
: ELEMENT EINFUEGEN.. ":..W(...I.1.B.
Z(..."....";ZK$;".":."... ";B$(I)..(...
11000..(...B$(1)."".B.1.A$."@":I.1.J(...
A$."@".B.1.B$(I).B$(B):B.B.1:A$.""..(...
A$.G(133).I.20.B.I.I.20..) ..A$.G(134).I
.20.0.I.I.20.<)*..A$."*"..".......";".KO
RREKTURELEMENT":."...";B$(I).K)4..A$."*"
.."..";ZK$:.:.B$(I)."".B$(I)."ZZZZ"..)9.
.A$."$"..7500:.7000..)>..A$."_".A$."":.6
50,0:...)H.. A$."^". I.I.2:.I.1.I.B.1..*
R..A$."+".B.B.1:."........NEUES ELEMENT"
:."...";B$(B):."..";ZK$:...*\..A$."P"..4
," ";B$(I).E*F..A$."\"..V$;"NACH WELC
HEM ELEMENT SUCHEN ?":.X$;:.18000:.7310:
.7000..*P..H(B$(B),4)."ZZZZ".I.1.B.B.1.
*Z.."......";ZK$:.:.7140..*.....*...K$."
"...L*..F.0:.I(K$,1)."*".F.1..*..Q.C(K$)
.F:Q$.H(K$,Q):EZ.0..+..EE$." KEIN WEITER
ES":EY$." VORHANDEN ":.."+...K.1.B.C+...
H(B$(K),Q).Q$.EZ.1:SE.1:R.1.O+J..SE.0...
R+T..SE.1.."........";B$(K):SE.0:...+...
EZ.0.."....";EZ$.EX$.EY$..+...EZ.1..".."
:."...";EE$.EZ$.EY$:."..";WS$.P+...X$;ZM
$:.11000.V+.....,L.."...... DM-LISTENERS
TELLUNG ...":."..";X$;ZM$:."......".9,V.
.J.I.B:." ";:C$.H(B$(J),17):.C$;.G,`.F$
.I(ZK$.D(.(E(I(B$(J),3)).4..5)),2):.F$;.
.,J.." 000...";:.18000:.K$."_"....,T.B$(
J).C$.F$." ".H(K$.ZK$,3)..,~..".";:.:...
,@....,J.. *** BILDSCHIRM-AUSGABE ***..,
T...0-^..V$;"INHALT EINER DISK LISTEN ":
.X$;"ODER ALLE DISK DATEN LISTEN (E/A) "
.;-H..11000.M-R.:.A$."E".8120._-|..V$;ZM
$:.:Z.1.P-...I.1.B:Z.Z.1..-..."........"
;B$(I):.B(631).95..198,0:...-...Z.23..11
000:Z.1:.H.1...C-...:.10000.I-.........V
$;"WELCHE DISK LISTEN ":.X$;"ID.NR EINGE
BEN ";:.18000.4.B..I.1.B:.K$.J(B$(I),18,
2).."........";B$(I).:.L...E.V..10000...
...X$;"NOCH EINE DISK LISTEN (J/N) ":.11
000:.A$."J".8120.......... ..... . *** L
ISTEN NACH ID KRITERIUM ERSTELLEN ***.C.
. ....& .V$;"LISTEN NACH ID KRITERIUM ER
STELLEN ":.X$;ZM$.6/0 .X$;"NACH WELCHEM
KRITERIUM SUCHEN ?";:.18000:F$.H(K$,1).D
/: .F$."_"...Z/D .X$;"DATENDISKETTE EINL
EGEN ":.17000:FI$."@:".FI$../N X.0:.I.1.
B:.J(B$(I),18,1).F$.X.X.1../X ..R/B .X.0
..X$;"KEIN ELEMENT VORH.":.10000:.../L .
1,8,1,FI$.",S,W":.1,X..0V .16000:.T..0..
10000: 1:..B0. .I.1.B:.J(B$(I),18,1).F$.
." ";B$(I):.1,B$(I).M0. .: 1:..S0
(#..Y02#. *** DATEN ERWEITER/LOESCHEN **
*.0<#...0F#.V$;"F1 . DATEN ERWEITERN ".
.0P#.X$;"F3 . DATEN FILE ZULADEN..0Z#.X$
;"F5 . DATEN LOESCHEN (ID.NR.) "..1D#.X$
;"F7 . STANDARDKOPF SPEICHERN "..1N#.X$;
ZM$.&1X#.11000.61.#.A$.G(95)...V1.#.A$.G
(133).GT.1:I.B.1:.1000.W1.#.A$.G(134).FJ
.B:.6000:FJ.0:...1 #.A$.G(135).9160.D1.#
.A$.G(136)..7,8,7,"@:STANDARDKOPF,S,W":.
7,BN$:.7,BA$..1.#.A$.G(136)..7,BW$:.7,BT
$: 7..1.#.9030."2H#.V$;"EINGABE DER ZU L
OESCHENDEN ID NR. ? ":.X$;.-2R#.18000.]2
.#.X$;"SOLL ";K$;" GELOESCHT WERDEN (J/N
) ? ".S2.#.11000:.A$.."J"...~2.#.I.1.B..
2.#.K$.J(B$(I),18,2)..9240. 2.$...2.$..A
2.$.J.I.B:B$(J).B$(J.1):..S2"$I.I.1:B.B.
1:...2.'.X$;"TASTE DRUECKEN ":T.0:.11000
:...3.*.A$:.A$."".11000..3.+...3....=3..
. *** BLOCKS FREE ROUTINE ***.C3....[3..
.V$;BF$;" FUNKTION"..3./FI$."@:".BF$:.I.
1.200:FF$(I)."":...3./FF.1:K.2:I.2:BR$."
FUNKION ENDE".Z3./.X$;"BITTE WARTEN BIS
";BR$:FF$(1).J(B$(1),18,2)..3&/FF$(I).J(
B$(K),18,2)..40/.J.1.I.1..4:/.FF$(I).FF$
(J).12120..4D/..)4N/I.I.1.>4X/K.K.1:.K.B
.12140.I4B/.12070.S4L/Z.I.1.`4V/.C.1.Z.1
..4./J.C.1:.X$;"ELEMENT ....";J.1;
"..."..4./.D.J.Z..4./.FF$(C).FF$(D).1220
0..4./.12210..4./C$(0).FF$(C):FF$(C).FF$
(D):FF$(D).C$(0)..4./...4./..-5F/.X$;"BL
OCKS WERDEN ADDIERT":BL$.".DISK ":BM$.".
".BF$.55P/J.1.J5Z/.I.1.B:.I.1.GS.0.K5./.
J(B$(I),18,2).FF$(J)..12350..5./.:FF$(J)
.BF$." DISK ".FF$(J)." ".I(ZK$.D(664.GS)
,3):J.J.1..5./.J.Z.1.12250.F5.0.X$;BR$..
5.0.X$;"DRUCKER ODER SCREEN (D/S) ":.110
00:...6.0.A$.."S".A$.."D"..11000:.12320.
)6 0.A$."D".12380.C6*0.I.1.Z:."....";FF$
(I).W640.11000:.:.12420.O6>0G.0:G.E(I(B$
(I),3)).{6H0GS.GS.G..6R0...6\0.X$;"DRUCK
ER EINSCHALTEN ! "..6F0.10000..6P0.4,4..
6Z0.I.1.Z:.4," ";FF$(I):.:.4: 4..7.0
.V$;"DATEN AUF DISK SPEICHERN ? (J/N)":.
11000:.A$.."J"...;7.0.X$;"DATEN DISKETTE
EINLEGEN ".]7.0.10000:.2,8,2,FI$.",S,W"
:.2,Z.W7.0.I.1.Z:.2,FF$(I):.: 2.}7.0...7
.6...7.6. *** AUSSORTIEREN FREMDER LISTE
N ***..7D6...7N6.B.2....8X6.V$;"AUSSORTI
EREN FREMDER LISTEN":DI$."@:DIFFERENZ":L
I$."LISTE":X.1.78.6.X$;"MIT WELCHER LIST
E VERGLEICHEN ?":.17000.V8.6.X$;"WIEVIEL
ZEICHEN VERGLEICHEN (1-20) ";:.18000:SK
.E(K$)..8.6.SK.25.SK.25..8.7.5,8,5,FI$."
,S,R":.16000:.T..0.14100.S8.7.2,8,2,"@:L
ISTE".",S,W":.16000..8.7.T..0. 5: 2:.X$;
K$:.X$;ZM$:.11000:...9.7.5,C..9(7.J.1.C.
%927.5,D$:.".....";D$.09<7.I.1.B.P9F7.H(
D$,SK).H(B$(I),SK).14300.W9P7.I.G9Z7.2,D
$:X.X.1.N9D7.J.~9N7 5: 2:X.X.1..9X7.X.0.
."... KEIN NEUES ELEMENT GEFUNDEN":.1000
0.G9.7.7,8,7,DI$.",S,W".P9.7.7,X..9.7.5,
8,5,LI$.",S,R"..9 7.I.1.X:.5,D$:.7,D$:..
.:.7 7: 5.1:.7.V$;"DAS AUSSORTIEREN IST
BEENDET ".X:.7.X$;"DAS DATENFILE < DIFFE
RENZ > ".V:H7.X$;"KANN GELADEN ERDEN "..
:R7.15,8,15,"S0:LISTE": 15:.16000:...:.7
.J.C.14190..:.7.J..:.7...:.:...:.:. ***
ABFRAGE ROUTINEN ***..:.:...:.>.3,T,K$,O
,O:..";HB.X$;"FILE NAME ";:F.1:.18000:F.
0:FI$.K$:..,;PFK$."".E;ZF.11000:.A$.G(13
)..:..R;DF.A$.G(20).C(K$)..0.K$.H(K$,C(K
$).1):.A$;..;NF.DR.1.C(K$).33.18010..;XF
.F.1.C(K$).18.18010..;.F.A$.G(31).K$.K$.
A$:.A$;.J;.F.18010.... .
> CLICK IMAGE PREVIEW FOR FULL MODAL