DISKSORTER.BASIC
FILE INFORMATION
FILENAME(S): DISKSORTER.BASIC
FILE TYPE(S): PRG
FILE SIZE: 13K
FIRST SEEN: 2025-11-02 16:54:36
APPEARS ON: 1 disk(s)
FILE HASH
d49f4ebf7ae1736dfb8b18a3b63f0179741bf70c24c83110beaa5a674111d351
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDER 1 FLOPPY | DISKSORTER.BASIC | PRG | Treasure Chest - Reamigation | 12 | 4 | 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 20 | *...... * |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
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 20 20 20 20 20 |*...... * |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
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 35 20 20 36 34 27 |".. (C)1985 64'|
00000470: 45 52 20 20 28 53 4F 4E 44 45 52 48 45 46 54 20 |ER (SONDERHEFT |
00000480: 4E 52 2E 31 29 20 92 20 20 20 22 00 B2 0C E0 01 |NR.1) . ".....|
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 70 13 00 05 49 B2 49 AA 31 3A 8B 47 |250.p...I.I.1:.G|
00000B60: B2 31 A7 99 22 92 20 4A 41 22 3A 5A B2 5A AA 31 |.1..". JA":Z.Z.1|
00000B70: 00 AB 13 05 05 8B 49 AA 51 AA 31 B2 38 35 30 A7 |......I.Q.1.850.|
00000B80: 99 58 24 3B 22 53 50 45 49 43 48 45 52 20 49 53 |.X$;"SPEICHER IS|
00000B90: 54 20 56 4F 4C 4C 22 3A 99 58 24 3B 5A 4D 24 3A |T VOLL":.X$;ZM$:|
00000BA0: A0 31 3A 8D 31 31 30 30 30 3A 8E 00 B6 13 0A 05 |.1:.11000:......|
00000BB0: 89 20 31 30 39 30 00 CB 13 0F 05 A0 31 3A 8B 48 |. 1090......1:.H|
00000BC0: B2 31 A7 8D 31 30 30 30 30 3A 8E 00 EA 13 14 05 |.1..10000:......|
00000BD0: 99 58 24 3B 22 4E 4F 43 48 20 45 49 4E 45 20 44 |.X$;"NOCH EINE D|
00000BE0: 49 53 4B 20 28 4A 2F 4E 29 22 00 F9 13 1E 05 51 |ISK (J/N)".....Q|
00000BF0: 57 24 B2 C4 28 49 AB 31 29 00 2C 14 28 05 99 58 |W$..(I.1).,.(..X|
00000C00: 24 3B 22 42 49 53 48 45 52 20 57 55 52 44 45 4E |$;"BISHER WURDEN|
00000C10: 20 22 3B 51 57 24 3B 22 20 44 41 54 45 4E 20 47 | ";QW$;" DATEN G|
00000C20: 45 4C 45 53 45 4E 20 11 11 11 11 22 00 37 14 32 |ELESEN ....".7.2|
00000C30: 05 8D 31 31 30 30 30 00 53 14 3C 05 8B 41 24 B2 |..11000.S.<..A$.|
00000C40: 22 4A 22 A7 47 54 B2 31 3A 99 56 24 3B 3A 89 31 |"J".GT.1:.V$;:.1|
00000C50: 30 36 30 00 65 14 46 05 8B 41 24 B3 B1 22 4E 22 |060.e.F..A$.."N"|
00000C60: A7 31 33 33 30 00 72 14 50 05 42 B2 49 AB 31 3A |.1330.r.P.B.I.1:|
00000C70: A0 31 00 80 14 5A 05 41 24 B2 22 22 3A 54 B2 30 |.1...Z.A$."":T.0|
00000C80: 00 86 14 64 05 8E 00 8C 14 D0 07 8F 00 A6 14 DA |...d............|
00000C90: 07 8F 20 2A 2A 2A 20 46 41 52 42 57 45 43 48 53 |.. *** FARBWECHS|
00000CA0: 45 4C 20 2A 2A 2A 00 AC 14 E4 07 8F 00 BC 14 EE |EL ***..........|
00000CB0: 07 49 B2 30 3A 46 B2 30 3A 4A B2 30 00 E2 14 F8 |.I.0:F.0:J.0....|
00000CC0: 07 99 56 24 3B 22 46 31 92 20 12 46 41 52 42 57 |..V$;"F1. .FARBW|
00000CD0: 45 43 48 53 45 4C 20 42 49 4C 44 53 43 48 49 52 |ECHSEL BILDSCHIR|
00000CE0: 4D 22 00 09 15 02 08 99 58 24 3B 22 46 33 92 20 |M"......X$;"F3. |
00000CF0: 12 46 41 52 42 57 45 43 48 53 45 4C 20 48 49 4E |.FARBWECHSEL HIN|
00000D00: 54 45 52 47 52 55 4E 44 22 00 2C 15 0C 08 99 58 |TERGRUND".,....X|
00000D10: 24 3B 22 46 35 92 20 12 46 41 52 42 57 45 43 48 |$;"F5. .FARBWECH|
00000D20: 53 45 4C 20 53 43 48 52 49 46 54 22 00 38 15 16 |SEL SCHRIFT".8..|
00000D30: 08 99 58 24 3B 5A 4D 24 00 43 15 20 08 8D 31 31 |..X$;ZM$.C. ..11|
00000D40: 30 30 30 00 61 15 2A 08 8B 41 24 B2 C7 28 31 33 |000.a.*..A$..(13|
00000D50: 33 29 A7 49 B2 49 AA 31 3A 97 35 33 32 38 30 2C |3).I.I.1:.53280,|
00000D60: 49 00 7F 15 34 08 8B 41 24 B2 C7 28 31 33 34 29 |I...4..A$..(134)|
00000D70: A7 4A B2 4A AA 31 3A 97 35 33 32 38 31 2C 4A 00 |.J.J.1:.53281,J.|
00000D80: 9B 15 3E 08 8B 41 24 B2 C7 28 31 33 35 29 A7 46 |..>..A$..(135).F|
00000D90: B2 46 AA 31 3A 97 36 34 36 2C 46 00 A9 15 48 08 |.F.1:.646,F...H.|
00000DA0: 8B 41 24 B2 22 5F 22 A7 8E 00 B3 15 52 08 89 32 |.A$."_".....R..2|
00000DB0: 30 34 30 00 B9 15 B8 0B 8F 00 D7 15 C2 0B 8F 20 |040............ |
00000DC0: 2A 2A 2A 20 44 52 55 43 4B 45 52 20 41 55 53 47 |*** DRUCKER AUSG|
00000DD0: 41 42 45 20 2A 2A 2A 00 ED 15 CC 0B 5A 4B 24 B2 |ABE ***.....ZK$.|
00000DE0: C8 28 5A 4B 24 AA 5A 4B 24 2C 33 33 29 00 35 16 |.(ZK$.ZK$,33).5.|
00000DF0: D6 0B 4A 24 B2 22 12 20 4A 41 20 22 3A 4E 24 B2 |..J$.". JA ":N$.|
00000E00: 22 12 4E 45 49 4E 22 3A 46 31 24 B2 4E 24 3A 46 |".NEIN":F1$.N$:F|
00000E10: 33 24 B2 4A 24 3A 46 35 24 B2 4A 24 3A 46 37 24 |3$.J$:F5$.J$:F7$|
00000E20: B2 4E 24 3A 46 32 24 B2 4E 24 3A 5A 24 B2 22 1D |.N$:F2$.N$:Z$.".|
00000E30: 1D 1D 1D 1D 22 00 4F 16 E0 0B 59 24 B2 22 11 22 |....".O...Y$."."|
00000E40: AA 5A 24 3A 46 34 24 B2 4E 24 3A 44 52 B2 31 00 |.Z$:F4$.N$:DR.1.|
00000E50: 55 16 EA 0B 8F 00 62 16 F4 0B 54 24 B2 22 1D 12 |U.....b...T$."..|
00000E60: 20 22 00 8A 16 FE 0B 53 54 24 B2 22 22 3A 41 4E | ".....ST$."":AN|
00000E70: 24 B2 22 42 49 54 54 45 20 46 55 4E 4B 54 49 4F |$."BITTE FUNKTIO|
00000E80: 4E 20 57 41 45 48 4C 45 4E 22 00 AB 16 03 0C 99 |N WAEHLEN"......|
00000E90: 22 93 1D 1D 1D 1D 1D 12 20 44 52 55 43 4B 45 52 |"....... DRUCKER|
00000EA0: 20 41 55 53 47 41 42 45 20 11 22 00 CD 16 08 0C | AUSGABE .".....|
00000EB0: 99 46 31 24 3B 54 24 3B 22 46 31 20 92 20 44 52 |.F1$;T$;"F1 . DR|
00000EC0: 55 43 4B 2D 42 45 47 49 4E 4E 20 11 22 00 F9 16 |UCK-BEGINN ."...|
00000ED0: 12 0C 99 46 33 24 3B 54 24 3B 22 46 33 20 92 20 |...F3$;T$;"F3 . |
00000EE0: 53 54 41 4E 44 2E 4B 4F 50 46 20 4D 49 54 20 44 |STAND.KOPF MIT D|
00000EF0: 52 55 43 4B 45 4E 20 11 22 00 25 17 1C 0C 99 46 |RUCKEN .".%....F|
00000F00: 35 24 3B 54 24 3B 22 46 35 20 92 20 50 52 4F 47 |5$;T$;"F5 . PROG|
00000F10: 52 41 4D 4D 2D 4C 49 53 54 45 20 44 52 55 43 4B |RAMM-LISTE DRUCK|
00000F20: 45 4E 20 11 22 00 4E 17 26 0C 99 46 37 24 3B 54 |EN .".N.&..F7$;T|
00000F30: 24 3B 22 46 37 20 92 20 50 52 45 49 53 2D 4C 49 |$;"F7 . PREIS-LI|
00000F40: 53 54 45 20 44 52 55 43 4B 45 4E 20 11 22 00 78 |STE DRUCKEN .".x|
00000F50: 17 30 0C 99 46 32 24 3B 54 24 3B 22 46 32 20 92 |.0..F2$;T$;"F2 .|
00000F60: 20 4C 49 53 54 45 20 4E 41 43 48 20 4B 52 49 54 | LISTE NACH KRIT|
00000F70: 45 52 49 55 4D 20 11 22 00 A1 17 3A 0C 99 46 34 |ERIUM ."...:..F4|
00000F80: 24 3B 54 24 3B 22 46 34 20 92 20 53 54 41 4E 44 |$;T$;"F4 . STAND|
00000F90: 41 52 44 4B 4F 50 46 20 41 45 4E 44 45 52 4E 20 |ARDKOPF AENDERN |
00000FA0: 22 00 B2 17 44 0C 99 58 24 3B 22 9D 9D 22 3B 5A |"...D..X$;"..";Z|
00000FB0: 4D 24 00 BC 17 4E 0C 99 22 11 11 22 00 EA 17 58 |M$...N..".."...X|
00000FC0: 0C 99 22 20 20 20 20 B0 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 C0 C0 C0 C0 C0 C0 AE 00 18 18 62 0C 99 |.............b..|
00000FF0: 22 20 20 20 20 C2 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 20 20 20 20 20 20 C2 00 46 18 6C 0C 99 22 20 | ..F.l.." |
00001020: 20 20 20 AB 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 C0 |................|
00001040: C0 C0 C0 C0 C0 B3 00 74 18 76 0C 99 22 20 20 20 |.......t.v.." |
00001050: 20 C2 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 20 20 20 | |
00001070: 20 20 20 C2 00 A2 18 80 0C 99 22 20 20 20 20 AD | ......." .|
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 C0 C0 C0 C0 C0 |................|
000010A0: C0 BD 00 C5 18 8A 0C 99 22 13 22 3B 3A 81 4A B2 |........".";:.J.|
000010B0: 31 A4 32 30 3A 99 22 11 22 3B 3A 82 3A 99 5A 24 |1.20:.".";:.:.Z$|
000010C0: 3B 3B 53 54 24 00 D1 18 94 0C 99 59 24 3B 41 4E |;;ST$......Y$;AN|
000010D0: 24 00 F1 18 9E 0C 8B 43 B2 31 A7 43 B2 30 3A 8D |$......C.1.C.0:.|
000010E0: 33 34 35 30 3A 46 34 24 B2 4E 24 3A 89 33 30 37 |3450:F4$.N$:.307|
000010F0: 30 00 10 19 A8 0C 8B 46 31 24 B2 4A 24 A7 46 31 |0......F1$.J$.F1|
00001100: 24 B2 4E 24 3A 8D 33 33 38 30 3A 89 33 30 37 30 |$.N$:.3380:.3070|
00001110: 00 1B 19 B2 0C 8D 31 31 30 30 30 00 3E 19 BC 0C |......11000.>...|
00001120: 8B 41 24 B2 C7 28 31 33 33 29 AF 46 31 24 B2 4E |.A$..(133).F1$.N|
00001130: 24 A7 46 31 24 B2 4A 24 3A 89 33 30 37 30 00 61 |$.F1$.J$:.3070.a|
00001140: 19 C6 0C 8B 41 24 B2 C7 28 31 33 34 29 AF 46 33 |....A$..(134).F3|
00001150: 24 B2 4A 24 A7 46 33 24 B2 4E 24 3A 89 33 30 37 |$.J$.F3$.N$:.307|
00001160: 30 00 84 19 D0 0C 8B 41 24 B2 C7 28 31 33 34 29 |0......A$..(134)|
00001170: AF 46 33 24 B2 4E 24 A7 46 33 24 B2 4A 24 3A 89 |.F3$.N$.F3$.J$:.|
00001180: 33 30 37 30 00 B5 19 DA 0C 8B 41 24 B2 C7 28 31 |3070......A$..(1|
00001190: 33 35 29 AF 46 35 24 B2 4E 24 A7 46 35 24 B2 4A |35).F5$.N$.F5$.J|
000011A0: 24 3A 46 32 24 B2 4E 24 3A 46 37 24 B2 4E 24 3A |$:F2$.N$:F7$.N$:|
000011B0: 89 33 30 37 30 00 D8 19 E4 0C 8B 41 24 B2 C7 28 |.3070......A$..(|
000011C0: 31 33 35 29 AF 46 35 24 B2 4A 24 A7 46 35 24 B2 |135).F5$.J$.F5$.|
000011D0: 4E 24 3A 89 33 30 37 30 00 FB 19 EE 0C 8B 41 24 |N$:.3070......A$|
000011E0: B2 C7 28 31 33 36 29 AF 46 37 24 B2 4A 24 A7 46 |..(136).F7$.J$.F|
000011F0: 37 24 B2 4E 24 3A 89 33 30 37 30 00 2C 1A F8 0C |7$.N$:.3070.,...|
00001200: 8B 41 24 B2 C7 28 31 33 36 29 AF 46 37 24 B2 4E |.A$..(136).F7$.N|
00001210: 24 A7 46 37 24 B2 4A 24 3A 46 32 24 B2 4E 24 3A |$.F7$.J$:F2$.N$:|
00001220: 46 35 24 B2 4E 24 3A 89 33 30 37 30 00 5D 1A 02 |F5$.N$:.3070.]..|
00001230: 0D 8B 41 24 B2 C7 28 31 33 37 29 AF 46 32 24 B2 |..A$..(137).F2$.|
00001240: 4E 24 A7 46 32 24 B2 4A 24 3A 46 37 24 B2 4E 24 |N$.F2$.J$:F7$.N$|
00001250: 3A 46 35 24 B2 4E 24 3A 89 33 30 37 30 00 80 1A |:F5$.N$:.3070...|
00001260: 0C 0D 8B 41 24 B2 C7 28 31 33 37 29 AF 46 32 24 |...A$..(137).F2$|
00001270: B2 4A 24 A7 46 32 24 B2 4E 24 3A 89 33 30 37 30 |.J$.F2$.N$:.3070|
00001280: 00 95 1A 16 0D 8B 41 24 B2 C7 28 39 35 29 A7 44 |......A$..(95).D|
00001290: 52 B2 30 3A 8E 00 B5 1A 20 0D 8B 41 24 B2 C7 28 |R.0:.... ..A$..(|
000012A0: 31 33 38 29 A7 46 34 24 B2 4A 24 3A 43 B2 31 3A |138).F4$.J$:C.1:|
000012B0: 89 33 30 37 30 00 D2 1A 2A 0D 8B 41 24 B3 C7 28 |.3070...*..A$..(|
000012C0: 39 35 29 B0 41 24 B1 C7 28 31 33 37 29 A7 33 32 |95).A$..(137).32|
000012D0: 35 30 00 08 1B 34 0D 99 22 13 22 3A 81 4A B2 31 |50...4..".":.J.1|
000012E0: A4 31 39 3A 99 22 11 22 3B 3A 82 3A 99 5A 24 3B |.19:.".";:.:.Z$;|
000012F0: 5A 4B 24 3A 99 22 91 22 3B 5A 24 3B 22 4F 4B 20 |ZK$:.".";Z$;"OK |
00001300: 3F 20 28 4A 2F 4E 29 22 00 26 1B 39 0D 99 59 24 |? (J/N)".&.9..Y$|
00001310: 3B 5A 4B 24 3A 8D 31 31 30 30 30 3A 8B 41 24 B3 |;ZK$:.11000:.A$.|
00001320: B1 22 4A 22 A7 8E 00 64 1B 3E 0D 99 22 13 22 3A |."J"...d.>..".":|
00001330: 81 4A B2 31 A4 31 39 3A 99 22 11 22 3B 3A 82 3A |.J.1.19:.".";:.:|
00001340: 99 5A 24 3B 22 57 49 45 56 49 45 4C 20 5A 45 49 |.Z$;"WIEVIEL ZEI|
00001350: 4C 45 4E 20 50 52 4F 20 53 45 49 54 45 20 3F 3E |LEN PRO SEITE ?>|
00001360: 3D 31 35 22 00 9D 1B 48 0D 99 59 24 3B 5A 4B 24 |=15"...H..Y$;ZK$|
00001370: 3A 99 22 91 91 22 3B 59 24 3B 3A 8D 31 38 30 30 |:."..";Y$;:.1800|
00001380: 30 3A 44 5A B2 C5 28 4B 24 29 3A 8B 44 5A B3 31 |0:DZ..(K$):.DZ.1|
00001390: 35 B0 44 5A B1 33 30 30 A7 33 33 39 30 00 B9 1B |5.DZ.300.3390...|
000013A0: 4D 0D 8B 46 32 24 B2 4E 24 AF 46 35 24 B2 4E 24 |M..F2$.N$.F5$.N$|
000013B0: AF 46 37 24 B2 4E 24 A7 8E 00 CA 1B 52 0D 8B 46 |.F7$.N$.....R..F|
000013C0: 33 24 B2 4A 24 A7 33 35 33 30 00 DB 1B 5C 0D 8B |3$.J$.3530...\..|
000013D0: 46 33 24 B2 4E 24 A7 33 35 39 30 00 E9 1B 66 0D |F3$.N$.3590...f.|
000013E0: 8B 41 24 B2 22 5F 22 A7 8E 00 EF 1B 70 0D 8E 00 |.A$."_".....p...|
000013F0: 0E 1C 7A 0D 53 54 24 B2 22 44 41 54 55 4D 20 3F |..z.ST$."DATUM ?|
00001400: 22 3A 8D 33 35 31 30 3A 44 41 24 B2 4B 24 00 2C |":.3510:DA$.K$.,|
00001410: 1C 84 0D 53 54 24 B2 22 4E 41 4D 45 20 3F 22 3A |...ST$."NAME ?":|
00001420: 8D 33 35 31 30 3A 42 4E 24 B2 4B 24 00 51 1C 8E |.3510:BN$.K$.Q..|
00001430: 0D 53 54 24 B2 22 53 54 52 41 53 53 45 2C 4E 52 |.ST$."STRASSE,NR|
00001440: 2E 20 3F 22 3A 8D 33 35 31 30 3A 42 41 24 B2 4B |. ?":.3510:BA$.K|
00001450: 24 00 72 1C 98 0D 53 54 24 B2 22 57 4F 48 4E 4F |$.r...ST$."WOHNO|
00001460: 52 54 20 3F 22 3A 8D 33 35 31 30 3A 42 57 24 B2 |RT ?":.3510:BW$.|
00001470: 4B 24 00 93 1C A2 0D 53 54 24 B2 22 54 45 4C 45 |K$.....ST$."TELE|
00001480: 46 4F 4E 20 3F 22 3A 8D 33 35 31 30 3A 42 54 24 |FON ?":.3510:BT$|
00001490: B2 4B 24 00 99 1C AC 0D 8E 00 BA 1C B6 0D 99 22 |.K$............"|
000014A0: 13 22 3A 81 4A B2 31 A4 31 39 3A 99 22 11 22 3B |.":.J.1.19:.".";|
000014B0: 3A 82 3A 99 5A 24 3B 53 54 24 00 D7 1C BB 0D 99 |:.:.Z$;ST$......|
000014C0: 59 24 3B 5A 4B 24 3A 99 22 91 91 22 3B 59 24 3B |Y$;ZK$:."..";Y$;|
000014D0: 3A 8D 31 38 30 30 30 00 02 1D C0 0D 99 22 13 22 |:.18000......"."|
000014E0: 3A 81 4A B2 31 A4 31 39 3A 99 22 11 22 3B 3A 82 |:.J.1.19:.".";:.|
000014F0: 3A 99 5A 24 3B 5A 4B 24 3A 99 59 24 3B 5A 4B 24 |:.Z$;ZK$:.Y$;ZK$|
00001500: 3A 8E 00 19 1D CA 0D 5A 44 B2 30 3A 8B 46 33 24 |:......ZD.0:.F3$|
00001510: B2 4A 24 A7 5A 44 B2 31 35 00 3A 1D D4 0D 98 34 |.J$.ZD.15.:....4|
00001520: 2C C7 28 31 34 29 22 20 20 22 3B 42 4E 24 3A 98 |,.(14)" ";BN$:.|
00001530: 34 2C 22 20 20 22 3B 42 41 24 00 59 1D DE 0D 98 |4," ";BA$.Y....|
00001540: 34 2C 22 20 20 22 3B 42 57 24 3A 98 34 2C 22 20 |4," ";BW$:.4," |
00001550: 20 22 3B 42 54 24 3A 98 34 00 7D 1D E8 0D 98 34 | ";BT$:.4.}....4|
00001560: 2C 22 20 20 44 49 53 4B 45 54 54 45 4E 49 4E 48 |," DISKETTENINH|
00001570: 41 4C 54 20 56 4F 4D 20 22 3B 44 41 24 00 9E 1D |ALT VOM ";DA$...|
00001580: F2 0D 98 34 3A 98 34 2C 22 20 20 50 52 4F 47 52 |...4:.4," PROGR|
00001590: 41 4D 4D 45 3A 22 3B 42 3B C7 28 31 35 29 00 A5 |AMME:";B;.(15)..|
000015A0: 1D FC 0D 98 34 00 B6 1D 06 0E 8B 46 32 24 B2 4A |....4......F2$.J|
000015B0: 24 A7 33 37 36 30 00 C7 1D 0B 0E 8B 46 37 24 B2 |$.3760......F7$.|
000015C0: 4E 24 A7 33 36 31 30 00 F2 1D 10 0E 51 53 24 B2 |N$.3610.....QS$.|
000015D0: 22 50 52 47 2E 4E 41 4D 45 20 20 20 20 20 20 20 |"PRG.NAME |
000015E0: 20 4B 42 2E 20 50 52 45 49 53 20 22 3A 89 33 36 | KB. PREIS ":.36|
000015F0: 32 30 00 17 1E 1A 0E 51 53 24 B2 22 50 52 47 2E |20.....QS$."PRG.|
00001600: 4E 41 4D 45 20 20 20 20 20 20 20 20 20 49 44 20 |NAME ID |
00001610: 42 4C 2E 20 20 20 22 00 2A 1E 24 0E 5A 44 24 B2 |BL. ".*.$.ZD$.|
00001620: 22 20 20 22 3A 89 33 36 34 30 00 3A 1E 38 0E 44 |" ":.3640.:.8.D|
00001630: 44 B2 B5 28 42 AD 33 29 AA 31 00 42 1E 42 0E 53 |D..(B.3).1.B.B.S|
00001640: B2 31 00 67 1E 4C 0E 42 24 28 42 AA 31 29 B2 22 |.1.g.L.B$(B.1)."|
00001650: 22 3A 42 24 28 42 AA 32 29 B2 22 22 3A 42 24 28 |":B$(B.2)."":B$(|
00001660: 42 AA 33 29 B2 22 22 00 87 1E 56 0E 98 34 2C C8 |B.3).""...V..4,.|
00001670: 28 22 20 20 20 20 22 AA 51 53 24 AA 51 53 24 AA |(" ".QS$.QS$.|
00001680: 51 53 24 2C 37 38 29 00 AE 1E 60 0E 98 34 2C 22 |QS$,78)...`..4,"|
00001690: 20 20 20 20 22 3B 3A 81 54 B2 31 A4 37 34 3A 98 | ";:.T.1.74:.|
000016A0: 34 2C C7 28 31 30 31 29 3B 3A 82 3A 98 34 00 BB |4,.(101);:.:.4..|
000016B0: 1E 6A 0E 81 20 54 B2 31 A4 44 44 00 EF 1E 74 0E |.j.. T.1.DD...t.|
000016C0: 98 34 2C 22 20 20 20 20 22 3B 42 24 28 53 29 3B |.4," ";B$(S);|
000016D0: 22 20 20 20 22 3B 42 24 28 53 AA 44 44 29 3B 22 |" ";B$(S.DD);"|
000016E0: 20 20 20 22 3B 42 24 28 53 AA 32 AC 44 44 29 00 | ";B$(S.2.DD).|
000016F0: FB 1E 7E 0E 5A 44 B2 5A 44 AA 31 00 17 1F 88 0E |..~.ZD.ZD.1.....|
00001700: 53 B2 53 AA 31 3A 8B 5A 44 B2 44 5A A7 5A 44 B2 |S.S.1:.ZD.DZ.ZD.|
00001710: 30 3A 8D 33 37 34 30 00 1F 1F 92 0E 82 3A 8E 00 |0:.3740......:..|
00001720: 3D 1F 9C 0E 99 22 13 22 3A 81 4A B2 31 A4 31 39 |=....".":.J.1.19|
00001730: 3A 99 22 11 22 3B 3A 82 3A 99 5A 24 3B 00 7F 1F |:.".";:.:.Z$;...|
00001740: A6 0E 99 22 44 52 55 43 4B 45 52 50 41 50 49 45 |..."DRUCKERPAPIE|
00001750: 52 20 4A 55 53 54 49 45 52 45 4E 20 3F 20 22 3A |R JUSTIEREN ? ":|
00001760: 99 59 24 3B 22 54 41 53 54 45 20 44 52 55 45 43 |.Y$;"TASTE DRUEC|
00001770: 4B 45 4E 20 22 3B 3A 8D 31 31 30 30 30 3A 8E 00 |KEN ";:.11000:..|
00001780: B4 1F B0 0E 46 B2 32 3A 99 22 13 22 3A 81 49 B2 |....F.2:.".":.I.|
00001790: 31 A4 31 39 3A 99 22 11 22 3B 3A 82 3A 99 5A 24 |1.19:.".";:.:.Z$|
000017A0: 3B 5A 4B 24 3A 99 59 24 3B 5A 4B 24 3A 99 22 91 |;ZK$:.Y$;ZK$:.".|
000017B0: 91 91 91 22 00 DD 1F B5 0E 99 5A 24 3B 22 49 44 |..."......Z$;"ID|
000017C0: 2E 43 4F 44 45 20 45 49 4E 47 45 42 45 4E 20 21 |.CODE EINGEBEN !|
000017D0: 22 3A 99 59 24 3B 3A 8D 31 38 30 30 30 00 F2 1F |":.Y$;:.18000...|
000017E0: BA 0E 8B C9 28 4B 24 2C 31 29 B2 22 2A 22 A7 46 |....(K$,1)."*".F|
000017F0: B2 31 00 05 20 C4 0E 4B 24 B2 C8 28 4B 24 AA 5A |.1.. ..K$..(K$.Z|
00001800: 4B 24 2C 46 29 00 22 20 CE 0E 81 49 B2 31 A4 42 |K$,F)." ...I.1.B|
00001810: 3A 8B 5A 44 B2 44 5A A7 5A 44 B2 30 3A 8D 33 37 |:.ZD.DZ.ZD.0:.37|
00001820: 34 30 00 50 20 D8 0E 8B CA 28 42 24 28 49 29 2C |40.P ....(B$(I),|
00001830: 31 38 2C 46 29 B2 4B 24 A7 98 34 2C 22 20 20 20 |18,F).K$..4," |
00001840: 20 22 3B 42 24 28 49 29 3A 5A 44 B2 5A 44 AA 31 | ";B$(I):ZD.ZD.1|
00001850: 00 59 20 E2 0E 82 3A 98 34 00 5F 20 EC 0E 8E 00 |.Y ...:.4._ ....|
00001860: 65 20 A0 0F 8F 00 82 20 AA 0F 8F 20 2A 2A 2A 20 |e ..... ... *** |
00001870: 53 4F 52 54 49 45 52 52 4F 55 54 49 4E 45 20 2A |SORTIERROUTINE *|
00001880: 2A 2A 00 88 20 B4 0F 8F 00 C1 20 BE 0F 99 56 24 |**.. ..... ...V$|
00001890: 3B 22 53 4F 52 54 49 45 52 2D 52 4F 55 54 49 4E |;"SORTIER-ROUTIN|
000018A0: 45 20 4C 41 45 55 46 54 21 22 3A 42 24 28 42 AA |E LAEUFT!":B$(B.|
000018B0: 31 29 B2 22 5A 5A 5A 5A 5A 5A 5A 5A 22 3A 46 B2 |1)."ZZZZZZZZ":F.|
000018C0: 30 00 EB 20 C3 0F 99 58 24 3B 22 41 4C 50 48 41 |0.. ...X$;"ALPHA|
000018D0: 42 45 54 49 53 43 48 20 4F 44 45 52 20 4E 41 43 |BETISCH ODER NAC|
000018E0: 48 20 49 44 2E 4E 52 2E 20 3F 22 00 14 21 C8 0F |H ID.NR. ?"..!..|
000018F0: 99 58 24 3B 22 28 41 2F 49 29 22 3A 99 58 24 3B |.X$;"(A/I)":.X$;|
00001900: 5A 4D 24 3A 8D 31 31 30 30 30 3A 8B 41 24 B2 22 |ZM$:.11000:.A$."|
00001910: 5F 22 A7 8E 00 24 21 D7 0F 8B 41 24 B2 22 49 22 |_"...$!...A$."I"|
00001920: A7 46 B2 31 00 2F 21 DC 0F 81 43 B2 31 A4 42 00 |.F.1./!...C.1.B.|
00001930: 5C 21 E6 0F 4A B2 43 AA 31 3A 99 58 24 3B 22 45 |\!..J.C.1:.X$;"E|
00001940: 4C 45 4D 45 4E 54 20 20 20 20 20 20 20 9D 9D 9D |LEMENT ...|
00001950: 9D 22 3B 4A AB 31 3B 22 91 91 91 22 00 67 21 F0 |.";J.1;"...".g!.|
00001960: 0F 81 44 B2 4A A4 42 00 8B 21 FA 0F 8B 46 B2 31 |..D.J.B..!...F.1|
00001970: AF C9 28 42 24 28 43 29 2C 36 29 B1 C9 28 42 24 |..(B$(C),6)..(B$|
00001980: 28 44 29 2C 36 29 A7 34 31 32 30 00 A1 21 04 10 |(D),6).4120..!..|
00001990: 8B 42 24 28 43 29 B1 42 24 28 44 29 A7 34 31 32 |.B$(C).B$(D).412|
000019A0: 30 00 AB 21 0E 10 89 34 31 33 30 00 D3 21 18 10 |0..!...4130..!..|
000019B0: 43 24 28 30 29 B2 42 24 28 43 29 3A 42 24 28 43 |C$(0).B$(C):B$(C|
000019C0: 29 B2 42 24 28 44 29 3A 42 24 28 44 29 B2 43 24 |).B$(D):B$(D).C$|
000019D0: 28 30 29 00 D9 21 22 10 82 00 DF 21 2C 10 82 00 |(0)..!"....!,...|
000019E0: 0C 22 36 10 99 56 24 3B 22 44 4F 50 50 45 4C 54 |."6..V$;"DOPPELT|
000019F0: 45 20 44 41 54 45 4E 20 41 55 53 53 4F 52 54 49 |E DATEN AUSSORTI|
00001A00: 45 52 45 4E 20 28 4A 2F 4E 29 20 22 00 17 22 40 |EREN (J/N) ".."@|
00001A10: 10 8D 31 31 30 30 30 00 28 22 4A 10 8B 41 24 B2 |..11000.("J..A$.|
00001A20: 22 4A 22 A7 34 31 39 30 00 2E 22 54 10 8E 00 51 |"J".4190.."T...Q|
00001A30: 22 5E 10 99 56 24 3B 22 45 53 20 57 49 52 44 20 |"^..V$;"ES WIRD |
00001A40: 41 55 53 53 4F 52 54 49 45 52 54 20 22 3A 4A B2 |AUSSORTIERT ":J.|
00001A50: 31 00 8B 22 68 10 99 58 24 3B 22 57 49 45 56 49 |1.."h..X$;"WIEVI|
00001A60: 45 4C 45 20 5A 45 49 43 48 45 4E 20 42 45 52 55 |ELE ZEICHEN BERU|
00001A70: 45 43 4B 53 49 43 48 54 49 47 45 4E 20 3F 22 3A |ECKSICHTIGEN ?":|
00001A80: 99 58 24 3B 3A 8D 31 38 30 30 30 00 AA 22 72 10 |.X$;:.18000.."r.|
00001A90: 53 53 B2 C5 28 4B 24 29 3A 8B 53 53 B2 30 B0 53 |SS..(K$):.SS.0.S|
00001AA0: 53 B1 32 35 A7 53 53 B2 32 35 00 CE 22 7C 10 8B |S.25.SS.25.."|..|
00001AB0: C8 28 42 24 28 4A 29 2C 53 53 29 B2 C8 28 42 24 |.(B$(J),SS)..(B$|
00001AC0: 28 4A AA 31 29 2C 53 53 29 A7 34 32 37 30 00 D8 |(J.1),SS).4270..|
00001AD0: 22 86 10 4A B2 4A AA 31 00 E9 22 90 10 8B 4A B3 |"..J.J.1.."...J.|
00001AE0: B2 42 AB 31 A7 34 32 32 30 00 04 23 9A 10 81 49 |.B.1.4220..#...I|
00001AF0: B2 42 AA 31 A4 42 AA 31 30 3A 42 24 28 49 29 B2 |.B.1.B.10:B$(I).|
00001B00: 22 22 3A 82 00 0A 23 A4 10 8E 00 15 23 AE 10 81 |"":...#.....#...|
00001B10: 49 B2 4A A4 42 00 27 23 B8 10 42 24 28 49 29 B2 |I.J.B.'#..B$(I).|
00001B20: 42 24 28 49 AA 31 29 00 2D 23 C2 10 82 00 43 23 |B$(I.1).-#....C#|
00001B30: CC 10 4A B2 4A AB 31 3A 42 B2 42 AB 31 3A 89 34 |..J.J.1:B.B.1:.4|
00001B40: 32 33 30 00 49 23 D6 10 8E 00 4F 23 88 13 8F 00 |230.I#....O#....|
00001B50: 72 23 92 13 8F 20 2A 2A 2A 20 44 41 54 45 4E 20 |r#... *** DATEN |
00001B60: 46 49 4C 45 20 53 50 45 49 43 48 45 52 4E 20 2A |FILE SPEICHERN *|
00001B70: 2A 2A 00 78 23 9C 13 8F 00 9C 23 A6 13 99 56 24 |**.x#.....#...V$|
00001B80: 3B 22 44 41 54 45 4E 20 57 45 52 44 45 4E 20 47 |;"DATEN WERDEN G|
00001B90: 45 53 50 45 49 43 48 45 52 54 20 22 00 D2 23 B0 |ESPEICHERT "..#.|
00001BA0: 13 8D 31 37 30 30 30 3A 49 B2 30 3A 99 58 24 3B |..17000:I.0:.X$;|
00001BB0: 22 53 49 43 48 45 52 20 3F 20 28 4A 2F 4E 29 22 |"SICHER ? (J/N)"|
00001BC0: 3A 8D 31 31 30 30 30 3A 8B 41 24 B3 B1 22 4A 22 |:.11000:.A$.."J"|
00001BD0: A7 8E 00 E8 23 BA 13 9F 32 2C 38 2C 32 2C 46 49 |....#...2,8,2,FI|
00001BE0: 24 AA 22 2C 53 2C 57 22 00 0C 24 C4 13 8D 31 36 |$.",S,W"..$...16|
00001BF0: 30 30 30 3A 99 58 24 3B 4B 24 3A 8B 54 B3 B1 30 |000:.X$;K$:.T..0|
00001C00: A7 A0 32 3A 8D 31 30 30 30 30 3A 8E 00 15 24 CE |..2:.10000:...$.|
00001C10: 13 98 32 2C 42 00 34 24 D8 13 8B 47 B2 31 A7 81 |..2,B.4$...G.1..|
00001C20: 49 B2 31 A4 5A 3A 98 32 2C 42 24 28 49 29 3A 89 |I.1.Z:.2,B$(I):.|
00001C30: 35 31 30 30 00 48 24 E2 13 81 49 B2 31 A4 42 3A |5100.H$...I.1.B:|
00001C40: 98 32 2C 42 24 28 49 29 00 4E 24 EC 13 82 00 55 |.2,B$(I).N$....U|
00001C50: 24 F6 13 A0 32 00 5B 24 00 14 8E 00 61 24 70 17 |$...2.[$....a$p.|
00001C60: 8F 00 83 24 7A 17 8F 20 2A 2A 2A 20 44 41 54 45 |...$z.. *** DATE|
00001C70: 4E 2D 46 49 4C 45 20 45 49 4E 4C 45 53 45 4E 20 |N-FILE EINLESEN |
00001C80: 2A 2A 2A 00 89 24 84 17 8F 00 B1 24 8E 17 99 56 |***..$.....$...V|
00001C90: 24 3B 22 44 41 54 45 4E 20 57 45 52 44 45 4E 20 |$;"DATEN WERDEN |
00001CA0: 47 45 4C 45 53 45 4E 20 22 3A 99 58 24 3B 5A 4D |GELESEN ":.X$;ZM|
00001CB0: 24 00 C6 24 98 17 8D 31 37 30 30 30 3A 8B 4B 24 |$..$...17000:.K$|
00001CC0: B2 22 5F 22 A7 8E 00 F2 24 A2 17 99 58 24 3B 22 |."_"....$...X$;"|
00001CD0: 44 41 54 45 4E 20 46 49 4C 45 20 22 3B 46 49 24 |DATEN FILE ";FI$|
00001CE0: 22 20 45 49 4E 4C 45 53 45 4E 20 28 4A 2F 4E 29 |" EINLESEN (J/N)|
00001CF0: 20 22 00 FD 24 AC 17 8D 31 31 30 30 30 00 0C 25 | "..$...11000..%|
00001D00: B6 17 8B 41 24 B3 B1 22 4A 22 A7 8E 00 2C 25 C0 |...A$.."J"...,%.|
00001D10: 17 9F 32 2C 38 2C 32 2C 46 49 24 AA 22 2C 53 2C |..2,8,2,FI$.",S,|
00001D20: 52 22 3A 99 22 11 11 1D 1D 1D 22 3B 00 55 25 CA |R":.".....";.U%.|
00001D30: 17 8D 31 36 30 30 30 3A 99 22 20 12 22 4B 24 22 |..16000:." ."K$"|
00001D40: 11 11 22 3A 8B 54 B3 B1 30 A7 8D 31 30 30 30 30 |..":.T..0..10000|
00001D50: 3A A0 32 3A 8E 00 5E 25 D4 17 84 32 2C 42 00 6F |:.2:..^%...2,B.o|
00001D60: 25 DE 17 81 49 B2 46 4A AA 31 A4 42 AA 46 4A 00 |%...I.FJ.1.B.FJ.|
00001D70: 8A 25 E8 17 84 32 2C 42 24 28 49 29 3A 82 3A A0 |.%...2,B$(I):.:.|
00001D80: 32 3A 42 B2 42 AA 46 4A 3A 8E 00 A8 25 9C 18 99 |2:B.B.FJ:...%...|
00001D90: 56 24 3B 22 44 49 53 4B 20 4F 50 45 52 41 54 49 |V$;"DISK OPERATI|
00001DA0: 4F 4E 20 4D 4F 44 45 22 00 D2 25 A6 18 99 58 24 |ON MODE"..%...X$|
00001DB0: 3B 22 44 49 53 4B 45 54 54 45 4E 42 45 46 45 48 |;"DISKETTENBEFEH|
00001DC0: 4C 45 20 53 2C 20 56 2C 20 4E 2C 20 52 2C 20 49 |LE S, V, N, R, I|
00001DD0: 20 22 00 0D 26 B0 18 99 58 24 3B 22 42 45 46 45 | "..&...X$;"BEFE|
00001DE0: 48 4C 20 3F 22 3B 3A 8D 31 38 30 30 30 3A 46 49 |HL ?";:.18000:FI|
00001DF0: 24 B2 4B 24 3A 99 58 24 3B 22 41 55 53 46 55 45 |$.K$:.X$;"AUSFUE|
00001E00: 48 52 45 4E 20 28 4A 2F 4E 29 20 3F 22 00 18 26 |HREN (J/N) ?"..&|
00001E10: B5 18 8D 31 31 30 30 30 00 26 26 BA 18 8B 41 24 |...11000.&&...A$|
00001E20: B2 22 5F 22 A7 8E 00 62 26 C4 18 8B 41 24 B2 22 |."_"...b&...A$."|
00001E30: 4A 22 A7 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C |J"..15,8,15:.15,|
00001E40: 46 49 24 3A A0 31 35 3A 8D 31 36 30 30 30 3A 8B |FI$:.15:.16000:.|
00001E50: 54 B3 B1 30 A7 99 58 24 3B 4B 24 3A 8D 31 30 30 |T..0..X$;K$:.100|
00001E60: 30 30 00 6D 26 C9 18 8B 54 B2 30 A7 8E 00 7F 26 |00.m&...T.0....&|
00001E70: CE 18 99 22 13 22 3B 58 24 3A 89 36 33 31 30 00 |...".";X$:.6310.|
00001E80: 85 26 58 1B 8F 00 9A 26 62 1B 8F 20 2A 2A 2A 20 |.&X....&b.. *** |
00001E90: 45 44 49 54 4F 52 20 2A 2A 2A 00 A0 26 6C 1B 8F |EDITOR ***..&l..|
00001EA0: 00 AD 26 76 1B 97 36 35 30 2C 31 32 38 00 D8 26 |..&v..650,128..&|
00001EB0: 80 1B 99 53 24 3B 22 93 1D 1D 1D 1D 1D 12 20 40 |...S$;"....... @|
00001EC0: 20 92 20 20 3A 20 20 45 4C 45 4D 45 4E 54 20 4C | . : ELEMENT L|
00001ED0: 4F 45 53 43 48 45 4E 22 00 FB 26 8A 1B 99 53 24 |OESCHEN"..&...S$|
00001EE0: 3B 22 12 20 5C 20 92 20 20 3A 20 20 45 4C 45 4D |;". \ . : ELEM|
00001EF0: 45 4E 54 20 53 55 43 48 45 4E 22 00 22 27 94 1B |ENT SUCHEN"."'..|
00001F00: 99 53 24 3B 22 12 20 2A 20 92 20 20 3A 20 20 45 |.S$;". * . : E|
00001F10: 4C 45 4D 45 4E 54 20 56 45 52 42 45 53 53 45 52 |LEMENT VERBESSER|
00001F20: 4E 22 00 41 27 9E 1B 99 53 24 3B 22 12 20 5F 20 |N".A'...S$;". _ |
00001F30: 92 20 20 3A 20 20 22 3B C9 28 5A 4D 24 2C 31 33 |. : ";.(ZM$,13|
00001F40: 29 00 66 27 A8 1B 99 53 24 3B 22 12 20 50 20 92 |).f'...S$;". P .|
00001F50: 20 20 3A 20 20 45 4C 45 4D 45 4E 54 20 44 52 55 | : ELEMENT DRU|
00001F60: 43 4B 45 4E 20 22 00 8A 27 B2 1B 99 53 24 3B 22 |CKEN "..'...S$;"|
00001F70: 12 20 20 20 92 20 20 3A 20 20 45 49 4E 20 45 4C |. . : EIN EL|
00001F80: 45 4D 45 4E 54 20 56 4F 52 22 00 AF 27 BC 1B 99 |EMENT VOR"..'...|
00001F90: 53 24 3B 22 12 20 46 31 92 20 20 3A 20 20 32 30 |S$;". F1. : 20|
00001FA0: 20 45 4C 45 4D 45 4E 54 45 20 56 4F 52 20 22 00 | ELEMENTE VOR ".|
00001FB0: D7 27 C6 1B 99 53 24 3B 22 12 20 46 33 92 20 20 |.'...S$;". F3. |
00001FC0: 3A 20 20 32 30 20 45 4C 45 4D 45 4E 54 45 20 5A |: 20 ELEMENTE Z|
00001FD0: 55 52 55 45 43 4B 22 00 FF 27 D0 1B 99 53 24 3B |URUECK"..'...S$;|
00001FE0: 22 12 20 5E 20 92 20 20 3A 20 20 45 49 4E 20 45 |". ^ . : EIN E|
00001FF0: 4C 45 4D 45 4E 54 20 5A 55 52 55 45 43 4B 22 00 |LEMENT ZURUECK".|
00002000: 26 28 DA 1B 99 53 24 3B 22 12 20 24 20 92 20 20 |&(...S$;". $ . |
00002010: 3A 20 20 44 4D 2D 4C 49 53 54 45 20 45 52 53 54 |: DM-LISTE ERST|
00002020: 45 4C 4C 45 4E 22 00 55 28 DF 1B 99 53 24 3B 22 |ELLEN".U(...S$;"|
00002030: 12 20 2B 20 92 20 20 3A 20 20 45 4C 45 4D 45 4E |. + . : ELEMEN|
00002040: 54 20 45 49 4E 46 55 45 47 45 4E 11 11 20 22 3A |T EINFUEGEN.. ":|
00002050: 99 22 91 91 22 00 60 28 E4 1B 81 49 B2 31 A4 42 |."..".`(...I.1.B|
00002060: 00 85 28 EE 1B 99 22 91 1D 1D 1D 22 3B 5A 4B 24 |..(..."....";ZK$|
00002070: 22 11 22 20 20 3A 20 99 22 1D 1D 1D 20 20 22 3B |"." : ."... ";|
00002080: 42 24 28 49 29 00 90 28 F8 1B 8D 31 31 30 30 30 |B$(I)..(...11000|
00002090: 00 AD 28 02 1C 8B 42 24 28 31 29 B2 22 22 AF 42 |..(...B$(1)."".B|
000020A0: B1 31 A7 41 24 B2 22 40 22 3A 49 B2 31 00 D5 28 |.1.A$."@":I.1..(|
000020B0: 0C 1C 8B 41 24 B2 22 40 22 AF 42 B1 31 A7 42 24 |...A$."@".B.1.B$|
000020C0: 28 49 29 B2 42 24 28 42 29 3A 42 B2 42 AB 31 3A |(I).B$(B):B.B.1:|
000020D0: 41 24 B2 22 22 00 F2 28 16 1C 8B 41 24 B2 C7 28 |A$.""..(...A$..(|
000020E0: 31 33 33 29 AF 49 AA 32 30 B3 42 A7 49 B2 49 AA |133).I.20.B.I.I.|
000020F0: 32 30 00 0F 29 20 1C 8B 41 24 B2 C7 28 31 33 34 |20..) ..A$..(134|
00002100: 29 AF 49 AB 32 30 B1 30 A7 49 B2 49 AB 32 30 00 |).I.20.0.I.I.20.|
00002110: 47 29 2A 1C 8B 41 24 B2 22 2A 22 A7 99 22 91 91 |G)*..A$."*".."..|
00002120: 1D 1D 1D 1D 1D 22 3B 22 12 4B 4F 52 52 45 4B 54 |.....";".KORREKT|
00002130: 55 52 45 4C 45 4D 45 4E 54 22 3A 85 22 1D 1D 1D |URELEMENT":."...|
00002140: 22 3B 42 24 28 49 29 00 76 29 34 1C 8B 41 24 B2 |";B$(I).v)4..A$.|
00002150: 22 2A 22 A7 99 22 91 91 22 3B 5A 4B 24 3A 99 3A |"*".."..";ZK$:.:|
00002160: 8B 42 24 28 49 29 B2 22 22 A7 42 24 28 49 29 B2 |.B$(I)."".B$(I).|
00002170: 22 5A 5A 5A 5A 22 00 8E 29 39 1C 8B 41 24 B2 22 |"ZZZZ"..)9..A$."|
00002180: 24 22 A7 8D 37 35 30 30 3A 89 37 30 30 30 00 A9 |$"..7500:.7000..|
00002190: 29 3E 1C 8B 41 24 B2 22 5F 22 A7 41 24 B2 22 22 |)>..A$."_".A$.""|
000021A0: 3A 97 36 35 30 2C 30 3A 8E 00 C8 29 48 1C 8B 20 |:.650,0:...)H.. |
000021B0: 41 24 B2 22 5E 22 A7 20 49 B2 49 AB 32 3A 8B 49 |A$."^". I.I.2:.I|
000021C0: B3 31 A7 49 B2 42 AB 31 00 0C 2A 52 1C 8B 41 24 |.1.I.B.1..*R..A$|
000021D0: B2 22 2B 22 A7 42 B2 42 AA 31 3A 99 22 12 91 91 |."+".B.B.1:."...|
000021E0: 1D 1D 1D 1D 1D 4E 45 55 45 53 20 45 4C 45 4D 45 |.....NEUES ELEME|
000021F0: 4E 54 22 3A 85 22 1D 1D 1D 22 3B 42 24 28 42 29 |NT":."...";B$(B)|
00002200: 3A 99 22 91 91 22 3B 5A 4B 24 3A 99 00 28 2A 5C |:."..";ZK$:..(*\|
00002210: 1C 8B 41 24 B2 22 50 22 A7 98 34 2C 22 20 20 20 |..A$."P"..4," |
00002220: 20 22 3B 42 24 28 49 29 00 70 2A 66 1C 8B 41 24 | ";B$(I).p*f..A$|
00002230: B2 22 5C 22 A7 99 56 24 3B 22 4E 41 43 48 20 57 |."\"..V$;"NACH W|
00002240: 45 4C 43 48 45 4D 20 45 4C 45 4D 45 4E 54 20 53 |ELCHEM ELEMENT S|
00002250: 55 43 48 45 4E 20 3F 22 3A 99 58 24 3B 3A 8D 31 |UCHEN ?":.X$;:.1|
00002260: 38 30 30 30 3A 8D 37 33 31 30 3A 89 37 30 30 30 |8000:.7310:.7000|
00002270: 00 91 2A 70 1C 8B C8 28 42 24 28 42 29 2C 34 29 |..*p...(B$(B),4)|
00002280: B2 22 5A 5A 5A 5A 22 AF 49 B1 31 A7 42 B2 42 AB |."ZZZZ".I.1.B.B.|
00002290: 31 00 AB 2A 7A 1C 99 22 91 91 91 1D 1D 1D 22 3B |1..*z.."......";|
000022A0: 5A 4B 24 3A 82 3A 89 37 31 34 30 00 B1 2A 84 1C |ZK$:.:.7140..*..|
000022B0: 8E 00 BE 2A 8E 1C 8B 4B 24 B2 22 22 A7 8E 00 D7 |...*...K$.""....|
000022C0: 2A 98 1C 46 B2 30 3A 8B C9 28 4B 24 2C 31 29 B2 |*..F.0:..(K$,1).|
000022D0: 22 2A 22 A7 46 B2 31 00 F5 2A A2 1C 51 B2 C3 28 |"*".F.1..*..Q..(|
000022E0: 4B 24 29 AB 46 3A 51 24 B2 C8 28 4B 24 2C 51 29 |K$).F:Q$..(K$,Q)|
000022F0: 3A 45 5A B2 30 00 22 2B AC 1C 45 45 24 B2 22 20 |:EZ.0."+..EE$." |
00002300: 4B 45 49 4E 20 57 45 49 54 45 52 45 53 22 3A 45 |KEIN WEITERES":E|
00002310: 59 24 B2 22 20 56 4F 52 48 41 4E 44 45 4E 20 22 |Y$." VORHANDEN "|
00002320: 3A 99 00 2D 2B B6 1C 81 4B B2 31 A4 42 00 4E 2B |:..-+...K.1.B.N+|
00002330: C0 1C 8B C8 28 42 24 28 4B 29 2C 51 29 B2 51 24 |....(B$(K),Q).Q$|
00002340: A7 45 5A B2 31 3A 53 45 B2 31 3A 52 B2 31 00 5A |.EZ.1:SE.1:R.1.Z|
00002350: 2B CA 1C 8B 53 45 B2 30 A7 82 00 7D 2B D4 1C 8B |+...SE.0...}+...|
00002360: 53 45 B2 31 A7 99 22 1D 1D 1D 1D 1D 1D 1D 1D 22 |SE.1.."........"|
00002370: 3B 42 24 28 4B 29 3A 53 45 B2 30 3A 82 00 9B 2B |;B$(K):SE.0:...+|
00002380: DE 1C 8B 45 5A B2 30 A7 99 22 1D 1D 11 12 22 3B |...EZ.0.."....";|
00002390: 45 5A 24 AA 45 58 24 AA 45 59 24 00 C8 2B E8 1C |EZ$.EX$.EY$..+..|
000023A0: 8B 45 5A B2 31 A7 99 22 11 11 22 3A 99 22 1D 1D |.EZ.1.."..":."..|
000023B0: 12 22 3B 45 45 24 AA 45 5A 24 AA 45 59 24 3A 99 |.";EE$.EZ$.EY$:.|
000023C0: 22 1D 1D 22 3B 57 53 24 00 DB 2B F2 1C 99 58 24 |"..";WS$..+...X$|
000023D0: 3B 5A 4D 24 3A 8D 31 31 30 30 30 00 E1 2B FC 1C |;ZM$:.11000..+..|
000023E0: 8E 00 1E 2C 4C 1D 99 22 93 11 11 1D 1D 12 20 44 |...,L.."...... D|
000023F0: 4D 2D 4C 49 53 54 45 4E 45 52 53 54 45 4C 4C 55 |M-LISTENERSTELLU|
00002400: 4E 47 20 92 11 11 22 3A 99 22 11 11 22 3B 58 24 |NG ...":."..";X$|
00002410: 3B 5A 4D 24 3A 99 22 13 11 11 11 11 11 22 00 44 |;ZM$:."......".D|
00002420: 2C 56 1D 81 4A B2 49 A4 42 3A 99 22 20 20 22 3B |,V..J.I.B:." ";|
00002430: 3A 43 24 B2 C8 28 42 24 28 4A 29 2C 31 37 29 3A |:C$..(B$(J),17):|
00002440: 99 43 24 3B 00 72 2C 60 1D 46 24 B2 C9 28 5A 4B |.C$;.r,`.F$..(ZK|
00002450: 24 AA C4 28 B5 28 C5 28 C9 28 42 24 28 4A 29 2C |$..(.(.(.(B$(J),|
00002460: 33 29 29 AD 34 AA 2E 35 29 29 2C 32 29 3A 99 46 |3)).4..5)),2):.F|
00002470: 24 3B 00 93 2C 6A 1D 99 22 20 30 30 30 9D 9D 9D |$;..,j.." 000...|
00002480: 22 3B 3A 8D 31 38 30 30 30 3A 8B 4B 24 B2 22 5F |";:.18000:.K$."_|
00002490: 22 A7 8E 00 B3 2C 74 1D 42 24 28 4A 29 B2 43 24 |"....,t.B$(J).C$|
000024A0: AA 46 24 AA 22 20 22 AA C8 28 4B 24 AA 5A 4B 24 |.F$." "..(K$.ZK$|
000024B0: 2C 33 29 00 C1 2C 7E 1D 99 22 91 22 3B 3A 82 3A |,3)..,~..".";:.:|
000024C0: 8E 00 C7 2C 40 1F 8F 00 E8 2C 4A 1F 8F 20 2A 2A |...,@....,J.. **|
000024D0: 2A 20 42 49 4C 44 53 43 48 49 52 4D 2D 41 55 53 |* BILDSCHIRM-AUS|
000024E0: 47 41 42 45 20 2A 2A 2A 00 EE 2C 54 1F 8F 00 3B |GABE ***..,T...;|
000024F0: 2D 5E 1F 99 56 24 3B 22 49 4E 48 41 4C 54 20 45 |-^..V$;"INHALT E|
00002500: 49 4E 45 52 20 44 49 53 4B 20 4C 49 53 54 45 4E |INER DISK LISTEN|
00002510: 20 22 3A 99 58 24 3B 22 4F 44 45 52 20 41 4C 4C | ":.X$;"ODER ALL|
00002520: 45 20 44 49 53 4B 20 44 41 54 45 4E 20 4C 49 53 |E DISK DATEN LIS|
00002530: 54 45 4E 20 28 45 2F 41 29 20 22 00 46 2D 68 1F |TEN (E/A) ".F-h.|
00002540: 8D 31 31 30 30 30 00 58 2D 72 1F 3A 8B 41 24 B2 |.11000.X-r.:.A$.|
00002550: 22 45 22 A7 38 31 32 30 00 6A 2D 7C 1F 99 56 24 |"E".8120.j-|..V$|
00002560: 3B 5A 4D 24 3A 99 3A 5A B2 31 00 7B 2D 86 1F 81 |;ZM$:.:Z.1.{-...|
00002570: 49 B2 31 A4 42 3A 5A B2 5A AA 31 00 A5 2D 90 1F |I.1.B:Z.Z.1..-..|
00002580: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 42 24 28 49 |."........";B$(I|
00002590: 29 3A 8B C2 28 36 33 31 29 B2 39 35 A7 97 31 39 |):..(631).95..19|
000025A0: 38 2C 30 3A 8E 00 C1 2D 9A 1F 8B 5A B2 32 33 A7 |8,0:...-...Z.23.|
000025B0: 8D 31 31 30 30 30 3A 5A B2 31 3A 8B 48 B2 31 A7 |.11000:Z.1:.H.1.|
000025C0: 8E 00 CE 2D A4 1F 82 3A 8D 31 30 30 30 30 00 D4 |...-...:.10000..|
000025D0: 2D AE 1F 8E 00 10 2E B8 1F 99 56 24 3B 22 57 45 |-.........V$;"WE|
000025E0: 4C 43 48 45 20 44 49 53 4B 20 4C 49 53 54 45 4E |LCHE DISK LISTEN|
000025F0: 20 22 3A 99 58 24 3B 22 49 44 2E 4E 52 20 45 49 | ":.X$;"ID.NR EI|
00002600: 4E 47 45 42 45 4E 20 22 3B 3A 8D 31 38 30 30 30 |NGEBEN ";:.18000|
00002610: 00 3F 2E C2 1F 81 49 B2 31 A4 42 3A 8B 4B 24 B2 |.?....I.1.B:.K$.|
00002620: CA 28 42 24 28 49 29 2C 31 38 2C 32 29 A7 99 22 |.(B$(I),18,2).."|
00002630: 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 42 24 28 49 29 00 |........";B$(I).|
00002640: 45 2E CC 1F 82 00 50 2E D6 1F 8D 31 30 30 30 30 |E.....P....10000|
00002650: 00 8B 2E E0 1F 99 58 24 3B 22 4E 4F 43 48 20 45 |......X$;"NOCH E|
00002660: 49 4E 45 20 44 49 53 4B 20 4C 49 53 54 45 4E 20 |INE DISK LISTEN |
00002670: 28 4A 2F 4E 29 20 22 3A 8D 31 31 30 30 30 3A 8B |(J/N) ":.11000:.|
00002680: 41 24 B2 22 4A 22 A7 38 31 32 30 00 91 2E EA 1F |A$."J".8120.....|
00002690: 8E 00 97 2E 08 20 8F 00 C8 2E 12 20 8F 20 2A 2A |..... ..... . **|
000026A0: 2A 20 4C 49 53 54 45 4E 20 4E 41 43 48 20 49 44 |* LISTEN NACH ID|
000026B0: 20 4B 52 49 54 45 52 49 55 4D 20 45 52 53 54 45 | KRITERIUM ERSTE|
000026C0: 4C 4C 45 4E 20 2A 2A 2A 00 CE 2E 1C 20 8F 00 04 |LLEN ***.... ...|
000026D0: 2F 26 20 99 56 24 3B 22 4C 49 53 54 45 4E 20 4E |/& .V$;"LISTEN N|
000026E0: 41 43 48 20 49 44 20 4B 52 49 54 45 52 49 55 4D |ACH ID KRITERIUM|
000026F0: 20 45 52 53 54 45 4C 4C 45 4E 20 22 3A 99 58 24 | ERSTELLEN ":.X$|
00002700: 3B 5A 4D 24 00 41 2F 30 20 99 58 24 3B 22 4E 41 |;ZM$.A/0 .X$;"NA|
00002710: 43 48 20 57 45 4C 43 48 45 4D 20 4B 52 49 54 45 |CH WELCHEM KRITE|
00002720: 52 49 55 4D 20 53 55 43 48 45 4E 20 3F 22 3B 3A |RIUM SUCHEN ?";:|
00002730: 8D 31 38 30 30 30 3A 46 24 B2 C8 28 4B 24 2C 31 |.18000:F$..(K$,1|
00002740: 29 00 4F 2F 3A 20 8B 46 24 B2 22 5F 22 A7 8E 00 |).O/: .F$."_"...|
00002750: 85 2F 44 20 99 58 24 3B 22 44 41 54 45 4E 44 49 |./D .X$;"DATENDI|
00002760: 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 45 4E 20 |SKETTE EINLEGEN |
00002770: 22 3A 8D 31 37 30 30 30 3A 46 49 24 B2 22 40 3A |":.17000:FI$."@:|
00002780: 22 AA 46 49 24 00 AC 2F 4E 20 58 B2 30 3A 81 49 |".FI$../N X.0:.I|
00002790: B2 31 A4 42 3A 8B CA 28 42 24 28 49 29 2C 31 38 |.1.B:..(B$(I),18|
000027A0: 2C 31 29 B2 46 24 A7 58 B2 58 AA 31 00 B2 2F 58 |,1).F$.X.X.1../X|
000027B0: 20 82 00 DD 2F 62 20 8B 58 B2 30 A7 99 58 24 3B | .../b .X.0..X$;|
000027C0: 22 4B 45 49 4E 20 45 4C 45 4D 45 4E 54 20 56 4F |"KEIN ELEMENT VO|
000027D0: 52 48 2E 22 3A 8D 31 30 30 30 30 3A 8E 00 F8 2F |RH.":.10000:.../|
000027E0: 6C 20 9F 31 2C 38 2C 31 2C 46 49 24 AA 22 2C 53 |l .1,8,1,FI$.",S|
000027F0: 2C 57 22 3A 98 31 2C 58 00 15 30 76 20 8D 31 36 |,W":.1,X..0v .16|
00002800: 30 30 30 3A 8B 54 B3 B1 30 A7 8D 31 30 30 30 30 |000:.T..0..10000|
00002810: 3A A0 31 3A 8E 00 4D 30 80 20 81 49 B2 31 A4 42 |:.1:..M0. .I.1.B|
00002820: 3A 8B CA 28 42 24 28 49 29 2C 31 38 2C 31 29 B2 |:..(B$(I),18,1).|
00002830: 46 24 A7 99 22 20 20 20 20 20 20 20 20 22 3B 42 |F$.." ";B|
00002840: 24 28 49 29 3A 98 31 2C 42 24 28 49 29 00 58 30 |$(I):.1,B$(I).X0|
00002850: 8A 20 82 3A A0 31 3A 8E 00 5E 30 28 23 8F 00 84 |. .:.1:..^0(#...|
00002860: 30 32 23 8F 20 2A 2A 2A 20 44 41 54 45 4E 20 45 |02#. *** DATEN E|
00002870: 52 57 45 49 54 45 52 2F 4C 4F 45 53 43 48 45 4E |RWEITER/LOESCHEN|
00002880: 20 2A 2A 2A 00 8A 30 3C 23 8F 00 AA 30 46 23 99 | ***..0<#...0F#.|
00002890: 56 24 3B 22 46 31 20 92 20 44 41 54 45 4E 20 45 |V$;"F1 . DATEN E|
000028A0: 52 57 45 49 54 45 52 4E 20 22 00 CB 30 50 23 99 |RWEITERN "..0P#.|
000028B0: 58 24 3B 22 46 33 20 92 20 44 41 54 45 4E 20 46 |X$;"F3 . DATEN F|
000028C0: 49 4C 45 20 5A 55 4C 41 44 45 4E 00 F3 30 5A 23 |ILE ZULADEN..0Z#|
000028D0: 99 58 24 3B 22 46 35 20 92 20 44 41 54 45 4E 20 |.X$;"F5 . DATEN |
000028E0: 4C 4F 45 53 43 48 45 4E 20 28 49 44 2E 4E 52 2E |LOESCHEN (ID.NR.|
000028F0: 29 20 22 00 1A 31 64 23 99 58 24 3B 22 46 37 20 |) "..1d#.X$;"F7 |
00002900: 92 20 53 54 41 4E 44 41 52 44 4B 4F 50 46 20 53 |. STANDARDKOPF S|
00002910: 50 45 49 43 48 45 52 4E 20 22 00 26 31 6E 23 99 |PEICHERN ".&1n#.|
00002920: 58 24 3B 5A 4D 24 00 31 31 78 23 8D 31 31 30 30 |X$;ZM$.11x#.1100|
00002930: 30 00 41 31 82 23 8B 41 24 B2 C7 28 39 35 29 A7 |0.A1.#.A$..(95).|
00002940: 8E 00 61 31 8C 23 8B 41 24 B2 C7 28 31 33 33 29 |..a1.#.A$..(133)|
00002950: A7 47 54 B2 31 3A 49 B2 42 AA 31 3A 89 31 30 30 |.GT.1:I.B.1:.100|
00002960: 30 00 82 31 96 23 8B 41 24 B2 C7 28 31 33 34 29 |0..1.#.A$..(134)|
00002970: A7 46 4A B2 42 3A 8D 36 30 30 30 3A 46 4A B2 30 |.FJ.B:.6000:FJ.0|
00002980: 3A 8E 00 96 31 A0 23 8B 41 24 B2 C7 28 31 33 35 |:...1.#.A$..(135|
00002990: 29 A7 39 31 36 30 00 CF 31 AA 23 8B 41 24 B2 C7 |).9160..1.#.A$..|
000029A0: 28 31 33 36 29 A7 9F 37 2C 38 2C 37 2C 22 40 3A |(136)..7,8,7,"@:|
000029B0: 53 54 41 4E 44 41 52 44 4B 4F 50 46 2C 53 2C 57 |STANDARDKOPF,S,W|
000029C0: 22 3A 98 37 2C 42 4E 24 3A 98 37 2C 42 41 24 00 |":.7,BN$:.7,BA$.|
000029D0: EF 31 B4 23 8B 41 24 B2 C7 28 31 33 36 29 A7 98 |.1.#.A$..(136)..|
000029E0: 37 2C 42 57 24 3A 98 37 2C 42 54 24 3A A0 37 00 |7,BW$:.7,BT$:.7.|
000029F0: F9 31 BE 23 89 39 30 33 30 00 2D 32 C8 23 99 56 |.1.#.9030.-2.#.V|
00002A00: 24 3B 22 45 49 4E 47 41 42 45 20 44 45 52 20 5A |$;"EINGABE DER Z|
00002A10: 55 20 4C 4F 45 53 43 48 45 4E 44 45 4E 20 49 44 |U LOESCHENDEN ID|
00002A20: 20 4E 52 2E 20 3F 20 22 3A 99 58 24 3B 00 38 32 | NR. ? ":.X$;.82|
00002A30: D2 23 8D 31 38 30 30 30 00 68 32 DC 23 99 58 24 |.#.18000.h2.#.X$|
00002A40: 3B 22 53 4F 4C 4C 20 22 3B 4B 24 3B 22 20 47 45 |;"SOLL ";K$;" GE|
00002A50: 4C 4F 45 53 43 48 54 20 57 45 52 44 45 4E 20 28 |LOESCHT WERDEN (|
00002A60: 4A 2F 4E 29 20 3F 20 22 00 7E 32 E6 23 8D 31 31 |J/N) ? ".~2.#.11|
00002A70: 30 30 30 3A 8B 41 24 B3 B1 22 4A 22 A7 8E 00 89 |000:.A$.."J"....|
00002A80: 32 F0 23 81 49 B2 31 A4 42 00 A5 32 FA 23 8B 4B |2.#.I.1.B..2.#.K|
00002A90: 24 B2 CA 28 42 24 28 49 29 2C 31 38 2C 32 29 A7 |$..(B$(I),18,2).|
00002AA0: 8D 39 32 34 30 00 AB 32 04 24 82 00 B1 32 0E 24 |.9240..2.$...2.$|
00002AB0: 8E 00 CC 32 18 24 81 4A B2 49 A4 42 3A 42 24 28 |...2.$.J.I.B:B$(|
00002AC0: 4A 29 B2 42 24 28 4A AA 31 29 3A 82 00 DE 32 22 |J).B$(J.1):...2"|
00002AD0: 24 49 B2 49 AB 31 3A 42 B2 42 AB 31 3A 8E 00 05 |$I.I.1:B.B.1:...|
00002AE0: 33 10 27 99 58 24 3B 22 54 41 53 54 45 20 44 52 |3.'.X$;"TASTE DR|
00002AF0: 55 45 43 4B 45 4E 20 22 3A 54 B2 30 3A 8D 31 31 |UECKEN ":T.0:.11|
00002B00: 30 30 30 3A 8E 00 1A 33 F8 2A A1 41 24 3A 8B 41 |000:...3.*.A$:.A|
00002B10: 24 B2 22 22 A7 31 31 30 30 30 00 20 33 02 2B 8E |$."".11000. 3.+.|
00002B20: 00 26 33 E0 2E 8F 00 48 33 EA 2E 8F 20 2A 2A 2A |.&3....H3... ***|
00002B30: 20 42 4C 4F 43 4B 53 20 46 52 45 45 20 52 4F 55 | BLOCKS FREE ROU|
00002B40: 54 49 4E 45 20 2A 2A 2A 00 4E 33 F4 2E 8F 00 66 |TINE ***.N3....f|
00002B50: 33 FE 2E 99 56 24 3B 42 46 24 3B 22 20 46 55 4E |3...V$;BF$;" FUN|
00002B60: 4B 54 49 4F 4E 22 00 8C 33 08 2F 46 49 24 B2 22 |KTION"..3./FI$."|
00002B70: 40 3A 22 AA 42 46 24 3A 81 49 B2 31 A4 32 30 30 |@:".BF$:.I.1.200|
00002B80: 3A 46 46 24 28 49 29 B2 22 22 3A 82 00 B0 33 12 |:FF$(I)."":...3.|
00002B90: 2F 46 46 B2 31 3A 4B B2 32 3A 49 B2 32 3A 42 52 |/FF.1:K.2:I.2:BR|
00002BA0: 24 B2 22 46 55 4E 4B 49 4F 4E 20 45 4E 44 45 22 |$."FUNKION ENDE"|
00002BB0: 00 E5 33 1C 2F 99 58 24 3B 22 42 49 54 54 45 20 |..3./.X$;"BITTE |
00002BC0: 57 41 52 54 45 4E 20 42 49 53 20 22 3B 42 52 24 |WARTEN BIS ";BR$|
00002BD0: 3A 46 46 24 28 31 29 B2 CA 28 42 24 28 31 29 2C |:FF$(1)..(B$(1),|
00002BE0: 31 38 2C 32 29 00 FE 33 26 2F 46 46 24 28 49 29 |18,2)..3&/FF$(I)|
00002BF0: B2 CA 28 42 24 28 4B 29 2C 31 38 2C 32 29 00 0B |..(B$(K),18,2)..|
00002C00: 34 30 2F 81 4A B2 31 A4 49 AB 31 00 24 34 3A 2F |40/.J.1.I.1.$4:/|
00002C10: 8B 46 46 24 28 49 29 B2 46 46 24 28 4A 29 A7 31 |.FF$(I).FF$(J).1|
00002C20: 32 31 32 30 00 2A 34 44 2F 82 00 34 34 4E 2F 49 |2120.*4D/..44N/I|
00002C30: B2 49 AA 31 00 49 34 58 2F 4B B2 4B AA 31 3A 8B |.I.1.I4X/K.K.1:.|
00002C40: 4B B1 42 A7 31 32 31 34 30 00 54 34 62 2F 89 31 |K.B.12140.T4b/.1|
00002C50: 32 30 37 30 00 5E 34 6C 2F 5A B2 49 AB 31 00 6B |2070.^4l/Z.I.1.k|
00002C60: 34 76 2F 81 43 B2 31 A4 5A AB 31 00 98 34 80 2F |4v/.C.1.Z.1..4./|
00002C70: 4A B2 43 AA 31 3A 99 58 24 3B 22 45 4C 45 4D 45 |J.C.1:.X$;"ELEME|
00002C80: 4E 54 20 20 20 20 20 20 20 9D 9D 9D 9D 22 3B 4A |NT ....";J|
00002C90: AB 31 3B 22 91 91 91 22 00 A3 34 8A 2F 81 44 B2 |.1;"..."..4./.D.|
00002CA0: 4A A4 5A 00 BC 34 94 2F 8B 46 46 24 28 43 29 B1 |J.Z..4./.FF$(C).|
00002CB0: 46 46 24 28 44 29 A7 31 32 32 30 30 00 C7 34 9E |FF$(D).12200..4.|
00002CC0: 2F 89 31 32 32 31 30 00 F3 34 A8 2F 43 24 28 30 |/.12210..4./C$(0|
00002CD0: 29 B2 46 46 24 28 43 29 3A 46 46 24 28 43 29 B2 |).FF$(C):FF$(C).|
00002CE0: 46 46 24 28 44 29 3A 46 46 24 28 44 29 B2 43 24 |FF$(D):FF$(D).C$|
00002CF0: 28 30 29 00 F9 34 B2 2F 82 00 FF 34 BC 2F 82 00 |(0)..4./...4./..|
00002D00: 38 35 C6 2F 99 58 24 3B 22 42 4C 4F 43 4B 53 20 |85./.X$;"BLOCKS |
00002D10: 57 45 52 44 45 4E 20 41 44 44 49 45 52 54 22 3A |WERDEN ADDIERT":|
00002D20: 42 4C 24 B2 22 12 44 49 53 4B 20 22 3A 42 4D 24 |BL$.".DISK ":BM$|
00002D30: B2 22 12 22 AA 42 46 24 00 40 35 D0 2F 4A B2 31 |.".".BF$.@5./J.1|
00002D40: 00 55 35 DA 2F 81 49 B2 31 A4 42 3A 8B 49 B2 31 |.U5./.I.1.B:.I.1|
00002D50: A7 47 53 B2 30 00 76 35 E4 2F 8B CA 28 42 24 28 |.GS.0.v5./..(B$(|
00002D60: 49 29 2C 31 38 2C 32 29 B2 46 46 24 28 4A 29 A7 |I),18,2).FF$(J).|
00002D70: 8D 31 32 33 35 30 00 B4 35 EE 2F 82 3A 46 46 24 |.12350..5./.:FF$|
00002D80: 28 4A 29 B2 42 46 24 AA 22 20 44 49 53 4B 20 22 |(J).BF$." DISK "|
00002D90: AA 46 46 24 28 4A 29 AA 22 20 22 AA C9 28 5A 4B |.FF$(J)." "..(ZK|
00002DA0: 24 AA C4 28 36 36 34 AB 47 53 29 2C 33 29 3A 4A |$..(664.GS),3):J|
00002DB0: B2 4A AA 31 00 C5 35 F8 2F 8B 4A B3 5A AA 31 A7 |.J.1..5./.J.Z.1.|
00002DC0: 31 32 32 35 30 00 D1 35 02 30 99 58 24 3B 42 52 |12250..5.0.X$;BR|
00002DD0: 24 00 FF 35 0C 30 99 58 24 3B 22 44 52 55 43 4B |$..5.0.X$;"DRUCK|
00002DE0: 45 52 20 4F 44 45 52 20 53 43 52 45 45 4E 20 28 |ER ODER SCREEN (|
00002DF0: 44 2F 53 29 20 22 3A 8D 31 31 30 30 30 3A 99 00 |D/S) ":.11000:..|
00002E00: 22 36 16 30 8B 41 24 B3 B1 22 53 22 AF 41 24 B3 |"6.0.A$.."S".A$.|
00002E10: B1 22 44 22 A7 8D 31 31 30 30 30 3A 89 31 32 33 |."D"..11000:.123|
00002E20: 32 30 00 34 36 20 30 8B 41 24 B2 22 44 22 A7 31 |20.46 0.A$."D".1|
00002E30: 32 33 38 30 00 4E 36 2A 30 81 49 B2 31 A4 5A 3A |2380.N6*0.I.1.Z:|
00002E40: 99 22 1D 1D 1D 1D 22 3B 46 46 24 28 49 29 00 62 |."....";FF$(I).b|
00002E50: 36 34 30 8D 31 31 30 30 30 3A 82 3A 89 31 32 34 |640.11000:.:.124|
00002E60: 32 30 00 7A 36 3E 30 47 B2 30 3A 47 B2 C5 28 C9 |20.z6>0G.0:G..(.|
00002E70: 28 42 24 28 49 29 2C 33 29 29 00 86 36 48 30 47 |(B$(I),3))..6H0G|
00002E80: 53 B2 47 53 AA 47 00 8C 36 52 30 8E 00 AD 36 5C |S.GS.G..6R0...6\|
00002E90: 30 99 58 24 3B 22 44 52 55 43 4B 45 52 20 45 49 |0.X$;"DRUCKER EI|
00002EA0: 4E 53 43 48 41 4C 54 45 4E 20 21 20 22 00 B8 36 |NSCHALTEN ! "..6|
00002EB0: 66 30 8D 31 30 30 30 30 00 C1 36 70 30 9F 34 2C |f0.10000..6p0.4,|
00002EC0: 34 00 E6 36 7A 30 81 49 B2 31 A4 5A 3A 98 34 2C |4..6z0.I.1.Z:.4,|
00002ED0: 22 20 20 20 20 20 22 3B 46 46 24 28 49 29 3A 82 |" ";FF$(I):.|
00002EE0: 3A 98 34 3A A0 34 00 23 37 84 30 99 56 24 3B 22 |:.4:.4.#7.0.V$;"|
00002EF0: 44 41 54 45 4E 20 41 55 46 20 44 49 53 4B 20 53 |DATEN AUF DISK S|
00002F00: 50 45 49 43 48 45 52 4E 20 3F 20 28 4A 2F 4E 29 |PEICHERN ? (J/N)|
00002F10: 22 3A 8D 31 31 30 30 30 3A 8B 41 24 B3 B1 22 4A |":.11000:.A$.."J|
00002F20: 22 A7 8E 00 46 37 8E 30 99 58 24 3B 22 44 41 54 |"...F7.0.X$;"DAT|
00002F30: 45 4E 20 44 49 53 4B 45 54 54 45 20 45 49 4E 4C |EN DISKETTE EINL|
00002F40: 45 47 45 4E 20 22 00 68 37 98 30 8D 31 30 30 30 |EGEN ".h7.0.1000|
00002F50: 30 3A 9F 32 2C 38 2C 32 2C 46 49 24 AA 22 2C 53 |0:.2,8,2,FI$.",S|
00002F60: 2C 57 22 3A 98 32 2C 5A 00 82 37 A2 30 81 49 B2 |,W":.2,Z..7.0.I.|
00002F70: 31 A4 5A 3A 98 32 2C 46 46 24 28 49 29 3A 82 3A |1.Z:.2,FF$(I):.:|
00002F80: A0 32 00 88 37 AC 30 8E 00 8E 37 B0 36 8F 00 B8 |.2..7.0...7.6...|
00002F90: 37 BA 36 8F 20 2A 2A 2A 20 41 55 53 53 4F 52 54 |7.6. *** AUSSORT|
00002FA0: 49 45 52 45 4E 20 46 52 45 4D 44 45 52 20 4C 49 |IEREN FREMDER LI|
00002FB0: 53 54 45 4E 20 2A 2A 2A 00 BE 37 C4 36 8F 00 C9 |STEN ***..7.6...|
00002FC0: 37 CE 36 8B 42 B3 32 A7 8E 00 11 38 D8 36 99 56 |7.6.B.2....8.6.V|
00002FD0: 24 3B 22 41 55 53 53 4F 52 54 49 45 52 45 4E 20 |$;"AUSSORTIEREN |
00002FE0: 46 52 45 4D 44 45 52 20 4C 49 53 54 45 4E 22 3A |FREMDER LISTEN":|
00002FF0: 44 49 24 B2 22 40 3A 44 49 46 46 45 52 45 4E 5A |DI$."@:DIFFERENZ|
00003000: 22 3A 4C 49 24 B2 22 4C 49 53 54 45 22 3A 58 B2 |":LI$."LISTE":X.|
00003010: 31 00 42 38 E2 36 99 58 24 3B 22 4D 49 54 20 57 |1.B8.6.X$;"MIT W|
00003020: 45 4C 43 48 45 52 20 4C 49 53 54 45 20 56 45 52 |ELCHER LISTE VER|
00003030: 47 4C 45 49 43 48 45 4E 20 3F 22 3A 8D 31 37 30 |GLEICHEN ?":.170|
00003040: 30 30 00 81 38 EC 36 99 58 24 3B 22 57 49 45 56 |00..8.6.X$;"WIEV|
00003050: 49 45 4C 20 5A 45 49 43 48 45 4E 20 56 45 52 47 |IEL ZEICHEN VERG|
00003060: 4C 45 49 43 48 45 4E 20 28 31 2D 32 30 29 20 22 |LEICHEN (1-20) "|
00003070: 3B 3A 8D 31 38 30 30 30 3A 53 4B B2 C5 28 4B 24 |;:.18000:SK..(K$|
00003080: 29 00 92 38 F6 36 8B 53 4B B1 32 35 A7 53 4B B2 |)..8.6.SK.25.SK.|
00003090: 32 35 00 BB 38 00 37 9F 35 2C 38 2C 35 2C 46 49 |25..8.7.5,8,5,FI|
000030A0: 24 AA 22 2C 53 2C 52 22 3A 8D 31 36 30 30 30 3A |$.",S,R":.16000:|
000030B0: 8B 54 B3 B1 30 A7 31 34 31 30 30 00 DE 38 0A 37 |.T..0.14100..8.7|
000030C0: 9F 32 2C 38 2C 32 2C 22 40 3A 4C 49 53 54 45 22 |.2,8,2,"@:LISTE"|
000030D0: AA 22 2C 53 2C 57 22 3A 8D 31 36 30 30 30 00 06 |.",S,W":.16000..|
000030E0: 39 14 37 8B 54 B3 B1 30 A7 A0 35 3A A0 32 3A 99 |9.7.T..0..5:.2:.|
000030F0: 58 24 3B 4B 24 3A 99 58 24 3B 5A 4D 24 3A 8D 31 |X$;K$:.X$;ZM$:.1|
00003100: 31 30 30 30 3A 8E 00 0F 39 1E 37 84 35 2C 43 00 |1000:...9.7.5,C.|
00003110: 1A 39 28 37 81 4A B2 31 A4 43 00 30 39 32 37 84 |.9(7.J.1.C.0927.|
00003120: 35 2C 44 24 3A 99 22 1D 1D 1D 1D 1D 22 3B 44 24 |5,D$:.".....";D$|
00003130: 00 3B 39 3C 37 81 49 B2 31 A4 42 00 5B 39 46 37 |.;9<7.I.1.B.[9F7|
00003140: 8B C8 28 44 24 2C 53 4B 29 B2 C8 28 42 24 28 49 |..(D$,SK)..(B$(I|
00003150: 29 2C 53 4B 29 A7 31 34 33 30 30 00 62 39 50 37 |),SK).14300.b9P7|
00003160: 82 49 00 72 39 5A 37 98 32 2C 44 24 3A 58 B2 58 |.I.r9Z7.2,D$:X.X|
00003170: AA 31 00 79 39 64 37 82 4A 00 89 39 6E 37 A0 35 |.1.y9d7.J..9n7.5|
00003180: 3A A0 32 3A 58 B2 58 AB 31 00 BC 39 78 37 8B 58 |:.2:X.X.1..9x7.X|
00003190: B2 30 A7 99 22 93 11 12 20 4B 45 49 4E 20 4E 45 |.0.."... KEIN NE|
000031A0: 55 45 53 20 45 4C 45 4D 45 4E 54 20 47 45 46 55 |UES ELEMENT GEFU|
000031B0: 4E 44 45 4E 22 3A 89 31 30 30 30 30 00 D2 39 82 |NDEN":.10000..9.|
000031C0: 37 9F 37 2C 38 2C 37 2C 44 49 24 AA 22 2C 53 2C |7.7,8,7,DI$.",S,|
000031D0: 57 22 00 DB 39 8C 37 98 37 2C 58 00 F1 39 96 37 |W"..9.7.7,X..9.7|
000031E0: 9F 35 2C 38 2C 35 2C 4C 49 24 AA 22 2C 53 2C 52 |.5,8,5,LI$.",S,R|
000031F0: 22 00 0A 3A A0 37 81 49 B2 31 A4 58 3A 84 35 2C |"..:.7.I.1.X:.5,|
00003200: 44 24 3A 98 37 2C 44 24 3A 82 00 14 3A AA 37 A0 |D$:.7,D$:...:.7.|
00003210: 37 3A A0 35 00 3C 3A B4 37 99 56 24 3B 22 44 41 |7:.5.<:.7.V$;"DA|
00003220: 53 20 41 55 53 53 4F 52 54 49 45 52 45 4E 20 49 |S AUSSORTIEREN I|
00003230: 53 54 20 42 45 45 4E 44 45 54 20 22 00 63 3A BE |ST BEENDET ".c:.|
00003240: 37 99 58 24 3B 22 44 41 53 20 44 41 54 45 4E 46 |7.X$;"DAS DATENF|
00003250: 49 4C 45 20 3C 20 44 49 46 46 45 52 45 4E 5A 20 |ILE < DIFFERENZ |
00003260: 3E 20 22 00 81 3A C8 37 99 58 24 3B 22 4B 41 4E |> "..:.7.X$;"KAN|
00003270: 4E 20 47 45 4C 41 44 45 4E 20 45 52 44 45 4E 20 |N GELADEN ERDEN |
00003280: 22 00 A6 3A D2 37 9F 31 35 2C 38 2C 31 35 2C 22 |"..:.7.15,8,15,"|
00003290: 53 30 3A 4C 49 53 54 45 22 3A A0 31 35 3A 8D 31 |S0:LISTE":.15:.1|
000032A0: 36 30 30 30 3A 8E 00 B5 3A DC 37 8B 4A B2 43 A7 |6000:...:.7.J.C.|
000032B0: 31 34 31 39 30 00 BC 3A E6 37 82 4A 00 C2 3A F0 |14190..:.7.J..:.|
000032C0: 37 8E 00 C8 3A 98 3A 8F 00 E7 3A A2 3A 8F 20 2A |7...:.:...:.:. *|
000032D0: 2A 2A 20 41 42 46 52 41 47 45 20 52 4F 55 54 49 |** ABFRAGE ROUTI|
000032E0: 4E 45 4E 20 2A 2A 2A 00 ED 3A AC 3A 8F 00 FF 3A |NEN ***..:.:...:|
000032F0: 80 3E 84 33 2C 54 2C 4B 24 2C 4F 2C 4F 3A 8E 00 |.>.3,T,K$,O,O:..|
00003300: 2D 3B 68 42 99 58 24 3B 22 46 49 4C 45 20 4E 41 |-;hB.X$;"FILE NA|
00003310: 4D 45 20 22 3B 3A 46 B2 31 3A 8D 31 38 30 30 30 |ME ";:F.1:.18000|
00003320: 3A 46 B2 30 3A 46 49 24 B2 4B 24 3A 8E 00 37 3B |:F.0:FI$.K$:..7;|
00003330: 50 46 4B 24 B2 22 22 00 50 3B 5A 46 8D 31 31 30 |PFK$."".P;ZF.110|
00003340: 30 30 3A 8B 41 24 B2 C7 28 31 33 29 A7 99 3A 8E |00:.A$..(13)..:.|
00003350: 00 7D 3B 64 46 8B 41 24 B2 C7 28 32 30 29 AF C3 |.};dF.A$..(20)..|
00003360: 28 4B 24 29 B3 B1 30 A7 4B 24 B2 C8 28 4B 24 2C |(K$)..0.K$..(K$,|
00003370: C3 28 4B 24 29 AB 31 29 3A 99 41 24 3B 00 96 3B |.(K$).1):.A$;..;|
00003380: 6E 46 8B 44 52 B2 31 AF C3 28 4B 24 29 B2 33 33 |nF.DR.1..(K$).33|
00003390: A7 31 38 30 31 30 00 AE 3B 78 46 8B 46 B2 31 AF |.18010..;xF.F.1.|
000033A0: C3 28 4B 24 29 B2 31 38 A7 31 38 30 31 30 00 CA |.(K$).18.18010..|
000033B0: 3B 82 46 8B 41 24 B1 C7 28 33 31 29 A7 4B 24 B2 |;.F.A$..(31).K$.|
000033C0: 4B 24 AA 41 24 3A 99 41 24 3B 00 D5 3B 8C 46 89 |K$.A$:.A$;..;.F.|
000033D0: 31 38 30 31 30 00 00 00 00 20 1A 00 |18010.... .. |
....D.. ***********************.=.N.. *
*.[.X.. * PROGRAMM D
ISKSORTER *.Y.... *
*...... * BERNHARD WINKLER *...... *
*.S. .. *
*...... *
*...... * *.-.... *
*.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)1985 64'ER (SONDERHEFT NR.1) .
"......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.P...I.I.1:.G.1..". J
A":Z.Z.1......I.Q.1.850..X$;"SPEICHER IS
T VOLL":.X$;ZM$: 1:.11000:....... 1090.K
... 1:.H.1..10000:.......X$;"NOCH EINE D
ISK (J/N)".....QW$.D(I.1).,.(..X$;"BISHE
R WURDEN ";QW$;" DATEN GELESEN ....".7.2
..11000.S.<..A$."J".GT.1:.V$;:.1060.E.F.
.A$.."N".1330.R.P.B.I.1: 1...Z.A$."":T.0
...D.....P.....Z.. *** FARBWECHSEL ***..
.........I.0:F.0:J.0......V$;"F1. .FARBW
ECHSEL BILDSCHIRM"......X$;"F3. .FARBWEC
HSEL HINTERGRUND".,....X$;"F5. .FARBWECH
SEL SCHRIFT".8....X$;ZM$.C. ..11000.A.*.
.A$.G(133).I.I.1:.53280,I..4..A$.G(134)
.J.J.1:.53281,J...>..A$.G(135).F.F.1:.64
6,F...H..A$."_".....R..2040.......W.B..
*** DRUCKER AUSGABE ***...L.ZK$.H(ZK$.ZK
$,33).5.V.J$.". JA ":N$.".NEIN":F1$.N$:F
3$.J$:F5$.J$:F7$.N$:F2$.N$:Z$.".....".O.
..Y$.".".Z$:F4$.N$:DR.1.U.....B...T$."..
".....ST$."":AN$."BITTE FUNKTION WAEHLE
N"......"....... DRUCKER AUSGABE .".M...
.F1$;T$;"F1 . DRUCK-BEGINN ."......F3$;T
$;"F3 . STAND.KOPF MIT DRUCKEN .".%....F
5$;T$;"F5 . PROGRAMM-LISTE DRUCKEN .".N.
&..F7$;T$;"F7 . PREIS-LISTE DRUCKEN .".X
.0..F2$;T$;"F2 . LISTE NACH KRITERIUM ."
...:..F4$;T$;"F4 . STANDARDKOPF AENDERN
"...D..X$;"..";ZM$...N..".."...X.." .
.....................................B..
" B B
.F.L.." .............................
.......T.V.." B
B......" .................
...................E....".";:.J.1.20:.".
";:.:.Z$;;ST$.Q....Y$;AN$......C.1.C.0:.
3450:F4$.N$:.3070......F1$.J$.F1$.N$:.33
80:.3070......11000.>....A$.G(133).F1$.N
$.F1$.J$:.3070.A.F..A$.G(134).F3$.J$.F3$
.N$:.3070...P..A$.G(134).F3$.N$.F3$.J$:.
3070...Z..A$.G(135).F5$.N$.F5$.J$:F2$.N$
:F7$.N$:.3070.X....A$.G(135).F5$.J$.F5$.
N$:.3070......A$.G(136).F7$.J$.F7$.N$:.3
070.,....A$.G(136).F7$.N$.F7$.J$:F2$.N$:
F5$.N$:.3070.]....A$.G(137).F2$.N$.F2$.J
$:F7$.N$:F5$.N$:.3070......A$.G(137).F2$
.J$.F2$.N$:.3070......A$.G(95).DR.0:....
..A$.G(138).F4$.J$:C.1:.3070.R.*..A$.G(
95).A$.G(137).3250...4..".":.J.1.19:."."
;:.:.Z$;ZK$:.".";Z$;"OK ? (J/N)".&.9..Y$
;ZK$:.11000:.A$.."J"...D.>..".":.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$...J.R..F3$.J$.3530...\..F3$.N$.3
590...F..A$."_".....P.....Z.ST$."DATUM ?
":.3510:DA$.K$.,...ST$."NAME ?":.3510:BN
$.K$.Q...ST$."STRASSE,NR. ?":.3510:BA$.K
$.R...ST$."WOHNORT ?":.3510:BW$.K$.....S
T$."TELEFON ?":.3510:BT$.K$............"
.":.J.1.19:.".";:.:.Z$;ST$.W....Y$;ZK$:.
"..";Y$;:.18000......".":.J.1.19:.".";:.
:.Z$;ZK$:.Y$;ZK$:....J.ZD.0:.F3$.J$.ZD.1
5.:.T..4,G(14)" ";BN$:.4," ";BA$.Y....
4," ";BW$:.4," ";BT$:.4.}....4," DISK
ETTENINHALT VOM ";DA$......4:.4," PROGR
AMME:";B;G(15)......4......F2$.J$.3760.G
....F7$.N$.3610.....QS$."PRG.NAME
KB. PREIS ":.3620.....QS$."PRG.NAME
ID BL. ".*.$.ZD$." ":.3640.:.8.D
D..(B.3).1.B.B.S.1.G.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.Z
D.1.....S.S.1:.ZD.DZ.ZD.0:.3740......:..
=....".":.J.1.19:.".";:.:.Z$;....."DRUC
KERPAPIER JUSTIEREN ? ":.Y$;"TASTE DRUEC
KEN ";:.11000:......F.2:.".":.I.1.19:.".
";:.:.Z$;ZK$:.Y$;ZK$:."...."......Z$;"ID
.CODE EINGEBEN !":.Y$;:.18000......I(K$,
1)."*".F.1.. D.K$.H(K$.ZK$,F)." N..I.1.B
:.ZD.DZ.ZD.0:.3740.P X..J(B$(I),18,F).K$
..4," ";B$(I):ZD.ZD.1.Y ...:.4._ ....
E .... ... *** SORTIERROUTINE ***.. ...
.A ...V$;"SORTIER-ROUTINE LAEUFT!":B$(B.
1)."ZZZZZZZZ":F.0.. C..X$;"ALPHABETISCH
ODER NACH ID.NR. ?"..!H..X$;"(A/I)":.X$;
ZM$:.11000:.A$."_"...$!W..A$."I".F.1./!.
..C.1.B.\!..J.C.1:.X$;"ELEMENT ...
.";J.1;"...".G!...D.J.B..!...F.1.I(B$(C)
,6).I(B$(D),6).4120..!...B$(C).B$(D).412
0..!...4130.S!..C$(0).B$(C):B$(C).B$(D):
B$(D).C$(0).Y!"....!,...."6..V$;"DOPPELT
E DATEN AUSSORTIEREN (J/N) ".."@..11000.
("J..A$."J".4190.."T...Q"^..V$;"ES WIRD
AUSSORTIERT ":J.1.."H..X$;"WIEVIELE ZEIC
HEN BERUECKSICHTIGEN ?":.X$;:.18000.."R.
SS.E(K$):.SS.0.SS.25.SS.25.N"|..H(B$(J),
SS).H(B$(J.1),SS).4270.X"..J.J.1.."...J.
.B.1.4220..#...I.B.1.B.10:B$(I)."":...#.
....#...I.J.B.'#..B$(I).B$(I.1).-#B...C#
L.J.J.1:B.B.1:.4230.I#V...O#....R#... **
* DATEN FILE SPEICHERN ***.X#.....#...V$
;"DATEN WERDEN GESPEICHERT ".R#...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.4$X..G.1..
I.1.Z:.2,B$(I):.5100.H$...I.1.B:.2,B$(I)
.N$....U$.. 2.[$....A$P....$Z.. *** DATE
N-FILE EINLESEN ***..$.....$...V$;"DATEN
WERDEN GELESEN ":.X$;ZM$.F$...17000:.K$
."_"....$...X$;"DATEN FILE ";FI$" EINLES
EN (J/N) "..$...11000..%...A$.."J"...,%.
..2,8,2,FI$.",S,R":.".....";.U%J..16000:
." ."K$"..":.T..0..10000: 2:..^%T..2,B.O
%...I.FJ.1.B.FJ..%...2,B$(I):.: 2:B.B.FJ
:...%...V$;"DISK OPERATION MODE".R%...X$
;"DISKETTENBEFEHLE S, V, N, R, I "..&...
X$;"BEFEHL ?";:.18000:FI$.K$:.X$;"AUSFUE
HREN (J/N) ?"..&...11000.&&...A$."_"...B
&D..A$."J"..15,8,15:.15,FI$: 15:.16000:.
T..0..X$;K$:.10000.M&I..T.0...&N..".";X
$:.6310..&X....&B.. *** EDITOR ***. &L..
..&V..650,128.X&...S$;"....... @ . : E
LEMENT LOESCHEN"..&...S$;". \ . : ELEM
ENT SUCHEN"."'...S$;". * . : ELEMENT V
ERBESSERN".A'...S$;". _ . : ";I(ZM$,13
).F'...S$;". P . : ELEMENT DRUCKEN "..
'...S$;". . : EIN ELEMENT VOR"..'...
S$;". F1. : 20 ELEMENTE VOR ".W'F..S$;
". F3. : 20 ELEMENTE ZURUECK"..'P..S$;
". ^ . : EIN ELEMENT ZURUECK".&(Z..S$;
". $ . : DM-LISTE ERSTELLEN".U(...S$;"
. + . : ELEMENT EINFUEGEN.. ":."..".`(
...I.1.B..(..."....";ZK$"." : ."... ";
B$(I)..(...11000..(...B$(1)."".B.1.A$."@
":I.1.U(...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.G)*..A$."*".."..
.....";".KORREKTURELEMENT":."...";B$(I).
V)4..A$."*".."..";ZK$:.:.B$(I)."".B$(I).
"ZZZZ"..)9..A$."$"..7500:.7000..)>..A$."
_".A$."":.650,0:..H)H.. A$."^". I.I.2:.I
.1.I.B.1..*R..A$."+".B.B.1:."........NEU
ES ELEMENT":."...";B$(B):."..";ZK$:..(*\
..A$."P"..4," ";B$(I).P*F..A$."\"..V$
;"NACH WELCHEM ELEMENT SUCHEN ?":.X$;:.1
8000:.7310:.7000..*P..H(B$(B),4)."ZZZZ".
I.1.B.B.1..*Z.."......";ZK$:.:.7140..*..
...*...K$.""...W*..F.0:.I(K$,1)."*".F.1.
.*..Q.C(K$).F:Q$.H(K$,Q):EZ.0."+..EE$."
KEIN WEITERES":EY$." VORHANDEN ":..-+...
K.1.B.N+...H(B$(K),Q).Q$.EZ.1:SE.1:R.1.Z
+J..SE.0...}+T..SE.1.."........";B$(K):S
E.0:...+...EZ.0.."....";EZ$.EX$.EY$.H+..
.EZ.1.."..":."...";EE$.EZ$.EY$:."..";WS$
..+...X$;ZM$:.11000..+.....,L.."...... D
M-LISTENERSTELLUNG ...":."..";X$;ZM$:.".
.....".D,V..J.I.B:." ";:C$.H(B$(J),17):
.C$;.R,`.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).A,~.
.".";:.:..G,@....,J.. *** BILDSCHIRM-AUS
GABE ***..,T...;-^..V$;"INHALT EINER DIS
K LISTEN ":.X$;"ODER ALLE DISK DATEN LIS
TEN (E/A) ".F-H..11000.X-R.:.A$."E".8120
.J-|..V$;ZM$:.:Z.1.{-...I.1.B:Z.Z.1..-..
."........";B$(I):.B(631).95..198,0:..A-
...Z.23..11000:Z.1:.H.1...N-...:.10000.T
-.........V$;"WELCHE DISK LISTEN ":.X$;"
ID.NR EINGEBEN ";:.18000.?.B..I.1.B:.K$.
J(B$(I),18,2).."........";B$(I).E.L...P.
V..10000......X$;"NOCH EINE DISK LISTEN
(J/N) ":.11000:.A$."J".8120.......... ..
H.. . *** LISTEN NACH ID KRITERIUM ERSTE
LLEN ***.N.. .../& .V$;"LISTEN NACH ID K
RITERIUM ERSTELLEN ":.X$;ZM$.A/0 .X$;"NA
CH WELCHEM KRITERIUM SUCHEN ?";:.18000:F
$.H(K$,1).O/: .F$."_"..../D .X$;"DATENDI
SKETTE EINLEGEN ":.17000:FI$."@:".FI$../
N X.0:.I.1.B:.J(B$(I),18,1).F$.X.X.1../X
.../B .X.0..X$;"KEIN ELEMENT VORH.":.10
000:.../L .1,8,1,FI$.",S,W":.1,X..0V .16
000:.T..0..10000: 1:..M0. .I.1.B:.J(B$(I
),18,1).F$.." ";B$(I):.1,B$(I).X0
. .: 1:..^0(#...02#. *** DATEN ERWEITER/
LOESCHEN ***..0<#...0F#.V$;"F1 . DATEN E
RWEITERN ".K0P#.X$;"F3 . DATEN FILE ZULA
DEN..0Z#.X$;"F5 . DATEN LOESCHEN (ID.NR.
) "..1D#.X$;"F7 . STANDARDKOPF SPEICHERN
".&1N#.X$;ZM$.11X#.11000.A1.#.A$.G(95).
..A1.#.A$.G(133).GT.1:I.B.1:.1000..1.#.A
$.G(134).FJ.B:.6000:FJ.0:...1 #.A$.G(135
).9160.O1.#.A$.G(136)..7,8,7,"@:STANDARD
KOPF,S,W":.7,BN$:.7,BA$..1.#.A$.G(136)..
7,BW$:.7,BT$: 7..1.#.9030.-2H#.V$;"EINGA
BE DER ZU LOESCHENDEN ID NR. ? ":.X$;.82
R#.18000.H2.#.X$;"SOLL ";K$;" GELOESCHT
WERDEN (J/N) ? ".~2.#.11000:.A$.."J"....
2.#.I.1.B..2.#.K$.J(B$(I),18,2)..9240..2
.$...2.$..L2.$.J.I.B:B$(J).B$(J.1):...2"
$I.I.1:B.B.1:...3.'.X$;"TASTE DRUECKEN "
:T.0:.11000:...3.*.A$:.A$."".11000. 3.+.
.&3....H3... *** BLOCKS FREE ROUTINE ***
.N3....F3...V$;BF$;" FUNKTION"..3./FI$."
@:".BF$:.I.1.200:FF$(I)."":...3./FF.1:K.
2:I.2:BR$."FUNKION ENDE"..3./.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/..44N/I.I.1.I4X
/K.K.1:.K.B.12140.T4B/.12070.^4L/Z.I.1.K
4V/.C.1.Z.1..4./J.C.1:.X$;"ELEMENT
....";J.1;"..."..4./.D.J.Z..4./.FF$(C).
FF$(D).12200.G4./.12210..4./C$(0).FF$(C)
:FF$(C).FF$(D):FF$(D).C$(0)..4./...4./..
85F/.X$;"BLOCKS WERDEN ADDIERT":BL$.".DI
SK ":BM$.".".BF$.@5P/J.1.U5Z/.I.1.B:.I.1
.GS.0.V5./.J(B$(I),18,2).FF$(J)..12350..
5./.:FF$(J).BF$." DISK ".FF$(J)." ".I(ZK
$.D(664.GS),3):J.J.1.E5./.J.Z.1.12250.Q5
.0.X$;BR$..5.0.X$;"DRUCKER ODER SCREEN (
D/S) ":.11000:.."6.0.A$.."S".A$.."D"..11
000:.12320.46 0.A$."D".12380.N6*0.I.1.Z:
."....";FF$(I).B640.11000:.:.12420.Z6>0G
.0:G.E(I(B$(I),3))..6H0GS.GS.G..6R0...6\
0.X$;"DRUCKER EINSCHALTEN ! "..6F0.10000
.A6P0.4,4..6Z0.I.1.Z:.4," ";FF$(I):.
:.4: 4.#7.0.V$;"DATEN AUF DISK SPEICHERN
? (J/N)":.11000:.A$.."J"...F7.0.X$;"DAT
EN DISKETTE EINLEGEN ".H7.0.10000:.2,8,2
,FI$.",S,W":.2,Z..7.0.I.1.Z:.2,FF$(I):.:
2..7.0...7.6...7.6. *** AUSSORTIEREN FR
EMDER LISTEN ***..7D6..I7N6.B.2....8X6.V
$;"AUSSORTIEREN FREMDER LISTEN":DI$."@:D
IFFERENZ":LI$."LISTE":X.1.B8.6.X$;"MIT W
ELCHER LISTE VERGLEICHEN ?":.17000..8.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..8.7
.2,8,2,"@:LISTE".",S,W":.16000..9.7.T..0
. 5: 2:.X$;K$:.X$;ZM$:.11000:...9.7.5,C.
.9(7.J.1.C.0927.5,D$:.".....";D$.;9<7.I.
1.B.[9F7.H(D$,SK).H(B$(I),SK).14300.B9P7
.I.R9Z7.2,D$:X.X.1.Y9D7.J..9N7 5: 2:X.X.
1..9X7.X.0.."... KEIN NEUES ELEMENT GEFU
NDEN":.10000.R9.7.7,8,7,DI$.",S,W"..9.7.
7,X..9.7.5,8,5,LI$.",S,R"..: 7.I.1.X:.5,
D$:.7,D$:...:.7 7: 5.<:.7.V$;"DAS AUSSOR
TIEREN IST BEENDET ".C:.7.X$;"DAS DATENF
ILE < DIFFERENZ > "..:H7.X$;"KANN GELADE
N ERDEN "..:R7.15,8,15,"S0:LISTE": 15:.1
6000:...:.7.J.C.14190..:.7.J.B:.7..H:.:.
..:.:. *** ABFRAGE ROUTINEN ***..:.:...:
.>.3,T,K$,O,O:..-;HB.X$;"FILE NAME ";:F.
1:.18000:F.0:FI$.K$:..7;PFK$."".P;ZF.110
00:.A$.G(13)..:..};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.J;.F.A$.G
(31).K$.K$.A$:.A$;.U;.F.18010.... ..
> CLICK IMAGE PREVIEW FOR FULL MODAL