DISK UTILITY PRG
FILE INFORMATION
FILENAME(S): DISK UTILITY PRG
FILE TYPE(S): PRG
FILE SIZE: 14.3K
FIRST SEEN: 2025-11-30 21:11:24
APPEARS ON: 1 disk(s)
FILE HASH
2dca1eaedd404c9ff845aa3559cdd24eee2af92a3248e7f4924aa71c0304a700
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NIEUW | DISK UTILITY PRG | PRG | DuncanTwain | 26 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 49 08 64 00 99 C7 28 31 34 32 29 3A 48 33 |..I.d...(142):H3|
00000010: 24 B2 22 44 49 53 4B 20 55 54 49 4C 49 54 59 20 |$."DISK UTILITY |
00000020: 50 52 4F 47 52 41 4D 4D 20 56 20 36 34 22 3A 48 |PROGRAMM V 64":H|
00000030: 34 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |4$."............|
00000040: C0 C0 C0 C0 C0 C0 C0 C0 22 00 62 08 6E 00 48 35 |........".b.n.H5|
00000050: 24 B2 22 20 27 51 27 20 46 55 45 52 20 45 4E 44 |$." 'Q' FUER END|
00000060: 45 22 00 7E 08 78 00 89 20 38 32 30 3A 8F 20 49 |E".~.x.. 820:. I|
00000070: 4E 49 54 49 41 4C 49 53 49 45 52 55 4E 47 00 9C |NITIALISIERUNG..|
00000080: 08 82 00 8F 20 2A 2A 2A 2A 20 41 53 43 49 49 20 |.... **** ASCII |
00000090: 45 49 4E 4C 45 53 45 4E 20 2A 2A 2A 00 BA 08 8C |EINLESEN ***....|
000000A0: 00 A1 23 38 2C 42 59 24 3A 42 59 25 B2 C6 28 42 |..#8,BY$:BY%..(B|
000000B0: 59 24 AA C7 28 30 29 29 3A 8E 00 E0 08 96 00 99 |Y$..(0)):.......|
000000C0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |".............."|
000000D0: 3A 81 4B B2 31 34 A4 32 33 3A 99 53 50 24 3A 82 |:.K.14.23:.SP$:.|
000000E0: 00 F8 08 A0 00 99 22 13 11 11 11 11 11 11 11 11 |......".........|
000000F0: 11 11 11 11 11 22 3A 8E 00 01 09 AA 00 99 22 93 |.....":.......".|
00000100: 22 00 33 09 B4 00 99 22 13 B0 22 53 54 24 22 AE |".3....".."ST$".|
00000110: 22 3A 50 B2 35 37 2E 35 AB 28 C3 28 48 31 24 29 |":P.57.5.(.(H1$)|
00000120: AD 32 29 3A 8B 50 B3 B1 B5 28 50 29 A7 50 B2 50 |.2):.P...(P).P.P|
00000130: AB 2E 35 00 4C 09 BE 00 99 22 91 AB 22 C8 28 53 |..5.L...."..".(S|
00000140: 54 24 2C 50 AB 33 38 29 48 31 24 3B 00 6B 09 C8 |T$,P.38)H1$;.k..|
00000150: 00 99 C8 28 53 54 24 2C 37 38 AB C3 28 48 31 24 |...(ST$,78..(H1$|
00000160: 29 AB 50 AB 31 29 3B 22 B3 22 3B 00 A0 09 D2 00 |).P.1);".";.....|
00000170: 99 22 9D 9D B3 AB 22 53 54 24 22 B3 22 3B 3A 50 |."...."ST$".";:P|
00000180: B2 35 37 2E 35 AB 28 C3 28 4B 4F 24 29 AD 32 29 |.57.5.(.(KO$).2)|
00000190: 3A 8B 50 B3 B1 B5 28 50 29 A7 50 B2 50 AB 2E 35 |:.P...(P).P.P..5|
000001A0: 00 CE 09 DC 00 99 22 AB 22 3B C8 28 53 54 24 2C |......".";.(ST$,|
000001B0: 50 AB 33 38 29 4B 4F 24 3B 3A 99 C8 28 53 54 24 |P.38)KO$;:..(ST$|
000001C0: 2C 37 38 AB C3 28 4B 4F 24 29 AB 50 29 3B 00 E2 |,78..(KO$).P);..|
000001D0: 09 E6 00 99 22 9D 9D B3 AD 22 53 54 24 22 BD 22 |...."...."ST$"."|
000001E0: 3A 8E 00 06 0A F0 00 8F 2A 2A 2A 20 42 4C 4F 43 |:.......*** BLOC|
000001F0: 4B 20 4C 45 53 45 4E 20 28 4D 49 54 20 4F 50 45 |K LESEN (MIT OPE|
00000200: 4E 29 20 2A 2A 2A 00 25 0A FA 00 98 31 35 2C 22 |N) ***.%....15,"|
00000210: 49 22 AA 44 52 24 3A 4D 4B 25 B2 44 53 3A 8B 4D |I".DR$:MK%.DS:.M|
00000220: 4B 25 A7 20 8E 00 36 0A 04 01 9F 38 2C 38 2C 38 |K%. ..6....8,8,8|
00000230: 2C 22 23 22 3A 8E 00 4F 0A 0E 01 8F 2A 2A 2A 20 |,"#":..O....*** |
00000240: 42 4C 4F 43 4B 20 4C 45 53 45 4E 20 2A 2A 2A 00 |BLOCK LESEN ***.|
00000250: 6A 0A 18 01 98 31 35 2C 22 55 31 3A 22 38 3B 44 |j....15,"U1:"8;D|
00000260: 52 25 3B 54 52 25 3B 53 43 25 00 70 0A 22 01 8E |R%;TR%;SC%.p."..|
00000270: 00 76 0A 2C 01 3A 00 90 0A 36 01 8F 20 2A 2A 2A |.v.,.:...6.. ***|
00000280: 2A 20 44 49 52 45 43 54 4F 52 59 20 2A 2A 2A 2A |* DIRECTORY ****|
00000290: 00 A1 0A 40 01 8D 20 35 34 30 3A 8B 4D 4B 25 A7 |...@.. 540:.MK%.|
000002A0: 8E 00 D1 0A 4A 01 8B 28 51 55 25 B2 30 29 AF 28 |....J..(QU%.0).(|
000002B0: 49 44 24 B2 44 49 24 29 AF 28 44 52 25 B2 4C 52 |ID$.DI$).(DR%.LR|
000002C0: 25 29 AF 28 5A 59 24 B2 54 59 24 29 A7 A0 38 3A |%).(ZY$.TY$)..8:|
000002D0: 8E 00 EB 0A 54 01 99 22 11 11 43 41 54 41 4C 4F |....T.."..CATALO|
000002E0: 47 20 45 49 4E 4C 45 53 45 4E 22 00 2C 0B 5E 01 |G EINLESEN".,.^.|
000002F0: 51 55 25 B2 30 3A 44 49 24 B2 49 44 24 3A 4C 52 |QU%.0:DI$.ID$:LR|
00000300: 25 B2 44 52 25 3A 4E 30 25 B2 30 3A 42 55 25 B2 |%.DR%:N0%.0:BU%.|
00000310: 30 3A 46 49 25 B2 30 3A 54 52 25 B2 31 38 3A 53 |0:FI%.0:TR%.18:S|
00000320: 43 25 B2 31 3A 5A 59 24 B2 54 59 24 00 43 0B 68 |C%.1:ZY$.TY$.C.h|
00000330: 01 8D 20 32 38 30 3A 8F 20 42 4C 4F 43 4B 2D 52 |.. 280:. BLOCK-R|
00000340: 45 41 44 00 77 0B 72 01 81 49 B2 30 A4 31 3A A1 |EAD.w.r..I.0.1:.|
00000350: 23 38 2C 42 59 24 3A 42 44 25 28 49 29 B2 C6 28 |#8,BY$:BD%(I)..(|
00000360: 42 59 24 AA C7 28 30 29 29 3A 82 3A 42 55 25 B2 |BY$..(0)):.:BU%.|
00000370: 32 3A 8D 20 38 30 30 00 8F 0B 7C 01 8D 20 31 34 |2:. 800...|.. 14|
00000380: 30 3A 42 31 25 B2 28 42 59 25 20 AF 20 37 29 00 |0:B1%.(BY% . 7).|
00000390: A4 0B 86 01 8B 42 31 25 B2 30 AF 52 45 25 B2 30 |.....B1%.0.RE%.0|
000003A0: A7 34 39 30 00 B5 0B 90 01 8B 42 31 25 AF 52 45 |.490......B1%.RE|
000003B0: 25 A7 34 39 30 00 DC 0B 9A 01 8B 54 59 24 B3 B1 |%.490......TY$..|
000003C0: 22 41 22 A7 8B C6 28 54 59 24 28 42 31 25 29 29 |"A"...(TY$(B1%))|
000003D0: B3 B1 C6 28 54 59 24 29 A7 34 39 30 00 04 0C A4 |...(TY$).490....|
000003E0: 01 48 24 B2 22 22 3A 81 49 B2 30 A4 31 3A 8D 20 |.H$."":.I.0.1:. |
000003F0: 31 34 30 3A 42 4E 25 28 4E 30 25 2C 49 29 B2 42 |140:BN%(N0%,I).B|
00000400: 59 25 3A 82 00 30 0C AE 01 81 49 B2 33 A4 31 38 |Y%:..0....I.3.18|
00000410: 3A A1 23 38 2C 42 59 24 3A 8B 42 59 24 B3 B1 C7 |:.#8,BY$:.BY$...|
00000420: 28 31 36 30 29 A7 20 48 24 B2 48 24 AA 42 59 24 |(160). H$.H$.BY$|
00000430: 00 3F 0C B8 01 82 3A 8B 5A 25 A7 32 33 38 30 00 |.?....:.Z%.2380.|
00000440: 5C 0C C2 01 81 49 B2 31 39 A4 32 37 3A A1 23 38 |\....I.19.27:.#8|
00000450: 2C 42 59 24 3A 82 3A 8D 20 31 34 30 00 7E 0C CC |,BY$:.:. 140.~..|
00000460: 01 42 4C 25 B2 42 59 25 3A 8D 20 31 34 30 3A 42 |.BL%.BY%:. 140:B|
00000470: 4C 25 B2 42 4C 25 AA 32 35 36 AC 42 59 25 00 B7 |L%.BL%.256.BY%..|
00000480: 0C D6 01 42 4C 25 28 4E 30 25 29 B2 42 4C 25 3A |...BL%(N0%).BL%:|
00000490: 4E 41 24 28 4E 30 25 29 B2 48 24 3A 46 54 24 28 |NA$(N0%).H$:FT$(|
000004A0: 4E 30 25 29 B2 54 59 24 28 42 31 25 29 3A 4E 30 |N0%).TY$(B1%):N0|
000004B0: 25 B2 4E 30 25 AA 31 00 CA 0C E0 01 99 22 91 22 |%.N0%.1......"."|
000004C0: A3 32 35 AA 54 42 29 4E 30 25 00 F8 0C EA 01 46 |.25.TB)N0%.....F|
000004D0: 49 25 B2 46 49 25 AA 31 3A 8B 46 49 25 B3 38 A7 |I%.FI%.1:.FI%.8.|
000004E0: 42 55 25 B2 46 49 25 AC 33 32 AA 32 3A 8D 20 38 |BU%.FI%.32.2:. 8|
000004F0: 30 30 3A 89 20 33 38 30 00 0A 0D F4 01 8B 42 44 |00:. 380......BD|
00000500: 25 28 30 29 B2 30 A7 35 32 30 00 2F 0D FE 01 54 |%(0).0.520./...T|
00000510: 52 25 B2 42 44 25 28 30 29 3A 53 43 25 B2 42 44 |R%.BD%(0):SC%.BD|
00000520: 25 28 31 29 3A 46 49 25 B2 30 3A 89 33 36 30 00 |%(1):FI%.0:.360.|
00000530: 36 0D 08 02 A0 38 00 3C 0D 12 02 8E 00 52 0D 1C |6....8.<.....R..|
00000540: 02 8F 20 2A 2A 2A 20 47 45 54 20 49 44 24 20 2A |.. *** GET ID$ *|
00000550: 2A 2A 00 68 0D 26 02 8D 20 32 35 30 3A 8F 20 4F |**.h.&.. 250:. O|
00000560: 50 45 4E 20 46 49 4C 45 00 83 0D 30 02 8B 20 4D |PEN FILE...0.. M|
00000570: 4B 25 20 A7 20 8E 20 3A 8F 20 53 49 43 48 45 52 |K% . . :. SICHER|
00000580: 2E 2E 2E 00 99 0D 3A 02 54 52 25 B2 31 38 3A 53 |......:.TR%.18:S|
00000590: 43 25 B2 30 3A 8D 32 38 30 00 B2 0D 44 02 42 55 |C%.0:.280...D.BU|
000005A0: 25 B2 31 36 32 3A 49 44 24 B2 22 22 3A 8D 20 38 |%.162:ID$."":. 8|
000005B0: 30 30 00 D0 0D 4E 02 81 49 B2 31 A4 35 3A 8D 31 |00...N..I.1.5:.1|
000005C0: 34 30 3A 49 44 24 B2 49 44 24 AA 42 59 24 3A 82 |40:ID$.ID$.BY$:.|
000005D0: 00 D6 0D 58 02 8E 00 F3 0D 62 02 8F 20 2A 2A 2A |...X.....b.. ***|
000005E0: 20 47 45 54 20 20 4E 41 4D 45 20 2B 20 49 44 20 | GET NAME + ID |
000005F0: 2A 2A 2A 00 03 0E 6C 02 8D 35 35 30 3A 8B 4D 4B |***...l..550:.MK|
00000600: 25 A7 8E 00 1B 0E 76 02 42 55 25 B2 31 34 34 3A |%.....v.BU%.144:|
00000610: 4E 41 24 B2 22 22 3A 8D 38 30 30 00 42 0E 80 02 |NA$."":.800.B...|
00000620: 81 49 B2 31 A4 31 36 3A 8D 31 34 30 3A 8B 42 59 |.I.1.16:.140:.BY|
00000630: 25 B3 B1 31 36 30 A7 4E 41 24 B2 4E 41 24 AA 42 |%..160.NA$.NA$.B|
00000640: 59 24 00 4A 0E 8A 02 82 3A 8E 00 50 0E 94 02 3A |Y$.J....:..P...:|
00000650: 00 6D 0E 9E 02 8F 20 2A 2A 2A 20 47 45 54 20 45 |.m.... *** GET E|
00000660: 49 4E 45 20 54 41 53 54 45 20 2A 2A 2A 00 85 0E |INE TASTE ***...|
00000670: A8 02 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |...198,0:.198,1:|
00000680: A1 20 54 41 24 00 96 0E B2 02 41 53 25 B2 C5 28 |. TA$.....AS%..(|
00000690: 54 41 24 29 3A 8E 00 9C 0E BC 02 3A 00 BC 0E C6 |TA$):......:....|
000006A0: 02 8F 20 2A 2A 2A 20 45 52 46 52 41 47 45 20 44 |.. *** ERFRAGE D|
000006B0: 52 49 56 45 20 4E 52 2E 20 2A 2A 2A 00 D7 0E D0 |RIVE NR. ***....|
000006C0: 02 99 22 11 44 52 49 56 45 20 4E 55 4D 4D 45 52 |..".DRIVE NUMMER|
000006D0: 20 28 30 2F 31 29 22 00 FF 0E D1 02 A1 41 24 3A | (0/1)"......A$:|
000006E0: 8B 41 24 B2 22 30 22 A7 44 52 25 B2 30 3A 54 41 |.A$."0".DR%.0:TA|
000006F0: 24 B2 22 30 22 3A 44 52 24 B2 54 41 24 3A 8E 00 |$."0":DR$.TA$:..|
00000700: 23 0F D2 02 8B 41 24 B2 22 31 22 A7 44 52 25 B2 |#....A$."1".DR%.|
00000710: 31 3A 54 41 24 B2 22 31 22 3A 44 52 24 B2 54 41 |1:TA$."1":DR$.TA|
00000720: 24 3A 8E 00 2C 0F D5 02 89 37 32 31 00 47 0F EE |$:..,....721.G..|
00000730: 02 8F 20 2A 2A 2A 20 56 45 52 5A 4F 45 47 45 52 |.. *** VERZOEGER|
00000740: 55 4E 47 20 2A 2A 2A 00 5E 0F F8 02 8B 41 46 25 |UNG ***.^....AF%|
00000750: B2 30 A7 81 49 B2 31 A4 32 35 30 30 3A 82 00 64 |.0..I.1.2500:..d|
00000760: 0F 02 03 8E 00 6A 0F 0C 03 3A 00 8D 0F 16 03 8F |.....j...:......|
00000770: 2A 2A 2A 20 42 55 46 46 45 52 20 50 4F 49 4E 54 |*** BUFFER POINT|
00000780: 45 52 20 53 45 54 5A 45 4E 20 2A 2A 2A 00 A3 0F |ER SETZEN ***...|
00000790: 20 03 98 31 35 2C 22 42 2D 50 3A 22 38 3B 42 55 | ..15,"B-P:"8;BU|
000007A0: 25 3A 8E 00 C8 0F 2A 03 8F 20 20 2A 2A 2A 2A 20 |%:....*.. **** |
000007B0: 44 41 55 45 52 20 46 49 4C 45 53 20 4F 45 46 46 |DAUER FILES OEFF|
000007C0: 4E 45 4E 20 2A 2A 2A 2A 00 CE 0F 34 03 3A 00 EF |NEN ****...4.:..|
000007D0: 0F 3E 03 9F 20 31 35 2C 38 2C 31 35 3A 8F 20 44 |.>.. 15,8,15:. D|
000007E0: 49 53 4B 20 45 52 52 4F 52 20 4B 41 4E 41 4C 00 |ISK ERROR KANAL.|
000007F0: 08 10 48 03 9F 20 30 31 2C 30 2C 30 30 3A 8F 20 |..H.. 01,0,00:. |
00000800: 54 41 53 54 41 54 55 52 00 3A 10 52 03 53 50 24 |TASTATUR.:.R.SP$|
00000810: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000830: 20 20 20 20 20 20 20 20 20 22 00 6C 10 5C 03 46 | ".l.\.F|
00000840: 4F 24 B2 22 DD 20 20 20 20 20 20 20 20 20 20 20 |O$.". |
00000850: 20 20 20 20 20 20 DD 20 20 20 20 20 20 20 20 20 | . |
00000860: 20 20 20 20 20 20 20 20 20 20 DD 22 00 9D 10 66 | ."...f|
00000870: 03 53 54 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.ST$."..........|
00000880: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000890: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 C4 10 |............"...|
000008A0: 70 03 46 4D 24 B2 22 20 2A 22 3A 8B 42 38 A7 53 |p.FM$." *":.B8.S|
000008B0: 54 24 B2 C8 28 53 54 24 AA 53 54 24 AA 53 54 24 |T$..(ST$.ST$.ST$|
000008C0: 2C 37 38 29 00 EA 10 7A 03 48 31 24 B2 22 49 4E |,78)...z.H1$."IN|
000008D0: 49 54 49 41 4C 49 53 49 45 52 55 4E 47 20 56 4F |ITIALISIERUNG VO|
000008E0: 4E 20 44 55 50 20 20 36 34 22 00 25 11 84 03 4E |N DUP 64".%...N|
000008F0: 41 24 B2 22 22 3A 4E 42 24 B2 22 22 3A 49 44 24 |A$."":NB$."":ID$|
00000900: B2 22 22 3A 44 49 24 B2 22 22 3A 54 41 24 B2 22 |."":DI$."":TA$."|
00000910: 22 3A 54 59 24 B2 22 22 3A 42 59 24 B2 22 22 3A |":TY$."":BY$."":|
00000920: 48 24 B2 22 22 00 41 11 8E 03 4B 4F 24 B2 48 34 |H$."".A...KO$.H4|
00000930: 24 3A 8D 31 37 30 3A 8D 34 30 39 30 3A 8D 37 36 |$:.170:.4090:.76|
00000940: 30 00 5C 11 98 03 48 5A 24 B2 22 30 31 32 33 34 |0.\...HZ$."01234|
00000950: 35 36 37 38 39 41 42 43 44 45 46 22 00 71 11 A2 |56789ABCDEF".q..|
00000960: 03 81 49 B2 31 A4 34 3A 87 54 59 24 28 49 29 3A |..I.1.4:.TY$(I):|
00000970: 82 00 77 11 AC 03 3A 00 9A 11 B6 03 8F 20 2A 2A |..w...:...... **|
00000980: 2A 2A 20 20 48 41 55 50 54 20 20 2D 20 20 4D 45 |** HAUPT - ME|
00000990: 4E 55 45 20 20 20 2A 2A 2A 2A 00 A0 11 C0 03 3A |NUE ****.....:|
000009A0: 00 B4 11 CA 03 4B 4F 24 B2 48 35 24 3A 48 31 24 |.....KO$.H5$:H1$|
000009B0: B2 48 33 24 00 CE 11 D4 03 8D 31 37 30 3A 58 B2 |.H3$......170:X.|
000009C0: B8 28 30 29 3A 8F 20 47 41 52 42 41 47 45 00 F3 |.(0):. GARBAGE..|
000009D0: 11 DE 03 99 A3 38 AA 54 42 29 22 11 31 29 20 53 |.....8.TB)".1) S|
000009E0: 43 52 41 54 43 48 45 4E 20 56 4F 4E 20 46 49 4C |CRATCHEN VON FIL|
000009F0: 45 53 22 00 19 12 E8 03 99 A3 38 AA 54 42 29 22 |ES".......8.TB)"|
00000A00: 11 32 29 20 46 4F 52 4D 41 54 49 45 52 45 4E 20 |.2) FORMATIEREN |
00000A10: 56 4F 4E 20 44 49 53 4B 53 00 35 12 F2 03 99 A3 |VON DISKS.5.....|
00000A20: 38 AA 54 42 29 22 11 33 29 20 46 49 4C 45 20 4C |8.TB)".3) FILE L|
00000A30: 49 53 54 45 4E 00 5A 12 FC 03 99 A3 38 AA 54 42 |ISTEN.Z.....8.TB|
00000A40: 29 22 11 34 29 20 44 49 53 4B 20 4E 41 4D 45 2F |)".4) DISK NAME/|
00000A50: 49 44 20 41 45 4E 44 45 52 4E 00 7F 12 06 04 99 |ID AENDERN......|
00000A60: A3 38 AA 54 42 29 22 11 35 29 20 54 45 53 54 4C |.8.TB)".5) TESTL|
00000A70: 45 53 45 4E 20 45 49 4E 45 52 20 44 49 53 4B 00 |ESEN EINER DISK.|
00000A80: A2 12 10 04 99 A3 38 AA 54 42 29 22 11 36 29 20 |......8.TB)".6) |
00000A90: 44 49 52 45 43 54 4F 52 59 20 20 41 4E 5A 45 49 |DIRECTORY ANZEI|
00000AA0: 47 45 00 CA 12 1A 04 99 A3 38 AA 54 42 29 22 11 |GE.......8.TB)".|
00000AB0: 37 29 20 46 49 4C 45 20 52 45 54 54 45 4E 20 28 |7) FILE RETTEN (|
00000AC0: 55 4E 53 43 52 41 54 43 48 29 00 F0 12 24 04 99 |UNSCRATCH)...$..|
00000AD0: A3 38 AA 54 42 29 22 11 38 29 20 53 54 41 52 54 |.8.TB)".8) START|
00000AE0: 41 44 52 45 53 53 45 20 41 45 4E 44 45 52 4E 22 |ADRESSE AENDERN"|
00000AF0: 00 16 13 29 04 99 A3 38 AA 54 42 29 22 11 39 29 |...)...8.TB)".9)|
00000B00: 20 4B 4F 50 49 45 52 45 4E 20 45 49 4E 45 52 20 | KOPIEREN EINER |
00000B10: 44 49 53 4B 22 3B 00 2D 13 2E 04 8D 36 37 30 3A |DISK";.-....670:|
00000B20: 8B 54 41 24 B2 22 51 22 A7 31 31 32 30 00 3D 13 |.TA$."Q".1120.=.|
00000B30: 38 04 8B 41 53 25 B2 30 A7 31 30 37 30 00 55 13 |8..AS%.0.1070.U.|
00000B40: 42 04 8F 20 2A 2A 2A 20 56 45 52 54 45 49 4C 45 |B.. *** VERTEILE|
00000B50: 52 20 2A 2A 2A 00 90 13 4C 04 91 41 53 25 8D 31 |R ***...L..AS%.1|
00000B60: 33 38 30 2C 31 31 36 30 2C 32 34 33 30 2C 32 37 |380,1160,2430,27|
00000B70: 35 30 2C 33 30 30 30 2C 32 32 38 30 2C 33 34 38 |50,3000,2280,348|
00000B80: 30 2C 33 38 30 30 2C 31 34 31 30 3A 89 39 37 30 |0,3800,1410:.970|
00000B90: 00 AB 13 56 04 8E 20 3A 20 8F 20 44 55 4D 4D 59 |...V.. : . DUMMY|
00000BA0: 20 53 55 42 52 4F 55 54 49 4E 45 00 B4 13 60 04 | SUBROUTINE...`.|
00000BB0: 8D 31 37 30 00 DC 13 6A 04 98 31 35 2C 22 55 3A |.170...j..15,"U:|
00000BC0: 22 3A 9C 3A 99 22 13 13 11 11 11 11 11 11 22 3A |":.:."........":|
00000BD0: 80 3A 8F 20 44 55 50 20 45 4E 44 45 00 E2 13 74 |.:. DUP ENDE...t|
00000BE0: 04 3A 00 FC 13 7E 04 8F 20 2A 2A 2A 20 46 4F 52 |.:...~.. *** FOR|
00000BF0: 4D 41 54 49 45 52 45 4E 20 2A 2A 2A 00 22 14 88 |MATIEREN ***."..|
00000C00: 04 4B 4F 24 B2 22 44 49 53 4B 20 46 4F 52 4D 41 |.KO$."DISK FORMA|
00000C10: 54 49 45 52 20 52 4F 55 54 49 4E 45 22 3A 8D 31 |TIER ROUTINE":.1|
00000C20: 37 30 00 41 14 92 04 8D 20 37 32 30 3A 8F 20 5A |70.A.... 720:. Z|
00000C30: 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 4C 45 53 45 |EILENNUMMER LESE|
00000C40: 4E 00 5F 14 9C 04 8D 20 36 32 30 3A A0 38 3A 8F |N._.... 620:.8:.|
00000C50: 20 44 49 53 4B 20 49 44 20 26 20 4E 41 4D 45 00 | DISK ID & NAME.|
00000C60: 79 14 A6 04 8B 4D 4B 25 A7 31 32 34 30 3A 8F 20 |y....MK%.1240:. |
00000C70: 3F 42 41 44 20 44 49 53 4B 00 BB 14 B0 04 44 24 |?BAD DISK.....D$|
00000C80: B2 22 22 3A 99 22 11 44 49 53 4B 20 49 44 20 3D |."":.".DISK ID =|
00000C90: 22 49 44 24 3A 99 22 11 53 4F 4C 4C 20 44 45 52 |"ID$:.".SOLL DER|
00000CA0: 20 49 44 20 42 45 49 42 45 48 41 4C 54 45 4E 20 | ID BEIBEHALTEN |
00000CB0: 57 45 52 44 45 4E 20 3F 20 22 3B 00 E3 14 BA 04 |WERDEN ? ";.....|
00000CC0: 84 31 2C 54 41 24 3A 99 3A 8B C8 28 54 41 24 2C |.1,TA$:.:..(TA$,|
00000CD0: 31 29 B2 22 4A 22 A7 49 44 24 B2 22 22 3A 89 31 |1)."J".ID$."":.1|
00000CE0: 32 34 30 00 0A 15 C4 04 8B C8 28 54 41 24 2C 31 |240.......(TA$,1|
00000CF0: 29 B3 B1 22 4E 22 A7 99 22 91 22 3B 3A 97 32 31 |).."N"..".";:.21|
00000D00: 31 2C 33 33 3A 89 31 32 31 30 00 19 15 CE 04 44 |1,33:.1210.....D|
00000D10: 24 B2 22 2C 22 AA 49 44 24 00 4C 15 D8 04 99 22 |$.",".ID$.L...."|
00000D20: 11 44 49 53 4B 20 4E 41 4D 45 20 2C 20 49 44 20 |.DISK NAME , ID |
00000D30: 20 3F 20 22 3B 3A 46 45 25 B2 C2 28 32 31 31 29 | ? ";:FE%..(211)|
00000D40: 3A 99 4E 41 24 22 2C 22 49 44 24 3B 00 7E 15 E2 |:.NA$","ID$;.~..|
00000D50: 04 97 32 31 31 2C 46 45 25 3A 84 31 2C 4E 41 24 |..211,FE%:.1,NA$|
00000D60: 2C 49 44 24 3A 99 3A 8B C8 28 4E 41 24 2C 31 29 |,ID$:.:..(NA$,1)|
00000D70: B2 22 2A 22 B0 4E 41 24 B2 22 22 A7 20 8E 00 98 |."*".NA$."". ...|
00000D80: 15 EC 04 8F 20 5E 5E 5E 20 41 42 42 52 55 43 48 |.... ^^^ ABBRUCH|
00000D90: 20 5E 5E 5E 20 21 21 21 00 C8 15 F6 04 51 55 25 | ^^^ !!!.....QU%|
00000DA0: B2 AB 31 3A 43 43 24 B2 22 4E 3A 22 AA 4E 41 24 |..1:CC$."N:".NA$|
00000DB0: 3A 8B 49 44 24 B1 22 22 A7 43 43 24 B2 43 43 24 |:.ID$."".CC$.CC$|
00000DC0: AA 22 2C 22 AA 49 44 24 00 FC 15 00 05 99 22 11 |.",".ID$......".|
00000DD0: 44 49 53 4B 45 54 54 45 20 57 49 52 44 20 46 4F |DISKETTE WIRD FO|
00000DE0: 52 4D 41 54 49 45 52 54 2E 22 3A A0 31 3A 9F 31 |RMATIERT.":.1:.1|
00000DF0: 2C 38 2C 31 35 2C 22 22 AA 43 43 24 00 0A 16 0A |,8,15,"".CC$....|
00000E00: 05 A0 31 3A 9F 31 2C 30 2C 30 00 18 16 14 05 8B |..1:.1,0,0......|
00000E10: 44 53 B3 32 30 A7 20 8E 00 2B 16 1E 05 99 22 11 |DS.20. ..+....".|
00000E20: 46 45 48 4C 45 52 20 3A 22 45 24 00 54 16 28 05 |FEHLER :"E$.T.(.|
00000E30: 98 31 35 2C 22 49 22 AA 44 52 24 3A 99 22 11 4C |.15,"I".DR$:.".L|
00000E40: 45 54 5A 54 45 52 20 56 45 52 53 55 43 48 20 2E |ETZTER VERSUCH .|
00000E50: 2E 2E 22 3B 00 74 16 32 05 98 31 35 2C 43 43 24 |..";.t.2..15,CC$|
00000E60: 3A 8B 44 53 B2 30 A7 99 22 12 4F 4B 20 21 22 3A |:.DS.0..".OK !":|
00000E70: 89 37 36 30 00 92 16 3C 05 99 22 44 49 53 4B 20 |.760...<.."DISK |
00000E80: 12 44 45 46 45 4B 54 92 20 21 21 21 22 3A 89 37 |.DEFEKT. !!!":.7|
00000E90: 36 30 00 AF 16 46 05 83 22 53 45 51 22 2C 22 50 |60...F.."SEQ","P|
00000EA0: 52 47 22 2C 22 55 53 52 22 2C 22 52 45 4C 22 00 |RG","USR","REL".|
00000EB0: B5 16 50 05 3A 00 D5 16 5A 05 8F 20 2A 2A 2A 2A |..P.:...Z.. ****|
00000EC0: 20 53 43 52 41 54 43 48 20 52 4F 55 54 49 4E 45 | SCRATCH ROUTINE|
00000ED0: 20 2A 2A 2A 2A 00 FF 16 64 05 4B 4F 24 B2 22 53 | ****...d.KO$."S|
00000EE0: 43 52 41 54 43 48 20 52 4F 55 54 49 4E 45 22 3A |CRATCH ROUTINE":|
00000EF0: 4B 24 B2 22 53 43 52 41 54 43 48 45 4E 20 22 00 |K$."SCRATCHEN ".|
00000F00: 0F 17 6E 05 51 25 B2 AB 31 3A 89 31 34 33 30 00 |..n.Q%..1:.1430.|
00000F10: 15 17 78 05 3A 00 33 17 82 05 8F 20 2A 2A 2A 2A |..x.:.3.... ****|
00000F20: 20 4B 4F 50 49 45 52 52 4F 55 54 49 4E 45 20 2A | KOPIERROUTINE *|
00000F30: 2A 2A 2A 00 60 17 8C 05 51 25 B2 30 3A 4B 4F 24 |***.`...Q%.0:KO$|
00000F40: B2 22 4B 4F 50 49 45 52 20 52 4F 55 54 49 4E 45 |."KOPIER ROUTINE|
00000F50: 22 3A 4B 24 B2 22 4B 4F 50 49 45 52 45 4E 20 22 |":K$."KOPIEREN "|
00000F60: 00 6F 17 96 05 50 4C 25 B2 30 3A 8D 31 37 30 00 |.o...PL%.0:.170.|
00000F70: A8 17 A0 05 8B 4D 44 25 B2 30 AF 51 25 B2 30 A7 |.....MD%.0.Q%.0.|
00000F80: 99 22 11 11 20 20 20 4E 49 43 48 54 20 42 45 49 |.".. NICHT BEI|
00000F90: 20 45 49 4E 45 52 20 12 34 30 33 31 92 20 21 21 | EINER .4031. !!|
00000FA0: 21 22 3A 89 20 36 38 30 00 BE 17 AA 05 99 4B 24 |!":. 680......K$|
00000FB0: 22 56 4F 4E 20 91 22 3B 3A 8D 20 37 32 30 00 D6 |"VON .";:. 720..|
00000FC0: 17 B4 05 8B 51 25 A7 20 31 34 38 30 3A 8F 20 53 |....Q%. 1480:. S|
00000FD0: 43 52 41 54 43 48 00 F3 17 BE 05 99 22 91 22 A3 |CRATCH......".".|
00000FE0: 58 25 AA 32 AA 54 42 29 22 4E 41 43 48 22 31 AB |X%.2.TB)"NACH"1.|
00000FF0: 44 52 25 00 35 18 C8 05 99 22 11 54 59 50 3A 20 |DR%.5....".TYP: |
00001000: 12 50 92 52 47 2C 20 12 53 92 45 51 2C 20 12 55 |.P.RG, .S.EQ, .U|
00001010: 92 53 52 2C 20 12 52 92 45 4C 2C 20 4F 44 45 52 |.SR, .R.EL, ODER|
00001020: 20 12 41 92 4C 4C 45 53 20 3F 20 22 3B 3A 58 25 | .A.LLES ? ";:X%|
00001030: B2 B9 28 30 29 00 44 18 D2 05 8D 36 38 30 3A 99 |..(0).D....680:.|
00001040: 54 41 24 3B 00 76 18 DC 05 8B 54 41 24 B2 22 50 |TA$;.v....TA$."P|
00001050: 22 B0 54 41 24 B2 22 53 22 B0 54 41 24 B2 22 55 |".TA$."S".TA$."U|
00001060: 22 B0 54 41 24 B2 22 52 22 B0 54 41 24 B2 22 41 |".TA$."R".TA$."A|
00001070: 22 A7 31 35 32 30 00 88 18 E6 05 97 32 31 31 2C |".1520......211,|
00001080: 58 25 3A 89 31 34 39 30 00 A4 18 F0 05 54 59 24 |X%:.1490.....TY$|
00001090: B2 54 41 24 3A 8B 51 25 A7 41 4C 25 B2 30 3A 89 |.TA$:.Q%.AL%.0:.|
000010A0: 31 35 36 30 00 D1 18 FA 05 99 3A 99 22 11 12 46 |1560......:."..F|
000010B0: 92 52 41 47 45 4E 20 4F 44 45 52 20 12 41 92 4C |.RAGEN ODER .A.L|
000010C0: 4C 45 53 20 4B 4F 50 49 45 52 45 4E 20 3F 20 22 |LES KOPIEREN ? "|
000010D0: 3B 00 FC 18 04 06 8D 36 38 30 3A 41 4C 25 B2 28 |;......680:AL%.(|
000010E0: 54 41 24 B2 22 41 22 29 3A 8B 41 4C 25 A7 99 22 |TA$."A"):.AL%.."|
000010F0: 41 4C 4C 45 53 22 3A 89 31 35 36 30 00 0A 19 0E |ALLES":.1560....|
00001100: 06 99 22 46 52 41 47 45 4E 22 00 22 19 18 06 99 |.."FRAGEN"."....|
00001110: 3A 8D 33 31 30 3A 8B 4E 30 25 B2 30 AF 41 46 25 |:.310:.N0%.0.AF%|
00001120: A7 8E 00 4F 19 22 06 8B 20 4E 30 25 B2 30 A7 99 |...O.".. N0%.0..|
00001130: 22 11 11 12 44 49 45 20 44 49 53 4B 20 49 53 54 |"...DIE DISK IST|
00001140: 20 4C 45 45 52 92 21 21 21 22 3A 89 37 36 30 00 | LEER.!!!":.760.|
00001150: 6E 19 2C 06 8D 20 31 35 30 3A 8F 20 44 45 4C 45 |n.,.. 150:. DELE|
00001160: 54 45 20 5A 45 49 4C 45 20 31 30 2D 32 33 00 98 |TE ZEILE 10-23..|
00001170: 19 36 06 99 22 4C 41 45 4E 47 45 20 20 20 20 20 |.6.."LAENGE |
00001180: 20 20 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 | NAME |
00001190: 20 20 20 20 41 52 54 22 00 AC 19 40 06 81 20 49 | ART"...@.. I|
000011A0: 20 B2 20 30 20 A4 20 4E 30 25 AB 31 00 D4 19 4A | . 0 . N0%.1...J|
000011B0: 06 99 22 11 22 42 4C 25 28 49 29 A3 38 AA 54 42 |.."."BL%(I).8.TB|
000011C0: 29 4E 41 24 28 49 29 A3 33 31 AA 54 42 29 46 54 |)NA$(I).31.TB)FT|
000011D0: 24 28 49 29 00 ED 19 54 06 99 22 11 20 20 20 20 |$(I)...T..". |
000011E0: 20 20 20 22 4B 24 22 20 28 4A 2F 4E 29 00 FB 19 | "K$" (J/N)...|
000011F0: 5E 06 8B 41 4C 25 A7 31 36 37 30 00 1B 1A 68 06 |^..AL%.1670...h.|
00001200: 8D 20 36 38 30 3A 8B 54 41 24 B2 22 4E 22 B0 54 |. 680:.TA$."N".T|
00001210: 41 24 B2 22 11 22 A7 31 36 38 30 00 34 1A 72 06 |A$.".".1680.4.r.|
00001220: 8B 54 41 24 B2 22 91 22 A7 8D 32 34 31 30 3A 89 |.TA$."."..2410:.|
00001230: 31 36 38 30 00 48 1A 7C 06 8B 54 41 24 B3 B1 22 |1680.H.|..TA$.."|
00001240: 4A 22 A7 20 31 36 34 30 00 66 1A 86 06 43 50 24 |J". 1640.f...CP$|
00001250: 28 50 4C 25 29 B2 4E 41 24 28 49 29 3A 50 4C 25 |(PL%).NA$(I):PL%|
00001260: B2 50 4C 25 AA 31 00 86 1A 90 06 99 22 91 91 91 |.PL%.1......"...|
00001270: 22 53 50 24 3A 99 53 50 24 3A 99 53 50 24 22 91 |"SP$:.SP$:.SP$".|
00001280: 91 91 91 22 3A 82 00 C5 1A 9A 06 8B 50 4C 25 B2 |...":.......PL%.|
00001290: 30 A7 99 22 91 22 53 50 24 3A 99 22 11 11 20 20 |0.."."SP$:.".. |
000012A0: 20 20 20 20 20 20 20 20 4E 49 43 48 54 53 20 5A | NICHTS Z|
000012B0: 55 20 22 4B 24 22 2E 2E 2E 22 3A 51 55 25 B2 30 |U "K$"...":QU%.0|
000012C0: 3A 89 37 36 30 00 DC 1A A4 06 8B 41 46 25 A7 99 |:.760......AF%..|
000012D0: 22 91 22 53 50 24 3A 89 31 37 36 30 00 EF 1A AE |"."SP$:.1760....|
000012E0: 06 8B 51 25 B0 50 4C 25 B2 31 A7 31 38 31 30 00 |..Q%.PL%.1.1810.|
000012F0: 1B 1B B8 06 99 22 91 22 53 50 24 3A 99 22 41 4C |....."."SP$:."AL|
00001300: 50 48 41 42 45 54 49 53 43 48 20 53 4F 52 54 49 |PHABETISCH SORTI|
00001310: 45 52 45 4E 20 28 4A 2F 4E 29 22 00 32 1B C2 06 |EREN (J/N)".2...|
00001320: 8D 36 38 30 3A 8B 54 41 24 B2 22 4E 22 A7 31 38 |.680:.TA$."N".18|
00001330: 31 30 00 45 1B CC 06 8B 54 41 24 B3 B1 22 4A 22 |10.E....TA$.."J"|
00001340: A7 31 37 33 30 00 67 1B D6 06 8F 20 2A 2A 2A 20 |.1730.g.... *** |
00001350: 41 4C 46 41 20 53 4F 52 54 20 28 45 49 4E 46 41 |ALFA SORT (EINFA|
00001360: 43 48 29 20 2A 2A 2A 00 7D 1B E0 06 99 22 11 11 |CH) ***.}...."..|
00001370: 53 4F 52 54 49 45 52 45 4E 2E 2E 2E 22 00 95 1B |SORTIEREN..."...|
00001380: EA 06 45 52 25 B2 30 3A 81 49 B2 50 4C 25 AB 32 |..ER%.0:.I.PL%.2|
00001390: A4 30 A9 AB 31 00 D6 1B F4 06 8B 43 50 24 28 49 |.0..1......CP$(I|
000013A0: 29 B1 43 50 24 28 49 AA 31 29 A7 48 24 B2 43 50 |).CP$(I.1).H$.CP|
000013B0: 24 28 49 AA 31 29 3A 43 50 24 28 49 AA 31 29 B2 |$(I.1):CP$(I.1).|
000013C0: 43 50 24 28 49 29 3A 43 50 24 28 49 29 B2 48 24 |CP$(I):CP$(I).H$|
000013D0: 3A 45 52 25 B2 31 00 F4 1B FE 06 82 3A 8B 45 52 |:ER%.1......:.ER|
000013E0: 25 A7 31 37 37 30 3A 8F 20 4E 4F 43 48 4D 41 4C |%.1770:. NOCHMAL|
000013F0: 20 2E 2E 2E 00 11 1C 08 07 8F 20 2A 2A 2A 20 43 | ......... *** C|
00001400: 4F 50 59 20 46 49 4C 45 53 20 2E 2E 2E 20 2A 2A |OPY FILES ... **|
00001410: 2A 00 39 1C 12 07 8B 51 25 A7 51 55 25 B2 AB 31 |*.9....Q%.QU%..1|
00001420: 3A 8F 20 44 49 52 20 4E 49 43 48 54 20 4D 45 48 |:. DIR NICHT MEH|
00001430: 52 20 47 55 45 4C 54 49 47 00 4C 1C 1C 07 8D 32 |R GUELTIG.L....2|
00001440: 31 33 30 3A 8F 20 52 41 48 4D 45 4E 00 5B 1C 26 |130:. RAHMEN.[.&|
00001450: 07 81 49 B2 30 A4 50 4C 25 AB 31 00 72 1C 30 07 |..I.0.PL%.1.r.0.|
00001460: 99 22 1D 22 43 50 24 28 49 29 A3 31 39 AA 54 42 |."."CP$(I).19.TB|
00001470: 29 3B 00 AE 1C 3A 07 8B 51 25 B2 30 A7 98 31 35 |);...:..Q%.0..15|
00001480: 2C 22 43 22 AA C7 28 34 38 AA 31 AB 44 52 25 29 |,"C"..(48.1.DR%)|
00001490: AA 22 3A 22 AA 43 50 24 28 49 29 AA 22 3D 22 AA |.":".CP$(I)."=".|
000014A0: 44 52 24 AA 22 3A 22 AA 43 50 24 28 49 29 00 CD |DR$.":".CP$(I)..|
000014B0: 1C 44 07 8B 51 25 A7 98 31 35 2C 22 53 22 AA 44 |.D..Q%..15,"S".D|
000014C0: 52 24 AA 22 3A 22 AA 43 50 24 28 49 29 00 E5 1C |R$.":".CP$(I)...|
000014D0: 4E 07 8D 32 32 32 30 3A 99 44 24 3A 45 52 25 28 |N..2220:.D$:ER%(|
000014E0: 49 29 B2 45 25 00 0D 1D 58 07 8B 45 25 B2 37 32 |I).E%...X..E%.72|
000014F0: A7 99 A3 31 39 AA 54 42 29 22 12 41 42 42 52 55 |...19.TB)".ABBRU|
00001500: 43 48 12 20 21 21 21 22 3A 89 37 36 30 00 28 1D |CH. !!!":.760.(.|
00001510: 62 07 8B 45 25 A7 45 52 25 B2 45 52 25 AA 31 3A |b..E%.ER%.ER%.1:|
00001520: 8F 20 46 45 48 4C 45 52 00 3D 1D 6C 07 8B C2 28 |. FEHLER.=.l...(|
00001530: 32 31 34 29 B1 32 32 A7 8D 32 31 38 30 00 6C 1D |214).22..2180.l.|
00001540: 76 07 82 3A 8B 45 52 25 B2 30 B0 51 25 A7 99 A3 |v..:.ER%.0.Q%...|
00001550: 32 30 AA 54 42 29 22 2A 2A 2A 20 45 20 4E 20 44 |20.TB)"*** E N D|
00001560: 20 45 20 2A 2A 2A 22 3A 89 37 36 30 00 77 1D 80 | E ***":.760.w..|
00001570: 07 8B 41 46 25 A7 8E 00 97 1D 8A 07 8F 20 2A 2A |..AF%........ **|
00001580: 2A 20 46 45 48 4C 45 52 20 42 45 48 41 4E 44 4C |* FEHLER BEHANDL|
00001590: 55 4E 47 20 2A 2A 2A 00 D3 1D 94 07 4B 4F 24 B2 |UNG ***.....KO$.|
000015A0: C4 28 45 52 25 29 AA 22 20 4B 4F 50 49 45 52 46 |.(ER%)." KOPIERF|
000015B0: 45 48 4C 45 52 20 22 3A 8B 45 52 25 B1 31 A7 4B |EHLER ":.ER%.1.K|
000015C0: 4F 24 B2 4B 4F 24 AA 22 53 49 4E 44 22 3A 89 31 |O$.KO$."SIND":.1|
000015D0: 39 36 30 00 E5 1D 9E 07 4B 4F 24 B2 4B 4F 24 AA |960.....KO$.KO$.|
000015E0: 22 49 53 54 22 00 02 1E A8 07 4B 4F 24 B2 4B 4F |"IST".....KO$.KO|
000015F0: 24 AA 22 20 41 55 46 47 45 54 52 45 54 45 4E 20 |$." AUFGETRETEN |
00001600: 21 22 00 22 1E B2 07 81 49 B2 30 A4 50 4C 25 AB |!"."....I.0.PL%.|
00001610: 31 3A 8B 45 52 25 28 49 29 B3 B1 36 33 A7 32 31 |1:.ER%(I)..63.21|
00001620: 31 30 00 2B 1E BC 07 8D 31 37 30 00 3E 1E C6 07 |10.+....170.>...|
00001630: 99 22 11 11 11 12 22 43 50 24 28 49 29 3B 00 5F |."...."CP$(I);._|
00001640: 1E D0 07 99 A3 32 30 AA 54 42 29 22 92 45 58 49 |.....20.TB)".EXI|
00001650: 53 54 49 45 52 54 20 42 45 52 45 49 54 53 2E 00 |STIERT BEREITS..|
00001660: 96 1E DA 07 99 22 11 11 12 4C 92 4F 45 53 43 48 |....."...L.OESCH|
00001670: 45 4E 2C 20 12 55 92 4D 42 45 4E 45 4E 4E 45 4E |EN, .U.MBENENNEN|
00001680: 2C 20 12 49 92 47 4E 4F 52 49 45 52 45 4E 20 28 |, .I.GNORIEREN (|
00001690: 4C 2F 55 2F 49 29 00 BA 1E E4 07 8D 36 38 30 3A |L/U/I)......680:|
000016A0: 8B 54 41 24 B2 22 49 22 A7 32 31 30 30 3A 8F 20 |.TA$."I".2100:. |
000016B0: 49 47 4E 4F 52 49 45 52 45 4E 00 DB 1E EE 07 8B |IGNORIEREN......|
000016C0: 54 41 24 B2 22 4C 22 A7 32 30 37 30 3A 8F 20 53 |TA$."L".2070:. S|
000016D0: 43 52 41 54 43 48 26 43 4F 50 59 00 FE 1E F8 07 |CRATCH©.....|
000016E0: 8B 54 41 24 B3 B1 22 55 22 A7 32 30 32 30 3A 8F |.TA$.."U".2020:.|
000016F0: 20 46 41 4C 53 43 48 45 20 54 41 53 54 45 00 1D | FALSCHE TASTE..|
00001700: 1F 02 08 99 22 11 11 4E 45 55 45 52 20 4E 41 4D |...."..NEUER NAM|
00001710: 45 20 3F 20 22 3B 3A 84 31 2C 4E 4E 24 00 35 1F |E ? ";:.1,NN$.5.|
00001720: 0C 08 89 20 32 30 38 30 3A 8F 20 43 4F 50 59 20 |... 2080:. COPY |
00001730: 41 47 41 49 4E 00 62 1F 16 08 4E 4E 24 B2 22 2A |AGAIN.b...NN$."*|
00001740: 22 3A 98 31 35 2C 22 53 22 AA C7 28 34 38 AA 28 |":.15,"S"..(48.(|
00001750: 31 AB 44 52 25 29 29 AA 22 3A 22 AA 43 50 24 28 |1.DR%)).":".CP$(|
00001760: 49 29 00 95 1F 20 08 98 31 35 2C 22 43 22 AA C7 |I)... ..15,"C"..|
00001770: 28 34 38 AA 31 AB 44 52 25 29 AA 22 3A 22 AA 4E |(48.1.DR%).":".N|
00001780: 4E 24 AA 22 3D 22 AA 44 52 24 AA 22 3A 22 AA 43 |N$."=".DR$.":".C|
00001790: 50 24 28 49 29 00 AF 1F 2A 08 8B 44 53 A7 31 39 |P$(I)...*..DS.19|
000017A0: 39 30 3A 8F 20 4E 4F 43 48 4D 41 4C 2E 2E 2E 00 |90:. NOCHMAL....|
000017B0: C7 1F 34 08 99 53 50 24 3A 99 53 50 24 3A 99 53 |..4..SP$:.SP$:.S|
000017C0: 50 24 3A 99 53 50 24 00 D0 1F 3E 08 82 20 3A 8E |P$:.SP$...>.. :.|
000017D0: 00 EA 1F 48 08 8F 20 2A 2A 2A 20 54 45 58 54 46 |...H.. *** TEXTF|
000017E0: 45 4E 53 54 45 52 20 2A 2A 2A 00 F0 1F 52 08 8F |ENSTER ***...R..|
000017F0: 00 19 20 5C 08 99 22 93 22 A3 28 31 36 AB C3 28 |.. \..".".(16..(|
00001800: 4B 4F 24 29 AD 32 29 AA 54 42 29 22 2A 2A 2A 20 |KO$).2).TB)"*** |
00001810: 22 4B 4F 24 22 20 2A 2A 2A 00 47 20 66 08 99 22 |"KO$" ***.G f.."|
00001820: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001830: C0 C0 B2 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001840: C0 C0 C0 C0 C0 C0 AE 00 76 20 70 08 99 22 DD 20 |........v p..". |
00001850: 20 20 46 49 4C 45 20 2D 20 4E 41 4D 45 20 20 20 | FILE - NAME |
00001860: DD 20 20 46 45 48 4C 45 52 20 2D 20 4D 45 4C 44 |. FEHLER - MELD|
00001870: 55 4E 47 20 DD 22 00 A4 20 7A 08 99 22 AB C0 C0 |UNG .".. z.."...|
00001880: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB |................|
00001890: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000018A0: C0 C0 C0 B3 00 BF 20 84 08 99 22 13 11 11 11 22 |...... ..."...."|
000018B0: 3A 81 4B B2 31 A4 32 30 3A 99 46 4F 24 3A 82 00 |:.K.1.20:.FO$:..|
000018C0: EF 20 8E 08 99 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 |. ..."..........|
000018D0: C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 |................|
000018E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 3B 00 |.............";.|
000018F0: FD 20 98 08 99 22 13 11 11 11 22 3A 8E 00 16 21 |. ..."....":...!|
00001900: A2 08 8F 20 2A 2A 2A 20 46 4F 52 4D 41 54 20 44 |... *** FORMAT D|
00001910: 53 24 20 2A 2A 2A 00 32 21 AC 08 8D 33 37 38 30 |S$ ***.2!...3780|
00001920: 3A 44 24 B2 45 24 3A 44 24 B2 C8 28 44 24 2C 31 |:D$.E$:D$..(D$,1|
00001930: 39 29 00 66 21 B6 08 44 24 B2 C9 28 22 20 20 20 |9).f!..D$..(" |
00001940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001950: 20 20 20 20 20 20 20 22 AA 44 24 2C 39 AA C3 28 | ".D$,9..(|
00001960: 44 24 29 AD 32 29 00 76 21 C0 08 44 24 B2 C8 28 |D$).2).v!..D$..(|
00001970: 44 24 2C 31 39 29 00 7C 21 CA 08 8E 00 91 21 D4 |D$,19).|!.....!.|
00001980: 08 8F 2A 2A 2A 20 43 41 54 41 4C 4F 47 20 2A 2A |..*** CATALOG **|
00001990: 2A 00 97 21 DE 08 3A 00 C2 21 E8 08 8B 42 38 A7 |*..!..:..!...B8.|
000019A0: 4B 4F 24 B2 22 44 49 52 45 43 54 4F 52 59 20 41 |KO$."DIRECTORY A|
000019B0: 4E 5A 45 49 47 45 22 3A 8D 31 37 30 3A 89 32 33 |NZEIGE":.170:.23|
000019C0: 32 30 00 00 22 F2 08 4B 4F 24 B2 20 22 4C 41 45 |20.."..KO$. "LAE|
000019D0: 4E 47 45 20 20 20 20 46 49 4C 45 20 4E 41 4D 45 |NGE FILE NAME|
000019E0: 20 20 20 20 54 59 50 20 20 20 53 54 41 52 54 22 | TYP START"|
000019F0: 3A 8D 31 37 30 3A 8D 37 32 30 3A 99 22 11 11 22 |:.170:.720:.".."|
00001A00: 00 3D 22 FC 08 54 59 24 B2 22 41 22 3A 8D 33 31 |.="..TY$."A":.31|
00001A10: 30 3A 8D 31 37 30 3A 8D 33 36 37 30 3A 99 22 11 |0:.170:.3670:.".|
00001A20: 11 22 A3 31 36 AA 54 42 29 22 12 54 41 53 54 45 |.".16.TB)".TASTE|
00001A30: 20 42 49 54 54 45 22 3B 3A 89 36 38 30 00 57 22 | BITTE";:.680.W"|
00001A40: 06 09 99 22 11 46 45 48 4C 45 52 20 3D 20 12 22 |...".FEHLER = ."|
00001A50: 45 24 3A 89 36 38 30 00 68 22 10 09 81 49 B2 30 |E$:.680.h"...I.0|
00001A60: A4 31 3A 44 52 25 B2 49 00 97 22 1A 09 99 22 13 |.1:DR%.I.."...".|
00001A70: 13 11 11 11 11 22 A3 35 AA 44 52 25 AC 33 35 29 |.....".5.DR%.35)|
00001A80: 22 0F 93 22 3A 97 32 31 34 2C 32 33 3A 99 A3 37 |"..":.214,23:..7|
00001A90: 39 29 22 8F 13 22 3B 00 D4 22 24 09 44 52 24 B2 |9)"..";.."$.DR$.|
00001AA0: C7 28 49 AA 34 38 29 3A 98 31 35 2C 22 49 22 AA |.(I.48):.15,"I".|
00001AB0: 44 52 24 3A 8D 33 37 38 30 3A 8B 45 25 B2 30 A7 |DR$:.3780:.E%.0.|
00001AC0: A0 31 35 3A D7 44 28 44 52 25 29 3A 9F 31 35 2C |.15:.D(DR%):.15,|
00001AD0: 38 2C 31 35 00 FF 22 2E 09 82 3A 99 3A 99 3A 97 |8,15.."...:.:.:.|
00001AE0: 32 31 31 2C 30 3A 99 A3 33 35 29 22 12 54 41 53 |211,0:..35)".TAS|
00001AF0: 54 45 20 42 49 54 54 45 22 3B 3A 8D 36 38 30 00 |TE BITTE";:.680.|
00001B00: 0C 23 38 09 99 22 13 13 93 22 3A 8E 00 2C 23 42 |.#8.."...":..,#B|
00001B10: 09 8F 2A 2A 2A 20 46 49 4E 44 20 53 50 45 43 49 |..*** FIND SPECI|
00001B20: 46 49 43 20 46 49 4C 45 20 2A 2A 2A 00 5A 23 4C |FIC FILE ***.Z#L|
00001B30: 09 8B C8 28 48 24 2C C3 28 46 49 24 29 29 B3 B1 |...(H$,.(FI$))..|
00001B40: 46 49 24 20 A7 20 34 39 30 3A 8F 20 4E 49 43 48 |FI$ . 490:. NICH|
00001B50: 54 20 47 45 46 55 4E 44 45 4E 00 6A 23 56 09 8B |T GEFUNDEN.j#V..|
00001B60: 52 45 25 A7 5A 25 B2 30 3A 8E 00 9E 23 60 09 42 |RE%.Z%.0:...#`.B|
00001B70: 55 25 B2 42 55 25 AA 31 3A 8D 38 30 30 3A 8D 31 |U%.BU%.1:.800:.1|
00001B80: 34 30 3A 54 52 25 B2 42 59 25 3A 8D 31 34 30 3A |40:TR%.BY%:.140:|
00001B90: 53 43 25 B2 42 59 25 3A 5A 25 B2 30 3A 8E 00 B3 |SC%.BY%:Z%.0:...|
00001BA0: 23 6A 09 49 B2 49 AB 32 3A 8B 49 B3 AB 31 A7 49 |#j.I.I.2:.I..1.I|
00001BB0: B2 AB 31 00 B9 23 74 09 8E 00 DB 23 7E 09 8F 20 |..1..#t....#~.. |
00001BC0: 2A 2A 2A 2A 20 56 49 45 57 20 46 49 4C 45 20 4F |**** VIEW FILE O|
00001BD0: 4E 20 44 49 53 4B 20 2A 2A 2A 2A 00 FC 23 88 09 |N DISK ****..#..|
00001BE0: 4B 4F 24 B2 22 46 49 4C 45 20 2D 20 42 45 54 52 |KO$."FILE - BETR|
00001BF0: 41 43 48 54 45 52 22 3A 8D 31 37 30 00 1B 24 92 |ACHTER":.170..$.|
00001C00: 09 99 22 46 49 4C 45 4E 41 4D 45 20 5A 55 4D 20 |.."FILENAME ZUM |
00001C10: 4C 49 53 54 45 4E 20 3F 20 22 3B 00 28 24 9C 09 |LISTEN ? ";.($..|
00001C20: 84 31 2C 46 49 24 3A 99 00 3B 24 A6 09 54 59 24 |.1,FI$:..;$..TY$|
00001C30: B2 22 41 22 3A 51 55 25 B2 AB 31 00 50 24 B0 09 |."A":QU%..1.P$..|
00001C40: 99 22 11 11 41 55 46 20 91 22 3B 3A 8D 37 32 30 |."..AUF .";:.720|
00001C50: 00 83 24 BA 09 5A 25 B2 AB 31 3A 8D 33 32 30 3A |..$..Z%..1:.320:|
00001C60: 8B 5A 25 A7 99 22 11 11 4E 49 43 48 54 20 47 45 |.Z%.."..NICHT GE|
00001C70: 46 55 4E 44 45 4E 20 21 22 3A 5A 25 B2 30 3A 89 |FUNDEN !":Z%.0:.|
00001C80: 36 38 30 00 93 24 C4 09 46 49 24 B2 48 24 3A 8D |680..$..FI$.H$:.|
00001C90: 32 38 30 00 C0 24 CE 09 99 22 13 13 11 11 11 11 |280..$..."......|
00001CA0: 0F 93 22 A3 32 30 29 22 0F 93 4C 49 53 54 49 4E |..".20)"..LISTIN|
00001CB0: 47 20 56 4F 4E 20 46 49 4C 45 20 12 22 46 49 24 |G VON FILE ."FI$|
00001CC0: 00 EE 24 D8 09 99 22 11 44 49 45 53 45 52 20 42 |..$...".DIESER B|
00001CD0: 4C 4F 43 4B 20 49 4E 20 20 20 20 20 20 20 3A 20 |LOCK IN : |
00001CE0: 20 20 20 20 22 54 52 25 22 2C 22 53 43 25 00 27 | "TR%","SC%.'|
00001CF0: 25 E2 09 99 22 11 4E 41 45 43 48 53 54 45 52 20 |%...".NAECHSTER |
00001D00: 42 4C 4F 43 4B 20 49 4E 20 20 20 20 3A 20 20 20 |BLOCK IN : |
00001D10: 20 20 22 3B 3A 8D 31 34 30 3A 99 42 59 25 3B 3A | ";:.140:.BY%;:|
00001D20: 54 52 25 B2 42 59 25 00 4B 25 EC 09 99 A3 32 38 |TR%.BY%.K%....28|
00001D30: AA 54 42 29 22 9D 2C 22 3B 3A 8D 31 34 30 3A 99 |.TB)".,";:.140:.|
00001D40: 42 59 25 3A 53 43 25 B2 42 59 25 00 89 25 F6 09 |BY%:SC%.BY%..%..|
00001D50: 99 22 11 53 54 41 52 54 20 41 44 52 45 53 53 45 |.".START ADRESSE|
00001D60: 20 20 20 20 20 20 20 20 20 3A 20 22 3B 3A 8D 31 | : ";:.1|
00001D70: 34 30 3A 41 B2 42 59 25 3A 8D 31 34 30 3A 41 B2 |40:A.BY%:.140:A.|
00001D80: 41 AA 32 35 36 AC 42 59 25 00 A3 25 00 0A 99 A3 |A.256.BY%..%....|
00001D90: 32 38 AA 54 42 29 41 A3 33 35 AA 54 42 29 22 44 |28.TB)A.35.TB)"D|
00001DA0: 45 5A 22 00 E1 25 0A 0A 99 22 11 45 52 53 54 45 |EZ"..%...".ERSTE|
00001DB0: 20 4C 49 4E 4B 41 44 52 45 53 53 45 20 20 20 20 | LINKADRESSE |
00001DC0: 20 3A 20 22 3B 3A 8D 31 34 30 3A 41 B2 42 59 25 | : ";:.140:A.BY%|
00001DD0: 3A 8D 31 34 30 3A 41 B2 41 AA 32 35 36 AC 42 59 |:.140:A.A.256.BY|
00001DE0: 25 00 FB 25 14 0A 99 A3 32 38 AA 54 42 29 41 A3 |%..%....28.TB)A.|
00001DF0: 33 35 AA 54 42 29 22 44 45 5A 22 00 39 26 1E 0A |35.TB)"DEZ".9&..|
00001E00: 99 22 11 45 52 53 54 45 20 5A 45 49 4C 45 4E 4E |.".ERSTE ZEILENN|
00001E10: 55 4D 4D 45 52 20 20 20 20 3A 20 22 3B 3A 8D 31 |UMMER : ";:.1|
00001E20: 34 30 3A 41 B2 42 59 25 3A 8D 31 34 30 3A 41 B2 |40:A.BY%:.140:A.|
00001E30: 41 AA 32 35 36 AC 42 59 25 00 53 26 28 0A 99 A3 |A.256.BY%.S&(...|
00001E40: 32 38 AA 54 42 29 41 A3 33 35 AA 54 42 29 22 44 |28.TB)A.35.TB)"D|
00001E50: 45 5A 22 00 7E 26 32 0A 99 22 11 41 53 43 49 49 |EZ".~&2..".ASCII|
00001E60: 44 55 4D 50 3A 22 3A 51 41 25 B2 35 3A 51 42 25 |DUMP:":QA%.5:QB%|
00001E70: B2 33 33 3A 8B 42 38 A7 51 42 25 B2 37 35 00 B6 |.33:.B8.QB%.75..|
00001E80: 26 3C 0A 48 58 24 B2 22 22 3A 81 49 B2 38 A4 32 |&<.HX$."":.I.8.2|
00001E90: 35 35 3A 8D 31 34 30 3A 48 58 24 B2 48 58 24 AA |55:.140:HX$.HX$.|
00001EA0: 42 59 24 3A 82 3A 99 3A 97 32 31 31 2C 51 41 25 |BY$:.:.:.211,QA%|
00001EB0: 3A 99 22 3A 22 3B 00 C6 26 46 0A 81 49 B2 31 A4 |:.":";..&F..I.1.|
00001EC0: C3 28 48 58 24 29 00 E8 26 50 0A 8B B9 28 49 29 |.(HX$)..&P...(I)|
00001ED0: B1 51 42 25 A7 99 22 3A 22 3A 97 32 31 31 2C 51 |.QB%..":":.211,Q|
00001EE0: 41 25 3A 99 22 3A 22 3B 00 03 27 5A 0A 43 24 B2 |A%:.":";..'Z.C$.|
00001EF0: CA 28 48 58 24 2C 49 2C 31 29 3A 43 25 B2 C6 28 |.(HX$,I,1):C%..(|
00001F00: 43 24 29 00 1F 27 64 0A 8B 43 25 B1 31 32 37 A7 |C$)..'d..C%.127.|
00001F10: 99 22 12 22 3B 3A 43 25 B2 43 25 AF 31 32 37 00 |.".";:C%.C%.127.|
00001F20: 30 27 6E 0A 8B 43 25 B3 33 32 A7 43 25 B2 33 32 |0'n..C%.32.C%.32|
00001F30: 00 41 27 78 0A 8B 43 25 B2 33 34 A7 8D 33 36 36 |.A'x..C%.34..366|
00001F40: 30 00 68 27 82 0A 99 C7 28 43 25 29 22 92 22 3B |0.h'....(C%)".";|
00001F50: 3A 82 3A 97 32 31 31 2C 51 42 25 AA 31 3A 99 22 |:.:.211,QB%.1:."|
00001F60: 3A 22 3A 8B 42 38 A7 99 00 91 27 8C 0A 8B 54 52 |:":.B8....'...TR|
00001F70: 25 B2 30 A7 99 2C 22 54 41 53 54 45 20 46 55 45 |%.0..,"TASTE FUE|
00001F80: 52 53 20 4D 45 4E 55 45 22 3A A0 38 3A 89 36 38 |RS MENUE":.8:.68|
00001F90: 30 00 C5 27 96 0A 99 22 12 45 92 20 46 55 45 52 |0..'...".E. FUER|
00001FA0: 20 45 4E 44 45 2C 12 4E 92 20 46 55 45 52 20 44 | ENDE,.N. FUER D|
00001FB0: 45 4E 20 4E 41 45 43 48 53 54 45 4E 20 42 4C 4F |EN NAECHSTEN BLO|
00001FC0: 43 4B 2E 22 3B 00 E3 27 A0 0A 8D 36 38 30 3A 8B |CK.";..'...680:.|
00001FD0: 54 41 24 B2 22 45 22 A7 A0 38 3A 99 22 13 13 93 |TA$."E"..8:."...|
00001FE0: 22 3A 8E 00 F6 27 AA 0A 8B 54 41 24 B3 B1 22 4E |":...'...TA$.."N|
00001FF0: 22 A7 32 37 32 30 00 00 28 B4 0A 89 32 35 30 30 |".2720..(...2500|
00002000: 00 22 28 BE 0A 8F 20 2A 2A 2A 20 4E 41 4D 45 4E |."(... *** NAMEN|
00002010: 20 26 20 49 44 20 41 45 4E 44 45 52 4E 20 2A 2A | & ID AENDERN **|
00002020: 2A 2A 00 4C 28 C8 0A 4B 4F 24 B2 22 44 49 53 4B |**.L(..KO$."DISK|
00002030: 20 4E 41 4D 45 4E 20 26 20 49 44 20 41 45 4E 44 | NAMEN & ID AEND|
00002040: 45 52 55 4E 47 22 3A 8D 20 31 37 30 00 60 28 D2 |ERUNG":. 170.`(.|
00002050: 0A 8D 20 37 32 30 3A 8F 20 44 52 49 56 45 20 23 |.. 720:. DRIVE #|
00002060: 00 77 28 DC 0A 8D 20 36 32 30 3A 8F 20 4E 41 4D |.w(... 620:. NAM|
00002070: 45 20 2B 20 49 44 24 00 90 28 E6 0A 99 22 11 11 |E + ID$..(..."..|
00002080: 44 49 53 4B 4E 41 4D 45 20 20 3A 20 22 4E 41 24 |DISKNAME : "NA$|
00002090: 00 A8 28 F0 0A 99 22 11 44 49 53 4B 20 49 44 20 |..(...".DISK ID |
000020A0: 20 20 3A 20 22 49 44 24 00 D8 28 FA 0A 99 22 11 | : "ID$..(...".|
000020B0: 11 41 45 4E 44 45 52 55 4E 47 20 56 4F 4E 20 12 |.AENDERUNG VON .|
000020C0: 49 92 44 2C 20 12 4E 92 41 4D 45 2C 20 12 4B 92 |I.D, .N.AME, .K.|
000020D0: 45 49 4E 45 20 3F 20 22 00 EF 28 04 0B 8D 36 38 |EINE ? "..(...68|
000020E0: 30 3A 8B 54 41 24 B2 22 4B 22 A7 A0 38 3A 8E 00 |0:.TA$."K"..8:..|
000020F0: 01 29 0E 0B 8B 54 41 24 B2 22 49 22 A7 32 39 31 |.)...TA$."I".291|
00002100: 30 00 14 29 18 0B 8B 54 41 24 B3 B1 22 4E 22 A7 |0..)...TA$.."N".|
00002110: 32 38 32 30 00 30 29 22 0B 8F 20 2A 2A 2A 20 4E |2820.0)".. *** N|
00002120: 41 4D 45 4E 20 41 45 4E 44 45 52 4E 20 2A 2A 2A |AMEN AENDERN ***|
00002130: 00 5D 29 2C 0B 99 22 11 4E 45 55 45 52 20 4E 41 |.]),..".NEUER NA|
00002140: 4D 45 20 3F 20 22 3B 3A 58 25 B2 B9 28 49 29 3A |ME ? ";:X%..(I):|
00002150: 99 4E 41 24 3B 3A 97 32 31 31 2C 58 25 00 75 29 |.NA$;:.211,X%.u)|
00002160: 36 0B 84 31 2C 4E 41 24 3A 42 55 25 B2 31 34 34 |6..1,NA$:BU%.144|
00002170: 3A 8D 38 30 30 00 95 29 40 0B 4E 41 24 B2 4E 41 |:.800..)@.NA$.NA|
00002180: 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00002190: 20 20 20 20 22 00 A7 29 4A 0B 4E 41 24 B2 C8 28 | "..)J.NA$..(|
000021A0: 4E 41 24 2C 31 36 29 00 B9 29 54 0B 98 38 2C 4E |NA$,16)..)T..8,N|
000021B0: 41 24 3B 3A 89 32 39 37 30 00 D2 29 5E 0B 8F 20 |A$;:.2970..)^.. |
000021C0: 2A 2A 2A 20 49 44 20 41 45 4E 44 45 52 4E 20 2A |*** ID AENDERN *|
000021D0: 2A 2A 00 FD 29 68 0B 99 22 11 4E 45 55 45 52 20 |**..)h..".NEUER |
000021E0: 49 44 20 3F 20 22 3B 3A 58 25 B2 B9 28 49 29 3A |ID ? ";:X%..(I):|
000021F0: 99 49 44 24 3B 3A 97 32 31 31 2C 58 25 00 15 2A |.ID$;:.211,X%..*|
00002200: 72 0B 84 31 2C 49 44 24 3A 42 55 25 B2 31 36 32 |r..1,ID$:BU%.162|
00002210: 3A 8D 38 30 30 00 3E 2A 7C 0B 58 B2 C3 28 49 44 |:.800.>*|.X..(ID|
00002220: 24 29 3A 49 44 24 B2 49 44 24 AA CA 28 22 20 20 |$):ID$.ID$..(" |
00002230: 20 32 41 20 22 2C 58 AA 31 2C 36 AB 58 29 00 4F | 2A ",X.1,6.X).O|
00002240: 2A 86 0B 49 44 24 B2 C8 28 49 44 24 2C 35 29 00 |*..ID$..(ID$,5).|
00002250: 5B 2A 90 0B 98 38 2C 49 44 24 3B 00 7E 2A 9A 0B |[*...8,ID$;.~*..|
00002260: 98 31 35 2C 22 55 32 3A 38 22 44 52 25 2C 31 38 |.15,"U2:8"DR%,18|
00002270: 2C 30 3A 98 31 35 2C 22 49 22 AA 44 52 24 00 87 |,0:.15,"I".DR$..|
00002280: 2A A4 0B A0 38 3A 8E 00 AB 2A AE 0B 8F 20 2A 2A |*...8:...*... **|
00002290: 2A 2A 20 54 45 53 54 4C 45 53 45 4E 20 45 49 4E |** TESTLESEN EIN|
000022A0: 45 52 20 44 49 53 4B 20 2A 2A 2A 00 E5 2A B8 0B |ER DISK ***..*..|
000022B0: 45 42 25 B2 30 3A 45 53 25 B2 30 3A 45 43 25 B2 |EB%.0:ES%.0:EC%.|
000022C0: 30 3A 44 43 25 B2 30 3A 48 44 25 B2 30 3A 45 58 |0:DC%.0:HD%.0:EX|
000022D0: 25 B2 30 3A 45 52 25 B2 30 3A 46 52 25 B2 30 3A |%.0:ER%.0:FR%.0:|
000022E0: 42 45 25 B2 30 00 FE 2A C2 0B 4B 4F 24 B2 22 54 |BE%.0..*..KO$."T|
000022F0: 45 53 54 4C 45 53 45 4E 22 3A 8D 31 37 30 00 1B |ESTLESEN":.170..|
00002300: 2B CC 0B 99 22 54 45 53 54 4C 45 53 45 4E 20 56 |+..."TESTLESEN V|
00002310: 4F 4E 20 91 22 3B 3A 8D 37 32 30 00 30 2B D6 0B |ON .";:.720.0+..|
00002320: 54 52 25 B2 31 3A 53 43 25 B2 30 3A 8D 32 35 30 |TR%.1:SC%.0:.250|
00002330: 00 52 2B E0 0B 41 4E 25 B2 31 3A 45 4E 25 B2 33 |.R+..AN%.1:EN%.3|
00002340: 35 3A 8F 20 44 45 46 41 55 4C 54 20 56 41 4C 55 |5:. DEFAULT VALU|
00002350: 45 53 00 77 2B EA 0B 99 22 11 11 42 45 53 54 49 |ES.w+..."..BESTI|
00002360: 4D 4D 54 45 52 20 42 45 52 45 49 43 48 20 28 4A |MMTER BEREICH (J|
00002370: 2F 4E 29 20 3F 20 22 00 8E 2B F4 0B 8D 36 38 30 |/N) ? "..+...680|
00002380: 3A 8B 54 41 24 B2 22 4E 22 A7 33 31 33 30 00 A1 |:.TA$."N".3130..|
00002390: 2B FE 0B 8B 54 41 24 B3 B1 22 4A 22 A7 33 30 36 |+...TA$.."J".306|
000023A0: 30 00 C6 2B 08 0C 99 22 11 56 4F 4E 20 53 50 55 |0..+...".VON SPU|
000023B0: 52 20 22 3B 3A 84 31 2C 54 41 24 3A 41 4E 25 B2 |R ";:.1,TA$:AN%.|
000023C0: C5 28 54 41 24 29 00 E2 2B 12 0C 8B 41 4E 25 B2 |.(TA$)..+...AN%.|
000023D0: 30 A7 41 4E 25 B2 31 3A 99 C7 28 32 30 29 22 31 |0.AN%.1:..(20)"1|
000023E0: 22 3B 00 08 2C 1C 0C 99 22 20 20 42 49 53 20 53 |";..,..." BIS S|
000023F0: 50 55 52 20 22 3B 3A 84 31 2C 54 41 24 3A 45 4E |PUR ";:.1,TA$:EN|
00002400: 25 B2 C5 28 54 41 24 29 00 3B 2C 26 0C 8B 28 45 |%..(TA$).;,&..(E|
00002410: 4E 25 B2 30 29 B0 28 45 4E 25 B1 33 35 29 B0 28 |N%.0).(EN%.35).(|
00002420: 45 4E 25 B3 41 4E 25 29 A7 45 4E 25 B2 33 35 3A |EN%.AN%).EN%.35:|
00002430: 99 C7 28 32 30 29 22 33 35 22 3B 00 49 2C 30 0C |..(20)"35";.I,0.|
00002440: 99 20 3A 51 55 25 B2 AB 31 00 87 2C 3A 0C 4B 4F |. :QU%..1..,:.KO|
00002450: 24 B2 22 56 4F 4E 20 53 50 55 52 22 AA C4 28 41 |$."VON SPUR"..(A|
00002460: 4E 25 29 AA 22 20 42 49 53 20 53 50 55 52 22 AA |N%)." BIS SPUR".|
00002470: C4 28 45 4E 25 29 3A 48 31 24 B2 22 44 49 53 4B |.(EN%):H1$."DISK|
00002480: 20 43 48 45 43 4B 22 00 90 2C 44 0C 8D 31 37 30 | CHECK"..,D..170|
00002490: 00 9B 2C 4E 0C 99 22 11 11 11 22 00 BE 2C 58 0C |..,N.."..."..,X.|
000024A0: 81 49 B2 41 4E 25 A4 45 4E 25 3A 4A 4A 25 B2 32 |.I.AN%.EN%:JJ%.2|
000024B0: 30 3A 8B 49 B1 31 37 A7 4A 4A 25 B2 31 38 00 CF |0:.I.17.JJ%.18..|
000024C0: 2C 62 0C 8B 49 B1 32 34 A7 4A 4A 25 B2 31 37 00 |,b..I.24.JJ%.17.|
000024D0: F1 2C 6C 0C 8B 49 B1 33 30 A7 4A 4A 25 B2 31 36 |.,l..I.30.JJ%.16|
000024E0: 3A 8F 20 53 45 4B 54 4F 52 45 4E 2F 54 52 41 43 |:. SEKTOREN/TRAC|
000024F0: 4B 00 FE 2C 76 0C 81 4A B2 30 A4 4A 4A 25 00 14 |K..,v..J.0.JJ%..|
00002500: 2D 80 0C 98 31 35 2C 22 42 2D 41 3A 22 44 52 25 |-...15,"B-A:"DR%|
00002510: 2C 49 2C 4A 00 38 2D 8A 0C 8B 44 53 B2 30 A7 46 |,I,J.8-...DS.0.F|
00002520: 52 25 B2 46 52 25 AA 31 3A 46 24 B2 22 46 52 45 |R%.FR%.1:F$."FRE|
00002530: 49 22 3A 89 33 32 33 30 00 64 2D 94 0C 42 45 25 |I":.3230.d-..BE%|
00002540: B2 42 45 25 AA 31 3A 46 24 B2 22 42 45 4C 45 47 |.BE%.1:F$."BELEG|
00002550: 54 22 3A 98 31 35 2C 22 42 2D 46 3A 22 44 52 25 |T":.15,"B-F:"DR%|
00002560: 2C 49 2C 4A 00 76 2D 9E 0C 99 22 13 11 11 11 11 |,I,J.v-...".....|
00002570: 11 11 22 53 50 24 00 94 2D A8 0C 99 22 91 53 50 |.."SP$..-...".SP|
00002580: 55 52 22 49 22 53 45 4B 54 4F 52 22 4A 22 3D 20 |UR"I"SEKTOR"J"= |
00002590: 20 22 46 24 00 A9 2D B2 0C 54 52 25 B2 49 3A 53 | "F$..-..TR%.I:S|
000025A0: 43 25 B2 4A 3A 8D 32 38 30 00 D2 2D BC 0C 99 3A |C%.J:.280..-...:|
000025B0: 8D 33 37 38 30 3A 44 24 B2 45 24 3A 99 53 50 24 |.3780:D$.E$:.SP$|
000025C0: 3A 99 22 91 22 44 24 3A 8B 44 53 B2 30 A7 33 33 |:."."D$:.DS.0.33|
000025D0: 35 30 00 0B 2E C6 0C 45 52 25 B2 45 52 25 AA 31 |50.....ER%.ER%.1|
000025E0: 3A 8B 45 25 B2 32 36 B0 45 25 B2 37 31 A7 99 22 |:.E%.26.E%.71.."|
000025F0: 4B 45 49 4E 20 54 45 53 54 20 4D 4F 45 47 4C 49 |KEIN TEST MOEGLI|
00002600: 43 48 20 21 20 22 3A 89 36 38 30 00 26 2E D0 0C |CH ! ":.680.&...|
00002610: 8B 45 25 B2 32 30 A7 45 42 25 B2 45 42 25 AA 31 |.E%.20.EB%.EB%.1|
00002620: 3A 89 33 33 34 30 00 41 2E DA 0C 8B 45 25 B2 32 |:.3340.A....E%.2|
00002630: 31 A7 45 53 25 B2 45 53 25 AA 31 3A 89 33 33 34 |1.ES%.ES%.1:.334|
00002640: 30 00 5C 2E E4 0C 8B 45 25 B2 32 33 A7 45 43 25 |0.\....E%.23.EC%|
00002650: B2 45 43 25 AA 31 3A 89 33 33 34 30 00 77 2E EE |.EC%.1:.3340.w..|
00002660: 0C 8B 45 25 B2 32 34 A7 44 43 25 B2 44 43 25 AA |..E%.24.DC%.DC%.|
00002670: 31 3A 89 33 33 34 30 00 98 2E F8 0C 8B 45 25 B2 |1:.3340......E%.|
00002680: 32 37 B0 45 25 B2 32 39 A7 48 44 25 B2 48 44 25 |27.E%.29.HD%.HD%|
00002690: AA 31 3A 89 33 33 34 30 00 B3 2E 02 0D 8B 45 25 |.1:.3340......E%|
000026A0: B2 32 38 A7 45 58 25 B2 45 58 25 AA 31 3A 89 33 |.28.EX%.EX%.1:.3|
000026B0: 33 34 30 00 CE 2E 0C 0D A0 38 3A 8D 20 32 34 30 |340......8:. 240|
000026C0: 3A 8F 20 49 4E 49 54 20 2B 20 4F 50 45 4E 00 DA |:. INIT + OPEN..|
000026D0: 2E 16 0D 82 4A 2C 49 3A A0 38 00 FB 2E 20 0D 4B |....J,I:.8... .K|
000026E0: 4F 24 B2 22 46 45 48 4C 45 52 20 55 45 42 45 52 |O$."FEHLER UEBER|
000026F0: 53 49 43 48 54 22 3A 8D 31 37 30 00 26 2F 2A 0D |SICHT":.170.&/*.|
00002700: 99 A3 33 AA 54 42 29 22 42 45 4C 45 47 54 20 3D |..3.TB)"BELEGT =|
00002710: 22 42 45 25 A3 32 38 AA 54 42 29 22 46 52 45 49 |"BE%.28.TB)"FREI|
00002720: 20 3D 22 46 52 25 00 4D 2F 34 0D 99 A3 33 AA 54 | ="FR%.M/4...3.T|
00002730: 42 29 22 11 48 45 41 44 45 52 20 46 45 48 4C 54 |B)".HEADER FEHLT|
00002740: 20 20 20 20 20 20 20 20 3A 22 45 42 25 00 74 2F | :"EB%.t/|
00002750: 3E 0D 99 A3 33 AA 54 42 29 22 11 53 59 4E 43 52 |>...3.TB)".SYNCR|
00002760: 4F 4E 49 4D 50 55 4C 53 20 46 45 48 4C 54 20 3A |ONIMPULS FEHLT :|
00002770: 22 45 53 25 00 9B 2F 48 0D 99 A3 33 AA 54 42 29 |"ES%../H...3.TB)|
00002780: 22 11 50 52 55 45 46 53 55 4D 4D 45 4E 20 46 45 |".PRUEFSUMMEN FE|
00002790: 48 4C 45 52 20 20 3A 22 45 43 25 00 C2 2F 52 0D |HLER :"EC%../R.|
000027A0: 99 A3 33 AA 54 42 29 22 11 44 45 4B 4F 44 49 45 |..3.TB)".DEKODIE|
000027B0: 52 20 46 45 48 4C 45 52 20 20 20 20 20 3A 22 44 |R FEHLER :"D|
000027C0: 43 25 00 E9 2F 5C 0D 99 A3 33 AA 54 42 29 22 11 |C%../\...3.TB)".|
000027D0: 48 45 41 44 45 52 20 50 52 55 45 46 53 55 4D 4D |HEADER PRUEFSUMM|
000027E0: 45 20 20 20 3A 22 48 44 25 00 10 30 66 0D 99 A3 |E :"HD%..0f...|
000027F0: 33 AA 54 42 29 22 11 4C 41 4E 47 45 52 20 44 41 |3.TB)".LANGER DA|
00002800: 54 45 4E 20 42 4C 4F 43 4B 20 20 3A 22 45 58 25 |TEN BLOCK :"EX%|
00002810: 00 41 30 70 0D 99 A3 33 AA 54 42 29 22 11 11 47 |.A0p...3.TB)"..G|
00002820: 45 53 41 4D 54 46 45 48 4C 45 52 20 20 20 20 20 |ESAMTFEHLER |
00002830: 20 20 20 3A 22 3B 3A 8B 45 52 25 A7 99 22 12 22 | :";:.ER%.."."|
00002840: 3B 00 56 30 7A 0D 99 45 52 25 3A 98 31 35 2C 22 |;.V0z..ER%:.15,"|
00002850: 56 22 AA 44 52 24 00 76 30 84 0D 99 22 11 20 20 |V".DR$.v0...". |
00002860: 20 42 49 54 54 45 20 45 49 4E 45 20 54 41 53 54 | BITTE EINE TAST|
00002870: 45 2E 2E 2E 22 3B 00 7F 30 8E 0D 89 36 38 30 00 |E...";..0...680.|
00002880: A0 30 98 0D 8F 20 2A 2A 2A 20 55 4E 53 43 52 41 |.0... *** UNSCRA|
00002890: 54 43 48 20 45 49 4E 20 46 49 4C 45 20 2A 2A 2A |TCH EIN FILE ***|
000028A0: 00 BB 30 A2 0D 4B 4F 24 B2 22 44 49 53 4B 20 46 |..0..KO$."DISK F|
000028B0: 49 4C 45 20 52 45 54 54 45 52 22 00 EB 30 AC 0D |ILE RETTER"..0..|
000028C0: 8D 31 37 30 3A 99 22 11 11 46 49 4C 45 20 4E 41 |.170:."..FILE NA|
000028D0: 4D 45 20 5A 55 4D 20 52 45 54 54 45 4E 20 3F 20 |ME ZUM RETTEN ? |
000028E0: 22 3B 3A 84 31 2C 46 49 24 3A 99 00 FF 30 B6 0D |";:.1,FI$:...0..|
000028F0: 8D 20 37 32 30 3A 8F 20 44 52 49 56 45 20 23 00 |. 720:. DRIVE #.|
00002900: 2B 31 C0 0D 54 59 24 B2 22 41 22 3A 51 55 25 B2 |+1..TY$."A":QU%.|
00002910: AB 31 3A 52 45 25 B2 AB 31 3A 5A 25 B2 AB 31 3A |.1:RE%..1:Z%..1:|
00002920: 8D 20 33 32 30 3A 52 45 25 B2 30 00 56 31 CA 0D |. 320:RE%.0.V1..|
00002930: 8B 5A 25 A7 99 22 11 11 4E 49 43 48 54 20 47 45 |.Z%.."..NICHT GE|
00002940: 46 55 4E 44 45 4E 20 21 22 3A A0 38 3A 5A 25 B2 |FUNDEN !":.8:Z%.|
00002950: 30 3A 89 36 38 30 00 76 31 D4 0D 99 22 11 47 45 |0:.680.v1...".GE|
00002960: 46 55 4E 44 45 4E 20 20 20 46 49 4C 45 20 3A 20 |FUNDEN FILE : |
00002970: 20 20 12 22 48 24 00 A5 31 DE 0D 99 22 11 11 54 | ."H$..1..."..T|
00002980: 59 50 3A 20 12 50 92 52 47 2C 20 12 53 92 45 51 |YP: .P.RG, .S.EQ|
00002990: 2C 20 12 55 92 53 52 20 4F 44 45 52 20 12 52 92 |, .U.SR ODER .R.|
000029A0: 45 4C 20 22 3B 00 D4 31 E8 0D 8D 20 36 38 30 3A |EL ";..1... 680:|
000029B0: 99 54 41 24 3B 3A 81 49 B2 31 A4 34 3A 8B 54 41 |.TA$;:.I.1.4:.TA|
000029C0: 24 B2 CA 28 22 53 50 55 52 22 2C 49 2C 31 29 A7 |$..("SPUR",I,1).|
000029D0: 33 35 38 30 00 E0 31 F2 0D 82 3A 89 33 35 36 30 |3580..1...:.3560|
000029E0: 00 FF 31 FC 0D 42 59 25 B2 31 32 38 AA 49 3A 8D |..1..BY%.128.I:.|
000029F0: 38 30 30 3A 8F 20 42 55 46 46 45 52 20 3D 30 00 |800:. BUFFER =0.|
00002A00: 0E 32 06 0E 98 38 2C C7 28 42 59 25 29 3B 00 2C |.2...8,.(BY%);.,|
00002A10: 32 10 0E 98 31 35 2C 22 55 32 3A 22 38 3B 44 52 |2...15,"U2:"8;DR|
00002A20: 25 3B 54 52 25 3B 53 43 25 3A A0 38 00 65 32 1A |%;TR%;SC%:.8.e2.|
00002A30: 0E 99 3A 99 22 11 11 46 49 4C 45 20 57 49 45 44 |..:."..FILE WIED|
00002A40: 45 52 20 4B 41 54 41 4C 4F 47 49 53 49 45 52 54 |ER KATALOGISIERT|
00002A50: 2E 22 3A 98 31 35 2C 22 56 22 AA 44 52 24 3A 51 |.":.15,"V".DR$:Q|
00002A60: 55 25 B2 AB 31 00 6E 32 24 0E 89 36 38 30 00 8D |U%..1.n2$..680..|
00002A70: 32 2E 0E 8F 20 2A 2A 2A 20 57 45 4C 43 48 45 20 |2... *** WELCHE |
00002A80: 20 46 4C 4F 50 50 59 20 3F 20 2A 2A 2A 00 93 32 | FLOPPY ? ***..2|
00002A90: 38 0E 3A 00 A4 32 42 0E 8F 20 44 45 4C 45 54 45 |8.:..2B.. DELETE|
00002AA0: 20 5B 22 5D 00 C2 32 4C 0E 58 25 B2 B9 28 49 29 | ["]..2L.X%..(I)|
00002AB0: 3A 99 C7 28 33 34 29 3B 3A 97 32 31 31 2C 58 25 |:..(34);:.211,X%|
00002AC0: 3A 8E 00 03 33 56 0E 81 49 B2 30 A4 4E 30 25 AB |:...3V..I.0.N0%.|
00002AD0: 31 3A 99 22 20 20 22 42 4C 25 28 49 29 A3 39 AA |1:." "BL%(I).9.|
00002AE0: 54 42 29 4E 41 24 28 49 29 A3 32 36 AA 54 42 29 |TB)NA$(I).26.TB)|
00002AF0: 46 54 24 28 49 29 22 20 22 20 42 4E 25 28 49 2C |FT$(I)" " BN%(I,|
00002B00: 30 29 3B 00 1B 33 60 0E 99 A3 33 34 AA 54 42 29 |0);..3`...34.TB)|
00002B10: 22 2C 22 42 4E 25 28 49 2C 31 29 00 32 33 6A 0E |","BN%(I,1).23j.|
00002B20: A1 54 41 24 3A 8B 54 41 24 B2 22 20 22 A7 8D 36 |.TA$:.TA$." "..6|
00002B30: 38 30 00 66 33 74 0E 8B C2 28 32 31 34 29 B1 32 |80.f3t...(214).2|
00002B40: 32 A7 99 22 11 22 2C 22 20 20 20 20 20 20 12 54 |2.."."," .T|
00002B50: 41 53 54 45 20 42 49 54 54 45 22 3B 3A 8D 36 38 |ASTE BITTE";:.68|
00002B60: 30 3A 8D 31 37 30 00 6E 33 7E 0E 82 3A 8E 00 91 |0:.170.n3~..:...|
00002B70: 33 88 0E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |3...************|
00002B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002B90: 2A 00 B4 33 92 0E 8F 2A 2A 2A 20 44 49 53 4B 20 |*..3...*** DISK |
00002BA0: 53 54 41 54 55 53 20 42 41 53 49 43 20 33 2E 30 |STATUS BASIC 3.0|
00002BB0: 20 2A 2A 2A 00 D7 33 9C 0E 8F 2A 2A 2A 2A 2A 2A | ***..3...******|
00002BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002BD0: 2A 2A 2A 2A 2A 2A 2A 00 DD 33 A6 0E 8F 00 FF 33 |*******..3.....3|
00002BE0: B0 0E 8F 20 3E 3E 3E 20 46 55 45 52 20 4C 4F 54 |... >>> FUER LOT|
00002BF0: 48 41 52 20 48 4F 46 4D 41 4E 4E 20 3C 3C 3C 00 |HAR HOFMANN <<<.|
00002C00: 05 34 BA 0E 3A 00 1D 34 C4 0E 84 31 35 2C 45 25 |.4..:..4...15,E%|
00002C10: 2C 45 24 2C 45 31 25 2C 45 32 25 3A 8E 00 3E 34 |,E$,E1%,E2%:..>4|
00002C20: CE 0E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00002C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5F |**************._|
00002C40: 34 D8 0E 8F 2A 2A 2A 20 41 45 4E 44 45 52 55 4E |4...*** AENDERUN|
00002C50: 47 20 50 52 47 2E 53 54 41 52 54 20 2A 2A 2A 00 |G PRG.START ***.|
00002C60: 80 34 E2 0E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.4...***********|
00002C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C80: 00 A5 34 EC 0E 4B 4F 24 B2 22 4E 45 55 45 20 53 |..4..KO$."NEUE S|
00002C90: 54 41 52 54 41 44 52 45 53 53 45 20 45 49 4E 47 |TARTADRESSE EING|
00002CA0: 45 42 45 4E 22 00 C1 34 F6 0E 8D 31 37 30 3A 8D |EBEN"..4...170:.|
00002CB0: 37 32 30 3A 8F 20 46 52 41 47 45 20 44 52 49 56 |720:. FRAGE DRIV|
00002CC0: 45 00 D4 34 00 0F 54 59 24 B2 22 50 22 3A 51 55 |E..4..TY$."P":QU|
00002CD0: 25 B2 AB 31 00 03 35 0A 0F 99 22 11 11 50 52 4F |%..1..5..."..PRO|
00002CE0: 47 52 41 4D 4D 20 4E 41 4D 45 20 3F 20 22 3B 3A |GRAMM NAME ? ";:|
00002CF0: 84 31 2C 46 49 24 3A 5A 25 B2 AB 31 3A 99 3A 8D |.1,FI$:Z%..1:.:.|
00002D00: 33 32 30 00 12 35 14 0F 8B 5A 25 B2 30 A7 33 38 |320..5...Z%.0.38|
00002D10: 38 30 00 54 35 1E 0F 5A 25 B2 30 3A 99 22 11 11 |80.T5..Z%.0:."..|
00002D20: 50 52 4F 47 52 41 4D 4D 20 22 C7 28 33 34 29 46 |PROGRAMM ".(34)F|
00002D30: 49 24 C7 28 33 34 29 22 20 49 53 54 20 4E 49 43 |I$.(34)" IST NIC|
00002D40: 48 54 20 56 4F 52 48 41 4E 44 45 4E 21 22 3A 89 |HT VORHANDEN!":.|
00002D50: 20 36 38 30 00 6F 35 28 0F 99 22 91 91 91 91 22 | 680.o5(.."...."|
00002D60: A3 31 36 AA 54 42 29 22 12 22 48 24 22 11 11 00 |.16.TB)"."H$"...|
00002D70: 89 35 32 0F 46 49 24 B2 48 24 3A 8D 32 38 30 3A |.52.FI$.H$:.280:|
00002D80: 8D 31 34 30 3A 8D 31 34 30 00 AB 35 3C 0F 8D 31 |.140:.140..5<..1|
00002D90: 34 30 3A 58 25 B2 42 59 25 3A 8D 31 34 30 3A 58 |40:X%.BY%:.140:X|
00002DA0: B2 58 25 AA 32 35 36 AC 42 59 25 00 D2 35 46 0F |.X%.256.BY%..5F.|
00002DB0: 8D 20 34 30 35 30 3A 99 22 53 54 41 52 54 41 44 |. 4050:."STARTAD|
00002DC0: 52 45 53 53 45 20 49 53 54 20 48 45 58 20 22 42 |RESSE IST HEX "B|
00002DD0: 59 24 00 F0 35 50 0F 99 22 20 20 20 20 20 20 20 |Y$..5P.." |
00002DE0: 20 20 20 20 20 20 20 44 45 5A 49 4D 41 4C 22 58 | DEZIMAL"X|
00002DF0: 00 07 36 5A 0F 97 36 33 31 2C C6 28 22 1D 22 29 |..6Z..631,.(".")|
00002E00: 3A 97 31 39 38 2C 31 00 30 36 64 0F 99 22 11 11 |:.198,1.06d.."..|
00002E10: 4E 45 55 45 20 53 54 41 52 54 41 44 52 45 53 53 |NEUE STARTADRESS|
00002E20: 45 20 3F 20 22 42 59 24 22 9D 9D 9D 9D 9D 22 3B |E ? "BY$".....";|
00002E30: 00 5C 36 6E 0F 84 31 2C 42 59 24 3A 99 3A 8B C8 |.\6n..1,BY$:.:..|
00002E40: 28 42 59 24 2C 31 29 B2 22 40 22 A7 A0 38 3A 99 |(BY$,1)."@"..8:.|
00002E50: 22 11 11 4F 4B 2E 22 3A 89 37 36 30 00 7E 36 78 |"..OK.":.760.~6x|
00002E60: 0F 8B C8 28 42 59 24 2C 31 29 B3 B1 22 24 22 A7 |...(BY$,1).."$".|
00002E70: 58 B2 C5 28 42 59 24 29 3A 89 34 30 31 30 00 A3 |X..(BY$):.4010..|
00002E80: 36 82 0F 42 59 24 B2 CA 28 42 59 24 2C 32 29 3A |6..BY$..(BY$,2):|
00002E90: 42 59 24 B2 C9 28 22 30 30 30 30 22 AA 42 59 24 |BY$..("0000".BY$|
00002EA0: 2C 34 29 00 C6 36 8C 0F 58 B2 30 3A 81 49 B2 31 |,4)..6..X.0:.I.1|
00002EB0: A4 34 3A 58 25 B2 C6 28 CA 28 42 59 24 2C 49 2C |.4:X%..(.(BY$,I,|
00002EC0: 31 29 29 AB 34 38 00 D9 36 96 0F 8B 58 25 B1 31 |1)).48..6...X%.1|
00002ED0: 30 A7 58 25 B2 58 25 AB 37 00 EF 36 A0 0F 58 B2 |0.X%.X%.7..6..X.|
00002EE0: 58 AA 58 25 AC 31 36 AE 28 34 AB 49 29 3A 82 00 |X.X%.16.(4.I):..|
00002EF0: 0A 37 AA 0F 42 59 25 B2 58 AD 32 35 36 3A 58 25 |.7..BY%.X.256:X%|
00002F00: B2 58 AB 32 35 36 AC 42 59 25 00 19 37 B4 0F 42 |.X.256.BY%..7..B|
00002F10: 55 25 B2 32 3A 8D 38 30 30 00 4F 37 BE 0F 98 38 |U%.2:.800.O7...8|
00002F20: 2C C7 28 58 25 29 C7 28 42 59 25 29 3B 3A 98 31 |,.(X%).(BY%);:.1|
00002F30: 35 2C 22 55 32 3A 38 22 44 52 25 2C 54 52 25 2C |5,"U2:8"DR%,TR%,|
00002F40: 53 43 25 3A 98 31 35 2C 22 49 22 AA 44 52 24 00 |SC%:.15,"I".DR$.|
00002F50: 58 37 C8 0F A0 38 3A 8E 00 80 37 D2 0F 45 31 25 |X7...8:...7..E1%|
00002F60: B2 42 59 25 AD 31 36 3A 45 32 25 B2 42 59 25 AF |.BY%.16:E2%.BY%.|
00002F70: 31 35 3A 42 59 24 B2 22 24 22 3A 8D 34 30 37 30 |15:BY$."$":.4070|
00002F80: 00 98 37 DC 0F 45 31 25 B2 58 25 AD 31 36 3A 45 |..7..E1%.X%.16:E|
00002F90: 32 25 B2 58 25 AF 31 35 00 C2 37 E6 0F 42 59 24 |2%.X%.15..7..BY$|
00002FA0: B2 42 59 24 AA CA 28 48 5A 24 2C 45 31 25 AA 31 |.BY$..(HZ$,E1%.1|
00002FB0: 2C 31 29 AA CA 28 48 5A 24 2C 45 32 25 AA 31 2C |,1)..(HZ$,E2%.1,|
00002FC0: 31 29 00 C8 37 F0 0F 8E 00 EB 37 FA 0F 8F 2A 2A |1)..7.....7...**|
00002FD0: 2A 2A 20 49 4E 49 54 49 41 4C 49 53 49 45 52 55 |** INITIALISIERU|
00002FE0: 4E 47 20 44 45 52 20 2A 2A 2A 2A 00 0E 38 04 10 |NG DER ****..8..|
00002FF0: 8F 2A 2A 2A 2A 20 53 4B 41 4C 41 52 45 4E 20 20 |.**** SKALAREN |
00003000: 56 41 52 49 41 42 4C 45 4E 20 2A 2A 2A 2A 00 14 |VARIABLEN ****..|
00003010: 38 0E 10 3A 00 37 38 18 10 8F 2A 2A 2A 2A 20 20 |8..:.78...**** |
00003020: 20 46 4C 4F 41 54 49 4E 47 20 50 4F 49 4E 54 20 | FLOATING POINT |
00003030: 20 20 20 2A 2A 2A 2A 00 3D 38 22 10 3A 00 55 38 | ****.=8".:.U8|
00003040: 2C 10 49 B2 30 20 20 20 20 20 20 3A 8F 20 5A 41 |,.I.0 :. ZA|
00003050: 45 48 4C 45 52 00 6D 38 36 10 4A B2 30 20 20 20 |EHLER.m86.J.0 |
00003060: 20 20 20 3A 8F 20 5A 41 45 48 4C 45 52 00 85 38 | :. ZAEHLER..8|
00003070: 40 10 4B B2 30 20 20 20 20 20 20 3A 8F 20 5A 41 |@.K.0 :. ZA|
00003080: 45 48 4C 45 52 00 9D 38 4A 10 42 B2 30 20 20 20 |EHLER..8J.B.0 |
00003090: 20 20 20 3A 8F 20 5A 41 45 48 4C 45 52 00 BF 38 | :. ZAEHLER..8|
000030A0: 54 10 41 B2 30 20 20 20 20 20 20 3A 8F 20 41 44 |T.A.0 :. AD|
000030B0: 52 45 53 53 45 20 28 30 2D 36 35 35 33 35 29 00 |RESSE (0-65535).|
000030C0: E1 38 5E 10 58 B2 30 20 20 20 20 20 20 3A 8F 20 |.8^.X.0 :. |
000030D0: 41 44 52 45 53 53 45 20 28 30 2D 36 35 35 33 35 |ADRESSE (0-65535|
000030E0: 29 00 03 39 68 10 50 B2 30 20 20 20 20 20 20 3A |)..9h.P.0 :|
000030F0: 8F 20 46 4F 52 4D 41 54 20 56 41 52 2E 20 28 54 |. FORMAT VAR. (T|
00003100: 41 42 29 00 09 39 72 10 3A 00 2C 39 7C 10 8F 2A |AB)..9r.:.,9|..*|
00003110: 2A 2A 2A 20 20 20 20 20 49 4E 54 45 47 45 52 20 |*** INTEGER |
00003120: 20 20 20 20 20 20 20 20 2A 2A 2A 2A 00 32 39 86 | ****.29.|
00003130: 10 3A 00 50 39 90 10 53 43 25 B2 30 20 20 20 20 |.:.P9..SC%.0 |
00003140: 3A 8F 20 53 45 4B 54 4F 52 20 28 30 2D 32 30 29 |:. SEKTOR (0-20)|
00003150: 00 6E 39 9A 10 54 52 25 B2 31 38 20 20 20 3A 8F |.n9..TR%.18 :.|
00003160: 20 53 50 55 52 20 20 20 28 31 2D 33 35 29 00 8A | SPUR (1-35)..|
00003170: 39 A4 10 41 53 25 B2 30 20 20 20 20 3A 8F 20 56 |9..AS%.0 :. V|
00003180: 41 4C 20 28 54 41 53 54 45 29 00 A5 39 AE 10 44 |AL (TASTE)..9..D|
00003190: 52 25 B2 30 20 20 20 20 3A 8F 20 4C 41 55 46 57 |R%.0 :. LAUFW|
000031A0: 45 52 4B 20 23 00 C5 39 B8 10 4C 52 25 B2 30 20 |ERK #..9..LR%.0 |
000031B0: 20 20 20 3A 8F 20 43 41 54 2E 20 4C 41 55 46 57 | :. CAT. LAUFW|
000031C0: 45 52 4B 20 23 00 E6 39 C2 10 4D 44 25 B2 31 20 |ERK #..9..MD%.1 |
000031D0: 20 20 20 3A 8F 20 41 4E 5A 41 48 4C 20 4C 41 55 | :. ANZAHL LAU|
000031E0: 46 57 45 52 4B 45 00 07 3A CC 10 4D 4B 25 B2 30 |FWERKE..:..MK%.0|
000031F0: 20 20 20 20 3A 8F 20 44 49 53 4B 2D 53 54 41 54 | :. DISK-STAT|
00003200: 55 53 20 56 41 52 2E 00 2A 3A D6 10 50 4C 25 B2 |US VAR..*:..PL%.|
00003210: 30 20 20 20 20 3A 8F 20 5A 41 48 4C 20 44 45 52 |0 :. ZAHL DER|
00003220: 20 57 4F 52 4B 46 49 4C 45 53 00 4B 3A E0 10 51 | WORKFILES.K:..Q|
00003230: 55 25 B2 AB 31 20 20 20 3A 8F 20 46 4C 41 47 20 |U%..1 :. FLAG |
00003240: 43 41 54 20 47 55 45 4C 54 49 47 00 6C 3A EA 10 |CAT GUELTIG.l:..|
00003250: 42 55 25 B2 30 20 20 20 20 3A 8F 20 42 55 46 46 |BU%.0 :. BUFF|
00003260: 45 52 20 50 4E 54 2E 20 56 41 52 2E 00 8F 3A F4 |ER PNT. VAR...:.|
00003270: 10 4E 30 25 B2 30 20 20 20 20 3A 8F 20 5A 41 48 |.N0%.0 :. ZAH|
00003280: 4C 20 43 41 54 41 4C 4F 47 20 46 49 4C 45 53 00 |L CATALOG FILES.|
00003290: AF 3A FE 10 46 49 25 B2 30 20 20 20 20 3A 8F 20 |.:..FI%.0 :. |
000032A0: 46 49 4C 45 53 20 50 52 4F 20 42 4C 4F 43 4B 00 |FILES PRO BLOCK.|
000032B0: CD 3A 08 11 42 59 25 B2 30 20 20 20 20 3A 8F 20 |.:..BY%.0 :. |
000032C0: 41 53 43 20 28 47 45 54 42 59 54 45 29 00 F0 3A |ASC (GETBYTE)..:|
000032D0: 12 11 42 31 25 B2 30 20 20 20 20 3A 8F 20 46 49 |..B1%.0 :. FI|
000032E0: 4C 45 54 59 50 20 49 4E 20 43 41 54 41 4C 4F 47 |LETYP IN CATALOG|
000032F0: 00 12 3B 1C 11 45 52 25 B2 30 20 20 20 20 3A 8F |..;..ER%.0 :.|
00003300: 20 47 45 53 41 4D 54 46 45 48 4C 45 52 20 5A 41 | GESAMTFEHLER ZA|
00003310: 48 4C 00 2E 3B 26 11 43 25 20 B2 30 20 20 20 20 |HL..;&.C% .0 |
00003320: 3A 8F 20 41 53 43 20 28 48 45 58 20 24 29 00 4E |:. ASC (HEX $).N|
00003330: 3B 30 11 58 25 20 B2 30 20 20 20 20 3A 8F 20 43 |;0.X% .0 :. C|
00003340: 55 52 53 4F 52 20 50 4F 53 49 54 49 4F 4E 00 70 |URSOR POSITION.p|
00003350: 3B 3A 11 51 25 20 B2 30 20 20 20 20 3A 8F 20 46 |;:.Q% .0 :. F|
00003360: 4C 41 47 20 43 4F 50 59 2F 53 43 52 41 54 43 48 |LAG COPY/SCRATCH|
00003370: 00 92 3B 44 11 45 42 25 B2 30 20 20 20 20 3A 8F |..;D.EB%.0 :.|
00003380: 20 46 45 48 4C 45 52 20 28 4B 45 49 4E 20 48 44 | FEHLER (KEIN HD|
00003390: 2E 29 00 B3 3B 4E 11 45 53 25 B2 30 20 20 20 20 |.)..;N.ES%.0 |
000033A0: 3A 8F 20 46 45 48 4C 45 52 20 28 53 59 4E 43 52 |:. FEHLER (SYNCR|
000033B0: 4F 4E 29 00 CA 3B 58 11 45 43 25 B2 30 20 20 20 |ON)..;X.EC%.0 |
000033C0: 20 3A 8F 20 46 45 48 4C 45 52 00 E1 3B 62 11 44 | :. FEHLER..;b.D|
000033D0: 43 25 B2 30 20 20 20 20 3A 8F 20 46 45 48 4C 45 |C%.0 :. FEHLE|
000033E0: 52 00 01 3C 6C 11 48 44 25 B2 30 20 20 20 20 3A |R..<l.HD%.0 :|
000033F0: 8F 20 46 45 48 4C 45 52 20 28 48 45 41 44 45 52 |. FEHLER (HEADER|
00003400: 29 00 24 3C 76 11 45 58 25 B2 30 20 20 20 20 3A |).$<v.EX%.0 :|
00003410: 8F 20 46 45 48 4C 45 52 20 28 4C 4F 4E 47 20 42 |. FEHLER (LONG B|
00003420: 4C 4B 2E 29 00 41 3C 80 11 46 52 25 B2 30 20 20 |LK.).A<..FR%.0 |
00003430: 20 20 3A 8F 20 46 52 45 49 45 20 42 4C 4F 43 4B | :. FREIE BLOCK|
00003440: 53 00 60 3C 8A 11 42 45 25 B2 30 20 20 20 20 3A |S.`<..BE%.0 :|
00003450: 8F 20 42 45 4C 45 47 54 45 20 42 4C 4F 43 4B 53 |. BELEGTE BLOCKS|
00003460: 00 7D 3C 94 11 41 4E 25 B2 31 20 20 20 20 3A 8F |.}<..AN%.1 :.|
00003470: 20 56 4F 4E 20 53 50 55 52 20 2E 2E 2E 00 9A 3C | VON SPUR .....<|
00003480: 9E 11 45 4E 25 B2 33 35 20 20 20 3A 8F 20 2E 2E |..EN%.35 :. ..|
00003490: 2E 20 42 49 53 20 53 50 55 52 00 BD 3C A8 11 4A |. BIS SPUR..<..J|
000034A0: 4A 25 B2 32 30 20 20 20 3A 8F 20 4D 41 58 2E 20 |J%.20 :. MAX. |
000034B0: 53 45 4B 54 4F 52 45 4E 2F 53 50 55 52 00 E0 3C |SEKTOREN/SPUR..<|
000034C0: B2 11 52 45 25 B2 30 20 20 20 20 3A 8F 20 46 4C |..RE%.0 :. FL|
000034D0: 41 47 20 28 46 49 4C 45 20 52 45 54 54 45 4E 29 |AG (FILE RETTEN)|
000034E0: 00 03 3D BC 11 45 25 20 B2 30 20 20 20 20 3A 8F |..=..E% .0 :.|
000034F0: 20 44 49 53 4B 20 46 45 48 4C 45 52 20 28 43 4F | DISK FEHLER (CO|
00003500: 44 45 29 00 26 3D C6 11 45 24 20 B2 22 22 20 20 |DE).&=..E$ ."" |
00003510: 20 3A 8F 20 44 49 53 4B 20 46 45 48 4C 45 52 20 | :. DISK FEHLER |
00003520: 28 54 45 58 54 29 00 49 3D D0 11 45 31 25 B2 30 |(TEXT).I=..E1%.0|
00003530: 20 20 20 20 3A 8F 20 44 49 53 4B 20 46 45 48 4C | :. DISK FEHL|
00003540: 45 52 20 28 53 50 55 52 29 00 6C 3D DA 11 45 32 |ER (SPUR).l=..E2|
00003550: 25 B2 30 20 20 20 20 3A 8F 20 44 49 53 4B 20 46 |%.0 :. DISK F|
00003560: 45 48 4C 45 52 20 28 53 4B 54 2E 29 00 8C 3D E4 |EHLER (SKT.)..=.|
00003570: 11 41 46 25 B2 30 20 20 20 20 3A 8F 20 46 4C 41 |.AF%.0 :. FLA|
00003580: 47 20 43 4F 50 59 20 41 4C 50 48 41 00 92 3D EE |G COPY ALPHA..=.|
00003590: 11 3A 00 B3 3D F8 11 8F 2A 2A 2A 2A 2A 2A 2A 2A |.:..=...********|
000035A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000035B0: 2A 2A 2A 00 D4 3D 02 12 8F 2A 2A 2A 2A 3E 3E 3E |***..=...****>>>|
000035C0: 3E 3E 3E 46 45 4C 44 45 52 3C 3C 3C 3C 3C 3C 2A |>>>FELDER<<<<<<*|
000035D0: 2A 2A 2A 2A 00 F5 3D 0C 12 8F 2A 2A 2A 2A 2A 2A |****..=...******|
000035E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000035F0: 2A 2A 2A 2A 2A 00 FB 3D 16 12 3A 00 1A 3E 20 12 |*****..=..:..> .|
00003600: 86 20 4E 41 24 28 31 35 30 29 20 20 20 3A 8F 20 |. NA$(150) :. |
00003610: 46 49 4C 45 20 4E 41 4D 45 4E 00 39 3E 2A 12 86 |FILE NAMEN.9>*..|
00003620: 20 43 50 24 28 31 35 30 29 20 20 20 3A 8F 20 57 | CP$(150) :. W|
00003630: 4F 52 4B 20 4E 41 4D 45 4E 00 56 3E 34 12 86 20 |ORK NAMEN.V>4.. |
00003640: 46 54 24 28 31 35 30 29 20 20 20 3A 8F 20 46 49 |FT$(150) :. FI|
00003650: 4C 45 20 54 59 50 00 76 3E 3E 12 86 20 54 59 24 |LE TYP.v>>.. TY$|
00003660: 28 20 34 20 29 20 20 20 3A 8F 20 54 59 50 45 4E |( 4 ) :. TYPEN|
00003670: 20 4E 41 4D 45 4E 00 7C 3E 48 12 3A 00 9C 3E 52 | NAMEN.|>H.:..>R|
00003680: 12 86 20 42 4C 25 28 31 35 30 29 20 20 20 3A 8F |.. BL%(150) :.|
00003690: 20 46 49 4C 45 20 4C 41 45 4E 47 45 00 BC 3E 5C | FILE LAENGE..>\|
000036A0: 12 86 20 45 52 25 28 31 35 30 29 20 20 20 3A 8F |.. ER%(150) :.|
000036B0: 20 43 4F 50 59 20 46 45 48 4C 45 52 00 DC 3E 66 | COPY FEHLER..>f|
000036C0: 12 86 20 42 4E 25 28 31 35 30 2C 31 29 20 3A 8F |.. BN%(150,1) :.|
000036D0: 20 46 49 4C 45 20 42 45 47 49 4E 4E 00 FE 3E 70 | FILE BEGINN..>p|
000036E0: 12 86 20 42 44 25 28 20 31 20 29 20 20 20 3A 8F |.. BD%( 1 ) :.|
000036F0: 20 4E 41 45 43 48 53 54 45 52 20 42 4C 4B 00 04 | NAECHSTER BLK..|
00003700: 3F 7A 12 8E 00 29 3F 84 12 8F 20 2A 2A 2A 2A 20 |?z...)?... **** |
00003710: 41 4C 50 48 41 20 53 4F 52 54 20 26 20 43 4F 50 |ALPHA SORT & COP|
00003720: 59 20 41 4C 4C 20 2A 2A 2A 00 4F 3F 8E 12 8F 20 |Y ALL ***.O?... |
00003730: 2A 2A 2A 20 50 52 49 4E 54 20 43 55 52 52 45 4E |*** PRINT CURREN|
00003740: 54 20 43 4F 50 59 20 54 59 50 45 20 2A 2A 2A 00 |T COPY TYPE ***.|
00003750: 67 3F 98 12 8B 42 B2 31 A7 99 22 50 52 4F 47 52 |g?...B.1.."PROGR|
00003760: 41 4D 4D 45 22 3A 8E 00 82 3F A2 12 8B 42 B2 32 |AMME":...?...B.2|
00003770: A7 99 22 53 45 51 55 45 4E 54 49 45 4C 4C 45 4E |.."SEQUENTIELLEN|
00003780: 22 3B 00 99 3F AC 12 8B 42 B2 33 A7 99 22 52 45 |";..?...B.3.."RE|
00003790: 4C 41 54 49 56 45 4E 22 3B 00 AB 3F B6 12 8B 42 |LATIVEN";..?...B|
000037A0: B2 34 A7 99 22 55 53 45 52 22 3B 00 BE 3F C0 12 |.4.."USER";..?..|
000037B0: 99 22 20 44 41 54 45 49 45 4E 2E 22 3A 8E 00 D9 |." DATEIEN.":...|
000037C0: 3F CA 12 8F 20 2A 2A 2A 20 54 45 58 54 20 41 55 |?... *** TEXT AU|
000037D0: 53 47 41 42 45 20 2A 2A 2A 00 05 40 D4 12 99 22 |SGABE ***..@..."|
000037E0: 11 12 41 43 48 54 55 4E 47 92 21 20 4C 45 47 45 |..ACHTUNG.! LEGE|
000037F0: 4E 20 53 49 45 20 49 4E 20 44 52 49 56 45 20 31 |N SIE IN DRIVE 1|
00003800: 20 45 49 4E 45 00 32 40 DE 12 99 22 11 4C 45 45 | EINE.2@...".LEE|
00003810: 52 45 20 4F 44 45 52 20 55 4E 42 45 4E 55 54 5A |RE ODER UNBENUTZ|
00003820: 54 45 20 44 49 53 4B 20 45 49 4E 2E 20 44 52 49 |TE DISK EIN. DRI|
00003830: 56 45 00 4D 40 E8 12 99 22 11 31 20 57 49 52 44 |VE.M@...".1 WIRD|
00003840: 20 46 4F 52 4D 41 54 49 45 52 54 20 21 00 7B 40 | FORMATIERT !.{@|
00003850: F2 12 99 22 11 11 46 41 4C 4C 53 20 49 4E 20 44 |..."..FALLS IN D|
00003860: 52 49 56 45 20 30 20 4B 45 49 4E 20 4D 45 4E 55 |RIVE 0 KEIN MENU|
00003870: 45 20 56 4F 52 48 41 4E 44 45 4E 00 AB 40 FC 12 |E VORHANDEN..@..|
00003880: 99 22 11 49 53 54 2C 20 4C 45 47 45 4E 20 53 49 |.".IST, LEGEN SI|
00003890: 45 20 42 49 54 54 45 20 41 55 43 48 20 44 49 45 |E BITTE AUCH DIE|
000038A0: 53 45 53 20 42 45 52 45 49 54 2E 00 D9 40 06 13 |SES BEREIT...@..|
000038B0: 99 22 11 11 11 44 52 55 45 43 4B 45 4E 20 53 49 |."...DRUECKEN SI|
000038C0: 45 20 28 12 4A 92 29 20 46 55 45 52 20 57 45 49 |E (.J.) FUER WEI|
000038D0: 54 45 52 2C 20 4A 45 44 45 00 10 41 10 13 99 22 |TER, JEDE..A..."|
000038E0: 11 41 4E 44 45 52 45 20 54 41 53 54 45 20 46 55 |.ANDERE TASTE FU|
000038F0: 45 48 52 54 20 5A 55 4D 20 41 42 42 52 55 43 48 |EHRT ZUM ABBRUCH|
00003900: 20 21 28 D6 29 9D 9D 22 3B 3A 97 32 30 34 2C 30 | !(.)..";:.204,0|
00003910: 00 41 41 1A 13 8D 36 38 30 3A 97 32 30 34 2C 31 |.AA...680:.204,1|
00003920: 3A 99 22 9D 20 22 3B 3A 8B 54 41 24 B3 B1 22 4A |:.". ";:.TA$.."J|
00003930: 22 A7 99 22 12 45 4E 44 45 92 22 3B 3A 89 37 36 |"..".ENDE.";:.76|
00003940: 30 00 4C 41 24 13 89 36 33 39 39 39 00 00 00 A0 |0.LA$..63999....|
00003950: 92 |. |
..I.D..G(142):H3$."DISK UTILITY PROGRAMM
V 64":H4$."....................".B.N.H5
$." 'Q' FUER ENDE".~.X.. 820:. INITIALIS
IERUNG...... **** ASCII EINLESEN ***....
..#8,BY$:BY%.F(BY$.G(0)):.......".......
.......":.K.14.23:.SP$:.... ..".........
.....":.......".".3....".."ST$".":P.57.5
.(C(H1$).2):.P...(P).P.P..5.L....".."H(S
T$,P.38)H1$;.K.H..H(ST$,78.C(H1$).P.1);"
.";. .R.."...."ST$".";:P.57.5.(C(KO$).2)
:.P...(P).P.P..5.N....".";H(ST$,P.38)KO$
;:.H(ST$,78.C(KO$).P);......"...."ST$"."
:.......*** BLOCK LESEN (MIT OPEN) ***.%
....15,"I".DR$:MK%.DS:.MK%. ..6....8,8,8
,"#":..O....*** BLOCK LESEN ***.J....15,
"U1:"8;DR%;TR%;SC%.P."...V.,.:...6.. ***
* DIRECTORY ****...@.. 540:.MK%...Q.J..(
QU%.0).(ID$.DI$).(DR%.LR%).(ZY$.TY$). 8:
....T.."..CATALOG EINLESEN".,.^.QU%.0:DI
$.ID$:LR%.DR%:N0%.0:BU%.0:FI%.0:TR%.18:S
C%.1:ZY$.TY$.C.H.. 280:. BLOCK-READ.W.R.
.I.0.1:.#8,BY$:BD%(I).F(BY$.G(0)):.:BU%.
2:. 800...|.. 140:B1%.(BY% . 7)......B1%
.0.RE%.0.490......B1%.RE%.490......TY$..
"A"..F(TY$(B1%))..F(TY$).490.....H$."":.
I.0.1:. 140:BN%(N0%,I).BY%:..0....I.3.18
:.#8,BY$:.BY$..G(160). H$.H$.BY$.?....:.
Z%.2380.\.B..I.19.27:.#8,BY$:.:. 140.~.L
.BL%.BY%:. 140:BL%.BL%.256.BY%...V.BL%(N
0%).BL%:NA$(N0%).H$:FT$(N0%).TY$(B1%):N0
%.N0%.1.J....".".25.TB)N0%.....FI%.FI%.1
:.FI%.8.BU%.FI%.32.2:. 800:. 380......BD
%(0).0.520./...TR%.BD%(0):SC%.BD%(1):FI%
.0:.360.6... 8.<.....R.... *** GET ID$ *
**.H.&.. 250:. OPEN FILE...0.. MK% . . :
. SICHER......:.TR%.18:SC%.0:.280...D.BU
%.162:ID$."":. 800.P.N..I.1.5:.140:ID$.I
D$.BY$:..V.X.....B.. *** GET NAME + ID
***...L..550:.MK%.....V.BU%.144:NA$."":.
800.B....I.1.16:.140:.BY%..160.NA$.NA$.B
Y$.J....:..P...:.M.... *** GET EINE TAST
E ***......198,0:.198,1:. TA$.....AS%.E(
TA$):......:...F.. *** ERFRAGE DRIVE NR.
***.W.P..".DRIVE NUMMER (0/1)"...Q..A$:
.A$."0".DR%.0:TA$."0":DR$.TA$:..#.R..A$.
"1".DR%.1:TA$."1":DR$.TA$:..,.U..721.G..
.. *** VERZOEGERUNG ***.^....AF%.0..I.1.
2500:..D.....J...:......*** BUFFER POINT
ER SETZEN ***... ..15,"B-P:"8;BU%:..H.*.
. **** DAUER FILES OEFFNEN ****.N.4.:..
.>.. 15,8,15:. DISK ERROR KANAL...H.. 01
,0,00:. TASTATUR.:.R.SP$."
".L.\.FO$.".
. ."...F
.ST$."..................................
....".D.P.FM$." *":.B8.ST$.H(ST$.ST$.ST$
,78)...Z.H1$."INITIALISIERUNG VON DUP 6
4".%...NA$."":NB$."":ID$."":DI$."":TA$."
":TY$."":BY$."":H$."".A...KO$.H4$:.170:.
4090:.760.\...HZ$."0123456789ABCDEF".Q..
..I.1.4:.TY$(I):..W...:...... **** HAUP
T - MENUE ****. ...:...J.KO$.H5$:H1$
.H3$.N.T..170:X..(0):. GARBAGE.......8.T
B)".1) SCRATCHEN VON FILES".......8.TB)"
.2) FORMATIEREN VON DISKS.5.....8.TB)".3
) FILE LISTEN.Z.....8.TB)".4) DISK NAME/
ID AENDERN......8.TB)".5) TESTLESEN EIN
ER DISK.......8.TB)".6) DIRECTORY ANZEI
GE.J.....8.TB)".7) FILE RETTEN (UNSCRATC
H)...$...8.TB)".8) STARTADRESSE AENDERN"
...)...8.TB)".9) KOPIEREN EINER DISK";.-
....670:.TA$."Q".1120.=.8..AS%.0.1070.U.
B.. *** VERTEILER ***...L..AS%.1380,1160
,2430,2750,3000,2280,3480,3800,1410:.970
...V.. : . DUMMY SUBROUTINE...`..170...J
..15,"U:":.:."........":.:. DUP ENDE...T
.:...~.. *** FORMATIEREN ***."...KO$."DI
SK FORMATIER ROUTINE":.170.A.... 720:. Z
EILENNUMMER LESEN._.... 620: 8:. DISK ID
& NAME.Y....MK%.1240:. ?BAD DISK.....D$
."":.".DISK ID ="ID$:.".SOLL DER ID BEIB
EHALTEN WERDEN ? ";......1,TA$:.:.H(TA$,
1)."J".ID$."":.1240...D..H(TA$,1).."N"..
".";:.211,33:.1210...N.D$.",".ID$.L.X.."
.DISK NAME , ID ? ";:FE%.B(211):.NA$","
ID$;.~....211,FE%:.1,NA$,ID$:.:.H(NA$,1)
."*".NA$."". ....... ^^^ ABBRUCH ^^^ !!!
.H...QU%..1:CC$."N:".NA$:.ID$."".CC$.CC$
.",".ID$......".DISKETTE WIRD FORMATIERT
.": 1:.1,8,15,"".CC$..... 1:.1,0,0......
DS.20. ..+....".FEHLER :"E$.T.(..15,"I".
DR$:.".LETZTER VERSUCH ...";.T.2..15,CC$
:.DS.0..".OK !":.760...<.."DISK .DEFEKT.
!!!":.760...F.."SEQ","PRG","USR","REL".
..P.:.U.Z.. **** SCRATCH ROUTINE ****...
D.KO$."SCRATCH ROUTINE":K$."SCRATCHEN ".
..N.Q%..1:.1430...X.:.3.... **** KOPIERR
OUTINE ****.`...Q%.0:KO$."KOPIER ROUTINE
":K$."KOPIEREN ".O...PL%.0:.170... ..MD%
.0.Q%.0..".. NICHT BEI EINER .4031. !!
!":. 680......K$"VON .";:. 720.V....Q%.
1480:. SCRATCH......".".X%.2.TB)"NACH"1.
DR%.5.H..".TYP: .P.RG, .S.EQ, .U.SR, .R.
EL, ODER .A.LLES ? ";:X%..(0).D.R..680:.
TA$;.V....TA$."P".TA$."S".TA$."U".TA$."R
".TA$."A".1520......211,X%:.1490.....TY$
.TA$:.Q%.AL%.0:.1560.Q....:."..F.RAGEN O
DER .A.LLES KOPIEREN ? ";......680:AL%.(
TA$."A"):.AL%.."ALLES":.1560......"FRAGE
N"."....:.310:.N0%.0.AF%...O.".. N0%.0..
"...DIE DISK IST LEER.!!!":.760.N.,.. 15
0:. DELETE ZEILE 10-23...6.."LAENGE
NAME ART"...@.. I . 0 . N
0%.1.T.J.."."BL%(I).8.TB)NA$(I).31.TB)FT
$(I)...T..". "K$" (J/N)...^..AL%.1
670...H.. 680:.TA$."N".TA$.".".1680.4.R.
.TA$."."..2410:.1680.H.|..TA$.."J". 1640
.F...CP$(PL%).NA$(I):PL%.PL%.1......"...
"SP$:.SP$:.SP$"....":..E....PL%.0.."."SP
$:.".. NICHTS ZU "K$"...":QU%.0
:.760......AF%.."."SP$:.1760......Q%.PL%
.1.1810......"."SP$:."ALPHABETISCH SORTI
EREN (J/N)".2.B..680:.TA$."N".1810.E.L..
TA$.."J".1730.G.V.. *** ALFA SORT (EINFA
CH) ***.}...."..SORTIEREN...".....ER%.0:
.I.PL%.2.0..1.V....CP$(I).CP$(I.1).H$.CP
$(I.1):CP$(I.1).CP$(I):CP$(I).H$:ER%.1..
....:.ER%.1770:. NOCHMAL ......... *** C
OPY FILES ... ***.9....Q%.QU%..1:. DIR N
ICHT MEHR GUELTIG.L....2130:. RAHMEN.[.&
..I.0.PL%.1.R.0.."."CP$(I).19.TB);...:..
Q%.0..15,"C".G(48.1.DR%).":".CP$(I)."=".
DR$.":".CP$(I).M.D..Q%..15,"S".DR$.":".C
P$(I)...N..2220:.D$:ER%(I).E%...X..E%.72
...19.TB)".ABBRUCH. !!!":.760.(.B..E%.ER
%.ER%.1:. FEHLER.=.L..B(214).22..2180.L.
V..:.ER%.0.Q%...20.TB)"*** E N D E ***":
.760.W....AF%........ *** FEHLER BEHANDL
UNG ***.S...KO$.D(ER%)." KOPIERFEHLER ":
.ER%.1.KO$.KO$."SIND":.1960.....KO$.KO$.
"IST".....KO$.KO$." AUFGETRETEN !"."....
I.0.PL%.1:.ER%(I)..63.2110.+....170.>.F.
."...."CP$(I);._.P...20.TB)".EXISTIERT B
EREITS....Z.."...L.OESCHEN, .U.MBENENNEN
, .I.GNORIEREN (L/U/I)......680:.TA$."I"
.2100:. IGNORIEREN......TA$."L".2070:. S
CRATCH©......TA$.."U".2020:. FALSCHE
TASTE......"..NEUER NAME ? ";:.1,NN$.5.
... 2080:. COPY AGAIN.B...NN$."*":.15,"S
".G(48.(1.DR%)).":".CP$(I)... ..15,"C".G
(48.1.DR%).":".NN$."=".DR$.":".CP$(I)...
*..DS.1990:. NOCHMAL....G.4..SP$:.SP$:.S
P$:.SP$.P.>.. :....H.. *** TEXTFENSTER *
**...R.... \..".".(16.C(KO$).2).TB)"***
"KO$" ***.G F.."........................
................V P..". FILE - NAME
. FEHLER - MELDUNG .".. Z.."...........
.............................. ..."...."
:.K.1.20:.FO$:... ..."..................
.....................";.. ..."....":...!
... *** FORMAT DS$ ***.2!...3780:D$.E$:D
$.H(D$,19).F!..D$.I("
".D$,9.C(D$).2).V!..D$.H(D$,19).|
!J....!T..*** CATALOG ***..!..:.B!...B8.
KO$."DIRECTORY ANZEIGE":.170:.2320.."..K
O$. "LAENGE FILE NAME TYP START"
:.170:.720:."..".="..TY$."A":.310:.170:.
3670:."..".16.TB)".TASTE BITTE";:.680.W"
...".FEHLER = ."E$:.680.H"...I.0.1:DR%.I
.."..."......".5.DR%.35)"..":.214,23:..7
9)"..";.T"$.DR$.G(I.48):.15,"I".DR$:.378
0:.E%.0. 15:WD(DR%):.15,8,15.."...:.:.:.
211,0:..35)".TASTE BITTE";:.680..#8.."..
.":..,#B..*** FIND SPECIFIC FILE ***.Z#L
..H(H$,C(FI$))..FI$ . 490:. NICHT GEFUND
EN.J#V..RE%.Z%.0:...#`.BU%.BU%.1:.800:.1
40:TR%.BY%:.140:SC%.BY%:Z%.0:...#J.I.I.2
:.I..1.I..1..#T....#~.. **** VIEW FILE O
N DISK ****..#..KO$."FILE - BETRACHTER":
.170..$..."FILENAME ZUM LISTEN ? ";.($..
.1,FI$:..;$..TY$."A":QU%..1.P$..."..AUF
.";:.720..$..Z%..1:.320:.Z%.."..NICHT GE
FUNDEN !":Z%.0:.680..$D.FI$.H$:.280..$N.
."........".20)"..LISTING VON FILE ."FI$
..$X..".DIESER BLOCK IN : "TR%
","SC%.'%...".NAECHSTER BLOCK IN :
";:.140:.BY%;:TR%.BY%.K%....28.TB)".,"
;:.140:.BY%:SC%.BY%..%...".START ADRESSE
: ";:.140:A.BY%:.140:A.A.256.BY
%..%....28.TB)A.35.TB)"DEZ"..%...".ERSTE
LINKADRESSE : ";:.140:A.BY%:.140:A.
A.256.BY%..%....28.TB)A.35.TB)"DEZ".9&..
.".ERSTE ZEILENNUMMER : ";:.140:A.BY%
:.140:A.A.256.BY%.S&(...28.TB)A.35.TB)"D
EZ".~&2..".ASCIIDUMP:":QA%.5:QB%.33:.B8.
QB%.75..&<.HX$."":.I.8.255:.140:HX$.HX$.
BY$:.:.:.211,QA%:.":";.F&F..I.1.C(HX$)..
&P...(I).QB%..":":.211,QA%:.":";..'Z.C$.
J(HX$,I,1):C%.F(C$)..'D..C%.127..".";:C%
.C%.127.0'N..C%.32.C%.32.A'X..C%.34..366
0.H'...G(C%)".";:.:.211,QB%.1:.":":.B8..
..'...TR%.0..,"TASTE FUERS MENUE": 8:.68
0.E'...".E. FUER ENDE,.N. FUER DEN NAECH
STEN BLOCK.";..' ..680:.TA$."E". 8:."...
":...'...TA$.."N".2720..(...2500."(... *
** NAMEN & ID AENDERN ****.L(H.KO$."DISK
NAMEN & ID AENDERUNG":. 170.`(R.. 720:.
DRIVE #.W(... 620:. NAME + ID$..(..."..
DISKNAME : "NA$..(...".DISK ID : "ID$
.X(..."..AENDERUNG VON .I.D, .N.AME, .K.
EINE ? "..(...680:.TA$."K". 8:...)...TA$
."I".2910..)...TA$.."N".2820.0)".. *** N
AMEN AENDERN ***.]),..".NEUER NAME ? ";:
X%..(I):.NA$;:.211,X%.U)6..1,NA$:BU%.144
:.800..)@.NA$.NA$." "..)
J.NA$.H(NA$,16)..)T..8,NA$;:.2970.R)^..
*** ID AENDERN ***..)H..".NEUER ID ? ";:
X%..(I):.ID$;:.211,X%..*R..1,ID$:BU%.162
:.800.>*|.X.C(ID$):ID$.ID$.J(" 2A ",X.
1,6.X).O*..ID$.H(ID$,5).[*...8,ID$;.~*..
.15,"U2:8"DR%,18,0:.15,"I".DR$..*.. 8:..
.*... **** TESTLESEN EINER DISK ***..*..
EB%.0:ES%.0:EC%.0:DC%.0:HD%.0:EX%.0:ER%.
0:FR%.0:BE%.0..*B.KO$."TESTLESEN":.170..
+L.."TESTLESEN VON .";:.720.0+V.TR%.1:SC
%.0:.250.R+..AN%.1:EN%.35:. DEFAULT VALU
ES.W+..."..BESTIMMTER BEREICH (J/N) ? ".
.+...680:.TA$."N".3130..+...TA$.."J".306
0.F+...".VON SPUR ";:.1,TA$:AN%.E(TA$)..
+...AN%.0.AN%.1:.G(20)"1";..,..." BIS S
PUR ";:.1,TA$:EN%.E(TA$).;,&..(EN%.0).(E
N%.35).(EN%.AN%).EN%.35:.G(20)"35";.I,0.
. :QU%..1..,:.KO$."VON SPUR".D(AN%)." BI
S SPUR".D(EN%):H1$."DISK CHECK"..,D..170
..,N.."..."..,X..I.AN%.EN%:JJ%.20:.I.17.
JJ%.18.O,B..I.24.JJ%.17..,L..I.30.JJ%.16
:. SEKTOREN/TRACK..,V..J.0.JJ%..-...15,"
B-A:"DR%,I,J.8-...DS.0.FR%.FR%.1:F$."FRE
I":.3230.D-..BE%.BE%.1:F$."BELEGT":.15,"
B-F:"DR%,I,J.V-..."......."SP$..-...".SP
UR"I"SEKTOR"J"= "F$..-..TR%.I:SC%.J:.28
0.R-...:.3780:D$.E$:.SP$:."."D$:.DS.0.33
50...F.ER%.ER%.1:.E%.26.E%.71.."KEIN TES
T MOEGLICH ! ":.680.&.P..E%.20.EB%.EB%.1
:.3340.A.Z..E%.21.ES%.ES%.1:.3340.\....E
%.23.EC%.EC%.1:.3340.W....E%.24.DC%.DC%.
1:.3340......E%.27.E%.29.HD%.HD%.1:.3340
......E%.28.EX%.EX%.1:.3340.N... 8:. 240
:. INIT + OPEN.Z....J,I: 8... .KO$."FEHL
ER UEBERSICHT":.170.&/*...3.TB)"BELEGT =
"BE%.28.TB)"FREI ="FR%.M/4...3.TB)".HEAD
ER FEHLT :"EB%.T/>...3.TB)".SYNCR
ONIMPULS FEHLT :"ES%../H...3.TB)".PRUEFS
UMMEN FEHLER :"EC%.B/R...3.TB)".DEKODIE
R FEHLER :"DC%../\...3.TB)".HEADER P
RUEFSUMME :"HD%..0F...3.TB)".LANGER DA
TEN BLOCK :"EX%.A0P...3.TB)"..GESAMTFEH
LER :";:.ER%..".";.V0Z..ER%:.15,"
V".DR$.V0...". BITTE EINE TASTE...";.
0...680. 0... *** UNSCRATCH EIN FILE ***
..0..KO$."DISK FILE RETTER"..0...170:.".
.FILE NAME ZUM RETTEN ? ";:.1,FI$:...0..
. 720:. DRIVE #.+1..TY$."A":QU%..1:RE%..
1:Z%..1:. 320:RE%.0.V1J..Z%.."..NICHT GE
FUNDEN !": 8:Z%.0:.680.V1T..".GEFUNDEN
FILE : ."H$..1..."..TYP: .P.RG, .S.EQ
, .U.SR ODER .R.EL ";.T1... 680:.TA$;:.I
.1.4:.TA$.J("SPUR",I,1).3580..1...:.3560
..1..BY%.128.I:.800:. BUFFER =0..2...8,G
(BY%);.,2...15,"U2:"8;DR%;TR%;SC%: 8.E2.
..:."..FILE WIEDER KATALOGISIERT.":.15,"
V".DR$:QU%..1.N2$..680..2... *** WELCHE
FLOPPY ? ***..28.:..2B.. DELETE ["].B2L
.X%..(I):.G(34);:.211,X%:...3V..I.0.N0%.
1:." "BL%(I).9.TB)NA$(I).26.TB)FT$(I)"
" BN%(I,0);..3`...34.TB)","BN%(I,1).23J.
.TA$:.TA$." "..680.F3T..B(214).22..".","
.TASTE BITTE";:.680:.170.N3~..:...
3...*****************************..3...*
** DISK STATUS BASIC 3.0 ***.W3...******
***********************..3.....3... >>>
FUER LOTHAR HOFMANN <<<..4..:..4D..15,E%
,E$,E1%,E2%:..>4N..*********************
******._4X..*** AENDERUNG PRG.START ***.
.4...***************************..4..KO$
."NEUE STARTADRESSE EINGEBEN".A4...170:.
720:. FRAGE DRIVE.T4..TY$."P":QU%..1..5.
.."..PROGRAMM NAME ? ";:.1,FI$:Z%..1:.:.
320..5...Z%.0.3880.T5..Z%.0:."..PROGRAMM
"G(34)FI$G(34)" IST NICHT VORHANDEN!":.
680.O5(.."....".16.TB)"."H$"....52.FI$.
H$:.280:.140:.140..5<..140:X%.BY%:.140:X
.X%.256.BY%.R5F.. 4050:."STARTADRESSE IS
T HEX "BY$..5P.." DEZIMAL"X
..6Z..631,F("."):.198,1.06D.."..NEUE STA
RTADRESSE ? "BY$".....";.\6N..1,BY$:.:.H
(BY$,1)."@". 8:."..OK.":.760.~6X..H(BY$,
1).."$".X.E(BY$):.4010..6..BY$.J(BY$,2):
BY$.I("0000".BY$,4).F6..X.0:.I.1.4:X%.F(
J(BY$,I,1)).48.Y6...X%.10.X%.X%.7..6 .X.
X.X%.16.(4.I):...7..BY%.X.256:X%.X.256.B
Y%..7..BU%.2:.800.O7...8,G(X%)G(BY%);:.1
5,"U2:8"DR%,TR%,SC%:.15,"I".DR$.X7H. 8:.
..7R.E1%.BY%.16:E2%.BY%.15:BY$."$":.4070
..7..E1%.X%.16:E2%.X%.15.B7..BY$.BY$.J(H
Z$,E1%.1,1).J(HZ$,E2%.1,1).H7.....7...**
** INITIALISIERUNG DER ****..8...**** SK
ALAREN VARIABLEN ****..8..:.78...****
FLOATING POINT ****.=8".:.U8,.I.0
:. ZAEHLER.M86.J.0 :. ZAEHLER..8
@.K.0 :. ZAEHLER..8J.B.0 :. ZA
EHLER..8T.A.0 :. ADRESSE (0-65535).
.8^.X.0 :. ADRESSE (0-65535)..9H.P.
0 :. FORMAT VAR. (TAB)..9R.:.,9|..*
*** INTEGER ****.29..:.P9..S
C%.0 :. SEKTOR (0-20).N9..TR%.18 :.
SPUR (1-35)..9..AS%.0 :. VAL (TAST
E)..9..DR%.0 :. LAUFWERK #.E9..LR%.0
:. CAT. LAUFWERK #..9B.MD%.1 :. AN
ZAHL LAUFWERKE..:L.MK%.0 :. DISK-STAT
US VAR..*:V.PL%.0 :. ZAHL DER WORKFIL
ES.K:..QU%..1 :. FLAG CAT GUELTIG.L:..
BU%.0 :. BUFFER PNT. VAR...:..N0%.0
:. ZAHL CATALOG FILES..:..FI%.0 :.
FILES PRO BLOCK.M:..BY%.0 :. ASC (GET
BYTE)..:..B1%.0 :. FILETYP IN CATALOG
..;..ER%.0 :. GESAMTFEHLER ZAHL..;&.C
% .0 :. ASC (HEX $).N;0.X% .0 :. C
URSOR POSITION.P;:.Q% .0 :. FLAG COPY
/SCRATCH..;D.EB%.0 :. FEHLER (KEIN HD
.)..;N.ES%.0 :. FEHLER (SYNCRON).J;X.
EC%.0 :. FEHLER..;B.DC%.0 :. FEHLE
R..<L.HD%.0 :. FEHLER (HEADER).$<V.EX
%.0 :. FEHLER (LONG BLK.).A<..FR%.0
:. FREIE BLOCKS.`<..BE%.0 :. BELEGT
E BLOCKS.}<..AN%.1 :. VON SPUR .....<
..EN%.35 :. ... BIS SPUR..<..JJ%.20
:. MAX. SEKTOREN/SPUR..<..RE%.0 :. FL
AG (FILE RETTEN)..=..E% .0 :. DISK FE
HLER (CODE).&=F.E$ ."" :. DISK FEHLER
(TEXT).I=P.E1%.0 :. DISK FEHLER (SPUR
).L=Z.E2%.0 :. DISK FEHLER (SKT.)..=.
.AF%.0 :. FLAG COPY ALPHA..=..:..=...
***************************.T=...****>>>
>>>FELDER<<<<<<*****..=...**************
*************..=..:..> .. NA$(150) :.
FILE NAMEN.9>*.. CP$(150) :. WORK NAME
N.V>4.. FT$(150) :. FILE TYP.V>>.. TY$
( 4 ) :. TYPEN NAMEN.|>H.:..>R.. BL%(1
50) :. FILE LAENGE..>\.. ER%(150) :.
COPY FEHLER..>F.. BN%(150,1) :. FILE BE
GINN..>P.. BD%( 1 ) :. NAECHSTER BLK..
?Z...)?... **** ALPHA SORT & COPY ALL **
*.O?... *** PRINT CURRENT COPY TYPE ***.
G?...B.1.."PROGRAMME":...?...B.2.."SEQUE
NTIELLEN";..?...B.3.."RELATIVEN";..?...B
.4.."USER";..?..." DATEIEN.":..Y?J.. ***
TEXT AUSGABE ***..@T.."..ACHTUNG.! LEGE
N SIE IN DRIVE 1 EINE.2@...".LEERE ODER
UNBENUTZTE DISK EIN. DRIVE.M@...".1 WIRD
FORMATIERT !.{@..."..FALLS IN DRIVE 0 K
EIN MENUE VORHANDEN..@...".IST, LEGEN SI
E BITTE AUCH DIESES BEREIT..Y@..."...DRU
ECKEN SIE (.J.) FUER WEITER, JEDE..A..."
.ANDERE TASTE FUEHRT ZUM ABBRUCH !(V).."
;:.204,0.AA...680:.204,1:.". ";:.TA$.."J
"..".ENDE.";:.760.LA$..63999... .
> CLICK IMAGE PREVIEW FOR FULL MODAL