DOS USER

00000000: 01 08 12 08 0A 00 8F 20  22 44 4F 53 20 55 53 45  |....... "DOS USE|
00000010: 52 22 00 3D 08 46 00 99  22 93 11 20 20 20 20 20  |R".=.F.."..     |
00000020: 20 2A 2A 2A 2A 20 44 4F  53 20 55 53 45 52 20 50  | **** DOS USER P|
00000030: 52 4F 47 52 41 4D 4D 20  2A 2A 2A 2A 22 00 6A 08  |ROGRAMM ****".j.|
00000040: 50 00 99 22 11 20 20 20  20 20 20 20 28 43 29 20  |P..".       (C) |
00000050: 31 39 38 34 20 42 59 20  57 49 4C 46 52 49 45 44  |1984 BY WILFRIED|
00000060: 20 44 4F 48 4D 45 4E 11  11 22 00 8A 08 64 00 9F  | DOHMEN.."...d..|
00000070: 35 2C 30 3A 99 22 11 3E  22 3B 3A 84 35 2C 41 24  |5,0:.".>";:.5,A$|
00000080: 3A 99 3B 22 9D 5F 22 3A  A0 35 00 9C 08 6E 00 8F  |:.;"._":.5...n..|
00000090: 20 49 4E 54 45 52 50 52  45 54 45 52 00 BE 08 78  | INTERPRETER...x|
000000A0: 00 8B 41 24 B2 22 48 49  4C 46 45 22 B0 41 24 B2  |..A$."HILFE".A$.|
000000B0: 22 48 22 A7 8D 31 30 30  30 3A 89 32 34 30 00 E6  |"H"..1000:.240..|
000000C0: 08 82 00 8B 41 24 B2 22  46 4F 52 4D 41 54 49 45  |....A$."FORMATIE|
000000D0: 52 45 4E 22 B0 41 24 B2  22 46 22 A7 8D 32 30 30  |REN".A$."F"..200|
000000E0: 30 3A 89 32 34 30 00 11  09 8C 00 8B 41 24 B2 22  |0:.240......A$."|
000000F0: 49 4E 49 54 49 41 4C 49  53 49 45 52 45 4E 22 B0  |INITIALISIEREN".|
00000100: 41 24 B2 22 49 22 A7 8D  33 30 30 30 3A 89 32 34  |A$."I"..3000:.24|
00000110: 30 00 36 09 96 00 8B 41  24 B2 22 56 41 4C 49 44  |0.6....A$."VALID|
00000120: 41 54 45 22 B0 41 24 B2  22 56 22 A7 8D 34 30 30  |ATE".A$."V"..400|
00000130: 30 3A 89 32 34 30 00 57  09 A0 00 8B 41 24 B2 22  |0:.240.W....A$."|
00000140: 43 4F 50 59 22 B0 41 24  B2 22 43 22 A7 8D 35 30  |COPY".A$."C"..50|
00000150: 30 30 3A 89 32 34 30 00  7E 09 AA 00 8B 41 24 B2  |00:.240.~....A$.|
00000160: 22 55 4D 42 45 4E 45 4E  4E 45 4E 22 B0 41 24 B2  |"UMBENENNEN".A$.|
00000170: 22 55 22 A7 8D 36 30 30  30 3A 89 32 34 30 00 A3  |"U"..6000:.240..|
00000180: 09 B4 00 8B 41 24 B2 22  4C 4F 45 53 43 48 45 4E  |....A$."LOESCHEN|
00000190: 22 B0 41 24 B2 22 4C 22  A7 8D 37 30 30 30 3A 89  |".A$."L"..7000:.|
000001A0: 32 34 30 00 D4 09 BE 00  8B 41 24 B2 22 44 49 53  |240......A$."DIS|
000001B0: 4B 4E 41 4D 45 4E 20 41  45 4E 44 45 52 4E 22 B0  |KNAMEN AENDERN".|
000001C0: 41 24 B2 22 4E 41 4D 45  22 A7 8D 38 30 30 30 3A  |A$."NAME"..8000:|
000001D0: 89 32 34 30 00 01 0A C8  00 8B 41 24 B2 22 44 49  |.240......A$."DI|
000001E0: 53 4B 2D 49 44 20 41 45  4E 44 45 52 4E 22 B0 41  |SK-ID AENDERN".A|
000001F0: 24 B2 22 49 44 22 A7 8D  38 35 30 30 3A 89 32 34  |$."ID"..8500:.24|
00000200: 30 00 27 0A D2 00 8B 41  24 B2 22 44 49 52 45 43  |0.'....A$."DIREC|
00000210: 54 4F 52 59 22 B0 41 24  B2 22 44 22 A7 8D 39 30  |TORY".A$."D"..90|
00000220: 30 30 3A 89 32 34 30 00  48 0A DC 00 8B 41 24 B2  |00:.240.H....A$.|
00000230: 22 45 4E 44 45 22 B0 41  24 B2 22 45 22 A7 31 30  |"ENDE".A$."E".10|
00000240: 30 30 30 3A 89 32 34 30  00 6C 0A E1 00 8B 41 24  |000:.240.l....A$|
00000250: B2 22 53 54 41 54 55 53  22 B0 41 24 B2 22 40 22  |."STATUS".A$."@"|
00000260: A7 8D 31 31 30 30 30 3A  89 32 34 30 00 AB 0A E6  |..11000:.240....|
00000270: 00 99 22 11 12 42 45 46  45 48 4C 20 27 22 41 24  |.."..BEFEHL '"A$|
00000280: 22 27 20 55 4E 42 45 4B  41 4E 4E 54 20 21 22 3A  |"' UNBEKANNT !":|
00000290: 99 22 4D 4F 45 47 4C 49  43 48 45 20 42 45 46 45  |."MOEGLICHE BEFE|
000002A0: 48 4C 45 3A 22 3A 8D 31  30 30 30 00 B4 0A F0 00  |HLE:":.1000.....|
000002B0: 89 31 30 30 00 BD 0A E8  03 41 B2 32 30 00 DD 0A  |.100.....A.20...|
000002C0: F2 03 99 22 42 45 46 45  48 4C 45 22 2C 2C 22 41  |..."BEFEHLE",,"A|
000002D0: 42 4B 55 45 52 5A 55 4E  47 45 4E 11 22 00 F6 0A  |BKUERZUNGEN."...|
000002E0: FC 03 99 22 46 4F 52 4D  41 54 49 45 52 45 4E 22  |..."FORMATIEREN"|
000002F0: A3 41 29 22 46 22 00 12  0B 06 04 99 22 49 4E 49  |.A)"F"......"INI|
00000300: 54 49 41 4C 49 53 49 45  52 45 4E 22 A3 41 29 22  |TIALISIEREN".A)"|
00000310: 49 22 00 28 0B 10 04 99  22 56 41 4C 49 44 41 54  |I".(...."VALIDAT|
00000320: 45 22 A3 41 29 22 56 22  00 3A 0B 1A 04 99 22 43  |E".A)"V".:...."C|
00000330: 4F 50 59 22 A3 41 29 22  43 22 00 52 0B 24 04 99  |OPY".A)"C".R.$..|
00000340: 22 55 4D 42 45 4E 45 4E  4E 45 4E 22 A3 41 29 22  |"UMBENENNEN".A)"|
00000350: 55 22 00 74 0B 2E 04 99  22 44 49 53 4B 4E 41 4D  |U".t...."DISKNAM|
00000360: 45 4E 20 41 45 4E 44 45  52 4E 22 A3 41 29 22 4E  |EN AENDERN".A)"N|
00000370: 41 4D 45 22 00 92 0B 38  04 99 22 44 49 53 4B 2D  |AME"...8.."DISK-|
00000380: 49 44 20 41 45 4E 44 45  52 4E 22 A3 41 29 22 49  |ID AENDERN".A)"I|
00000390: 44 22 00 A9 0B 42 04 99  22 44 49 52 45 43 54 4F  |D"...B.."DIRECTO|
000003A0: 52 59 22 A3 41 29 22 44  22 00 BF 0B 4C 04 99 22  |RY".A)"D"...L.."|
000003B0: 4C 4F 45 53 43 48 45 4E  22 A3 41 29 22 4C 22 00  |LOESCHEN".A)"L".|
000003C0: D1 0B 56 04 99 22 45 4E  44 45 22 A3 41 29 22 45  |..V.."ENDE".A)"E|
000003D0: 22 00 E5 0B 60 04 99 22  53 54 41 54 55 53 22 A3  |"...`.."STATUS".|
000003E0: 41 29 22 40 22 00 F8 0B  6A 04 99 22 48 49 4C 46  |A)"@"...j.."HILF|
000003F0: 45 22 A3 41 29 22 48 22  00 FE 0B 74 04 8E 00 18  |E".A)"H"...t....|
00000400: 0C D0 07 99 22 93 44 49  53 4B 20 46 4F 52 4D 41  |....".DISK FORMA|
00000410: 54 49 45 52 45 4E 11 22  00 3D 0C DA 07 99 22 11  |TIEREN.".=....".|
00000420: 4E 41 4D 45 20 44 45 52  20 44 49 53 4B 45 54 54  |NAME DER DISKETT|
00000430: 45 2C 49 44 22 3A 85 4E  24 2C 49 44 24 00 61 0C  |E,ID":.N$,ID$.a.|
00000440: E4 07 9F 32 2C 38 2C 31  35 3A 99 22 44 49 53 4B  |...2,8,15:."DISK|
00000450: 20 57 49 52 44 20 46 4F  52 4D 41 54 49 45 52 54  | WIRD FORMATIERT|
00000460: 22 00 7F 0C EE 07 8B 49  44 24 B2 22 22 A7 98 32  |"......ID$.""..2|
00000470: 2C 22 4E 30 3A 22 AA 4E  24 3A 89 32 30 35 30 00  |,"N0:".N$:.2050.|
00000480: 97 0C F8 07 98 32 2C 22  4E 30 3A 22 AA 4E 24 AA  |.....2,"N0:".N$.|
00000490: 22 2C 22 AA 49 44 24 00  B8 0C 02 08 A0 32 3A 99  |",".ID$......2:.|
000004A0: 22 11 44 49 53 4B 20 49  53 54 20 46 4F 52 4D 41  |".DISK IST FORMA|
000004B0: 54 49 45 52 54 22 3A 8E  00 D9 0C B8 0B 99 22 93  |TIERT":.......".|
000004C0: 44 49 53 4B 20 57 49 52  44 20 49 4E 49 54 49 41  |DISK WIRD INITIA|
000004D0: 4C 49 53 49 45 52 54 11  22 00 ED 0C C2 0B 9F 32  |LISIERT."......2|
000004E0: 2C 38 2C 31 35 2C 22 49  30 22 3A A0 32 00 0C 0D  |,8,15,"I0":.2...|
000004F0: CC 0B 99 22 11 44 49 53  4B 20 49 53 54 20 49 4E  |...".DISK IST IN|
00000500: 49 54 49 41 4C 49 53 49  45 52 54 22 00 13 0D CD  |ITIALISIERT"....|
00000510: 0B 3A 8E 00 38 0D A0 0F  99 22 93 56 41 4C 49 44  |.:..8....".VALID|
00000520: 41 54 45 20 57 49 52 44  20 44 55 52 43 48 47 45  |ATE WIRD DURCHGE|
00000530: 46 55 45 48 52 54 11 22  00 4C 0D AA 0F 9F 32 2C  |FUEHRT.".L....2,|
00000540: 38 2C 31 35 2C 22 56 30  22 3A A0 32 00 71 0D B4  |8,15,"V0":.2.q..|
00000550: 0F 99 22 11 56 41 4C 49  44 41 54 45 20 49 53 54  |..".VALIDATE IST|
00000560: 20 44 55 52 43 48 47 45  46 55 45 48 52 54 22 3A  | DURCHGEFUEHRT":|
00000570: 8E 00 88 0D 88 13 99 22  93 46 49 4C 45 20 4B 4F  |.......".FILE KO|
00000580: 50 49 45 52 45 4E 11 22  00 C1 0D 92 13 99 22 11  |PIEREN."......".|
00000590: 57 45 4C 43 48 45 53 20  46 49 4C 45 20 53 4F 4C  |WELCHES FILE SOL|
000005A0: 4C 20 56 45 52 56 49 45  4C 46 41 45 4C 54 49 47  |L VERVIELFAELTIG|
000005B0: 54 20 20 20 20 20 20 20  57 45 52 44 45 4E 20 3F  |T       WERDEN ?|
000005C0: 22 00 D1 0D 9C 13 85 22  11 4E 41 4D 45 22 3B 4E  |"......".NAME";N|
000005D0: 24 00 15 0E A6 13 99 22  11 55 4E 54 45 52 20 57  |$......".UNTER W|
000005E0: 45 4C 43 48 45 4D 20 4E  41 4D 45 4E 20 53 4F 4C  |ELCHEM NAMEN SOL|
000005F0: 4C 20 44 41 53 20 4E 45  55 45 20 46 49 4C 45 20  |L DAS NEUE FILE |
00000600: 20 47 45 53 50 45 49 43  48 45 52 54 20 57 45 52  | GESPEICHERT WER|
00000610: 44 45 4E 3F 22 00 1E 0E  B0 13 85 4E 31 24 00 3D  |DEN?"......N1$.=|
00000620: 0E BA 13 99 22 11 46 49  4C 45 20 22 4E 24 22 20  |....".FILE "N$" |
00000630: 57 49 52 44 20 4B 4F 50  49 45 52 54 22 00 5D 0E  |WIRD KOPIERT".].|
00000640: C4 13 9F 32 2C 38 2C 31  35 2C 22 43 30 3A 22 AA  |...2,8,15,"C0:".|
00000650: 4E 31 24 AA 22 3D 22 AA  4E 24 3A A0 32 00 7D 0E  |N1$."=".N$:.2.}.|
00000660: CE 13 99 22 11 46 49 4C  45 20 22 4E 24 22 20 49  |...".FILE "N$" I|
00000670: 53 54 20 4B 4F 50 49 45  52 54 22 3A 8E 00 9D 0E  |ST KOPIERT":....|
00000680: 70 17 99 22 93 55 4D 42  45 4E 45 4E 4E 45 4E 20  |p..".UMBENENNEN |
00000690: 45 49 4E 45 53 20 46 49  4C 45 53 11 22 00 CE 0E  |EINES FILES."...|
000006A0: 7A 17 99 22 11 57 45 4C  43 48 45 53 20 46 49 4C  |z..".WELCHES FIL|
000006B0: 45 20 53 4F 4C 4C 20 55  4D 42 45 4E 41 4E 4E 54  |E SOLL UMBENANNT|
000006C0: 20 57 45 52 44 45 4E 20  3F 22 3A 85 4E 24 00 FC  | WERDEN ?":.N$..|
000006D0: 0E 84 17 99 22 11 57 45  4C 43 48 45 4E 20 4E 41  |....".WELCHEN NA|
000006E0: 4D 45 4E 20 53 4F 4C 4C  20 45 53 20 42 45 4B 4F  |MEN SOLL ES BEKO|
000006F0: 4D 4D 45 4E 20 3F 22 3A  85 4E 31 24 00 24 0F 8E  |MMEN ?":.N1$.$..|
00000700: 17 99 22 11 46 49 4C 45  20 22 4E 24 22 20 57 49  |..".FILE "N$" WI|
00000710: 52 44 20 55 4D 42 45 4E  41 4E 4E 54 20 49 4E 20  |RD UMBENANNT IN |
00000720: 22 4E 31 24 00 44 0F 98  17 9F 32 2C 38 2C 31 35  |"N1$.D....2,8,15|
00000730: 2C 22 52 30 3A 22 AA 4E  31 24 AA 22 3D 22 AA 4E  |,"R0:".N1$."=".N|
00000740: 24 3A A0 32 00 6B 0F A2  17 99 22 11 46 49 4C 45  |$:.2.k....".FILE|
00000750: 20 22 4E 24 22 20 49 53  54 20 55 4D 42 45 4E 41  | "N$" IST UMBENA|
00000760: 4E 4E 54 20 49 4E 20 22  4E 31 24 00 71 0F A3 17  |NNT IN "N1$.q...|
00000770: 8E 00 88 0F 58 1B 99 22  93 46 49 4C 45 20 4C 4F  |....X..".FILE LO|
00000780: 45 53 43 48 45 4E 11 22  00 B8 0F 62 1B 99 22 11  |ESCHEN."...b..".|
00000790: 57 45 4C 43 48 45 53 20  46 49 4C 45 20 53 4F 4C  |WELCHES FILE SOL|
000007A0: 4C 20 47 45 4C 4F 45 53  43 48 54 20 57 45 52 44  |L GELOESCHT WERD|
000007B0: 45 4E 3F 22 3A 85 4E 24  00 E7 0F 6C 1B 99 22 11  |EN?":.N$...l..".|
000007C0: 53 4F 4C 4C 20 46 49 4C  45 20 22 4E 24 22 20 47  |SOLL FILE "N$" G|
000007D0: 45 4C 4F 45 53 43 48 54  20 57 45 52 44 45 4E 20  |ELOESCHT WERDEN |
000007E0: 3F 28 4A 2F 4E 29 22 00  F9 0F 76 1B A1 42 24 3A  |?(J/N)"...v..B$:|
000007F0: 8B 42 24 B2 22 4E 22 A7  8E 00 0B 10 80 1B 8B 42  |.B$."N"........B|
00000800: 24 B3 B1 22 4A 22 A7 37  30 33 30 00 2C 10 8A 1B  |$.."J".7030.,...|
00000810: 99 22 11 46 49 4C 45 20  22 4E 24 22 20 57 49 52  |.".FILE "N$" WIR|
00000820: 44 20 47 45 4C 4F 45 53  43 48 54 22 00 44 10 94  |D GELOESCHT".D..|
00000830: 1B 9F 32 2C 38 2C 31 35  2C 22 53 30 3A 22 AA 4E  |..2,8,15,"S0:".N|
00000840: 24 3A A0 32 00 4A 10 9E  1B 8E 00 65 10 40 1F 99  |$:.2.J.....e.@..|
00000850: 22 93 44 49 53 4B 4E 41  4D 45 4E 20 41 45 4E 44  |".DISKNAMEN AEND|
00000860: 45 52 4E 11 22 00 9D 10  45 1F 9F 31 35 2C 38 2C  |ERN."...E..15,8,|
00000870: 31 35 3A 98 31 35 2C 22  49 22 AA 44 56 24 3A 9F  |15:.15,"I".DV$:.|
00000880: 31 2C 38 2C 33 2C 22 23  22 3A 98 31 35 2C 22 55  |1,8,3,"#":.15,"U|
00000890: 31 3A 33 22 44 56 22 2C  31 38 2C 30 22 00 D4 10  |1:3"DV",18,0"...|
000008A0: 4A 1F 98 31 35 2C 22 42  2D 50 3A 33 2C 31 34 34  |J..15,"B-P:3,144|
000008B0: 22 3A 44 4E 24 B2 22 22  3A 81 4C B2 31 A4 31 36  |":DN$."":.L.1.16|
000008C0: 3A A1 23 31 2C 41 24 3A  44 4E 24 B2 44 4E 24 AA  |:.#1,A$:DN$.DN$.|
000008D0: 41 24 3A 82 00 F1 10 54  1F 99 22 44 49 53 4B 45  |A$:....T.."DISKE|
000008E0: 54 54 45 4E 4E 41 4D 45  3A 12 22 44 4E 24 22 92  |TTENNAME:."DN$".|
000008F0: 22 00 08 11 5E 1F 85 22  11 4E 45 55 45 52 20 4E  |"...^..".NEUER N|
00000900: 41 4D 45 3A 22 3B 4E 24  00 29 11 68 1F 4E 24 B2  |AME:";N$.).h.N$.|
00000910: C8 28 4E 24 AA 22 20 20  20 20 20 20 20 20 20 20  |.(N$."          |
00000920: 20 20 20 20 22 2C 31 36  29 00 57 11 72 1F 98 31  |    ",16).W.r..1|
00000930: 35 2C 22 42 2D 50 3A 33  2C 31 34 34 22 3A 98 31  |5,"B-P:3,144":.1|
00000940: 2C 4E 24 3A 98 31 35 2C  22 55 32 3A 33 22 44 56  |,N$:.15,"U2:3"DV|
00000950: 22 2C 31 38 2C 30 22 00  74 11 7C 1F 49 24 B2 22  |",18,0".t.|.I$."|
00000960: 49 22 AA CA 28 C4 28 44  56 29 2C 32 29 3A 98 31  |I"..(.(DV),2):.1|
00000970: 35 2C 49 24 00 97 11 86  1F 99 22 11 41 45 4E 44  |5,I$......".AEND|
00000980: 45 52 55 4E 47 20 45 52  46 4F 4C 47 54 22 3A A0  |ERUNG ERFOLGT":.|
00000990: 31 3A A0 31 35 3A 8E 00  B0 11 34 21 99 22 93 44  |1:.15:....4!.".D|
000009A0: 49 53 4B 20 49 44 20 41  45 4E 44 45 52 4E 11 22  |ISK ID AENDERN."|
000009B0: 00 E8 11 39 21 9F 31 35  2C 38 2C 31 35 3A 98 31  |...9!.15,8,15:.1|
000009C0: 35 2C 22 49 22 AA 44 56  24 3A 9F 31 2C 38 2C 33  |5,"I".DV$:.1,8,3|
000009D0: 2C 22 23 22 3A 98 31 35  2C 22 55 31 3A 33 22 44  |,"#":.15,"U1:3"D|
000009E0: 56 22 2C 31 38 2C 30 22  00 1C 12 3E 21 98 31 35  |V",18,0"...>!.15|
000009F0: 2C 22 42 2D 50 3A 33 2C  31 36 32 22 3A A1 23 31  |,"B-P:3,162":.#1|
00000A00: 2C 41 24 2C 42 24 2C 43  24 2C 44 24 3A 99 22 44  |,A$,B$,C$,D$:."D|
00000A10: 49 53 4B 20 49 44 3A 22  41 24 42 24 00 4D 12 48  |ISK ID:"A$B$.M.H|
00000A20: 21 85 22 4E 45 55 45 20  49 44 22 3B 49 44 24 3A  |!."NEUE ID";ID$:|
00000A30: 8B C3 28 49 44 24 29 B3  B1 34 20 A7 20 49 44 24  |..(ID$)..4 . ID$|
00000A40: B2 C8 28 49 44 24 AA 22  20 22 2C 34 29 00 7B 12  |..(ID$." ",4).{.|
00000A50: 52 21 98 31 35 2C 22 42  2D 50 3A 33 2C 31 36 32  |R!.15,"B-P:3,162|
00000A60: 22 3A 98 31 2C 49 44 24  3B 3A 98 31 35 2C 22 55  |":.1,ID$;:.15,"U|
00000A70: 32 3A 22 33 3B 30 3B 31  38 3B 30 00 85 12 FC 21  |2:"3;0;18;0....!|
00000A80: 89 38 30 36 30 00 97 12  28 23 99 22 93 44 49 52  |.8060...(#.".DIR|
00000A90: 45 43 54 4F 52 59 22 00  A9 12 32 23 99 22 C4 C4  |ECTORY"...2#."..|
00000AA0: C4 C4 C4 C4 C4 C4 C4 11  22 00 B9 12 3C 23 9F 31  |........"...<#.1|
00000AB0: 2C 38 2C 30 2C 22 24 30  22 00 C7 12 46 23 A1 23  |,8,0,"$0"...F#.#|
00000AC0: 31 2C 41 24 2C 42 24 00  D5 12 50 23 A1 23 31 2C  |1,A$,B$...P#.#1,|
00000AD0: 41 24 2C 42 24 00 E3 12  5A 23 A1 23 31 2C 41 24  |A$,B$...Z#.#1,A$|
00000AE0: 2C 42 24 00 EB 12 5F 23  43 B2 30 00 FF 12 64 23  |,B$..._#C.0...d#|
00000AF0: 8B 41 24 B3 B1 22 22 A7  43 B2 C6 28 41 24 29 00  |.A$.."".C..(A$).|
00000B00: 19 13 6E 23 8B 42 24 B3  B1 22 22 A7 43 B2 43 AA  |..n#.B$.."".C.C.|
00000B10: C6 28 42 24 29 AC 32 35  36 00 34 13 78 23 99 22  |.(B$).256.4.x#."|
00000B20: 12 22 CA 28 C4 28 43 29  2C 32 29 3B A3 35 29 3B  |.".(.(C),2);.5);|
00000B30: 22 92 22 3B 00 48 13 82  23 A1 23 31 2C 42 24 3A  |".";.H..#.#1,B$:|
00000B40: 8B 53 54 A7 39 31 38 30  00 5C 13 8C 23 8B 42 24  |.ST.9180.\..#.B$|
00000B50: B3 B1 C7 28 33 34 29 A7  39 30 39 30 00 7D 13 96  |...(34).9090.}..|
00000B60: 23 A1 23 31 2C 42 24 3A  8B 42 24 B3 B1 C7 28 33  |#.#1,B$:.B$...(3|
00000B70: 34 29 A7 99 42 24 3B 3A  89 39 31 31 30 00 97 13  |4)..B$;:.9110...|
00000B80: A0 23 A1 23 31 2C 42 24  3A 8B 42 24 B2 C7 28 33  |.#.#1,B$:.B$..(3|
00000B90: 32 29 A7 39 31 32 30 00  A8 13 AA 23 99 A3 32 33  |2).9120....#..23|
00000BA0: 29 3B 3A 43 24 B2 22 22  00 C9 13 B4 23 43 24 B2  |);:C$.""....#C$.|
00000BB0: 43 24 AA 42 24 3A A1 23  31 2C 42 24 3A 8B 42 24  |C$.B$:.#1,B$:.B$|
00000BC0: B3 B1 22 22 A7 39 31 34  30 00 D9 13 BE 23 99 22  |.."".9140....#."|
00000BD0: 12 22 C8 28 43 24 2C 33  29 00 DF 13 C8 23 8F 00  |.".(C$,3)....#..|
00000BE0: EE 13 D2 23 8B 53 54 B2  30 A7 39 30 34 30 00 07  |...#.ST.0.9040..|
00000BF0: 14 DC 23 99 22 20 42 4C  4F 43 4B 53 20 46 52 45  |..#." BLOCKS FRE|
00000C00: 45 22 3A A0 31 3A 8E 00  2D 14 10 27 8D 31 31 30  |E":.1:..-..'.110|
00000C10: 30 30 3A 99 22 11 11 11  11 41 55 46 20 57 49 45  |00:."....AUF WIE|
00000C20: 44 45 52 53 45 48 45 4E  20 21 22 3A 80 00 3D 14  |DERSEHEN !":..=.|
00000C30: F8 2A 99 22 11 53 54 41  54 55 53 3A 22 00 4C 14  |.*.".STATUS:".L.|
00000C40: 0C 2B 99 22 C4 C4 C4 C4  C4 C4 C4 22 00 67 14 16  |.+.".......".g..|
00000C50: 2B 9F 31 2C 38 2C 31 35  3A 84 31 2C 41 2C 42 24  |+.1,8,15:.1,A,B$|
00000C60: 2C 43 2C 44 3A A0 31 00  83 14 20 2B 8B 41 B2 30  |,C,D:.1... +.A.0|
00000C70: A7 99 22 11 12 4B 45 49  4E 20 46 45 48 4C 45 52  |.."..KEIN FEHLER|
00000C80: 22 3A 8E 00 9A 14 2A 2B  99 22 11 46 45 48 4C 45  |":....*+.".FEHLE|
00000C90: 52 22 41 22 28 22 42 24  29 22 00 B2 14 34 2B 99  |R"A"("B$)"...4+.|
00000CA0: 22 11 53 50 55 52 22 43  22 2C 53 45 4B 54 4F 52  |".SPUR"C",SEKTOR|
00000CB0: 22 44 00 B8 14 3E 2B 8E  00 00 8D                 |"D...>+....     |

....... "DOS USER".=.F.."..      **** DO
S USER PROGRAMM ****".J.P..".       (C) 
1984 BY WILFRIED DOHMEN.."...D..5,0:.".>
";:.5,A$:.;"._": 5...N.. INTERPRETER...X
..A$."HILFE".A$."H"..1000:.240......A$."
FORMATIEREN".A$."F"..2000:.240......A$."
INITIALISIEREN".A$."I"..3000:.240.6....A
$."VALIDATE".A$."V"..4000:.240.W. ..A$."
COPY".A$."C"..5000:.240.~....A$."UMBENEN
NEN".A$."U"..6000:.240......A$."LOESCHEN
".A$."L"..7000:.240.T....A$."DISKNAMEN A
ENDERN".A$."NAME"..8000:.240...H..A$."DI
SK-ID AENDERN".A$."ID"..8500:.240.'.R..A
$."DIRECTORY".A$."D"..9000:.240.H....A$.
"ENDE".A$."E".10000:.240.L....A$."STATUS
".A$."@"..11000:.240......"..BEFEHL '"A$
"' UNBEKANNT !":."MOEGLICHE BEFEHLE:":.1
000......100.....A.20......"BEFEHLE",,"A
BKUERZUNGEN."......"FORMATIEREN".A)"F"..
...."INITIALISIEREN".A)"I".(...."VALIDAT
E".A)"V".:...."COPY".A)"C".R.$.."UMBENEN
NEN".A)"U".T...."DISKNAMEN AENDERN".A)"N
AME"...8.."DISK-ID AENDERN".A)"ID"...B..
"DIRECTORY".A)"D"...L.."LOESCHEN".A)"L".
Q.V.."ENDE".A)"E"...`.."STATUS".A)"@"...
J.."HILFE".A)"H"...T.....P..".DISK FORMA
TIEREN.".=.Z..".NAME DER DISKETTE,ID":.N
$,ID$.A....2,8,15:."DISK WIRD FORMATIERT
".....ID$.""..2,"N0:".N$:.2050......2,"
N0:".N$.",".ID$..... 2:.".DISK IST FORMA
TIERT":..Y....".DISK WIRD INITIALISIERT.
"...B..2,8,15,"I0": 2...L..".DISK IST IN
ITIALISIERT"...M.:..8. ..".VALIDATE WIRD
 DURCHGEFUEHRT.".L....2,8,15,"V0": 2.Q..
..".VALIDATE IST DURCHGEFUEHRT":......."
.FILE KOPIEREN.".A....".WELCHES FILE SOL
L VERVIELFAELTIGT       WERDEN ?".Q...."
.NAME";N$......".UNTER WELCHEM NAMEN SOL
L DAS NEUE FILE  GESPEICHERT WERDEN?"...
...N1$.=....".FILE "N$" WIRD KOPIERT".].
D..2,8,15,"C0:".N1$."=".N$: 2.}.N..".FIL
E "N$" IST KOPIERT":....P..".UMBENENNEN 
EINES FILES.".N.Z..".WELCHES FILE SOLL U
MBENANNT WERDEN ?":.N$......".WELCHEN NA
MEN SOLL ES BEKOMMEN ?":.N1$.$....".FILE
 "N$" WIRD UMBENANNT IN "N1$.D....2,8,15
,"R0:".N1$."=".N$: 2.K....".FILE "N$" IS
T UMBENANNT IN "N1$.Q.......X..".FILE LO
ESCHEN."...B..".WELCHES FILE SOLL GELOES
CHT WERDEN?":.N$...L..".SOLL FILE "N$" G
ELOESCHT WERDEN ?(J/N)"...V..B$:.B$."N".
.......B$.."J".7030.,....".FILE "N$" WIR
D GELOESCHT".D....2,8,15,"S0:".N$: 2.J..
...E.@..".DISKNAMEN AENDERN."...E..15,8,
15:.15,"I".DV$:.1,8,3,"#":.15,"U1:3"DV",
18,0".T.J..15,"B-P:3,144":DN$."":.L.1.16
:.#1,A$:DN$.DN$.A$:....T.."DISKETTENNAME
:."DN$"."...^..".NEUER NAME:";N$.).H.N$.
H(N$."              ",16).W.R..15,"B-P:3
,144":.1,N$:.15,"U2:3"DV",18,0".T.|.I$."
I".J(D(DV),2):.15,I$......".AENDERUNG ER
FOLGT": 1: 15:....4!.".DISK ID AENDERN."
...9!.15,8,15:.15,"I".DV$:.1,8,3,"#":.15
,"U1:3"DV",18,0"...>!.15,"B-P:3,162":.#1
,A$,B$,C$,D$:."DISK ID:"A$B$.M.H!."NEUE 
ID";ID$:.C(ID$)..4 . ID$.H(ID$." ",4).{.
R!.15,"B-P:3,162":.1,ID$;:.15,"U2:"3;0;1
8;0....!.8060...(#.".DIRECTORY"...2#."DD
DDDDDDD."...<#.1,8,0,"$0".G.F#.#1,A$,B$.
U.P#.#1,A$,B$...Z#.#1,A$,B$..._#C.0...D#
.A$.."".C.F(A$)...N#.B$.."".C.C.F(B$).25
6.4.X#."."J(D(C),2);.5);".";.H..#.#1,B$:
.ST.9180.\..#.B$..G(34).9090.}..#.#1,B$:
.B$..G(34)..B$;:.9110... #.#1,B$:.B$.G(3
2).9120....#..23);:C$."".I..#C$.C$.B$:.#
1,B$:.B$.."".9140.Y..#."."H(C$,3)...H#..
..R#.ST.0.9040....#." BLOCKS FREE": 1:..
-..'.11000:."....AUF WIEDERSEHEN !":..=.
.*.".STATUS:".L..+."DDDDDDD".G..+.1,8,15
:.1,A,B$,C,D: 1... +.A.0.."..KEIN FEHLER
":....*+.".FEHLER"A"("B$)"...4+.".SPUR"C
",SEKTOR"D...>+....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL