DISK-VERWALTUNG
FILE INFORMATION
FILENAME(S): DISK-VERWALTUNG
FILE TYPE(S): PRG
FILE SIZE: 10K
FIRST SEEN: 2025-12-01 02:26:31
APPEARS ON: 1 disk(s)
FILE HASH
ba226439b01b9d59d6b2ce8dd32490b5472bde8513ccfecd444bedb18dbd0d3c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JARVIS 22 B | DISK-VERWALTUNG | PRG | hedning, shine | 20 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 E8 03 8F 20 43 42 4D 20 44 49 53 4B |....... CBM DISK|
00000010: 2D 4C 49 42 20 56 2E 33 00 35 08 F2 03 8F 20 28 |-LIB V.3.5.... (|
00000020: 43 29 20 42 59 20 4D 49 43 48 41 45 4C 20 42 41 |C) BY MICHAEL BA|
00000030: 52 54 48 4F 53 00 47 08 FC 03 8F 20 56 45 52 53 |RTHOS.G.... VERS|
00000040: 49 4F 4E 20 33 2E 32 00 69 08 06 04 97 35 33 32 |ION 3.2.i....532|
00000050: 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 99 22 |80,0:.53281,0:."|
00000060: 93 05 22 C7 28 31 34 32 29 00 8F 08 08 04 9F 31 |..".(142)......1|
00000070: 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 |5,8,15,"I0":.2,8|
00000080: 2C 32 2C 22 30 3A 4E 41 4D 45 2C 53 2C 52 22 00 |,2,"0:NAME,S,R".|
00000090: AE 08 09 04 53 B2 53 54 3A 8D 32 35 36 30 3A 8B |....S.ST:.2560:.|
000000A0: 45 4E B2 36 32 A7 A0 32 3A 89 31 30 33 36 00 C2 |EN.62..2:.1036..|
000000B0: 08 0A 04 84 32 2C 4E 38 24 3A A0 32 3A 89 31 30 |....2,N8$:.2:.10|
000000C0: 35 30 00 E0 08 0C 04 85 22 93 11 11 11 11 11 11 |50......".......|
000000D0: 20 20 49 48 52 20 4E 41 4D 45 20 22 3B 4E 38 24 | IHR NAME ";N8$|
000000E0: 00 03 09 0E 04 9F 32 2C 38 2C 32 2C 22 30 3A 4E |......2,8,2,"0:N|
000000F0: 41 4D 45 2C 53 2C 57 22 3A 53 B2 53 54 3A 8D 32 |AME,S,W":S.ST:.2|
00000100: 35 36 30 00 11 09 10 04 98 32 2C 4E 38 24 3A A0 |560......2,N8$:.|
00000110: 32 00 24 09 1A 04 4E 38 24 B2 C7 28 31 32 39 29 |2.$...N8$..(129)|
00000120: AA 4E 38 24 00 51 09 24 04 99 22 93 20 20 20 20 |.N8$.Q.$..". |
00000130: 12 20 20 44 49 53 4B 20 2D 20 4C 49 42 52 41 52 |. DISK - LIBRAR|
00000140: 59 20 56 45 52 53 49 4F 4E 20 34 2E 31 20 20 92 |Y VERSION 4.1 .|
00000150: 22 00 82 09 2E 04 99 22 11 42 49 54 54 45 20 4C |"......".BITTE L|
00000160: 49 42 52 41 52 59 2D 44 49 53 4B 20 49 4E 20 44 |IBRARY-DISK IN D|
00000170: 52 49 56 45 20 23 30 20 45 49 4E 4C 45 47 45 4E |RIVE #0 EINLEGEN|
00000180: 2E 22 00 C4 09 42 04 83 44 49 56 45 52 53 45 53 |."...B..DIVERSES|
00000190: 2C 43 4F 4D 50 49 4C 45 52 2C 42 55 53 49 4E 45 |,COMPILER,BUSINE|
000001A0: 53 53 2C 41 52 43 48 49 56 2C 55 54 49 4C 49 54 |SS,ARCHIV,UTILIT|
000001B0: 49 45 53 2C 41 53 53 45 4D 42 4C 45 52 2C 53 50 |IES,ASSEMBLER,SP|
000001C0: 49 45 4C 45 00 DB 09 4C 04 83 20 44 41 54 45 4E |IELE...L.. DATEN|
000001D0: 20 49 2F 4F 2C 47 52 41 46 49 4B 00 0C 0A 60 04 | I/O,GRAFIK...`.|
000001E0: 4E B2 39 3A 4D 41 B2 36 30 30 3A 54 4C 24 B2 22 |N.9:MA.600:TL$."|
000001F0: C2 22 3A 86 52 55 24 28 31 31 29 2C 46 49 24 28 |.":.RU$(11),FI$(|
00000200: 36 30 30 29 2C 41 28 31 30 30 30 29 00 29 0A 6A |600),A(1000).).j|
00000210: 04 81 49 B2 31 A4 34 30 3A 4C 49 24 B2 4C 49 24 |..I.1.40:LI$.LI$|
00000220: AA C7 28 31 39 32 29 3A 82 00 5C 0A B0 04 99 4C |..(192):..\....L|
00000230: 49 24 3A 99 22 20 20 20 42 49 54 54 45 20 57 41 |I$:." BITTE WA|
00000240: 45 48 4C 45 4E 3A 22 3A 99 22 20 20 20 C4 C4 C4 |EHLEN:":." ...|
00000250: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 8A 0A BA |..........."....|
00000260: 04 81 49 B2 31 A4 4E 3A 87 52 55 24 3A 52 55 24 |..I.1.N:.RU$:RU$|
00000270: 28 49 29 B2 C8 28 52 55 24 AA 22 20 20 20 20 20 |(I)..(RU$." |
00000280: 20 20 20 20 20 22 2C 31 30 29 00 BA 0A C4 04 99 | ",10)......|
00000290: 2C 22 12 22 3B C9 28 22 20 20 20 20 20 22 AA C4 |,".";.(" "..|
000002A0: 28 49 29 2C 33 29 3B 22 20 92 20 2E 2E 2E 2E 2E |(I),3);" . .....|
000002B0: 2E 20 22 3B 52 55 24 28 49 29 00 C2 0A CE 04 82 |. ";RU$(I)......|
000002C0: 3A 99 00 FA 0A D8 04 99 2C 22 12 22 3B C9 28 22 |:.......,".";.("|
000002D0: 20 20 20 20 20 22 AA C4 28 4E AA 31 29 2C 33 29 | "..(N.1),3)|
000002E0: 3B 22 20 92 20 2E 2E 2E 2E 2E 2E 20 4B 45 49 4E |;" . ...... KEIN|
000002F0: 45 20 41 4E 47 41 42 45 4E 22 00 32 0B E2 04 99 |E ANGABEN".2....|
00000300: 2C 22 12 22 3B C9 28 22 20 20 20 20 20 22 AA C4 |,".";.(" "..|
00000310: 28 4E AA 32 29 2C 33 29 3B 22 20 92 20 2E 2E 2E |(N.2),3);" . ...|
00000320: 2E 2E 2E 20 50 52 4F 47 52 41 4D 4D 2D 45 4E 44 |... PROGRAMM-END|
00000330: 45 22 00 3F 0B EC 04 99 3A 99 4C 49 24 3A 99 00 |E".?....:.LI$:..|
00000340: 59 0B F6 04 99 22 57 45 4C 43 48 45 20 4E 55 4D |Y...."WELCHE NUM|
00000350: 4D 45 52 20 3F 20 12 22 3B 00 81 0B 00 05 8D 31 |MER ? .";......1|
00000360: 33 35 30 3A 8B C5 28 57 24 29 B3 31 B0 C5 28 57 |350:..(W$).1..(W|
00000370: 24 29 B1 4E AA 32 A7 99 22 91 22 3A 89 31 32 37 |$).N.2..".":.127|
00000380: 30 00 96 0B 0A 05 8B C5 28 57 24 29 B2 4E AA 32 |0.......(W$).N.2|
00000390: A7 A0 31 35 3A 80 00 BC 0B 14 05 8B C5 28 57 24 |..15:........(W$|
000003A0: 29 B2 4E AA 31 A7 52 55 24 28 4E AA 31 29 B2 22 |).N.1.RU$(N.1)."|
000003B0: 92 2F 20 20 20 20 20 20 20 20 20 22 00 C6 0B 1E |./ "....|
000003C0: 05 89 31 34 32 30 00 E7 0B 46 05 8F 20 41 4E 54 |..1420...F.. ANT|
000003D0: 57 4F 52 54 45 4E 20 56 4F 4E 20 44 45 52 20 54 |WORTEN VON DER T|
000003E0: 41 53 54 41 54 55 52 00 FA 0B 50 05 99 22 92 5F |ASTATUR...P.."._|
000003F0: 12 9D 22 3B 3A 57 24 B2 22 22 00 18 0C 5A 05 9F |..";:W$.""...Z..|
00000400: 39 2C 30 3A 84 39 2C 57 24 3A A0 39 3A 99 C7 28 |9,0:.9,W$:.9:..(|
00000410: 31 33 29 3B 22 91 22 3B 00 1E 0C 64 05 8E 00 2C |13);".";...d...,|
00000420: 0C 8C 05 8F 20 4D 45 4E 55 45 23 32 00 70 0C 96 |.... MENUE#2.p..|
00000430: 05 83 44 49 53 4B 45 54 54 45 4E 2D 47 45 53 41 |..DISKETTEN-GESA|
00000440: 4D 54 55 45 42 45 52 53 49 43 48 54 2C 42 45 52 |MTUEBERSICHT,BER|
00000450: 45 49 43 48 53 55 45 42 45 52 53 49 43 48 54 2C |EICHSUEBERSICHT,|
00000460: 50 52 4F 47 52 41 4D 4D 45 20 53 55 43 48 45 4E |PROGRAMME SUCHEN|
00000470: 00 B5 0C A0 05 83 4E 45 55 45 20 44 49 53 4B 45 |......NEUE DISKE|
00000480: 54 54 45 20 41 55 46 4E 45 48 4D 45 4E 2C 44 49 |TTE AUFNEHMEN,DI|
00000490: 53 4B 45 54 54 45 20 4C 4F 45 53 43 48 45 4E 2C |SKETTE LOESCHEN,|
000004A0: 49 4E 48 41 4C 54 20 45 49 4E 45 52 20 44 49 53 |INHALT EINER DIS|
000004B0: 4B 45 54 54 45 00 C7 0C AA 05 83 2A 2A 2A 20 45 |KETTE......*** E|
000004C0: 4E 44 45 20 2A 2A 2A 00 D4 0C B4 05 4E 52 B2 C5 |NDE ***.....NR..|
000004D0: 28 57 24 29 00 01 0D BE 05 99 22 93 12 22 3B 4C |(W$)......"..";L|
000004E0: 49 24 3B 22 92 20 12 20 4D 45 4E 55 45 20 23 32 |I$;". . MENUE #2|
000004F0: 20 92 22 2C 22 52 55 42 52 49 4B 3A 20 20 12 22 | .","RUBRIK: ."|
00000500: 3B 00 16 0D C8 05 99 52 55 24 28 4E 52 29 3A 99 |;......RU$(NR):.|
00000510: 22 12 22 4C 49 24 00 2A 0D D2 05 81 49 B2 31 A4 |"."LI$.*....I.1.|
00000520: 37 3A 87 58 24 28 49 29 3A 99 00 4D 0D DC 05 99 |7:.X$(I):..M....|
00000530: 22 20 20 20 12 20 22 3B 49 3B 22 9D 20 20 92 20 |" . ";I;". . |
00000540: 20 20 20 20 22 3B 58 24 28 49 29 3A 82 00 68 0D | ";X$(I):..h.|
00000550: F0 05 99 22 11 11 57 45 4C 43 48 45 20 4E 55 4D |..."..WELCHE NUM|
00000560: 4D 45 52 20 3F 20 22 3B 00 91 0D FA 05 8D 31 33 |MER ? ";......13|
00000570: 35 30 20 3A 8B C5 28 57 24 29 B3 31 B0 C5 28 57 |50 :..(W$).1..(W|
00000580: 24 29 B1 37 A7 99 22 91 91 91 22 3A 89 31 35 32 |$).7.."...":.152|
00000590: 30 00 BF 0D 04 06 91 C5 28 57 24 29 89 33 30 34 |0.......(W$).304|
000005A0: 30 2C 33 34 31 30 2C 33 35 36 30 2C 31 36 30 30 |0,3410,3560,1600|
000005B0: 2C 33 37 38 30 2C 34 31 36 30 2C 31 35 36 30 00 |,3780,4160,1560.|
000005C0: D0 0D 0E 06 99 22 91 91 91 22 3A 89 31 35 32 30 |....."...":.1520|
000005D0: 00 DA 0D 18 06 A0 31 35 3A 80 00 F5 0D 40 06 8F |......15:....@..|
000005E0: 20 4E 45 55 45 20 44 49 53 4B 20 49 4E 20 4C 49 | NEUE DISK IN LI|
000005F0: 42 52 41 52 59 00 FD 0D 4A 06 99 3A 99 00 2F 0E |BRARY...J..:../.|
00000600: 54 06 8B 4E 52 B1 4E A7 99 22 20 20 20 2A 2A 2A |T..NR.N.." ***|
00000610: 20 4B 45 49 4E 45 20 52 55 42 52 49 4B 20 41 4E | KEINE RUBRIK AN|
00000620: 47 45 48 45 42 45 4E 2E 20 2A 2A 2A 22 3A 80 00 |GEHEBEN. ***":..|
00000630: 5B 0E 5E 06 99 22 93 20 20 20 42 49 54 54 45 20 |[.^..". BITTE |
00000640: 44 49 45 20 4E 45 55 45 20 44 49 53 4B 45 54 54 |DIE NEUE DISKETT|
00000650: 45 20 45 49 4E 4C 45 47 45 4E 22 00 7E 0E 68 06 |E EINLEGEN".~.h.|
00000660: 99 2C 22 11 55 4E 44 20 45 49 4E 45 20 12 54 41 |.,".UND EINE .TA|
00000670: 53 54 45 20 44 52 55 45 43 4B 45 4E 21 22 00 89 |STE DRUECKEN!"..|
00000680: 0E 72 06 97 31 39 38 2C 30 00 AC 0E 7C 06 92 31 |.r..198,0...|..1|
00000690: 39 38 2C 31 3A A1 54 24 3A 8B 44 41 24 B3 B1 22 |98,1:.T$:.DA$.."|
000006A0: 22 A7 99 22 93 22 3A 89 31 37 31 30 00 D9 0E 86 |"..".":.1710....|
000006B0: 06 99 22 11 11 11 42 49 54 54 45 20 44 41 53 20 |.."...BITTE DAS |
000006C0: 48 45 55 54 49 47 45 20 44 41 54 55 4D 20 45 49 |HEUTIGE DATUM EI|
000006D0: 4E 47 45 42 45 4E 20 21 22 00 00 0F 90 06 99 2C |NGEBEN !"......,|
000006E0: 22 11 11 11 11 20 20 20 20 20 58 58 2E 58 58 2E |".... XX.XX.|
000006F0: 31 39 38 33 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B |1983..........";|
00000700: 00 1F 0F 9A 06 9F 31 2C 30 3A 84 31 2C 44 41 24 |......1,0:.1,DA$|
00000710: 3A A0 31 3A 99 C7 28 31 33 29 3B 22 93 22 3B 00 |:.1:..(13);".";.|
00000720: 2F 0F AE 06 8F 20 44 49 52 20 4C 45 53 45 4E 00 |/.... DIR LESEN.|
00000730: 3C 0F B3 06 98 31 35 2C 22 49 30 22 00 5D 0F B8 |<....15,"I0".]..|
00000740: 06 9F 31 30 30 2C 38 2C 30 2C 22 24 30 22 3A 8D |..100,8,0,"$0":.|
00000750: 32 35 36 30 3A 8B 45 4E A7 31 38 33 30 00 72 0F |2560:.EN.1830.r.|
00000760: C2 06 A1 23 31 30 30 2C 41 24 2C 42 24 3A 4E 30 |...#100,A$,B$:N0|
00000770: B2 30 00 8D 0F CC 06 A1 23 31 30 30 2C 41 24 2C |.0......#100,A$,|
00000780: 42 24 3A 5A 30 B2 30 3A 52 24 B2 22 22 00 9D 0F |B$:Z0.0:R$.""...|
00000790: D6 06 8B 53 54 B3 B1 30 A7 31 38 33 30 00 AD 0F |...ST..0.1830...|
000007A0: E0 06 A1 23 31 30 30 2C 41 24 2C 42 24 00 B9 0F |...#100,A$,B$...|
000007B0: EA 06 4E 24 B2 C7 28 30 29 00 E8 0F F4 06 46 49 |..N$..(0).....FI|
000007C0: 24 B2 C9 28 22 20 20 20 20 20 20 22 AA C4 28 C6 |$..(" "..(.|
000007D0: 28 41 24 AA 4E 24 29 AA C6 28 42 24 AA 4E 24 29 |(A$.N$)..(B$.N$)|
000007E0: AC 32 35 36 29 2C 36 29 00 0A 10 FE 06 A1 23 31 |.256),6)......#1|
000007F0: 30 30 2C 41 24 3A 8B 41 24 B2 C7 28 33 34 29 A7 |00,A$:.A$..(34).|
00000800: 5A 30 B2 B4 28 5A 30 AA 31 29 00 31 10 08 07 8B |Z0..(Z0.1).1....|
00000810: 41 24 B2 22 22 A7 4E 30 B2 4E 30 AA 31 3A 4E 31 |A$."".N0.N0.1:N1|
00000820: B2 4E 30 AB 31 3A 8D 31 38 35 30 3A 89 31 37 34 |.N0.1:.1850:.174|
00000830: 30 00 46 10 12 07 8B 5A 30 B2 31 A7 46 49 24 B2 |0.F....Z0.1.FI$.|
00000840: 46 49 24 AA 41 24 00 50 10 1C 07 89 31 37 39 30 |FI$.A$.P....1790|
00000850: 00 5F 10 26 07 A0 31 30 30 3A 89 31 39 37 30 00 |._.&..100:.1970.|
00000860: 65 10 3A 07 8F 00 85 10 44 07 8B 4E 30 B2 31 A7 |e.:.....D..N0.1.|
00000870: 31 39 34 30 20 20 20 20 20 20 20 3A 8F 20 20 48 |1940 :. H|
00000880: 45 41 44 45 52 00 A4 10 4E 07 8B C3 28 46 49 24 |EADER...N...(FI$|
00000890: 29 B2 36 A7 31 39 35 30 20 3A 8F 20 20 44 49 52 |).6.1950 :. DIR|
000008A0: 2D 45 4E 44 00 C0 10 58 07 8F 20 44 41 54 4E 41 |-END...X.. DATNA|
000008B0: 4D 20 49 53 4F 4C 49 45 52 45 4E 20 28 46 24 29 |M ISOLIEREN (F$)|
000008C0: 00 F5 10 62 07 46 24 B2 22 22 3A 81 49 B2 38 A4 |...b.F$."":.I.8.|
000008D0: 32 34 3A 54 24 B2 CA 28 46 49 24 2C 49 2C 31 29 |24:T$..(FI$,I,1)|
000008E0: 3A 8B 54 24 B2 C7 28 33 34 29 A7 49 B2 32 34 3A |:.T$..(34).I.24:|
000008F0: 89 31 39 31 30 00 02 11 6C 07 46 24 B2 46 24 AA |.1910...l.F$.F$.|
00000900: 54 24 00 40 11 76 07 82 3A 46 49 24 28 4E 31 29 |T$.@.v..:FI$(N1)|
00000910: B2 C8 28 46 24 AA 22 20 20 20 20 20 20 20 20 20 |..(F$." |
00000920: 20 20 20 20 20 20 20 20 20 22 2C 31 38 29 AA C8 | ",18)..|
00000930: 28 46 49 24 2C 36 29 AA 22 20 20 22 AA 49 44 24 |(FI$,6)." ".ID$|
00000940: 00 7C 11 80 07 99 22 20 20 20 22 3B 46 49 24 28 |.|...." ";FI$(|
00000950: 4E 31 29 3B 22 20 20 22 3B 3A 8B CA 28 46 49 24 |N1);" ";:..(FI$|
00000960: 2C 32 36 2C 33 29 B3 B1 22 50 52 47 22 A7 4E 30 |,26,3).."PRG".N0|
00000970: B2 4E 30 AB 31 3A 52 24 B2 22 12 22 00 92 11 8A |.N0.1:R$."."....|
00000980: 07 99 52 24 3B CA 28 46 49 24 2C 32 36 2C 33 29 |..R$;.(FI$,26,3)|
00000990: 3A 8E 00 C5 11 94 07 48 44 24 B2 C9 28 46 49 24 |:......HD$..(FI$|
000009A0: 2C 32 34 29 3A 49 44 24 B2 CA 28 48 44 24 2C 32 |,24):ID$..(HD$,2|
000009B0: 30 2C 32 29 3A 99 22 20 20 20 20 20 20 12 22 3B |0,2):." .";|
000009C0: 48 44 24 3A 8E 00 0A 12 9E 07 99 22 11 20 20 20 |HD$:.......". |
000009D0: 20 22 3B 46 49 24 3B 22 20 42 4C 4F 43 4B 53 20 | ";FI$;" BLOCKS |
000009E0: 46 52 45 45 2E 22 3A 48 44 24 B2 48 44 24 AA 46 |FREE.":HD$.HD$.F|
000009F0: 49 24 AA 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 |I$." BLOCKS FREE|
00000A00: 2E 20 20 22 AA 44 41 24 3A 8E 00 1E 12 B2 07 8F |. ".DA$:.......|
00000A10: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 45 4E 00 3B | INFORMATIONEN.;|
00000A20: 12 BC 07 81 49 B2 31 A4 31 30 30 30 3A 82 3A 99 |....I.1.1000:.:.|
00000A30: C7 28 31 34 37 29 3B 4C 49 24 3B 00 7D 12 C6 07 |.(147);LI$;.}...|
00000A40: 99 22 12 49 4E 46 4F 52 4D 41 54 49 4F 4E 45 4E |.".INFORMATIONEN|
00000A50: 3A 92 20 20 20 20 20 44 49 53 4B 2D 49 44 3A 20 |:. DISK-ID: |
00000A60: 12 22 3B 49 44 24 3A 99 22 11 20 20 44 49 53 4B |.";ID$:.". DISK|
00000A70: 2D 4E 41 4D 45 3A 20 20 20 20 12 22 3B 00 8C 12 |-NAME: .";...|
00000A80: D0 07 99 C8 28 48 44 24 2C 31 38 29 00 BE 12 E4 |....(HD$,18)....|
00000A90: 07 4E 30 B2 4E 30 AB 32 3A 99 22 11 20 20 41 4E |.N0.N0.2:.". AN|
00000AA0: 5A 41 48 4C 20 44 45 52 20 50 52 4F 47 52 41 4D |ZAHL DER PROGRAM|
00000AB0: 4D 45 3A 20 20 20 20 20 20 20 22 3B 4E 30 00 F4 |ME: ";N0..|
00000AC0: 12 EE 07 99 22 11 20 20 41 4E 5A 41 48 4C 20 44 |....". ANZAHL D|
00000AD0: 45 52 20 46 52 45 49 45 4E 20 42 4C 4F 45 43 4B |ER FREIEN BLOECK|
00000AE0: 45 3A 20 20 20 20 20 22 3B CA 28 48 44 24 2C 32 |E: ";.(HD$,2|
00000AF0: 35 2C 36 29 00 1E 13 F8 07 99 3A 99 4C 49 24 3A |5,6)......:.LI$:|
00000B00: 48 44 24 B2 48 44 24 AA 22 20 20 23 22 AA C9 28 |HD$.HD$." #"..(|
00000B10: 22 20 20 20 22 AA C4 28 4E 30 29 2C 33 29 00 35 |" "..(N0),3).5|
00000B20: 13 0C 08 8F 20 53 54 41 52 54 41 44 52 20 44 45 |.... STARTADR DE|
00000B30: 52 20 50 47 4D 00 66 13 16 08 99 22 53 54 41 52 |R PGM.f...."STAR|
00000B40: 54 41 44 52 45 53 53 45 4E 20 44 45 52 20 50 52 |TADRESSEN DER PR|
00000B50: 4F 47 52 41 4D 4D 45 20 45 49 4E 4C 45 53 45 4E |OGRAMME EINLESEN|
00000B60: 2E 2E 11 11 11 22 00 87 13 20 08 8B 4E 30 B2 30 |....."... ..N0.0|
00000B70: A7 99 22 4B 45 49 4E 45 20 50 52 4F 47 52 41 4D |.."KEINE PROGRAM|
00000B80: 4D 45 20 20 22 3A 80 00 AE 13 2A 08 81 49 B2 31 |ME ":....*..I.1|
00000B90: A4 4E 30 3A 46 24 B2 C8 28 46 49 24 28 49 29 2C |.N0:F$..(FI$(I),|
00000BA0: 31 36 29 3A 81 4A B2 31 36 A4 31 A9 AB 31 00 CC |16):.J.16.1..1..|
00000BB0: 13 34 08 8B CA 28 46 24 2C 4A 2C 31 29 B3 B1 22 |.4...(F$,J,1).."|
00000BC0: 20 22 A7 4A B2 31 3A 89 32 31 32 30 00 DD 13 3E | ".J.1:.2120...>|
00000BD0: 08 46 24 B2 C8 28 46 24 2C 4A AB 31 29 00 E4 13 |.F$..(F$,J.1)...|
00000BE0: 48 08 82 4A 00 F7 13 52 08 9F 31 2C 38 2C 30 2C |H..J...R..1,8,0,|
00000BF0: 22 30 3A 22 AA 46 24 00 11 14 5C 08 A1 23 31 2C |"0:".F$...\..#1,|
00000C00: 58 24 3A 8B 58 24 B2 22 22 A7 58 24 B2 C7 28 30 |X$:.X$."".X$..(0|
00000C10: 29 00 1D 14 66 08 58 B2 C6 28 58 24 29 00 37 14 |)...f.X..(X$).7.|
00000C20: 70 08 A1 23 31 2C 59 24 3A 8B 59 24 B2 22 22 A7 |p..#1,Y$:.Y$."".|
00000C30: 59 24 B2 C7 28 30 29 00 4E 14 7A 08 59 B2 C6 28 |Y$..(0).N.z.Y..(|
00000C40: 59 24 29 3A 44 45 B2 58 AA 32 35 36 AC 59 00 5B |Y$):DE.X.256.Y.[|
00000C50: 14 84 08 A0 31 3A 8D 32 32 30 30 00 88 14 8E 08 |....1:.2200.....|
00000C60: 46 49 24 28 49 29 B2 46 49 24 28 49 29 AA 22 20 |FI$(I).FI$(I)." |
00000C70: 20 24 22 AA 58 24 3A 99 22 91 22 3B 46 49 24 28 | $".X$:.".";FI$(|
00000C80: 49 29 3A 89 32 32 35 30 00 B0 14 98 08 58 24 B2 |I):.2250.....X$.|
00000C90: 22 22 3A 81 5A 30 B2 34 A4 31 A9 AB 31 3A 5A 31 |"":.Z0.4.1..1:Z1|
00000CA0: B2 B5 28 44 45 AD 31 36 AE 28 5A 30 AB 31 29 29 |..(DE.16.(Z0.1))|
00000CB0: 00 CA 14 A2 08 8B 5A 31 B2 30 A7 58 24 B2 58 24 |......Z1.0.X$.X$|
00000CC0: AA 22 30 22 3A 89 32 32 34 30 00 F5 14 AC 08 8B |."0":.2240......|
00000CD0: 5A 31 B3 31 30 A7 58 24 B2 58 24 AA C9 28 C4 28 |Z1.10.X$.X$..(.(|
00000CE0: 5A 31 29 2C C3 28 C4 28 5A 31 29 29 AB 31 29 3A |Z1),.(.(Z1)).1):|
00000CF0: 89 32 32 34 30 00 08 15 B6 08 58 24 B2 58 24 AA |.2240.....X$.X$.|
00000D00: C7 28 5A 31 AA 35 35 29 00 23 15 C0 08 44 45 B2 |.(Z1.55).#...DE.|
00000D10: 44 45 AB 5A 31 AC 31 36 AE 28 5A 30 AB 31 29 3A |DE.Z1.16.(Z0.1):|
00000D20: 82 3A 8E 00 2F 15 CA 08 82 49 3A 99 22 11 22 00 |.:../....I:.".".|
00000D30: 52 15 DE 08 8F 20 52 55 42 52 49 4B 20 5A 55 4C |R.... RUBRIK ZUL|
00000D40: 41 44 45 4E 20 28 52 55 24 28 4E 52 29 2E 4C 49 |ADEN (RU$(NR).LI|
00000D50: 42 29 00 74 15 DF 08 99 22 11 11 11 20 20 4C 49 |B).t...."... LI|
00000D60: 42 52 41 52 59 2D 44 49 53 4B 20 45 49 4E 4C 45 |BRARY-DISK EINLE|
00000D70: 47 45 4E 22 00 9B 15 E0 08 99 2C 22 11 55 4E 44 |GEN"......,".UND|
00000D80: 20 12 54 41 53 54 45 92 20 44 52 55 45 43 4B 45 | .TASTE. DRUECKE|
00000D90: 4E 20 21 22 3A 97 31 39 38 2C 30 00 AB 15 E1 08 |N !":.198,0.....|
00000DA0: 92 31 39 38 2C 31 3A A1 5A 58 24 00 C8 15 E8 08 |.198,1:.ZX$.....|
00000DB0: 4C 42 24 B2 52 55 24 28 4E 52 29 AA 22 2E 4C 49 |LB$.RU$(NR).".LI|
00000DC0: 42 22 3A 4E 31 B2 4E 30 00 F5 15 F2 08 9F 33 2C |B":N1.N0......3,|
00000DD0: 38 2C 35 2C 22 30 3A 22 AA 4C 42 24 AA 22 2C 53 |8,5,"0:".LB$.",S|
00000DE0: 2C 52 22 3A 8D 32 35 36 30 3A 8B 45 4E B2 36 32 |,R":.2560:.EN.62|
00000DF0: A7 32 33 33 30 00 FF 15 FC 08 8D 32 35 36 30 00 |.2330......2560.|
00000E00: 2D 16 06 09 4E 31 B2 4E 31 AA 31 3A 84 33 2C 46 |-...N1.N1.1:.3,F|
00000E10: 49 24 28 4E 31 29 3A 53 B2 53 54 3A 8D 32 35 36 |I$(N1):S.ST:.256|
00000E20: 30 3A 8B 4E 31 B2 4D 41 A7 32 33 33 30 00 3D 16 |0:.N1.MA.2330.=.|
00000E30: 10 09 8B 53 B3 B1 36 34 A7 32 33 31 30 00 55 16 |...S..64.2310.U.|
00000E40: 1A 09 A0 33 3A 4E B2 4E 31 3A 8D 32 33 37 30 3A |...3:N.N1:.2370:|
00000E50: 89 32 36 34 30 00 7A 16 42 09 8F 20 44 41 54 45 |.2640.z.B.. DATE|
00000E60: 49 4E 41 4D 45 4E 20 53 4F 52 54 49 45 52 45 4E |INAMEN SORTIEREN|
00000E70: 20 28 41 4C 46 41 53 4F 52 54 00 B0 16 4C 09 99 | (ALFASORT...L..|
00000E80: 22 11 11 53 4F 52 54 49 45 52 2D 52 4F 55 54 49 |"..SORTIER-ROUTI|
00000E90: 4E 45 20 42 45 47 49 4E 4E 54 20 2E 2E 2E 22 3A |NE BEGINNT ...":|
00000EA0: 4C 30 B2 4E 3A 8B 4E B3 31 30 A7 4C 30 B2 31 30 |L0.N:.N.10.L0.10|
00000EB0: 00 EA 16 56 09 86 53 28 31 30 30 30 2C 31 29 3A |...V..S(1000,1):|
00000EC0: 53 28 31 2C 30 29 B2 31 3A 53 28 31 2C 31 29 B2 |S(1,0).1:S(1,1).|
00000ED0: 4E 3A 81 49 B2 31 A4 4E 3A 41 28 49 29 B2 4E AA |N:.I.1.N:A(I).N.|
00000EE0: 31 AB 49 3A 82 3A 53 31 B2 31 00 0A 17 60 09 4C |1.I:.:S1.1...`.L|
00000EF0: B2 53 28 53 31 2C 30 29 3A 52 B2 53 28 53 31 2C |.S(S1,0):R.S(S1,|
00000F00: 31 29 3A 53 31 B2 53 31 AB 31 00 2D 17 6A 09 49 |1):S1.S1.1.-.j.I|
00000F10: B2 4C 3A 4A B2 52 3A 41 4D 24 B2 46 49 24 28 41 |.L:J.R:AM$.FI$(A|
00000F20: 28 B5 28 28 4C AA 52 29 AD 32 29 29 29 00 51 17 |(.((L.R).2))).Q.|
00000F30: 74 09 8B 46 49 24 28 41 28 49 29 29 B3 41 4D 24 |t..FI$(A(I)).AM$|
00000F40: A7 8B 49 B3 52 A7 49 B2 49 AA 31 3A 89 32 34 32 |..I.R.I.I.1:.242|
00000F50: 30 00 75 17 7E 09 8B 46 49 24 28 41 28 4A 29 29 |0.u.~..FI$(A(J))|
00000F60: B1 41 4D 24 A7 8B 4A B1 4C A7 4A B2 4A AB 31 3A |.AM$..J.L.J.J.1:|
00000F70: 89 32 34 33 30 00 A9 17 88 09 8B 49 B3 B2 4A A7 |.2430......I..J.|
00000F80: 5A B2 41 28 49 29 3A 41 28 49 29 B2 41 28 4A 29 |Z.A(I):A(I).A(J)|
00000F90: 3A 41 28 4A 29 B2 5A 3A 49 B2 49 AA 31 3A 4A B2 |:A(J).Z:I.I.1:J.|
00000FA0: 4A AB 31 3A 89 32 34 32 30 00 BC 17 92 09 8B 52 |J.1:.2420......R|
00000FB0: AB 49 B3 B2 4A AB 4C A7 32 34 38 30 00 E1 17 9C |.I..J.L.2480....|
00000FC0: 09 8B 4C B3 4A A7 53 31 B2 53 31 AA 31 3A 53 28 |..L.J.S1.S1.1:S(|
00000FD0: 53 31 2C 30 29 B2 4C 3A 53 28 53 31 2C 31 29 B2 |S1,0).L:S(S1,1).|
00000FE0: 4A 00 EF 17 A6 09 4C B2 49 3A 89 32 35 30 30 00 |J.....L.I:.2500.|
00000FF0: 14 18 B0 09 8B 49 B3 52 A7 53 31 B2 53 31 AA 31 |.....I.R.S1.S1.1|
00001000: 3A 53 28 53 31 2C 30 29 B2 49 3A 53 28 53 31 2C |:S(S1,0).I:S(S1,|
00001010: 31 29 B2 52 00 1C 18 BA 09 52 B2 4A 00 2A 18 C4 |1).R.....R.J.*..|
00001020: 09 8B 52 B1 4C A7 32 34 31 30 00 37 18 CE 09 8B |..R.L.2410.7....|
00001030: 53 31 A7 32 34 30 30 00 3D 18 D8 09 8E 00 52 18 |S1.2400.=.....R.|
00001040: 00 0A 8F 20 46 4C 4F 50 50 59 2D 45 52 52 4F 52 |... FLOPPY-ERROR|
00001050: 20 3F 00 67 18 0A 0A 84 31 35 2C 45 4E 2C 45 4D | ?.g....15,EN,EM|
00001060: 24 2C 45 54 2C 45 53 00 7D 18 14 0A 8B 28 45 4E |$,ET,ES.}....(EN|
00001070: B2 30 29 B0 28 45 4E B2 36 32 29 A7 8E 00 C4 18 |.0).(EN.62).....|
00001080: 1E 0A 99 22 46 4C 4F 50 50 59 2D 12 45 52 52 4F |..."FLOPPY-.ERRO|
00001090: 52 92 20 22 3B 45 4D 24 3B 45 54 3B 45 53 3B 22 |R. ";EM$;ET;ES;"|
000010A0: 20 20 53 54 41 54 55 53 3A 22 3B 53 3A 99 22 50 | STATUS:";S:."P|
000010B0: 52 4F 47 52 41 4D 20 41 42 4F 52 54 45 44 20 2E |ROGRAM ABORTED .|
000010C0: 2E 2E 22 3B 00 FE 18 28 0A 8B 45 4D B2 31 A7 99 |..";...(..EM.1..|
000010D0: 3A 99 22 12 5A 57 49 53 43 48 45 4E 46 49 4C 45 |:.".ZWISCHENFILE|
000010E0: 92 20 45 4E 54 48 41 45 4C 54 20 57 49 43 48 54 |. ENTHAELT WICHT|
000010F0: 49 47 45 20 44 41 54 45 4E 20 21 21 22 3B 00 1A |IGE DATEN !!";..|
00001100: 19 32 0A A0 31 3A A0 33 3A A0 31 35 3A 98 32 2C |.2..1:.3:.15:.2,|
00001110: C7 28 31 32 29 3A A0 32 3A 80 00 37 19 50 0A 8F |.(12):.2:..7.P..|
00001120: 20 44 49 53 4B 20 53 43 48 4F 4E 20 41 52 43 48 | DISK SCHON ARCH|
00001130: 49 56 49 45 52 54 3F 00 66 19 5A 0A 48 44 24 B2 |IVIERT?.f.Z.HD$.|
00001140: 52 55 24 28 4E 52 29 AA 22 20 20 22 AA 48 44 24 |RU$(NR)." ".HD$|
00001150: 3A 45 52 B2 30 3A 48 4D 24 B2 CA 28 48 44 24 2C |:ER.0:HM$..(HD$,|
00001160: 31 33 2C 32 34 29 00 9F 19 64 0A 9F 31 2C 38 2C |13,24)...d..1,8,|
00001170: 33 2C 22 30 3A 4C 49 42 52 41 52 59 2E 49 4E 48 |3,"0:LIBRARY.INH|
00001180: 41 4C 54 2C 53 2C 52 22 3A 53 B2 53 54 3A 8D 32 |ALT,S,R":S.ST:.2|
00001190: 35 36 30 3A 8B 45 4E B2 36 32 A7 32 37 31 30 00 |560:.EN.62.2710.|
000011A0: B4 19 78 0A 84 31 2C 48 24 3A 53 B2 53 54 3A 8D |..x..1,H$:S.ST:.|
000011B0: 32 35 36 30 00 CE 19 82 0A 8B CA 28 48 24 2C 31 |2560.......(H$,1|
000011C0: 33 2C 32 34 29 B2 48 4D 24 A7 45 52 B2 31 00 DE |3,24).HM$.ER.1..|
000011D0: 19 8C 0A 8B 53 B3 B1 36 34 A7 32 36 38 30 00 E5 |....S..64.2680..|
000011E0: 19 96 0A A0 31 00 16 1A A0 0A 8B 45 52 B2 31 A7 |....1......ER.1.|
000011F0: 99 22 11 11 44 49 53 4B 45 54 54 45 20 42 45 52 |."..DISKETTE BER|
00001200: 45 49 54 53 20 47 45 53 50 45 49 43 48 45 52 54 |EITS GESPEICHERT|
00001210: 20 21 21 22 3A 80 00 5D 1A AA 0A 99 22 11 44 49 | !!":..]....".DI|
00001220: 53 4B 45 54 54 45 20 4E 4F 43 48 20 4E 49 43 48 |SKETTE NOCH NICH|
00001230: 54 20 4B 41 54 41 4C 4F 47 49 53 49 45 52 54 2E |T KATALOGISIERT.|
00001240: 22 3A 85 22 20 55 45 42 45 52 4E 45 48 4D 45 4E |":." UEBERNEHMEN|
00001250: 3F 20 20 20 4A 9D 9D 9D 22 3B 41 4E 24 00 76 1A |? J...";AN$.v.|
00001260: B4 0A 8B C8 28 41 4E 24 2C 31 29 B3 B1 22 4A 22 |....(AN$,1).."J"|
00001270: A7 A0 31 35 3A 8A 00 98 1A BE 0A 9F 31 2C 38 2C |..15:.......1,8,|
00001280: 34 2C 22 30 3A 4C 49 42 52 41 52 59 2E 49 4E 48 |4,"0:LIBRARY.INH|
00001290: 41 4C 54 2C 53 2C 41 22 00 CB 1A C8 0A 8D 32 35 |ALT,S,A"......25|
000012A0: 36 30 3A 8B 45 4E B2 36 32 A7 3A A0 31 3A 9F 31 |60:.EN.62.:.1:.1|
000012B0: 2C 38 2C 34 2C 22 30 3A 4C 49 42 52 41 52 59 2E |,8,4,"0:LIBRARY.|
000012C0: 49 4E 48 41 4C 54 2C 53 2C 57 22 00 E1 1A D2 0A |INHALT,S,W".....|
000012D0: 98 31 2C 48 44 24 3A 53 B2 53 54 3A 8D 32 35 36 |.1,HD$:S.ST:.256|
000012E0: 30 00 E8 1A DC 0A A0 31 00 09 1B F0 0A 8F 20 44 |0......1...... D|
000012F0: 41 54 45 49 4E 41 4D 45 4E 20 53 4F 52 54 2E 20 |ATEINAMEN SORT. |
00001300: 41 42 53 50 45 49 43 48 2E 00 4C 1B FA 0A 98 31 |ABSPEICH..L....1|
00001310: 35 2C 22 52 30 3A 5A 57 49 53 43 48 45 4E 46 49 |5,"R0:ZWISCHENFI|
00001320: 4C 45 3D 22 AA 4C 42 24 3A 45 4D B2 31 3A 99 2C |LE=".LB$:EM.1:.,|
00001330: 22 11 11 2E 2E 2E 20 44 41 54 45 4E 53 50 45 49 |"..... DATENSPEI|
00001340: 43 48 45 52 55 4E 47 20 2E 2E 2E 22 00 5E 1B 04 |CHERUNG ...".^..|
00001350: 0B 98 31 35 2C 22 53 30 3A 22 AA 4C 42 24 00 84 |..15,"S0:".LB$..|
00001360: 1B 0E 0B 9F 37 2C 38 2C 37 2C 22 30 3A 22 AA 4C |....7,8,7,"0:".L|
00001370: 42 24 AA 22 2C 53 2C 57 22 3A 53 B2 53 54 3A 8D |B$.",S,W":S.ST:.|
00001380: 32 35 36 30 00 90 1B 18 0B 81 49 B2 31 A4 4E 31 |2560......I.1.N1|
00001390: 00 A1 1B 22 0B 98 37 2C 46 49 24 28 41 28 49 29 |..."..7,FI$(A(I)|
000013A0: 29 00 B5 1B 27 0B 53 B2 53 54 3A 8D 32 35 36 30 |)...'.S.ST:.2560|
000013B0: 3A 8B 53 A7 90 00 C8 1B 2C 0B 81 4A B2 31 A4 32 |:.S.....,..J.1.2|
000013C0: 30 30 3A 82 4A 3A 82 49 00 CF 1B 36 0B A0 37 00 |00:.J:.I...6..7.|
000013D0: E9 1B 40 0B 98 31 35 2C 22 53 30 3A 5A 57 49 53 |..@..15,"S0:ZWIS|
000013E0: 43 48 45 4E 46 49 4C 45 22 00 16 1C 4A 0B 99 22 |CHENFILE"...J.."|
000013F0: 11 11 20 20 20 20 20 4F 4B 2E 20 2D 2D 20 44 49 |.. OK. -- DI|
00001400: 45 20 44 49 53 4B 45 54 54 45 20 12 27 22 3B 49 |E DISKETTE .'";I|
00001410: 44 24 3B 22 27 22 00 39 1C 4F 0B 99 22 11 20 20 |D$;"'".9.O..". |
00001420: 20 20 20 57 55 52 44 45 20 55 4E 54 45 52 20 44 | WURDE UNTER D|
00001430: 45 4D 20 20 22 3B 44 41 24 00 64 1C 54 0B 99 22 |EM ";DA$.d.T.."|
00001440: 11 20 20 20 49 4E 20 44 49 45 20 42 49 42 4C 49 |. IN DIE BIBLI|
00001450: 4F 54 48 45 4B 20 41 55 46 47 45 4E 4F 4D 4D 45 |OTHEK AUFGENOMME|
00001460: 4E 11 11 22 00 A6 1C 5E 0B 43 31 B2 31 34 36 3A |N.."...^.C1.146:|
00001470: 43 32 B2 31 38 AA 43 31 3A 81 49 B2 31 A4 31 30 |C2.18.C1:.I.1.10|
00001480: 30 3A 43 31 B2 43 32 AB 43 31 3A 99 2C C7 28 43 |0:C1.C2.C1:.,.(C|
00001490: 31 29 3B 22 91 42 49 54 54 45 20 57 41 52 54 45 |1);".BITTE WARTE|
000014A0: 4E 20 2E 2E 2E 22 00 BC 1C 68 0B 81 4A B2 31 A4 |N ..."...h..J.1.|
000014B0: 35 30 3A 82 3A 82 3A A0 31 35 3A 8A 00 D3 1C 90 |50:.:.:.15:.....|
000014C0: 0B 8F 20 41 55 53 47 41 42 45 4E 20 41 2E 20 23 |.. AUSGABEN A. #|
000014D0: 34 20 3F 00 0D 1D 9A 0B 85 22 11 11 41 55 53 47 |4 ?......"..AUSG|
000014E0: 41 42 45 4E 20 41 55 46 20 44 45 4E 20 44 52 55 |ABEN AUF DEN DRU|
000014F0: 43 4B 45 52 20 28 44 45 56 2E 23 34 29 20 20 4E |CKER (DEV.#4) N|
00001500: 9D 9D 9D 22 3B 41 4E 24 3A 50 49 B2 30 00 2A 1D |...";AN$:PI.0.*.|
00001510: A4 0B 8B C8 28 41 4E 24 2C 31 29 B2 22 4A 22 A7 |....(AN$,1)."J".|
00001520: 50 49 B2 31 3A 89 33 30 30 30 00 42 1D AE 0B 9F |PI.1:.3000.B....|
00001530: 32 2C 33 2C 30 3A 98 32 2C C7 28 31 34 37 29 3B |2,3,0:.2,.(147);|
00001540: 3A 8E 00 6C 1D B8 0B 9F 32 2C 34 2C 32 30 3A 9F |:..l....2,4,20:.|
00001550: 33 2C 34 2C 32 30 3A 98 33 2C C7 28 36 36 29 3A |3,4,20:.3,.(66):|
00001560: 98 32 2C C7 28 31 35 29 3B 3A A0 33 00 B2 1D C2 |.2,.(15);:.3....|
00001570: 0B 99 22 11 11 20 41 55 53 44 52 55 43 4B 20 12 |..".. AUSDRUCK .|
00001580: 43 92 4F 4E 54 49 4E 55 49 45 52 4C 49 43 48 20 |C.ONTINUIERLICH |
00001590: 22 3A 99 2C 22 11 20 20 20 20 20 20 20 4F 44 45 |":.,". ODE|
000015A0: 52 20 12 53 92 45 49 54 45 4E 57 45 49 53 45 20 |R .S.EITENWEISE |
000015B0: 3F 22 00 DC 1D C4 0B 97 31 39 38 2C 30 3A 92 31 |?"......198,0:.1|
000015C0: 39 38 2C 31 3A A1 50 52 24 3A 8B 50 52 24 B2 22 |98,1:.PR$:.PR$."|
000015D0: 43 22 B0 50 52 24 B2 22 53 22 A7 8E 00 E6 1D C6 |C".PR$."S"......|
000015E0: 0B 89 33 30 31 32 00 FD 1D E0 0B 8F 20 44 49 53 |..3012...... DIS|
000015F0: 4B 2D 47 45 53 2E 55 45 42 45 52 53 2E 00 3A 1E |K-GES.UEBERS..:.|
00001600: EA 0B 4E B2 30 3A 8D 32 39 36 30 3A 99 22 93 22 |..N.0:.2960:."."|
00001610: 3B 3A 9F 31 2C 38 2C 35 2C 22 30 3A 4C 49 42 52 |;:.1,8,5,"0:LIBR|
00001620: 41 52 59 2E 49 4E 48 41 4C 54 2C 53 2C 52 22 3A |ARY.INHALT,S,R":|
00001630: 53 B2 53 54 3A 8D 32 35 36 30 00 59 1E F4 0B 4E |S.ST:.2560.Y...N|
00001640: B2 4E AA 31 3A 84 31 2C 46 49 24 28 4E 29 3A 53 |.N.1:.1,FI$(N):S|
00001650: B2 53 54 3A 8D 32 35 36 30 00 69 1E FE 0B 8B 53 |.ST:.2560.i....S|
00001660: B3 B1 36 34 A7 33 30 36 30 00 87 1E 08 0C A0 31 |..64.3060......1|
00001670: 3A 8D 32 33 37 30 3A 99 22 93 22 3B 3A 8B 50 49 |:.2370:.".";:.PI|
00001680: B2 30 A7 34 33 37 30 00 B3 1E 12 0C 98 32 2C C7 |.0.4370......2,.|
00001690: 28 31 29 22 20 20 20 20 44 49 53 4B 45 54 54 45 |(1)" DISKETTE|
000016A0: 4E 55 45 42 45 52 53 49 43 48 54 20 20 20 22 3B |NUEBERSICHT ";|
000016B0: 4E 38 24 00 E6 1E 1C 0C 98 32 2C C7 28 31 29 22 |N8$......2,.(1)"|
000016C0: 20 20 20 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 | ............|
000016D0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 20 20 20 22 3B |........... ";|
000016E0: 4E 39 24 3A 98 32 00 27 1F 26 0C 98 32 2C 22 20 |N9$:.2.'.&..2," |
000016F0: 20 20 20 20 20 20 20 44 49 53 4B 2D 44 52 49 56 | DISK-DRIV|
00001700: 45 3A 20 20 20 56 43 20 31 35 34 31 20 20 20 20 |E: VC 1541 |
00001710: 2F 2F 2F 20 20 20 44 4F 53 2D 56 45 52 53 49 4F |/// DOS-VERSIO|
00001720: 4E 3A 20 20 32 41 22 00 60 1F 30 0C 98 32 2C 22 |N: 2A".`.0..2,"|
00001730: 20 20 20 20 20 20 20 20 41 4E 5A 41 48 4C 20 44 | ANZAHL D|
00001740: 45 52 20 41 52 43 48 49 56 49 45 52 54 45 4E 20 |ER ARCHIVIERTEN |
00001750: 44 49 53 4B 45 54 54 45 4E 3A 22 3B 4E 3A 98 32 |DISKETTEN:";N:.2|
00001760: 00 A5 1F 3A 0C 98 32 2C 22 20 20 20 20 20 20 20 |...:..2," |
00001770: 20 52 55 42 52 49 4B 20 20 20 20 20 20 20 44 49 | RUBRIK DI|
00001780: 53 4B 2D 4E 41 4D 45 20 20 20 20 20 20 20 20 C2 |SK-NAME .|
00001790: 20 49 44 20 C2 20 46 52 45 49 45 20 42 4C 4B 53 | ID . FREIE BLKS|
000017A0: 20 C2 20 22 3B 00 C3 1F 44 0C 98 32 2C 22 50 52 | . ";...D..2,"PR|
000017B0: 47 4D 53 20 23 20 C2 20 44 41 54 55 4D 22 3A 43 |GMS # . DATUM":C|
000017C0: 30 B2 30 00 05 20 4E 0C 4C 32 24 B2 22 20 20 20 |0.0.. N.L2$." |
000017D0: 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ...........|
000017E0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000017F0: B8 B8 B8 C2 B8 B8 B8 B8 C2 B8 B8 B8 B8 B8 B8 B8 |................|
00001800: B8 B8 B8 C2 22 00 35 20 62 0C 81 49 B2 31 A4 4E |....".5 b..I.1.N|
00001810: 3A 52 31 24 B2 C8 28 46 49 24 28 41 28 49 29 29 |:R1$..(FI$(A(I))|
00001820: 2C 31 30 29 3A 53 50 24 B2 22 20 20 20 20 20 20 |,10):SP$." |
00001830: 20 20 20 20 22 00 66 20 6C 0C 8B 52 31 24 B3 B1 | ".f l..R1$..|
00001840: 52 32 24 A7 52 32 24 B2 52 31 24 3A 98 32 2C 4C |R2$.R2$.R1$:.2,L|
00001850: 32 24 3A 53 50 24 B2 52 31 24 3A 8B 43 30 B2 30 |2$:SP$.R1$:.C0.0|
00001860: A7 8D 34 30 38 30 00 91 20 76 0C 98 32 2C 22 20 |..4080.. v..2," |
00001870: 20 20 20 20 20 20 20 22 3B 53 50 24 3B 22 20 20 | ";SP$;" |
00001880: 20 22 3B 3A 48 44 24 B2 46 49 24 28 41 28 49 29 | ";:HD$.FI$(A(I)|
00001890: 29 00 CE 20 80 0C 98 32 2C CA 28 48 44 24 2C 31 |).. ...2,.(HD$,1|
000018A0: 34 2C 31 36 29 3B 22 20 C2 20 22 3B CA 28 48 44 |4,16);" . ";.(HD|
000018B0: 24 2C 33 32 2C 32 29 3B 22 20 C2 20 20 20 20 20 |$,32,2);" . |
000018C0: 22 3B CA 28 48 44 24 2C 33 39 2C 35 29 3B 00 01 |";.(HD$,39,5);..|
000018D0: 21 8A 0C 44 24 B2 CA 28 48 44 24 2C 35 37 2C 31 |!..D$..(HD$,57,1|
000018E0: 31 29 3A 98 32 2C 22 20 20 C2 20 20 20 20 20 22 |1):.2," . "|
000018F0: 3B C9 28 48 44 24 2C 33 29 3B 22 20 C2 22 3B 44 |;.(HD$,3);" .";D|
00001900: 24 00 1A 21 94 0C 82 49 3A 8B 50 52 24 B2 22 53 |$..!...I:.PR$."S|
00001910: 22 A7 98 32 2C C7 28 31 32 29 00 33 21 96 0C 8B |"..2,.(12).3!...|
00001920: 50 52 24 B2 22 43 22 A7 98 32 3A 98 32 3A 98 32 |PR$."C"..2:.2:.2|
00001930: 3A 98 32 00 3A 21 98 0C A0 32 00 4A 21 9E 0C 8B |:.2.:!...2.J!...|
00001940: 50 49 B2 31 A7 A0 31 35 3A 8A 00 74 21 A8 0C 99 |PI.1..15:..t!...|
00001950: 22 11 11 2D 54 41 53 54 45 2D 22 3B 3A 97 31 39 |"..-TASTE-";:.19|
00001960: 38 2C 30 3A 92 31 39 38 2C 31 3A A1 54 24 3A A0 |8,0:.198,1:.T$:.|
00001970: 31 35 3A 8A 00 99 21 D0 0C 8F 20 50 52 49 4E 54 |15:...!... PRINT|
00001980: 45 52 2D 48 45 41 44 45 52 20 46 55 45 52 20 50 |ER-HEADER FUER P|
00001990: 47 4D 20 4C 49 53 54 45 4E 00 AB 21 DA 0C 53 24 |GM LISTEN..!..S$|
000019A0: B2 22 20 20 20 20 20 20 20 20 22 00 D9 21 E4 0C |." "..!..|
000019B0: 98 32 2C C7 28 31 34 37 29 3B 53 24 3B C7 28 31 |.2,.(147);S$;.(1|
000019C0: 29 3B 22 50 52 4F 47 52 41 4D 4D 4C 49 53 54 45 |);"PROGRAMMLISTE|
000019D0: 20 20 20 20 22 3B 4E 38 24 00 07 22 EE 0C 98 32 | ";N8$.."...2|
000019E0: 2C 53 24 3B C7 28 31 29 3B 22 C5 C5 C5 C5 C5 C5 |,S$;.(1);"......|
000019F0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 20 20 22 |............. "|
00001A00: 3B 4E 39 24 3A 98 32 00 46 22 F8 0C 98 32 2C 53 |;N9$:.2.F"...2,S|
00001A10: 24 3B 22 46 4C 4F 50 50 59 2D 44 52 49 56 45 3A |$;"FLOPPY-DRIVE:|
00001A20: 20 20 20 56 43 20 31 35 34 31 20 20 20 20 2F 2F | VC 1541 //|
00001A30: 2F 20 20 20 20 44 4F 53 2D 56 45 52 53 49 4F 4E |/ DOS-VERSION|
00001A40: 3A 20 20 32 41 22 00 65 22 02 0D 98 32 2C 53 24 |: 2A".e"...2,S$|
00001A50: 3B 22 42 45 52 45 49 43 48 3A 20 22 3B C7 28 31 |;"BEREICH: ";.(1|
00001A60: 29 3B 52 55 24 00 6C 22 0C 0D 98 32 00 B1 22 16 |);RU$.l"...2..".|
00001A70: 0D 98 32 2C 53 24 3B 22 4E 52 2E 23 20 C2 20 50 |..2,S$;"NR.# . P|
00001A80: 52 4F 47 52 41 4D 4D 2D 4E 41 4D 45 20 20 20 20 |ROGRAMM-NAME |
00001A90: 20 C2 20 42 4C 4F 43 4B 53 20 C2 20 44 49 53 4B | . BLOCKS . DISK|
00001AA0: 2D 49 44 20 C2 20 53 54 41 52 54 2D 41 44 52 2E |-ID . START-ADR.|
00001AB0: 22 00 E0 22 20 0D 98 32 2C 53 24 3B 22 B8 B8 B8 |".." ..2,S$;"...|
00001AC0: C2 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00001AD0: B8 B8 B8 B8 B8 B8 B8 B8 C2 B8 B8 B8 B8 B8 B8 22 |..............."|
00001AE0: 00 E6 22 2A 0D 8E 00 FA 22 52 0D 8F 20 42 45 52 |.."*...."R.. BER|
00001AF0: 45 49 43 48 53 4C 49 53 54 45 00 18 23 5C 0D 8D |EICHSLISTE..#\..|
00001B00: 32 39 36 30 3A 4E B2 30 3A 4D B2 30 3A 52 55 24 |2960:N.0:M.0:RU$|
00001B10: B2 52 55 24 28 4E 52 29 00 2E 23 5E 0D 8B 50 49 |.RU$(NR)..#^..PI|
00001B20: B2 31 A7 8D 33 32 38 30 3A 89 33 34 32 38 00 38 |.1..3280:.3428.8|
00001B30: 23 62 0D 8D 34 32 37 30 00 57 23 64 0D 9F 31 2C |#b..4270.W#d..1,|
00001B40: 38 2C 38 2C 22 30 3A 22 AA 52 55 24 AA 22 2E 4C |8,8,"0:".RU$.".L|
00001B50: 49 42 2C 53 2C 52 22 00 66 23 66 0D 53 B2 53 54 |IB,S,R".f#f.S.ST|
00001B60: 3A 8D 32 35 36 30 00 76 23 70 0D 4E B2 4E AA 31 |:.2560.v#p.N.N.1|
00001B70: 3A 4D B2 4D AA 31 00 81 23 71 0D 84 31 2C 46 49 |:M.M.1..#q..1,FI|
00001B80: 24 00 9C 23 72 0D 53 B2 53 54 3A 8D 32 35 36 30 |$..#r.S.ST:.2560|
00001B90: 3A 8D 33 34 35 30 3A 89 33 35 31 30 00 AB 23 7A |:.3450:.3510..#z|
00001BA0: 0D 8B 50 49 B2 30 A7 34 33 31 30 00 C5 23 84 0D |..PI.0.4310..#..|
00001BB0: 8B 50 49 B2 31 A7 8B 4E B2 35 39 A7 4D B2 32 3A |.PI.1..N.59.M.2:|
00001BC0: 8D 33 33 35 30 00 D9 23 8E 0D 8B 4D B2 36 36 A7 |.3350..#...M.66.|
00001BD0: 4D B2 32 3A 8D 33 33 35 30 00 0F 24 98 0D 98 32 |M.2:.3350..$...2|
00001BE0: 2C 53 24 3B C9 28 22 20 20 20 20 22 AA C4 28 4E |,S$;.(" "..(N|
00001BF0: 29 2C 34 29 3B 22 20 C2 20 22 3B C8 28 46 49 24 |),4);" . ";.(FI$|
00001C00: 2C 31 36 29 3B 22 20 20 C2 20 20 20 20 22 3B 00 |,16);" . ";.|
00001C10: 23 24 A2 0D 49 44 24 B2 CA 28 46 49 24 2C 32 37 |#$..ID$..(FI$,27|
00001C20: 2C 32 29 00 57 24 AC 0D 98 32 2C CA 28 46 49 24 |,2).W$...2,.(FI$|
00001C30: 2C 32 32 2C 34 29 3B 22 C2 20 20 20 22 3B 49 44 |,22,4);". ";ID|
00001C40: 24 3B 22 20 20 20 20 C2 20 20 20 22 3B C9 28 46 |$;" . ";.(F|
00001C50: 49 24 2C 35 29 3A 8E 00 67 24 B6 0D 8B 53 B3 B1 |I$,5):..g$...S..|
00001C60: 36 34 A7 33 34 34 30 00 80 24 C0 0D A0 31 3A 8B |64.3440..$...1:.|
00001C70: 50 52 24 B2 22 53 22 A7 98 32 2C C7 28 31 32 29 |PR$."S"..2,.(12)|
00001C80: 00 99 24 CA 0D 8B 50 52 24 B2 22 43 22 A7 98 32 |..$...PR$."C"..2|
00001C90: 3A 98 32 3A 98 32 3A 98 32 00 A6 24 D4 0D A0 32 |:.2:.2:.2..$...2|
00001CA0: 3A 89 33 32 33 30 00 C3 24 E8 0D 8F 20 50 52 47 |:.3230..$... PRG|
00001CB0: 20 53 55 43 48 45 4E 20 28 53 54 49 43 48 57 4F | SUCHEN (STICHWO|
00001CC0: 52 54 29 00 D2 24 F2 0D 8B 4E 52 B1 4E A7 31 36 |RT)..$...NR.N.16|
00001CD0: 31 30 00 E9 24 FC 0D 52 55 24 B2 22 53 54 49 43 |10..$..RU$."STIC|
00001CE0: 48 57 4F 52 54 20 3D 20 22 00 0E 25 06 0E 85 22 |HWORT = "..%..."|
00001CF0: 11 11 53 54 49 43 48 57 4F 52 54 20 28 54 45 49 |..STICHWORT (TEI|
00001D00: 4C 29 20 22 3B 48 24 3A 99 22 91 91 22 3B 00 35 |L) ";H$:."..";.5|
00001D10: 25 10 0E 52 55 24 B2 52 55 24 AA 48 24 3A 8D 32 |%..RU$.RU$.H$:.2|
00001D20: 39 36 30 3A 4F B2 4E 3A 4E B2 30 3A 4D B2 30 3A |960:O.N:N.0:M.0:|
00001D30: 99 22 93 22 3B 00 4B 25 12 0E 8B 50 49 B2 31 A7 |.".";.K%...PI.1.|
00001D40: 8D 33 32 38 30 3A 89 33 36 30 36 00 55 25 14 0E |.3280:.3606.U%..|
00001D50: 8D 34 32 38 30 00 77 25 16 0E 57 35 B2 C3 28 48 |.4280.w%..W5..(H|
00001D60: 24 29 3A 8B 50 49 B2 31 A7 52 55 24 B2 C7 28 31 |$):.PI.1.RU$..(1|
00001D70: 32 39 29 AA 52 55 24 00 93 25 1A 0E 81 49 B2 31 |29).RU$..%...I.1|
00001D80: A4 4F 3A 46 24 B2 52 55 24 28 49 29 AA 22 2E 4C |.O:F$.RU$(I).".L|
00001D90: 49 42 22 00 C4 25 24 0E 9F 31 2C 38 2C 33 2C 22 |IB"..%$..1,8,3,"|
00001DA0: 30 3A 22 AA 46 24 AA 22 2C 53 2C 52 22 3A 53 B2 |0:".F$.",S,R":S.|
00001DB0: 53 54 3A 8D 32 35 36 30 3A 8B 45 4E B2 36 32 A7 |ST:.2560:.EN.62.|
00001DC0: 33 36 38 30 00 E6 25 38 0E 4E B2 4E AA 31 3A 4D |3680..%8.N.N.1:M|
00001DD0: B2 4D AA 31 3A 84 31 2C 46 49 24 3A 53 B2 53 54 |.M.1:.1,FI$:S.ST|
00001DE0: 3A 8D 32 35 36 30 00 0D 26 42 0E 5A B2 30 3A 81 |:.2560..&B.Z.0:.|
00001DF0: 4A B2 31 A4 31 36 AB 57 35 3A 8B CA 28 46 49 24 |J.1.16.W5:..(FI$|
00001E00: 2C 4A 2C 57 35 29 B2 48 24 A7 5A B2 31 00 1F 26 |,J,W5).H$.Z.1..&|
00001E10: 4C 0E 82 4A 3A 8B 5A B2 31 A7 8D 33 34 35 30 00 |L..J:.Z.1..3450.|
00001E20: 2F 26 56 0E 8B 53 B3 B1 36 34 A7 33 36 34 30 00 |/&V..S..64.3640.|
00001E30: 4B 26 60 0E A0 31 3A 82 49 3A 8B 50 52 24 B2 22 |K&`..1:.I:.PR$."|
00001E40: 53 22 A7 98 32 2C C7 28 31 32 29 00 64 26 6A 0E |S"..2,.(12).d&j.|
00001E50: 8B 50 52 24 B2 22 43 22 A7 98 32 3A 98 32 3A 98 |.PR$."C"..2:.2:.|
00001E60: 32 3A 98 32 00 71 26 74 0E A0 32 3A 89 33 32 33 |2:.2.q&t..2:.323|
00001E70: 30 00 84 26 88 0E 8F 20 54 41 53 54 45 20 57 41 |0..&... TASTE WA|
00001E80: 52 54 45 4E 00 B5 26 92 0E 99 22 11 2D 20 42 49 |RTEN..&...".- BI|
00001E90: 54 54 45 20 45 49 4E 45 20 12 20 54 41 53 54 45 |TTE EINE . TASTE|
00001EA0: 20 92 20 44 52 55 45 43 4B 45 4E 2D 22 3B 3A 97 | . DRUECKEN-";:.|
00001EB0: 31 39 38 2C 30 00 CC 26 9C 0E 92 31 39 38 2C 31 |198,0..&...198,1|
00001EC0: 3A A1 54 24 3A 99 22 93 22 3B 3A 8E 00 E0 26 C4 |:.T$:.".";:...&.|
00001ED0: 0E 8F 20 44 49 53 4B 20 4C 4F 45 53 43 48 45 4E |.. DISK LOESCHEN|
00001EE0: 00 E8 26 CE 0E 99 3A 99 00 1B 27 D8 0E 85 22 44 |..&...:...'..."D|
00001EF0: 49 53 4B 2D 49 44 20 20 20 20 20 9D 9D 9D 9D 22 |ISK-ID ...."|
00001F00: 3B 49 44 24 3A 8B C3 28 49 44 24 29 B3 B1 32 A7 |;ID$:..(ID$)..2.|
00001F10: 99 22 91 22 3B 3A 89 33 38 30 30 00 2D 27 E2 0E |.".";:.3800.-'..|
00001F20: 8D 20 33 38 32 30 3A 89 20 33 38 37 30 00 5A 27 |. 3820:. 3870.Z'|
00001F30: EC 0E 9F 31 2C 38 2C 34 2C 22 30 3A 4C 49 42 52 |...1,8,4,"0:LIBR|
00001F40: 41 52 59 2E 49 4E 48 41 4C 54 2C 53 2C 52 22 3A |ARY.INHALT,S,R":|
00001F50: 53 B2 53 54 3A 8D 32 35 36 30 00 70 27 F6 0E 84 |S.ST:.2560.p'...|
00001F60: 31 2C 48 44 24 3A 53 B2 53 54 3A 8D 32 35 36 30 |1,HD$:S.ST:.2560|
00001F70: 00 99 27 00 0F 8B CA 28 48 44 24 2C 33 32 2C 32 |..'....(HD$,32,2|
00001F80: 29 B2 49 44 24 A7 52 55 24 B2 C8 28 48 44 24 2C |).ID$.RU$..(HD$,|
00001F90: 31 30 29 3A 89 33 38 36 30 00 A9 27 0A 0F 8B 53 |10):.3860..'...S|
00001FA0: B3 B1 36 34 A7 33 38 33 30 00 B2 27 14 0F A0 31 |..64.3830..'...1|
00001FB0: 3A 8E 00 E0 27 1E 0F 4E B2 30 3A 9F 31 2C 38 2C |:...'..N.0:.1,8,|
00001FC0: 33 2C 22 30 3A 22 AA 52 55 24 AA 22 2E 4C 49 42 |3,"0:".RU$.".LIB|
00001FD0: 2C 53 2C 52 22 3A 53 B2 53 54 3A 8D 32 35 36 30 |,S,R":S.ST:.2560|
00001FE0: 00 FF 27 28 0F 4E B2 4E AA 31 3A 84 31 2C 46 49 |..'(.N.N.1:.1,FI|
00001FF0: 24 28 4E 29 3A 53 B2 53 54 3A 8D 32 35 36 30 00 |$(N):S.ST:.2560.|
00002000: 0F 28 32 0F 8B 53 B3 B1 36 34 A7 33 38 38 30 00 |.(2..S..64.3880.|
00002010: 1A 28 3C 0F A0 31 3A 4D B2 30 00 49 28 46 0F 81 |.(<..1:M.0.I(F..|
00002020: 49 B2 31 A4 4E 3A 8B CA 28 46 49 24 28 49 29 2C |I.1.N:..(FI$(I),|
00002030: 32 37 2C 32 29 B2 49 44 24 A7 46 49 24 28 49 29 |27,2).ID$.FI$(I)|
00002040: B2 22 22 3A 4D B2 4D AA 31 00 7C 28 50 0F 82 49 |."":M.M.1.|(P..I|
00002050: 3A 99 22 91 22 2C 22 45 53 20 57 55 52 44 45 4E |:.".","ES WURDEN|
00002060: 22 3B 4D 3B 22 4E 41 4D 45 4E 20 47 45 4C 4F 45 |";M;"NAMEN GELOE|
00002070: 53 43 48 54 2E 22 3A 8D 32 33 37 30 00 A4 28 5A |SCHT.":.2370..(Z|
00002080: 0F 58 31 B2 30 3A 81 49 B2 31 A4 4E 3A 8B 46 49 |.X1.0:.I.1.N:.FI|
00002090: 24 28 41 28 31 29 29 B3 B1 22 22 A7 58 31 B2 49 |$(A(1)).."".X1.I|
000020A0: 3A 49 B2 4E 00 AB 28 64 0F 82 49 00 D6 28 6E 0F |:I.N..(d..I..(n.|
000020B0: 98 31 35 2C 22 52 30 3A 5A 57 49 53 43 48 45 4E |.15,"R0:ZWISCHEN|
000020C0: 46 49 4C 45 3D 22 AA 52 55 24 AA 22 2E 4C 49 42 |FILE=".RU$.".LIB|
000020D0: 22 3A 45 4D B2 31 00 00 29 78 0F 9F 31 2C 38 2C |":EM.1..)x..1,8,|
000020E0: 33 2C 22 30 3A 22 AA 52 55 24 AA 22 2E 4C 49 42 |3,"0:".RU$.".LIB|
000020F0: 2C 53 2C 57 22 3A 53 B2 53 54 3A 8D 32 35 36 30 |,S,W":S.ST:.2560|
00002100: 00 23 29 82 0F 81 49 B2 58 31 A4 4E 3A 98 31 2C |.#)...I.X1.N:.1,|
00002110: 46 49 24 28 41 28 49 29 29 3A 82 49 3A A0 31 3A |FI$(A(I)):.I:.1:|
00002120: 4E B2 30 00 50 29 8C 0F 9F 31 2C 38 2C 33 2C 22 |N.0.P)...1,8,3,"|
00002130: 30 3A 4C 49 42 52 41 52 59 2E 49 4E 48 41 4C 54 |0:LIBRARY.INHALT|
00002140: 2C 53 2C 52 22 3A 53 B2 53 54 3A 8D 32 35 36 30 |,S,R":S.ST:.2560|
00002150: 00 7D 29 96 0F 9F 33 2C 38 2C 34 2C 22 30 3A 4C |.})...3,8,4,"0:L|
00002160: 49 42 20 32 20 20 20 20 20 20 20 20 20 2C 53 2C |IB 2 ,S,|
00002170: 57 22 3A 53 B2 53 54 3A 8D 32 35 36 30 00 93 29 |W":S.ST:.2560..)|
00002180: A0 0F 84 31 2C 4E 41 24 3A 53 B2 53 54 3A 8D 32 |...1,NA$:S.ST:.2|
00002190: 35 36 30 00 B0 29 AA 0F 8B CA 28 4E 41 24 2C 33 |560..)....(NA$,3|
000021A0: 32 2C 32 29 B3 B1 49 44 24 A7 98 33 2C 4E 41 24 |2,2)..ID$..3,NA$|
000021B0: 00 C0 29 B4 0F 8B 53 B3 B1 36 34 A7 34 30 30 30 |..)...S..64.4000|
000021C0: 00 F6 29 BE 0F A0 31 3A A0 33 3A 99 22 91 4F 4B |..)...1:.3:.".OK|
000021D0: 2E 20 44 49 53 4B 45 54 54 45 20 27 22 3B 49 44 |. DISKETTE '";ID|
000021E0: 24 3B 22 27 20 57 55 52 44 45 20 47 45 4C 4F 45 |$;"' WURDE GELOE|
000021F0: 53 43 48 54 2E 22 00 12 2A C8 0F 98 31 35 2C 22 |SCHT."..*...15,"|
00002200: 53 30 3A 4C 49 42 52 41 52 59 2E 49 4E 48 41 4C |S0:LIBRARY.INHAL|
00002210: 54 22 00 3D 2A D2 0F 98 31 35 2C 22 52 30 3A 4C |T".=*...15,"R0:L|
00002220: 49 42 52 41 52 59 2E 49 4E 48 41 4C 54 3D 4C 49 |IBRARY.INHALT=LI|
00002230: 42 20 32 20 20 20 20 20 20 20 20 20 22 00 53 2A |B 2 ".S*|
00002240: DC 0F 81 49 B2 31 A4 32 30 30 30 3A 82 3A A0 31 |...I.1.2000:.:.1|
00002250: 35 3A 8A 00 6E 2A F0 0F 8F 20 53 54 52 49 4E 47 |5:..n*... STRING|
00002260: 20 55 4D 46 4F 52 4D 41 54 49 45 52 45 4E 00 9B | UMFORMATIEREN..|
00002270: 2A FA 0F 43 30 B2 31 3A 4C 33 24 B2 22 22 3A 81 |*..C0.1:L3$."":.|
00002280: 50 31 B2 31 A4 C3 28 4C 32 24 29 3A 4C 34 24 B2 |P1.1..(L2$):L4$.|
00002290: CA 28 4C 32 24 2C 50 31 2C 31 29 00 BE 2A 04 10 |.(L2$,P1,1)..*..|
000022A0: 8B C6 28 4C 34 24 29 B3 B1 31 38 34 A7 4C 33 24 |..(L4$)..184.L3$|
000022B0: B2 4C 33 24 AA 4C 34 24 3A 89 34 31 32 30 00 CE |.L3$.L4$:.4120..|
000022C0: 2A 0E 10 4C 33 24 B2 4C 33 24 AA 22 2D 22 00 EE |*..L3$.L3$."-"..|
000022D0: 2A 18 10 82 50 31 3A 4C 32 24 B2 4C 33 24 3A 4C |*...P1:L2$.L3$:L|
000022E0: 34 24 B2 22 22 3A 4C 33 24 B2 22 22 3A 8E 00 10 |4$."":L3$."":...|
000022F0: 2B 40 10 8F 20 50 52 47 2D 4C 49 53 54 45 20 45 |+@.. PRG-LISTE E|
00002300: 49 4E 45 52 20 44 49 53 4B 20 41 55 53 44 52 2E |INER DISK AUSDR.|
00002310: 00 45 2B 4A 10 99 22 11 11 42 49 54 54 45 20 44 |.E+J.."..BITTE D|
00002320: 49 53 4B 2D 49 44 20 41 4E 47 45 42 45 4E 2E 20 |ISK-ID ANGEBEN. |
00002330: 20 20 20 20 2D 2D 3E 20 20 20 9D 9D 9D 22 3B 3A | --> ...";:|
00002340: 8D 31 33 35 30 00 60 2B 54 10 8B C3 28 57 24 29 |.1350.`+T...(W$)|
00002350: B3 B1 32 A7 99 22 91 91 22 3B 3A 89 34 31 37 30 |..2.."..";:.4170|
00002360: 00 8E 2B 5E 10 99 22 91 91 22 3B 3A 8D 32 39 36 |..+^.."..";:.296|
00002370: 30 3A 49 44 24 B2 57 24 3A 8D 33 38 32 30 3A 4E |0:ID$.W$:.3820:N|
00002380: B2 30 3A 4D B2 30 3A 49 32 24 B2 49 44 24 00 B8 |.0:M.0:I2$.ID$..|
00002390: 2B 68 10 9F 31 2C 38 2C 36 2C 22 30 3A 22 AA 52 |+h..1,8,6,"0:".R|
000023A0: 55 24 AA 22 2E 4C 49 42 2C 53 2C 52 22 3A 53 B2 |U$.".LIB,S,R":S.|
000023B0: 53 54 3A 8D 32 35 36 30 00 EE 2B 72 10 8B 50 49 |ST:.2560..+r..PI|
000023C0: B2 31 A7 52 55 24 B2 22 44 49 53 4B 20 22 AA C7 |.1.RU$."DISK "..|
000023D0: 28 31 32 39 29 AA CA 28 48 44 24 2C 31 32 2C 34 |(129)..(HD$,12,4|
000023E0: 35 29 3A 99 22 93 22 3B 3A 8D 33 32 38 30 00 1D |5):.".";:.3280..|
000023F0: 2C 74 10 8B 50 49 B2 30 A7 52 55 24 B2 22 44 49 |,t..PI.0.RU$."DI|
00002400: 53 4B 20 22 AA CA 28 48 44 24 2C 31 32 2C 34 35 |SK "..(HD$,12,45|
00002410: 29 3A 99 22 93 22 3B 3A 8D 34 32 37 30 00 3F 2C |):.".";:.4270.?,|
00002420: 7C 10 4E B2 4E AA 31 3A 4D B2 4D AA 31 3A 84 31 ||.N.N.1:M.M.1:.1|
00002430: 2C 46 49 24 3A 53 B2 53 54 3A 8D 32 35 36 30 00 |,FI$:S.ST:.2560.|
00002440: 60 2C 86 10 8B CA 28 46 49 24 2C 32 37 2C 32 29 |`,....(FI$,27,2)|
00002450: B2 49 32 24 A7 8D 33 34 35 30 3A 89 34 32 35 30 |.I2$..3450:.4250|
00002460: 00 70 2C 90 10 4E B2 4E AB 31 3A 4D B2 4D AB 31 |.p,..N.N.1:M.M.1|
00002470: 00 80 2C 9A 10 8B 53 B3 B1 36 34 A7 34 32 32 30 |..,...S..64.4220|
00002480: 00 99 2C A4 10 A0 31 3A 8B 50 52 24 B2 22 53 22 |..,...1:.PR$."S"|
00002490: A7 98 32 2C C7 28 31 32 29 00 B2 2C A6 10 8B 50 |..2,.(12)..,...P|
000024A0: 52 24 B2 22 43 22 A7 98 32 3A 98 32 3A 98 32 3A |R$."C"..2:.2:.2:|
000024B0: 98 32 00 BF 2C A8 10 A0 32 3A 89 33 32 33 30 00 |.2..,...2:.3230.|
000024C0: D6 2C AE 10 8F 20 4F 55 54 50 55 54 20 54 4F 20 |.,... OUTPUT TO |
000024D0: 53 43 52 45 45 4E 00 FD 2C B8 10 98 32 2C C7 28 |SCREEN..,...2,.(|
000024E0: 31 34 37 29 3B 22 50 52 4F 47 52 41 4D 4D 45 20 |147);"PROGRAMME |
000024F0: 55 4E 54 45 52 3A 20 12 22 3B 52 55 24 00 32 2D |UNTER: .";RU$.2-|
00002500: C2 10 98 32 3A 98 32 2C 22 20 4E 52 2E C2 20 20 |...2:.2," NR.. |
00002510: 20 20 50 52 47 2D 4E 41 4D 45 20 20 20 20 C2 42 | PRG-NAME .B|
00002520: 4C 4B 53 20 C2 20 49 44 20 C2 41 44 52 45 53 53 |LKS . ID .ADRESS|
00002530: 45 22 00 6C 2D CC 10 98 32 3A 98 32 2C 22 91 91 |E".l-...2:.2,"..|
00002540: 3D 3D 3D 3D C2 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |====.===========|
00002550: 3D 3D 3D 3D 3D C2 3D 3D 3D 3D 3D C2 3D 3D 3D 3D |=====.=====.====|
00002560: C2 3D 3D 3D 3D 3D 3D 3D 91 22 3A 8E 00 82 2D D6 |.=======.":...-.|
00002570: 10 8F 20 50 52 49 4E 54 20 50 52 47 2D 46 49 4C |.. PRINT PRG-FIL|
00002580: 45 53 00 A1 2D E0 10 8B 4E B2 31 38 B0 4D B2 31 |ES..-...N.18.M.1|
00002590: 38 A7 4D B2 32 3A 8D 33 37 32 30 3A 8D 34 32 38 |8.M.2:.3720:.428|
000025A0: 30 00 D9 2D EA 10 98 32 2C C9 28 22 20 20 20 20 |0..-...2,.(" |
000025B0: 22 AA C4 28 4E 29 2C 34 29 3B 54 4C 24 3B C8 28 |"..(N),4);TL$;.(|
000025C0: 46 49 24 2C 31 36 29 3B 22 C2 20 22 3B CA 28 46 |FI$,16);". ";.(F|
000025D0: 49 24 2C 32 33 2C 33 29 3B 00 01 2E F4 10 98 32 |I$,23,3);......2|
000025E0: 2C 22 20 C2 20 22 3B CA 28 46 49 24 2C 32 37 2C |," . ";.(FI$,27,|
000025F0: 32 29 3B 22 20 C2 20 22 3B C9 28 46 49 24 2C 35 |2);" . ";.(FI$,5|
00002600: 29 00 07 2E FE 10 8E 00 22 2E 12 11 8F 20 53 43 |).......".... SC|
00002610: 52 45 45 4E 2D 48 45 41 44 45 52 20 53 41 4D 50 |REEN-HEADER SAMP|
00002620: 4C 45 00 56 2E 1C 11 98 32 2C 22 93 44 49 53 4B |LE.V....2,".DISK|
00002630: 45 54 54 45 4E 55 45 42 45 52 53 49 43 48 54 20 |ETTENUEBERSICHT |
00002640: 2D 2D 20 41 4E 5A 2E 20 44 49 53 4B 53 3A 22 3B |-- ANZ. DISKS:";|
00002650: 4E 3A 99 4C 49 24 00 8C 2E 26 11 98 32 2C 22 52 |N:.LI$...&..2,"R|
00002660: 55 42 52 49 4B 20 20 20 20 20 44 49 53 4B 2D 4E |UBRIK DISK-N|
00002670: 41 4D 45 20 20 20 20 20 20 20 C2 49 44 C2 42 2D |AME .ID.B-|
00002680: 46 C2 50 47 4D 53 22 3A 43 30 B2 30 00 BE 2E 30 |F.PGMS":C0.0...0|
00002690: 11 4C 32 24 B2 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |.L2$."..........|
000026A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000026B0: B8 C2 B8 B8 C2 B8 B8 B8 C2 B8 B8 B8 B8 22 00 EE |............."..|
000026C0: 2E 44 11 81 49 B2 31 A4 4E 3A 52 31 24 B2 C8 28 |.D..I.1.N:R1$..(|
000026D0: 46 49 24 28 41 28 49 29 29 2C 31 30 29 3A 53 50 |FI$(A(I)),10):SP|
000026E0: 24 B2 22 20 20 20 20 20 20 20 20 20 20 22 00 0C |$." "..|
000026F0: 2F 46 11 43 4E B2 43 4E AA 31 3A 8B 43 4E B2 31 |/F.CN.CN.1:.CN.1|
00002700: 38 A7 8D 33 37 32 30 3A 43 4E B2 30 00 3D 2F 4E |8..3720:CN.0.=/N|
00002710: 11 8B 52 31 24 B3 B1 52 32 24 A7 52 32 24 B2 52 |..R1$..R2$.R2$.R|
00002720: 31 24 3A 98 32 2C 4C 32 24 3A 53 50 24 B2 52 31 |1$:.2,L2$:SP$.R1|
00002730: 24 3A 8B 43 30 B2 30 A7 8D 34 30 38 30 00 5B 2F |$:.C0.0..4080.[/|
00002740: 58 11 98 32 2C 53 50 24 3B 22 20 22 3B 3A 48 44 |X..2,SP$;" ";:HD|
00002750: 24 B2 46 49 24 28 41 28 49 29 29 00 94 2F 62 11 |$.FI$(A(I))../b.|
00002760: 98 32 2C CA 28 48 44 24 2C 31 34 2C 31 36 29 3B |.2,.(HD$,14,16);|
00002770: 22 C2 22 3B CA 28 48 44 24 2C 33 32 2C 32 29 3B |".";.(HD$,32,2);|
00002780: 22 C2 22 3B CA 28 48 44 24 2C 34 30 2C 33 29 3B |".";.(HD$,40,3);|
00002790: 22 C2 22 3B 00 A4 2F 6C 11 98 32 2C C9 28 48 44 |".";../l..2,.(HD|
000027A0: 24 2C 33 29 00 B4 2F 76 11 82 49 3A A0 32 3A 89 |$,3)../v..I:.2:.|
000027B0: 33 32 34 30 00 DB 2F 88 13 9F 32 2C 38 2C 32 2C |3240../...2,8,2,|
000027C0: 22 30 3A 4E 41 4D 45 2C 53 2C 52 22 3A 84 32 2C |"0:NAME,S,R":.2,|
000027D0: 4E 38 24 3A A0 32 3A 99 4E 38 24 00 00 00 97 FF |N8$:.2:.N8$.....|
000027E0: 30 FF |0. |
....... CBM DISK-LIB V.3.5.... (C) BY MI
CHAEL BARTHOS.G.... VERSION 3.2.I....532
80,0:.53281,0:.".."G(142)......15,8,15,"
I0":.2,8,2,"0:NAME,S,R".....S.ST:.2560:.
EN.62. 2:.1036.B....2,N8$: 2:.1050......
"....... IHR NAME ";N8$......2,8,2,"0:N
AME,S,W":S.ST:.2560......2,N8$: 2.$...N8
$.G(129).N8$.Q.$..". . DISK - LIBRAR
Y VERSION 4.1 ."......".BITTE LIBRARY-D
ISK IN DRIVE #0 EINLEGEN.".D.B..DIVERSES
,COMPILER,BUSINESS,ARCHIV,UTILITIES,ASSE
MBLER,SPIELE...L.. DATEN I/O,GRAFIK...`.
N.9:MA.600:TL$."B":.RU$(11),FI$(600),A(1
000).).J..I.1.40:LI$.LI$.G(192):..\....L
I$:." BITTE WAEHLEN:":." DDDDDDDDDDD
DDD"......I.1.N:.RU$:RU$(I).H(RU$."
",10)...D..,".";I(" ".D(I),3);"
. ...... ";RU$(I).B.N..:....X..,".";I("
".D(N.1),3);" . ...... KEINE ANGABE
N".2....,".";I(" ".D(N.2),3);" . ...
... PROGRAMM-ENDE".?....:.LI$:..Y...."WE
LCHE NUMMER ? .";......1350:.E(W$).1.E(W
$).N.2..".":.1270......E(W$).N.2. 15:...
....E(W$).N.1.RU$(N.1)."./ ".F..
..1420...F.. ANTWORTEN VON DER TASTATUR.
..P.."._..";:W$.""...Z..9,0:.9,W$: 9:.G(
13);".";...D...,.... MENUE#2.P....DISKET
TEN-GESAMTUEBERSICHT,BEREICHSUEBERSICHT,
PROGRAMME SUCHEN... ..NEUE DISKETTE AUFN
EHMEN,DISKETTE LOESCHEN,INHALT EINER DIS
KETTE.G....*** ENDE ***.T...NR.E(W$)....
.."..";LI$;". . MENUE #2 .","RUBRIK: ."
;...H..RU$(NR):."."LI$.*.R..I.1.7:.X$(I)
:..M...." . ";I;". . ";X$(I):..H.
..."..WELCHE NUMMER ? ";......1350 :.E(W
$).1.E(W$).7.."...":.1520......E(W$).304
0,3410,3560,1600,3780,4160,1560.P...."..
.":.1520.Z... 15:....@.. NEUE DISK IN LI
BRARY...J..:../.T..NR.N.." *** KEINE R
UBRIK ANGEHEBEN. ***":..[.^..". BITTE
DIE NEUE DISKETTE EINLEGEN".~.H..,".UND
EINE .TASTE DRUECKEN!"...R..198,0...|..1
98,1:.T$:.DA$..""..".":.1710.Y...."...BI
TTE DAS HEUTIGE DATUM EINGEBEN !"......,
".... XX.XX.1983..........";......1,
0:.1,DA$: 1:.G(13);".";./.... DIR LESEN.
<....15,"I0".]....100,8,0,"$0":.2560:.EN
.1830.R.B..#100,A$,B$:N0.0...L..#100,A$,
B$:Z0.0:R$.""...V..ST..0.1830......#100,
A$,B$.....N$.G(0).....FI$.I(" ".D(F
(A$.N$).F(B$.N$).256),6)......#100,A$:.A
$.G(34).Z0..(Z0.1).1....A$."".N0.N0.1:N1
.N0.1:.1850:.1740.F....Z0.1.FI$.FI$.A$.P
....1790._.&. 100:.1970.E.:.....D..N0.1.
1940 :. HEADER...N..C(FI$).6.1950
:. DIR-END...X.. DATNAM ISOLIEREN (F$)
...B.F$."":.I.8.24:T$.J(FI$,I,1):.T$.G(3
4).I.24:.1910...L.F$.F$.T$.@.V..:FI$(N1)
.H(F$." ",18).H(FI$,6).
" ".ID$.|...." ";FI$(N1);" ";:.J(FI$
,26,3).."PRG".N0.N0.1:R$."."......R$;J(F
I$,26,3):..E...HD$.I(FI$,24):ID$.J(HD$,2
0,2):." .";HD$:.......". ";FI$;"
BLOCKS FREE.":HD$.HD$.FI$." BLOCKS FREE
. ".DA$:....... INFORMATIONEN.;....I.1.
1000:.:.G(147);LI$;.}.F..".INFORMATIONEN
:. DISK-ID: .";ID$:.". DISK-NAME:
.";...P..H(HD$,18).....N0.N0.2:.". AN
ZAHL DER PROGRAMME: ";N0......".
ANZAHL DER FREIEN BLOECKE: ";J(HD$,2
5,6)......:.LI$:HD$.HD$." #".I(" ".D(
N0),3).5.... STARTADR DER PGM.F...."STAR
TADRESSEN DER PROGRAMME EINLESEN....."..
. ..N0.0.."KEINE PROGRAMME ":....*..I.1
.N0:F$.H(FI$(I),16):.J.16.1..1.L.4..J(F$
,J,1).." ".J.1:.2120...>.F$.H(F$,J.1)...
H..J...R..1,8,0,"0:".F$...\..#1,X$:.X$."
".X$.G(0)...F.X.F(X$).7.P..#1,Y$:.Y$."".
Y$.G(0).N.Z.Y.F(Y$):DE.X.256.Y.[... 1:.2
200.....FI$(I).FI$(I)." $".X$:.".";FI$(
I):.2250.....X$."":.Z0.4.1..1:Z1..(DE.16
.(Z0.1)).J....Z1.0.X$.X$."0":.2240......
Z1.10.X$.X$.I(D(Z1),C(D(Z1)).1):.2240...
..X$.X$.G(Z1.55).#...DE.DE.Z1.16.(Z0.1):
.:../.J..I:.".".R.... RUBRIK ZULADEN (RU
$(NR).LIB).T...."... LIBRARY-DISK EINLE
GEN"......,".UND .TASTE. DRUECKEN !":.19
8,0......198,1:.ZX$.H...LB$.RU$(NR).".LI
B":N1.N0......3,8,5,"0:".LB$.",S,R":.256
0:.EN.62.2330......2560.-...N1.N1.1:.3,F
I$(N1):S.ST:.2560:.N1.MA.2330.=....S..64
.2310.U... 3:N.N1:.2370:.2640.Z.B.. DATE
INAMEN SORTIEREN (ALFASORT...L.."..SORTI
ER-ROUTINE BEGINNT ...":L0.N:.N.10.L0.10
...V..S(1000,1):S(1,0).1:S(1,1).N:.I.1.N
:A(I).N.1.I:.:S1.1...`.L.S(S1,0):R.S(S1,
1):S1.S1.1.-.J.I.L:J.R:AM$.FI$(A(.((L.R)
.2))).Q.T..FI$(A(I)).AM$..I.R.I.I.1:.242
0.U.~..FI$(A(J)).AM$..J.L.J.J.1:.2430...
...I..J.Z.A(I):A(I).A(J):A(J).Z:I.I.1:J.
J.1:.2420......R.I..J.L.2480......L.J.S1
.S1.1:S(S1,0).L:S(S1,1).J.....L.I:.2500.
.....I.R.S1.S1.1:S(S1,0).I:S(S1,1).R....
.R.J.*.D..R.L.2410.7.N..S1.2400.=.X...R.
... FLOPPY-ERROR ?.G....15,EN,EM$,ET,ES.
}....(EN.0).(EN.62)...D...."FLOPPY-.ERRO
R. ";EM$;ET;ES;" STATUS:";S:."PROGRAM A
BORTED ...";...(..EM.1..:.".ZWISCHENFILE
. ENTHAELT WICHTIGE DATEN !!";...2. 1: 3
: 15:.2,G(12): 2:..7.P.. DISK SCHON ARCH
IVIERT?.F.Z.HD$.RU$(NR)." ".HD$:ER.0:HM
$.J(HD$,13,24)...D..1,8,3,"0:LIBRARY.INH
ALT,S,R":S.ST:.2560:.EN.62.2710...X..1,H
$:S.ST:.2560.N....J(H$,13,24).HM$.ER.1..
....S..64.2680..... 1... ..ER.1.."..DISK
ETTE BEREITS GESPEICHERT !!":..]....".DI
SKETTE NOCH NICHT KATALOGISIERT.":." UEB
ERNEHMEN? J...";AN$.V....H(AN$,1).."J"
. 15:.......1,8,4,"0:LIBRARY.INHALT,S,A"
.K.H..2560:.EN.62.: 1:.1,8,4,"0:LIBRARY.
INHALT,S,W"...R..1,HD$:S.ST:.2560..... 1
...... DATEINAMEN SORT. ABSPEICH..L....1
5,"R0:ZWISCHENFILE=".LB$:EM.1:.,"..... D
ATENSPEICHERUNG ...".^....15,"S0:".LB$..
....7,8,7,"0:".LB$.",S,W":S.ST:.2560....
..I.1.N1..."..7,FI$(A(I))...'.S.ST:.2560
:.S...H.,..J.1.200:.J:.I.O.6. 7...@..15,
"S0:ZWISCHENFILE"...J..".. OK. -- DI
E DISKETTE .'";ID$;"'".9.O..". WURDE
UNTER DEM ";DA$.D.T..". IN DIE BIBLI
OTHEK AUFGENOMMEN.."...^.C1.146:C2.18.C1
:.I.1.100:C1.C2.C1:.,G(C1);".BITTE WARTE
N ..."...H..J.1.50:.:.: 15:..S.... AUSGA
BEN A. #4 ?......"..AUSGABEN AUF DEN DRU
CKER (DEV.#4) N...";AN$:PI.0.*....H(AN$
,1)."J".PI.1:.3000.B....2,3,0:.2,G(147);
:..L....2,4,20:.3,4,20:.3,G(66):.2,G(15)
;: 3...B..".. AUSDRUCK .C.ONTINUIERLICH
":.,". ODER .S.EITENWEISE ?"...D..
198,0:.198,1:.PR$:.PR$."C".PR$."S".....F
..3012...... DISK-GES.UEBERS..:...N.0:.2
960:.".";:.1,8,5,"0:LIBRARY.INHALT,S,R":
S.ST:.2560.Y...N.N.1:.1,FI$(N):S.ST:.256
0.I....S..64.3060..... 1:.2370:.".";:.PI
.0.4370......2,G(1)" DISKETTENUEBERSI
CHT ";N8$......2,G(1)" EEEEEEEEEEEE
EEEEEEEEEEE ";N9$:.2.'.&..2," D
ISK-DRIVE: VC 1541 /// DOS-VERSIO
N: 2A".`.0..2," ANZAHL DER ARCHI
VIERTEN DISKETTEN:";N:.2...:..2,"
RUBRIK DISK-NAME B ID B FR
EIE BLKS B ";.C.D..2,"PRGMS # B DATUM":C
0.0.. N.L2$." ...................
...........B....B..........B".5 B..I.1.N
:R1$.H(FI$(A(I)),10):SP$." ".F
L..R1$..R2$.R2$.R1$:.2,L2$:SP$.R1$:.C0.0
..4080.. V..2," ";SP$;" ";:HD$.
FI$(A(I)).N ...2,J(HD$,14,16);" B ";J(HD
$,32,2);" B ";J(HD$,39,5);..!..D$.J(
HD$,57,11):.2," B ";I(HD$,3);" B";D
$..!...I:.PR$."S"..2,G(12).3!...PR$."C".
.2:.2:.2:.2.:!.. 2.J!...PI.1. 15:..T!...
"..-TASTE-";:.198,0:.198,1:.T$: 15:...!P
.. PRINTER-HEADER FUER PGM LISTEN..!Z.S$
." ".Y!...2,G(147);S$;G(1);"PROGR
AMMLISTE ";N8$.."...2,S$;G(1);"EEEEEE
EEEEEEEEEEEEE ";N9$:.2.F"...2,S$;"FLOPP
Y-DRIVE: VC 1541 /// DOS-VERSION
: 2A".E"...2,S$;"BEREICH: ";G(1);RU$.L"
...2.."...2,S$;"NR.# B PROGRAMM-NAME
B BLOCKS B DISK-ID B START-ADR.".." ..2
,S$;"...B.......................B......"
.."*...."R.. BEREICHSLISTE..#\..2960:N.0
:M.0:RU$.RU$(NR)..#^..PI.1..3280:.3428.8
#B..4270.W#D..1,8,8,"0:".RU$.".LIB,S,R".
F#F.S.ST:.2560.V#P.N.N.1:M.M.1..#Q..1,FI
$..#R.S.ST:.2560:.3450:.3510..#Z..PI.0.4
310.E#...PI.1..N.59.M.2:.3350.Y#...M.66.
M.2:.3350..$...2,S$;I(" ".D(N),4);" B
";H(FI$,16);" B ";.#$..ID$.J(FI$,27
,2).W$...2,J(FI$,22,4);"B ";ID$;" B
";I(FI$,5):..G$...S..64.3440..$.. 1:.
PR$."S"..2,G(12)..$J..PR$."C"..2:.2:.2:.
2..$T. 2:.3230.C$... PRG SUCHEN (STICHWO
RT).R$...NR.N.1610..$..RU$."STICHWORT =
"..%..."..STICHWORT (TEIL) ";H$:."..";.5
%..RU$.RU$.H$:.2960:O.N:N.0:M.0:.".";.K%
...PI.1..3280:.3606.U%...4280.W%..W5.C(H
$):.PI.1.RU$.G(129).RU$..%...I.1.O:F$.RU
$(I).".LIB".D%$..1,8,3,"0:".F$.",S,R":S.
ST:.2560:.EN.62.3680..%8.N.N.1:M.M.1:.1,
FI$:S.ST:.2560..&B.Z.0:.J.1.16.W5:.J(FI$
,J,W5).H$.Z.1..&L..J:.Z.1..3450./&V..S..
64.3640.K&`. 1:.I:.PR$."S"..2,G(12).D&J.
.PR$."C"..2:.2:.2:.2.Q&T. 2:.3230..&...
TASTE WARTEN..&...".- BITTE EINE . TASTE
. DRUECKEN-";:.198,0.L&...198,1:.T$:.".
";:...&D.. DISK LOESCHEN..&N..:...'X.."D
ISK-ID ....";ID$:.C(ID$)..2..".";:.3
800.-'... 3820:. 3870.Z'...1,8,4,"0:LIBR
ARY.INHALT,S,R":S.ST:.2560.P'...1,HD$:S.
ST:.2560..'...J(HD$,32,2).ID$.RU$.H(HD$,
10):.3860..'...S..64.3830..'.. 1:...'..N
.0:.1,8,3,"0:".RU$.".LIB,S,R":S.ST:.2560
..'(.N.N.1:.1,FI$(N):S.ST:.2560..(2..S..
64.3880..(<. 1:M.0.I(F..I.1.N:.J(FI$(I),
27,2).ID$.FI$(I)."":M.M.1.|(P..I:.".","E
S WURDEN";M;"NAMEN GELOESCHT.":.2370..(Z
.X1.0:.I.1.N:.FI$(A(1)).."".X1.I:I.N..(D
..I.V(N..15,"R0:ZWISCHENFILE=".RU$.".LIB
":EM.1..)X..1,8,3,"0:".RU$.".LIB,S,W":S.
ST:.2560.#)...I.X1.N:.1,FI$(A(I)):.I: 1:
N.0.P)...1,8,3,"0:LIBRARY.INHALT,S,R":S.
ST:.2560.})...3,8,4,"0:LIB 2 ,S,
W":S.ST:.2560..) ..1,NA$:S.ST:.2560..)..
.J(NA$,32,2)..ID$..3,NA$..)...S..64.4000
..).. 1: 3:.".OK. DISKETTE '";ID$;"' WUR
DE GELOESCHT."..*H..15,"S0:LIBRARY.INHAL
T".=*R..15,"R0:LIBRARY.INHALT=LIB 2
".S*...I.1.2000:.: 15:..N*... STRING
UMFORMATIEREN..*..C0.1:L3$."":.P1.1.C(L
2$):L4$.J(L2$,P1,1)..*...F(L4$)..184.L3$
.L3$.L4$:.4120.N*..L3$.L3$."-"..*...P1:L
2$.L3$:L4$."":L3$."":...+@.. PRG-LISTE E
INER DISK AUSDR..E+J.."..BITTE DISK-ID A
NGEBEN. --> ...";:.1350.`+T..C(W$)
..2.."..";:.4170..+^.."..";:.2960:ID$.W$
:.3820:N.0:M.0:I2$.ID$..+H..1,8,6,"0:".R
U$.".LIB,S,R":S.ST:.2560..+R..PI.1.RU$."
DISK ".G(129).J(HD$,12,45):.".";:.3280..
,T..PI.0.RU$."DISK ".J(HD$,12,45):.".";:
.4270.?,|.N.N.1:M.M.1:.1,FI$:S.ST:.2560.
`,...J(FI$,27,2).I2$..3450:.4250.P,..N.N
.1:M.M.1..,...S..64.4220..,.. 1:.PR$."S"
..2,G(12)..,...PR$."C"..2:.2:.2:.2..,..
2:.3230.V,... OUTPUT TO SCREEN..,...2,G(
147);"PROGRAMME UNTER: .";RU$.2-B..2:.2,
" NR.B PRG-NAME BBLKS B ID BADRESS
E".L-L..2:.2,"..====B================B==
===B====B=======.":...-V.. PRINT PRG-FIL
ES..-...N.18.M.18.M.2:.3720:.4280.Y-...2
,I(" ".D(N),4);TL$;H(FI$,16);"B ";J(F
I$,23,3);......2," B ";J(FI$,27,2);" B "
;I(FI$,5).......".... SCREEN-HEADER SAMP
LE.V....2,".DISKETTENUEBERSICHT -- ANZ.
DISKS:";N:.LI$...&..2,"RUBRIK DISK-N
AME BIDBB-FBPGMS":C0.0...0.L2$."..
.........................B..B...B...."..
.D..I.1.N:R1$.H(FI$(A(I)),10):SP$."
"../F.CN.CN.1:.CN.18..3720:CN.0.=/N
..R1$..R2$.R2$.R1$:.2,L2$:SP$.R1$:.C0.0.
.4080.[/X..2,SP$;" ";:HD$.FI$(A(I))../B.
.2,J(HD$,14,16);"B";J(HD$,32,2);"B";J(HD
$,40,3);"B";../L..2,I(HD$,3)../V..I: 2:.
3240../...2,8,2,"0:NAME,S,R":.2,N8$: 2:.
N8$.....0.
> CLICK IMAGE PREVIEW FOR FULL MODAL