DISK KOPIE 4040

00000000: 01 08 1E 08 64 00 8F 20  55 50 44 41 54 45 44 20  |....d.. UPDATED |
00000010: 31 2E 31 2E 38 31 20 28  44 43 36 54 4A 29 00 44  |1.1.81 (DC6TJ).D|
00000020: 08 6E 00 99 22 93 11 22  A3 38 29 22 12 20 44 49  |.n.."..".8)". DI|
00000030: 53 4B 45 54 54 45 4E 20  4B 4F 50 49 45 52 45 52  |SKETTEN KOPIERER|
00000040: 20 22 3A 99 00 62 08 78  00 99 22 4C 45 47 45 20  | ":..b.x.."LEGE |
00000050: 44 49 45 20 44 49 53 4B  45 54 54 45 4E 20 45 49  |DIE DISKETTEN EI|
00000060: 4E 11 00 84 08 82 00 44  4E B2 38 3A 44 4E 24 B2  |N......DN.8:DN$.|
00000070: C9 28 C4 28 44 4E 29 2C  31 29 3A 9F 31 35 2C 44  |.(.(DN),1):.15,D|
00000080: 4E 2C 31 35 00 AB 08 8C  00 85 22 5A 49 45 4C 2D  |N,15......"ZIEL-|
00000090: 4C 41 55 46 57 45 52 4B  20 4E 55 4D 4D 45 52 20  |LAUFWERK NUMMER |
000000A0: 20 A0 A0 A0 9D 9D 9D 22  3B 44 44 00 CF 08 96 00  | ......";DD.....|
000000B0: 44 44 24 B2 C9 28 C4 28  44 44 29 2C 31 29 3A 53  |DD$..(.(DD),1):S|
000000C0: 44 24 B2 C9 28 C4 28 31  AB 44 44 29 2C 31 29 00  |D$..(.(1.DD),1).|
000000D0: E7 08 A0 00 43 43 24 B2  22 49 22 AA 53 44 24 3A  |....CC$."I".SD$:|
000000E0: 98 31 35 2C 43 43 24 00  21 09 AA 00 99 22 11 44  |.15,CC$.!....".D|
000000F0: 49 53 4B 20 22 44 44 24  3B 3A 85 22 20 46 4F 52  |ISK "DD$;:." FOR|
00000100: 4D 41 54 49 45 52 45 4E  20 20 20 20 20 4E 9D 9D  |MATIEREN     N..|
00000110: 9D 22 3B 53 24 3A 8B 53  24 B2 22 4A 22 A7 31 39  |.";S$:.S$."J".19|
00000120: 30 00 43 09 B4 00 8D 37  34 30 3A 43 43 24 B2 22  |0.C....740:CC$."|
00000130: 49 22 AA 44 44 24 3A 98  31 35 2C 43 43 24 3A 89  |I".DD$:.15,CC$:.|
00000140: 32 33 30 00 72 09 BE 00  99 3A 85 22 44 49 53 4B  |230.r....:."DISK|
00000150: 20 4E 41 4D 45 A0 A0 A0  9D 9D 9D 22 3B 4E 24 3A  | NAME......";N$:|
00000160: 8B 4E 24 B2 22 A0 22 A7  99 22 91 22 3B 3A 89 31  |.N$."."..".";:.1|
00000170: 39 30 00 B1 09 C8 00 99  3A 85 22 49 44 A0 28 46  |90......:."ID.(F|
00000180: 55 45 52 20 46 4F 52 4D  41 54 49 45 52 55 4E 47  |UER FORMATIERUNG|
00000190: 29 A0 A0 A0 9D 9D 9D 22  3B 49 44 24 3A 8B 49 44  |)......";ID$:.ID|
000001A0: 24 B2 22 A0 22 A7 49 44  24 B2 22 22 3A 89 32 32  |$.".".ID$."":.22|
000001B0: 30 00 C6 09 D2 00 49 44  24 B2 22 2C 22 AA C8 28  |0.....ID$.","..(|
000001C0: 49 44 24 2C 32 29 00 EF  09 DC 00 8D 37 34 30 3A  |ID$,2)......740:|
000001D0: 43 43 24 B2 22 4E 20 22  AA 44 44 24 AA 22 3A 22  |CC$."N ".DD$.":"|
000001E0: AA 4E 24 AA 49 44 24 3A  98 31 35 2C 43 43 24 00  |.N$.ID$:.15,CC$.|
000001F0: 2F 0A E6 00 99 22 11 55  4E 47 45 46 41 45 48 52  |/....".UNGEFAEHR|
00000200: 45 20 41 4E 5A 41 48 4C  20 44 45 52 20 54 49 54  |E ANZAHL DER TIT|
00000210: 45 4C 20 41 55 46 20 22  53 44 24 3B 3A 85 22 20  |EL AUF "SD$;:." |
00000220: A0 A0 31 35 30 9D 9D 9D  9D 9D 22 3B 44 53 24 00  |..150.....";DS$.|
00000230: 4A 0A F0 00 44 53 B2 C5  28 44 53 24 29 3A 8B 44  |J...DS..(DS$):.D|
00000240: 53 B2 30 A7 44 53 B2 31  35 30 00 56 0A FA 00 86  |S.0.DS.150.V....|
00000250: 44 24 28 44 53 29 00 7E  0A 04 01 85 22 11 41 4C  |D$(DS).~....".AL|
00000260: 50 48 41 42 45 54 49 53  43 48 20 53 4F 52 54 49  |PHABETISCH SORTI|
00000270: 45 52 45 4E 20 20 4E 9D  9D 9D 22 3B 53 24 00 A3  |EREN  N...";S$..|
00000280: 0A 0E 01 85 22 11 53 45  4C 45 4B 54 49 45 52 54  |....".SELEKTIERT|
00000290: 20 4B 4F 50 49 45 52 45  4E 20 20 4E 9D 9D 9D 22  | KOPIEREN  N..."|
000002A0: 3B 50 24 00 BC 0A 18 01  8B 50 24 B3 B1 22 4A 22  |;P$......P$.."J"|
000002B0: A7 50 24 B2 22 2A 22 3A  89 33 31 30 00 EE 0A 22  |.P$."*":.310..."|
000002C0: 01 85 22 11 12 5A 45 49  43 48 45 4E 46 4F 4C 47  |.."..ZEICHENFOLG|
000002D0: 45 92 20 28 53 49 45 48  45 20 33 30 34 30 20 41  |E. (SIEHE 3040 A|
000002E0: 4E 4C 2E 29 A0 A0 A0 9D  9D 9D 22 3B 50 24 00 01  |NL.)......";P$..|
000002F0: 0B 2C 01 8B 50 24 B2 22  A0 22 A7 50 24 B2 22 2A  |.,..P$.".".P$."*|
00000300: 22 00 26 0B 36 01 99 22  11 20 20 20 20 20 12 4B  |".&.6..".     .K|
00000310: 92 4F 50 49 45 52 45 20  41 4C 4C 45 53 20 56 4F  |.OPIERE ALLES VO|
00000320: 4E 20 22 53 44 24 00 54  0B 40 01 85 22 11 4F 44  |N "SD$.T.@..".OD|
00000330: 45 52 20 12 46 92 52 41  47 45 20 56 4F 52 20 4A  |ER .F.RAGE VOR J|
00000340: 45 44 45 52 20 4B 4F 50  49 45 A0 A0 4B 9D 9D 9D  |EDER KOPIE..K...|
00000350: 22 3B 51 24 00 5D 0B 4A  01 8D 37 34 30 00 72 0B  |";Q$.].J..740.r.|
00000360: 54 01 81 4C B2 30 A4 31  30 30 30 3A 82 3A 8D 34  |T..L.0.1000:.:.4|
00000370: 36 30 00 7B 0B 5E 01 8D  33 38 30 00 A0 0B 68 01  |60.{.^..380...h.|
00000380: 99 22 11 4B 4F 50 49 45  20 46 45 52 54 49 47 20  |.".KOPIE FERTIG |
00000390: 21 21 11 22 3A 81 4C B2  30 A4 34 30 30 30 3A 82  |!!.":.L.0.4000:.|
000003A0: 00 CE 0B 72 01 4B B2 30  3A 44 53 B2 31 35 30 3A  |...r.K.0:DS.150:|
000003B0: 50 24 B2 22 2A 22 3A 53  44 24 B2 44 44 24 3A 8D  |P$."*":SD$.DD$:.|
000003C0: 34 36 30 3A 99 22 91 91  91 91 91 22 3A 80 00 DB  |460:.".....":...|
000003D0: 0B 7C 01 81 49 B2 31 A4  4B AB 31 00 17 0C 86 01  |.|..I.1.K.1.....|
000003E0: 99 3A 49 4E 24 B2 22 4A  22 3A 8B 51 24 B2 22 46  |.:IN$."J":.Q$."F|
000003F0: 22 A7 99 22 91 4B 4F 50  49 45 52 45 4E 3A 20 12  |"..".KOPIEREN: .|
00000400: 22 44 24 28 49 29 22 92  22 3A 85 22 A0 20 4A 9D  |"D$(I)".":.". J.|
00000410: 9D 9D 22 3B 49 4E 24 00  2F 0C 90 01 99 22 91 91  |..";IN$./...."..|
00000420: 22 3A 8B 49 4E 24 B3 B1  22 4A 22 A7 82 3A 8E 00  |":.IN$.."J"..:..|
00000430: 5C 0C 9A 01 43 43 24 B2  22 43 20 22 AA 44 44 24  |\...CC$."C ".DD$|
00000440: AA 22 3A 22 AA 44 24 28  49 29 AA 22 3D 22 AA 53  |.":".D$(I)."=".S|
00000450: 44 24 AA 22 3A 22 AA 44  24 28 49 29 00 6D 0C A4  |D$.":".D$(I).m..|
00000460: 01 98 31 35 2C 43 43 24  3A 8D 37 34 30 00 84 0C  |..15,CC$:.740...|
00000470: AE 01 8B 45 4E B1 32 39  20 B0 20 45 4E B2 30 A7  |...EN.29 . EN.0.|
00000480: 20 82 3A 8E 00 BB 0C B8  01 98 31 35 2C 22 4D 2D  | .:.......15,"M-|
00000490: 57 22 C7 28 34 31 29 C7  28 30 29 C7 28 31 29 C7  |W".(41).(0).(1).|
000004A0: 28 44 44 AA 36 36 29 3A  8F 20 50 41 54 43 48 20  |(DD.66):. PATCH |
000004B0: 46 4F 52 20 53 43 52 41  54 43 48 00 E7 0C C2 01  |FOR SCRATCH.....|
000004C0: 43 43 24 B2 22 53 20 22  AA 44 44 24 AA 22 3A 22  |CC$."S ".DD$.":"|
000004D0: AA 44 24 28 49 29 3A 98  31 35 2C 43 43 24 3A 8D  |.D$(I):.15,CC$:.|
000004E0: 37 34 30 3A 82 3A 8E 00  FC 0C CC 01 8F 20 52 45  |740:.:....... RE|
000004F0: 41 44 20 44 49 52 45 43  54 4F 52 59 00 04 0D D6  |AD DIRECTORY....|
00000500: 01 4B B2 31 00 35 0D E0  01 98 31 35 2C 22 4D 2D  |.K.1.5....15,"M-|
00000510: 45 22 C7 28 32 31 32 29  C7 28 32 33 37 29 3A 8F  |E".(212).(237):.|
00000520: 20 44 49 52 45 43 54 4F  52 59 20 4C 4F 41 44 20  | DIRECTORY LOAD |
00000530: 50 41 54 43 48 00 69 0D  EA 01 99 20 22 93 11 20  |PATCH.i.... ".. |
00000540: 20 20 20 20 20 20 20 12  20 49 4E 48 41 4C 54 53  |       . INHALTS|
00000550: 56 45 52 5A 45 49 43 48  4E 49 53 20 22 53 44 24  |VERZEICHNIS "SD$|
00000560: 20 22 11 22 3A 42 B2 33  30 00 8D 0D F4 01 43 43  | ".":B.30.....CC|
00000570: 24 B2 22 24 22 AA 53 44  24 AA 22 3A 22 AA 50 24  |$."$".SD$.":".P$|
00000580: 3A 9F 20 32 2C 44 4E 2C  30 2C 43 43 24 00 B9 0D  |:. 2,DN,0,CC$...|
00000590: FE 01 43 43 24 B2 22 4F  50 45 4E 20 32 2C 22 AA  |..CC$."OPEN 2,".|
000005A0: 44 4E 24 AA 22 2C 30 2C  22 AA C7 28 33 34 29 AA  |DN$.",0,"..(34).|
000005B0: 43 43 24 AA C7 28 33 34  29 00 C4 0D 08 02 8D 37  |CC$..(34)......7|
000005C0: 34 30 3A 99 00 DE 0D 12  02 A1 23 32 2C 41 24 20  |40:.......#2,A$ |
000005D0: 3A A1 23 32 2C 41 24 20  3A 49 24 B2 22 22 00 ED  |:.#2,A$ :I$.""..|
000005E0: 0D 1C 02 8B 53 54 B3 B1  30 89 36 37 30 00 01 0E  |....ST..0.670...|
000005F0: 26 02 81 20 41 B2 31 A4  42 20 3A A1 23 32 2C 41  |&.. A.1.B :.#2,A|
00000600: 24 00 17 0E 30 02 8B 20  41 24 B2 22 22 20 A7 20  |$...0.. A$."" . |
00000610: 41 24 B2 C7 28 30 29 00  33 0E 3A 02 49 24 B2 49  |A$..(0).3.:.I$.I|
00000620: 24 AA 41 24 20 3A 82 20  3A 49 24 B2 49 24 AA 22  |$.A$ :. :I$.I$."|
00000630: 20 20 22 00 47 0E 44 02  42 51 B2 C6 28 CA 28 49  |  ".G.D.BQ..(.(I|
00000640: 24 2C 33 2C 31 29 29 00  62 0E 4E 02 42 51 B2 42  |$,3,1)).b.N.BQ.B|
00000650: 51 AA C6 28 CA 28 49 24  2C 34 2C 31 29 29 AC 32  |Q..(.(I$,4,1)).2|
00000660: 35 36 00 76 0E 58 02 99  20 42 51 3B CA 28 49 24  |56.v.X.. BQ;.(I$|
00000670: 2C 35 2C 32 37 29 00 84  0E 62 02 8B 42 B2 33 30  |,5,27)...b..B.30|
00000680: A7 36 36 30 00 A9 0E 6C  02 81 49 B2 36 A4 32 37  |.660...l..I.6.27|
00000690: 3A 8B CA 28 49 24 2C 49  2C 31 29 B3 B1 C7 28 33  |:..(I$,I,1)...(3|
000006A0: 34 29 A7 82 3A 89 36 36  30 00 DB 0E 76 02 81 4A  |4)..:.660...v..J|
000006B0: B2 49 AA 31 A4 32 37 3A  8B CA 28 49 24 2C 4A 2C  |.I.1.27:..(I$,J,|
000006C0: 31 29 B3 B1 C7 28 33 34  29 A7 44 24 B2 44 24 AA  |1)...(34).D$.D$.|
000006D0: CA 28 49 24 2C 4A 2C 31  29 3A 82 00 F1 0E 80 02  |.(I$,J,1):......|
000006E0: 8B 53 24 B2 22 4A 22 A7  8D 36 39 30 3A 89 36 36  |.S$."J"..690:.66|
000006F0: 30 00 04 0F 8A 02 44 24  28 4B 29 B2 44 24 3A 4B  |0.....D$(K).D$:K|
00000700: B2 4B AA 31 00 26 0F 94  02 44 24 B2 22 22 3A 49  |.K.1.&...D$."":I|
00000710: 24 B2 22 22 3A 42 B2 33  32 3A 8B 41 24 B3 B1 22  |$."":B.32:.A$.."|
00000720: 53 22 89 35 34 30 00 4F  0F 9E 02 99 3A 43 43 24  |S".540.O....:CC$|
00000730: B2 22 4C 45 53 45 20 49  4E 48 41 4C 54 53 56 45  |."LESE INHALTSVE|
00000740: 52 5A 45 49 43 48 4E 49  53 22 3A 8D 37 34 30 00  |RZEICHNIS":.740.|
00000750: 77 0F A8 02 43 43 24 B2  22 53 43 48 4C 49 45 53  |w...CC$."SCHLIES|
00000760: 53 45 20 32 22 3A 20 A0  20 32 3A 8D 37 34 30 3A  |SE 2": . 2:.740:|
00000770: 99 22 11 11 22 3A 8E 00  8C 0F B2 02 8F 20 53 4F  |."..":....... SO|
00000780: 52 54 20 44 49 52 45 43  54 4F 52 59 00 9E 0F BC  |RT DIRECTORY....|
00000790: 02 8B 4B B2 31 A7 4A B2  30 3A 89 37 33 30 00 B1  |..K.1.J.0:.730..|
000007A0: 0F C6 02 8B 4B B2 30 A7  4A B2 AB 31 3A 89 37 33  |....K.0.J..1:.73|
000007B0: 30 00 DB 0F D0 02 81 4A  B2 4B AB 31 A4 31 A9 AB  |0......J.K.1.1..|
000007C0: 31 3A 8B 44 24 B3 44 24  28 4A 29 A7 44 24 28 4A  |1:.D$.D$(J).D$(J|
000007D0: AA 31 29 B2 44 24 28 4A  29 3A 82 00 F2 0F DA 02  |.1).D$(J):......|
000007E0: 44 24 28 4A AA 31 29 B2  44 24 3A 4B B2 4B AA 31  |D$(J.1).D$:K.K.1|
000007F0: 3A 8E 00 11 10 E4 02 8F  20 49 4E 50 55 54 20 46  |:....... INPUT F|
00000800: 52 4F 4D 20 45 52 52 4F  52 20 43 48 41 4E 4E 45  |ROM ERROR CHANNE|
00000810: 4C 00 28 10 EE 02 84 31  35 2C 45 4E 2C 45 4D 24  |L.(....15,EN,EM$|
00000820: 2C 45 54 24 2C 45 53 24  00 4A 10 F8 02 8B 45 4E  |,ET$,ES$.J....EN|
00000830: B2 30 A7 99 22 12 22 43  43 24 22 92 20 C3 3E 20  |.0.."."CC$". .> |
00000840: 22 A3 31 35 29 45 4D 24  3A 8E 00 75 10 02 03 8B  |".15)EM$:..u....|
00000850: 45 4E B2 31 A7 99 22 12  22 43 43 24 22 92 20 C3  |EN.1.."."CC$". .|
00000860: 3E 20 22 A3 31 35 29 22  12 22 45 54 24 22 92 22  |> ".15)"."ET$"."|
00000870: 45 4D 24 3A 8E 00 9B 10  0C 03 99 22 11 12 22 43  |EM$:.......".."C|
00000880: 43 24 3A 99 22 92 20 C3  3E 20 45 52 52 4F 52 20  |C$:.". .> ERROR |
00000890: 23 22 45 4E 22 12 22 45  4D 24 3B 00 B8 10 16 03  |#"EN"."EM$;.....|
000008A0: 8B 45 4E B3 33 30 A7 99  22 20 4F 4E 20 22 45 54  |.EN.30.." ON "ET|
000008B0: 24 22 2E 22 45 53 24 3B  00 C1 10 20 03 99 22 11  |$"."ES$;... ..".|
000008C0: 22 00 E5 10 2A 03 85 22  57 45 49 54 45 52 20 A0  |"...*.."WEITER .|
000008D0: A0 4E 9D 9D 9D 22 3B 49  4E 24 3A 8B 49 4E 24 B2  |.N...";IN$:.IN$.|
000008E0: 22 4A 22 A7 8E 00 F7 10  34 03 8B 49 4E 24 B3 B1  |"J".....4..IN$..|
000008F0: 22 4E 22 89 38 31 30 00  FD 10 3E 03 80 00 00 00  |"N".810...>.....|
00000900: FE 93                                             |..              |

....D.. UPDATED 1.1.81 (DC6TJ).D.N..".."
.8)". DISKETTEN KOPIERER ":..B.X.."LEGE 
DIE DISKETTEN EIN......DN.8:DN$.I(D(DN),
1):.15,DN,15......"ZIEL-LAUFWERK NUMMER 
    ...";DD.O...DD$.I(D(DD),1):SD$.I(D(1
.DD),1)... .CC$."I".SD$:.15,CC$.!....".D
ISK "DD$;:." FORMATIEREN     N...";S$:.S
$."J".190.C....740:CC$."I".DD$:.15,CC$:.
230.R....:."DISK NAME   ...";N$:.N$." ".
.".";:.190...H..:."ID (FUER FORMATIERUNG
)   ...";ID$:.ID$." ".ID$."":.220.F.R.ID
$.",".H(ID$,2)......740:CC$."N ".DD$.":"
.N$.ID$:.15,CC$./....".UNGEFAEHRE ANZAHL
 DER TITEL AUF "SD$;:."   150.....";DS$.
J...DS.E(DS$):.DS.0.DS.150.V....D$(DS).~
....".ALPHABETISCH SORTIEREN  N...";S$..
....".SELEKTIERT KOPIEREN  N...";P$.....
.P$.."J".P$."*":.310...".."..ZEICHENFOLG
E. (SIEHE 3040 ANL.)   ...";P$...,..P$."
 ".P$."*".&.6..".     .K.OPIERE ALLES VO
N "SD$.T.@..".ODER .F.RAGE VOR JEDER KOP
IE  K...";Q$.].J..740.R.T..L.0.1000:.:.4
60.{.^..380. .H..".KOPIE FERTIG !!.":.L.
0.4000:..N.R.K.0:DS.150:P$."*":SD$.DD$:.
460:.".....":....|..I.1.K.1......:IN$."J
":.Q$."F"..".KOPIEREN: ."D$(I)".":."  J.
..";IN$./...."..":.IN$.."J"..:..\...CC$.
"C ".DD$.":".D$(I)."=".SD$.":".D$(I).M..
..15,CC$:.740......EN.29 . EN.0. .:.....
..15,"M-W"G(41)G(0)G(1)G(DD.66):. PATCH 
FOR SCRATCH...B.CC$."S ".DD$.":".D$(I):.
15,CC$:.740:.:....L.. READ DIRECTORY...V
.K.1.5....15,"M-E"G(212)G(237):. DIRECTO
RY LOAD PATCH.I.... "..        . INHALTS
VERZEICHNIS "SD$ ".":B.30.....CC$."$".SD
$.":".P$:. 2,DN,0,CC$.....CC$."OPEN 2,".
DN$.",0,".G(34).CC$.G(34).D....740:.....
..#2,A$ :.#2,A$ :I$.""......ST..0.670...
&.. A.1.B :.#2,A$...0.. A$."" . A$.G(0).
3.:.I$.I$.A$ :. :I$.I$."  ".G.D.BQ.F(J(I
$,3,1)).B.N.BQ.BQ.F(J(I$,4,1)).256.V.X..
 BQ;J(I$,5,27)...B..B.30.660...L..I.6.27
:.J(I$,I,1)..G(34)..:.660...V..J.I.1.27:
.J(I$,J,1)..G(34).D$.D$.J(I$,J,1):......
.S$."J"..690:.660.....D$(K).D$:K.K.1.&..
.D$."":I$."":B.32:.A$.."S".540.O....:CC$
."LESE INHALTSVERZEICHNIS":.740.W...CC$.
"SCHLIESSE 2":   2:.740:."..":....... SO
RT DIRECTORY......K.1.J.0:.730...F..K.0.
J..1:.730...P..J.K.1.1..1:.D$.D$(J).D$(J
.1).D$(J):....Z.D$(J.1).D$:K.K.1:.......
 INPUT FROM ERROR CHANNEL.(....15,EN,EM$
,ET$,ES$.J....EN.0.."."CC$". C> ".15)EM$
:..U....EN.1.."."CC$". C> ".15)"."ET$"."
EM$:.......".."CC$:.". C> ERROR #"EN"."E
M$;......EN.30.." ON "ET$"."ES$;.A. ..".
"...*.."WEITER   N...";IN$:.IN$."J".....
4..IN$.."N".810...>.......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL