DOPPELCOPY

00000000: 01 08 16 08 02 00 8F 20  53 41 56 45 22 40 30 3A  |....... SAVE"@0:|
00000010: 4B 2B 4C 22 2C 38 00 3C  08 03 00 8F 20 4C 45 54  |K+L",8.<.... LET|
00000020: 5A 54 45 52 20 53 54 41  4E 44 20 20 39 2E 32 2E  |ZTER STAND  9.2.|
00000030: 38 30 3A 56 45 52 53 49  4F 4E 20 31 00 5E 08 04  |80:VERSION 1.^..|
00000040: 00 99 22 93 11 11 12 4B  4F 50 49 45 52 45 4E 20  |.."....KOPIEREN |
00000050: 4F 44 45 52 20 4C 4F 45  53 43 48 45 4E 22 00 7E  |ODER LOESCHEN".~|
00000060: 08 05 00 99 22 11 11 56  4F 4E 20 44 49 53 4B 45  |...."..VON DISKE|
00000070: 54 54 45 4E 20 46 49 4C  45 53 11 11 11 22 00 AE  |TTEN FILES..."..|
00000080: 08 06 00 99 22 42 45 49  44 45 20 44 49 53 4B 45  |...."BEIDE DISKE|
00000090: 54 54 45 4E 20 49 4E 20  4C 41 55 46 57 45 52 4B  |TTEN IN LAUFWERK|
000000A0: 45 20 53 54 45 43 4B 45  4E 11 11 20 20 22 00 D0  |E STECKEN..  "..|
000000B0: 08 0A 00 44 4E B2 38 3A  44 4E 24 B2 C9 28 C4 28  |...DN.8:DN$..(.(|
000000C0: 44 4E 29 2C 31 29 3A 9F  31 35 2C 44 4E 2C 31 35  |DN),1):.15,DN,15|
000000D0: 00 FC 08 0E 00 99 22 4C  41 55 46 57 45 52 4B 20  |......"LAUFWERK |
000000E0: 4E 52 2E 20 44 45 52 20  44 49 53 4B 45 54 54 45  |NR. DER DISKETTE|
000000F0: 20 45 49 4E 47 45 42 45  4E 11 11 22 00 23 09 0F  | EINGEBEN..".#..|
00000100: 00 85 22 41 55 46 20 44  49 45 20 4B 4F 50 49 45  |.."AUF DIE KOPIE|
00000110: 52 54 20 57 45 52 44 45  4E 20 53 4F 4C 4C A0 22  |RT WERDEN SOLL."|
00000120: 3B 44 44 00 47 09 10 00  44 44 24 B2 C9 28 C4 28  |;DD.G...DD$..(.(|
00000130: 44 44 29 2C 31 29 3A 53  44 24 B2 C9 28 C4 28 31  |DD),1):SD$..(.(1|
00000140: AB 44 44 29 2C 31 29 00  5F 09 12 00 43 43 24 B2  |.DD),1)._...CC$.|
00000150: 22 49 22 AA 53 44 24 3A  98 31 35 2C 43 43 24 00  |"I".SD$:.15,CC$.|
00000160: 88 09 14 00 99 22 11 11  11 11 49 53 54 20 46 4F  |....."....IST FO|
00000170: 52 4D 41 54 49 45 52 45  4E 20 45 52 46 4F 52 44  |RMATIEREN ERFORD|
00000180: 45 52 4C 49 43 48 20 22  00 A5 09 15 00 99 22 11  |ERLICH "......".|
00000190: 42 45 49 20 20 44 49 53  4B 45 54 54 45 20 20 20  |BEI  DISKETTE   |
000001A0: 22 44 44 24 3B 00 C1 09  16 00 85 22 20 20 4E 9D  |"DD$;......"  N.|
000001B0: 9D 9D 22 3B 53 24 3A 8B  53 24 B2 22 4A 22 A7 33  |..";S$:.S$."J".3|
000001C0: 30 00 E2 09 19 00 8D 39  30 30 3A 43 43 24 B2 22  |0......900:CC$."|
000001D0: 49 22 AA 44 44 24 3A 98  31 35 2C 43 43 24 3A 89  |I".DD$:.15,CC$:.|
000001E0: 34 32 00 0E 0A 1E 00 85  22 44 49 53 4B 20 4E 41  |42......"DISK NA|
000001F0: 4D 45 A0 A0 A0 9D 9D 9D  22 3B 4E 24 3A 8B 4E 24  |ME......";N$:.N$|
00000200: B2 22 A0 22 A7 99 22 91  22 3B 3A 89 33 30 00 45  |."."..".";:.30.E|
00000210: 0A 20 00 85 22 49 44 A0  28 46 55 45 52 20 46 4F  |. .."ID.(FUER FO|
00000220: 52 4D 41 54 49 45 52 55  4E 47 29 20 22 3B 49 44  |RMATIERUNG) ";ID|
00000230: 24 3A 8B 49 44 24 B2 22  A0 22 A7 49 44 24 B2 22  |$:.ID$.".".ID$."|
00000240: 22 3A 89 33 36 00 5A 0A  22 00 49 44 24 B2 22 2C  |":.36.Z.".ID$.",|
00000250: 22 AA C8 28 49 44 24 2C  32 29 00 83 0A 24 00 8D  |"..(ID$,2)...$..|
00000260: 39 30 30 3A 43 43 24 B2  22 4E 20 22 AA 44 44 24  |900:CC$."N ".DD$|
00000270: AA 22 3A 22 AA 4E 24 AA  49 44 24 3A 98 31 35 2C  |.":".N$.ID$:.15,|
00000280: 43 43 24 00 90 0A 2A 00  86 44 24 28 32 34 30 29  |CC$...*..D$(240)|
00000290: 00 AD 0A 32 00 99 22 93  11 53 4F 4C 4C 20 44 41  |...2.."..SOLL DA|
000002A0: 53 20 56 45 52 5A 45 49  43 48 4E 49 53 00 DE 0A  |S VERZEICHNIS...|
000002B0: 33 00 85 22 11 41 4C 50  48 41 42 45 54 48 49 53  |3..".ALPHABETHIS|
000002C0: 43 48 20 47 45 4F 52 44  4E 45 54 20 57 45 52 44  |CH GEORDNET WERD|
000002D0: 45 4E 20 20 20 20 4A 9D  9D 9D 22 3B 53 24 00 F9  |EN    J...";S$..|
000002E0: 0A 3D 00 50 24 B2 22 4E  22 3A 8B 50 24 B3 B1 22  |.=.P$."N":.P$.."|
000002F0: 4A 22 A7 50 24 B2 22 2A  22 00 2A 0B 41 00 8F 49  |J".P$."*".*.A..I|
00000300: 4E 50 55 54 22 11 12 50  41 54 54 45 52 4E 92 20  |NPUT"..PATTERN. |
00000310: 28 55 53 45 20 32 30 34  30 20 52 55 4C 45 53 29  |(USE 2040 RULES)|
00000320: A0 A0 A0 9D 9D 9D 22 3B  50 24 00 42 0B 42 00 8F  |......";P$.B.B..|
00000330: 49 46 50 24 3D 22 A0 22  54 48 45 4E 50 24 3D 22  |IFP$="."THENP$="|
00000340: 2A 22 00 70 0B 46 00 99  22 11 11 43 20 3D 20 4B  |*".p.F.."..C = K|
00000350: 4F 50 49 45 52 45 4E 20  41 4C 4C 45 52 20 46 49  |OPIEREN ALLER FI|
00000360: 4C 45 53 20 56 4F 4E 20  20 4C 57 20 22 53 44 24  |LES VON  LW "SD$|
00000370: 00 9E 0B 47 00 99 22 11  11 51 20 3D 20 4B 4F 50  |...G.."..Q = KOP|
00000380: 49 45 52 45 4E 20 42 45  53 54 49 4D 4D 54 45 52  |IEREN BESTIMMTER|
00000390: 20 46 49 4C 45 53 20 4C  57 20 22 53 44 24 00 CC  | FILES LW "SD$..|
000003A0: 0B 48 00 99 22 11 11 4C  20 3D 20 4C 4F 45 53 43  |.H.."..L = LOESC|
000003B0: 48 45 4E 20 42 45 53 54  49 4D 4D 54 45 52 20 46  |HEN BESTIMMTER F|
000003C0: 49 4C 45 53 20 4C 57 20  22 44 44 24 00 FB 0B 50  |ILES LW "DD$...P|
000003D0: 00 85 22 11 11 20 20 20  20 42 55 43 48 53 54 41  |.."..    BUCHSTA|
000003E0: 42 45 4E 20 45 49 4E 47  45 42 45 4E 20 20 20 20  |BEN EINGEBEN    |
000003F0: 20 20 20 51 9D 9D 9D 22  3B 51 24 00 04 0C 5A 00  |   Q...";Q$...Z.|
00000400: 8D 39 30 30 00 19 0C 64  00 81 4C B2 30 A4 31 30  |.900...d..L.0.10|
00000410: 30 30 3A 82 3A 8D 35 30  30 00 22 0C 6E 00 8D 32  |00:.:.500.".n..2|
00000420: 30 30 00 53 0C 73 00 8B  51 24 B2 22 43 22 A7 20  |00.S.s..Q$."C". |
00000430: 99 22 11 4B 4F 50 49 45  52 45 4E 20 42 45 45 4E  |.".KOPIEREN BEEN|
00000440: 44 45 54 20 21 11 22 3A  81 4C B2 30 A4 34 30 30  |DET !.":.L.0.400|
00000450: 30 3A 82 00 84 0C 74 00  8B 51 24 B2 22 51 22 A7  |0:....t..Q$."Q".|
00000460: 20 99 22 11 4B 4F 50 49  45 52 45 4E 20 42 45 45  | .".KOPIEREN BEE|
00000470: 4E 44 45 54 20 21 11 22  3A 81 4C B2 30 A4 34 30  |NDET !.":.L.0.40|
00000480: 30 30 3A 82 00 B5 0C 75  00 8B 51 24 B2 22 4C 22  |00:....u..Q$."L"|
00000490: A7 20 99 22 11 4C 4F 45  53 43 48 45 4E 20 42 45  |. .".LOESCHEN BE|
000004A0: 45 4E 44 45 54 20 21 11  22 3A 81 4C B2 30 A4 34  |ENDET !.":.L.0.4|
000004B0: 30 30 30 3A 82 00 C9 0C  78 00 99 22 93 91 91 91  |000:....x.."....|
000004C0: 91 22 3A 89 32 30 30 30  30 00 D6 0C C8 00 81 49  |.":.20000......I|
000004D0: B2 31 A4 4B AB 31 00 13  0D CD 00 99 3A 49 4E 24  |.1.K.1......:IN$|
000004E0: B2 22 4A 22 3A 8B 51 24  B2 22 51 22 A7 99 22 91  |."J":.Q$."Q"..".|
000004F0: 4B 4F 50 49 45 52 45 4E  20 3F 20 12 22 44 24 28  |KOPIEREN ? ."D$(|
00000500: 49 29 22 92 22 3A 85 22  A0 20 4A 9D 9D 9D 22 3B  |I)".":.". J...";|
00000510: 49 4E 24 00 48 0D CE 00  99 3A 8B 51 24 B2 22 4C  |IN$.H....:.Q$."L|
00000520: 22 A7 99 22 91 4C 4F 45  53 43 48 45 4E 20 3F 20  |"..".LOESCHEN ? |
00000530: 12 22 44 24 28 49 29 22  92 22 3A 85 22 A0 20 4E  |."D$(I)".":.". N|
00000540: 9D 9D 9D 22 3B 49 4E 24  00 60 0D D2 00 99 22 91  |...";IN$.`....".|
00000550: 91 22 3A 8B 49 4E 24 B3  B1 22 4A 22 A7 82 3A 8E  |.":.IN$.."J"..:.|
00000560: 00 72 0D D3 00 8B 51 24  B2 22 4C 22 A7 20 89 32  |.r....Q$."L". .2|
00000570: 35 30 00 9F 0D DC 00 43  43 24 B2 22 43 20 22 AA  |50.....CC$."C ".|
00000580: 44 44 24 AA 22 3A 22 AA  44 24 28 49 29 AA 22 3D  |DD$.":".D$(I)."=|
00000590: 22 AA 53 44 24 AA 22 3A  22 AA 44 24 28 49 29 00  |".SD$.":".D$(I).|
000005A0: B0 0D E6 00 98 31 35 2C  43 43 24 3A 8D 39 30 30  |.....15,CC$:.900|
000005B0: 00 C7 0D F0 00 8B 45 4E  B1 32 39 20 B0 20 45 4E  |......EN.29 . EN|
000005C0: B2 30 A7 20 82 3A 8E 00  FE 0D FA 00 98 31 35 2C  |.0. .:.......15,|
000005D0: 22 4D 2D 57 22 C7 28 34  31 29 C7 28 30 29 C7 28  |"M-W".(41).(0).(|
000005E0: 31 29 C7 28 44 44 AA 36  36 29 3A 8F 20 50 41 54  |1).(DD.66):. PAT|
000005F0: 43 48 20 46 4F 52 20 53  43 52 41 54 43 48 00 26  |CH FOR SCRATCH.&|
00000600: 0E 04 01 43 43 24 B2 22  53 20 22 AA 53 44 24 AA  |...CC$."S ".SD$.|
00000610: 22 3A 22 AA 44 24 28 49  29 3A 98 31 35 2C 43 43  |":".D$(I):.15,CC|
00000620: 24 3A 8D 39 30 30 00 2E  0E 18 01 82 3A 8E 00 43  |$:.900......:..C|
00000630: 0E F4 01 8F 20 52 45 41  44 20 44 49 52 45 43 54  |.... READ DIRECT|
00000640: 4F 52 59 00 4B 0E F9 01  4B B2 31 00 8B 0E FE 01  |ORY.K...K.1.....|
00000650: 8F 20 50 52 49 4E 54 23  31 35 2C 22 4D 2D 45 22  |. PRINT#15,"M-E"|
00000660: 43 48 52 24 28 32 31 32  29 43 48 52 24 28 32 33  |CHR$(212)CHR$(23|
00000670: 37 29 3A 52 45 4D 20 44  49 52 45 43 54 4F 52 59  |7):REM DIRECTORY|
00000680: 20 4C 4F 41 44 20 50 41  54 43 48 00 BB 0E 08 02  | LOAD PATCH.....|
00000690: 99 20 22 93 11 20 20 20  20 12 56 45 52 5A 45 49  |. "..    .VERZEI|
000006A0: 43 48 4E 49 53 20 56 4F  4E 20 4C 57 20 20 20 22  |CHNIS VON LW   "|
000006B0: 53 44 24 22 11 22 3A 42  B2 33 30 00 DF 0E 26 02  |SD$".":B.30...&.|
000006C0: 43 43 24 B2 22 24 22 AA  53 44 24 AA 22 3A 22 AA  |CC$."$".SD$.":".|
000006D0: 50 24 3A 9F 20 32 2C 44  4E 2C 30 2C 43 43 24 00  |P$:. 2,DN,0,CC$.|
000006E0: 0B 0F 27 02 43 43 24 B2  22 4F 50 45 4E 20 32 2C  |..'.CC$."OPEN 2,|
000006F0: 22 AA 44 4E 24 AA 22 2C  30 2C 22 AA C7 28 33 34  |".DN$.",0,"..(34|
00000700: 29 AA 43 43 24 AA C7 28  33 34 29 00 16 0F 2B 02  |).CC$..(34)...+.|
00000710: 8D 39 30 30 3A 99 00 30  0F 30 02 A1 23 32 2C 41  |.900:..0.0..#2,A|
00000720: 24 20 3A A1 23 32 2C 41  24 20 3A 49 24 B2 22 22  |$ :.#2,A$ :I$.""|
00000730: 00 42 0F 3A 02 8B 20 53  54 B3 B1 30 20 89 20 36  |.B.:.. ST..0 . 6|
00000740: 36 30 00 56 0F 44 02 81  20 41 B2 31 A4 42 20 3A  |60.V.D.. A.1.B :|
00000750: A1 23 32 2C 41 24 00 6C  0F 4E 02 8B 20 41 24 B2  |.#2,A$.l.N.. A$.|
00000760: 22 22 20 A7 20 41 24 B2  C7 28 30 29 00 88 0F 58  |"" . A$..(0)...X|
00000770: 02 49 24 B2 49 24 AA 41  24 20 3A 82 20 3A 49 24  |.I$.I$.A$ :. :I$|
00000780: B2 49 24 AA 22 20 20 22  00 9C 0F 62 02 42 51 B2  |.I$."  "...b.BQ.|
00000790: C6 28 CA 28 49 24 2C 33  2C 31 29 29 00 B7 0F 6C  |.(.(I$,3,1))...l|
000007A0: 02 42 51 B2 42 51 AA C6  28 CA 28 49 24 2C 34 2C  |.BQ.BQ..(.(I$,4,|
000007B0: 31 29 29 AC 32 35 36 00  CB 0F 76 02 99 20 42 51  |1)).256...v.. BQ|
000007C0: 3B CA 28 49 24 2C 35 2C  32 37 29 00 D9 0F 77 02  |;.(I$,5,27)...w.|
000007D0: 8B 42 B2 33 30 A7 36 35  30 00 FE 0F 79 02 81 49  |.B.30.650...y..I|
000007E0: B2 36 A4 32 37 3A 8B CA  28 49 24 2C 49 2C 31 29  |.6.27:..(I$,I,1)|
000007F0: B3 B1 C7 28 33 34 29 A7  82 3A 89 36 35 30 00 30  |...(34)..:.650.0|
00000800: 10 7B 02 81 4A B2 49 AA  31 A4 32 37 3A 8B CA 28  |.{..J.I.1.27:..(|
00000810: 49 24 2C 4A 2C 31 29 B3  B1 C7 28 33 34 29 A7 44  |I$,J,1)...(34).D|
00000820: 24 B2 44 24 AA CA 28 49  24 2C 4A 2C 31 29 3A 82  |$.D$..(I$,J,1):.|
00000830: 00 46 10 7F 02 8B 53 24  B2 22 4A 22 A7 8D 37 30  |.F....S$."J"..70|
00000840: 30 3A 89 36 35 30 00 59  10 80 02 44 24 28 4B 29  |0:.650.Y...D$(K)|
00000850: B2 44 24 3A 4B B2 4B AA  31 00 7B 10 8A 02 44 24  |.D$:K.K.1.{...D$|
00000860: B2 22 22 3A 49 24 B2 22  22 3A 42 B2 33 32 3A 8B  |."":I$."":B.32:.|
00000870: 41 24 B3 B1 22 53 22 89  35 37 30 00 9B 10 94 02  |A$.."S".570.....|
00000880: 99 3A 43 43 24 B2 22 56  45 52 5A 45 49 43 48 4E  |.:CC$."VERZEICHN|
00000890: 49 53 20 20 20 22 3A 8D  39 30 30 00 BF 10 9E 02  |IS   ":.900.....|
000008A0: 43 43 24 B2 22 43 4C 4F  53 45 20 32 22 3A 20 A0  |CC$."CLOSE 2": .|
000008B0: 20 32 3A 8D 39 30 30 3A  99 22 11 11 22 3A 8E 00  | 2:.900:."..":..|
000008C0: D4 10 BC 02 8F 20 53 4F  52 54 20 44 49 52 45 43  |..... SORT DIREC|
000008D0: 54 4F 52 59 00 EB 10 C6  02 8B 20 4B B2 31 20 A7  |TORY...... K.1 .|
000008E0: 20 4A B2 30 3A 20 89 20  37 34 30 00 02 11 D0 02  | J.0: . 740.....|
000008F0: 8B 20 4B B2 30 20 A7 20  4A B2 AB 31 3A 89 20 37  |. K.0 . J..1:. 7|
00000900: 34 30 00 34 11 DA 02 81  20 4A B2 4B AB 31 20 A4  |40.4.... J.K.1 .|
00000910: 20 31 20 A9 AB 31 3A 8B  20 44 24 B3 44 24 28 4A  | 1 ..1:. D$.D$(J|
00000920: 29 20 A7 20 44 24 28 4A  AA 31 29 B2 44 24 28 4A  |) . D$(J.1).D$(J|
00000930: 29 3A 20 82 00 4D 11 E4  02 44 24 28 4A AA 31 29  |): ..M...D$(J.1)|
00000940: B2 44 24 20 3A 4B B2 4B  AA 31 20 3A 8E 00 6C 11  |.D$ :K.K.1 :..l.|
00000950: 84 03 8F 20 49 4E 50 55  54 20 46 52 4F 4D 20 45  |... INPUT FROM E|
00000960: 52 52 4F 52 20 43 48 41  4E 4E 45 4C 00 83 11 8E  |RROR CHANNEL....|
00000970: 03 84 31 35 2C 45 4E 2C  45 4D 24 2C 45 54 24 2C  |..15,EN,EM$,ET$,|
00000980: 45 53 24 00 A5 11 98 03  8B 45 4E B2 30 A7 99 22  |ES$......EN.0.."|
00000990: 12 22 43 43 24 22 92 20  C3 3E 20 22 A3 31 35 29  |."CC$". .> ".15)|
000009A0: 45 4D 24 3A 8E 00 D0 11  A2 03 8B 45 4E B2 31 A7  |EM$:.......EN.1.|
000009B0: 99 22 12 22 43 43 24 22  92 20 C3 3E 20 22 A3 31  |."."CC$". .> ".1|
000009C0: 35 29 22 12 22 45 54 24  22 92 22 45 4D 24 3A 8E  |5)"."ET$"."EM$:.|
000009D0: 00 F7 11 AC 03 99 22 11  12 22 43 43 24 3A 99 22  |......".."CC$:."|
000009E0: 92 20 C3 3E 20 46 45 48  4C 45 52 20 23 22 45 4E  |. .> FEHLER #"EN|
000009F0: 22 12 22 45 4D 24 3B 00  14 12 B6 03 8B 45 4E B3  |"."EM$;......EN.|
00000A00: 33 30 A7 99 22 20 49 4E  20 22 45 54 24 22 2E 22  |30.." IN "ET$"."|
00000A10: 45 53 24 3B 00 1D 12 C0  03 99 22 11 22 00 43 12  |ES$;......".".C.|
00000A20: CA 03 85 22 57 45 49 54  45 52 20 20 A0 A0 4A 9D  |..."WEITER  ..J.|
00000A30: 9D 9D 22 3B 49 4E 24 3A  8B 49 4E 24 B2 22 4A 22  |..";IN$:.IN$."J"|
00000A40: A7 20 8E 00 49 12 D4 03  8A 00 54 12 20 4E 8D 32  |. ..I.....T. N.2|
00000A50: 30 31 30 30 00 6F 12 2A  4E 97 31 35 38 2C 32 3A  |0100.o.*N.158,2:|
00000A60: 97 36 32 33 2C 31 33 3A  97 36 32 34 2C 31 33 00  |.623,13:.624,13.|
00000A70: 7D 12 34 4E 4E 41 24 B2  22 4D 45 4E 22 00 AE 12  |}.4NNA$."MEN"...|
00000A80: 3E 4E 99 22 93 11 11 4C  4F 41 44 22 C7 28 33 34  |>N."...LOAD".(34|
00000A90: 29 4E 41 24 C7 28 33 34  29 22 2C 38 22 3A 99 22  |)NA$.(34)",8":."|
00000AA0: 11 11 11 11 52 55 4E 22  3A 99 22 13 22 3B 00 B4  |....RUN":.".";..|
00000AB0: 12 48 4E 80 00 EC 12 84  4E 85 22 11 57 45 49 54  |.HN.....N.".WEIT|
00000AC0: 45 52 20 4F 44 45 52 20  45 4E 44 45 20 20 20 20  |ER ODER ENDE    |
00000AD0: 57 2F 45 20 20 20 20 20  57 9D 9D 9D 22 3B 49 4E  |W/E     W...";IN|
00000AE0: 24 3A 8B 49 4E 24 B2 22  57 22 A7 8A 00 1B 13 8E  |$:.IN$."W"......|
00000AF0: 4E 99 22 11 50 52 4F 47  52 41 4D 4D 20 44 49 53  |N.".PROGRAMM DIS|
00000B00: 4B 45 54 54 45 20 49 4E  20 4C 41 55 46 57 45 52  |KETTE IN LAUFWER|
00000B10: 4B 20 30 20 53 54 45 43  4B 45 4E 00 53 13 98 4E  |K 0 STECKEN.S..N|
00000B20: 85 22 11 46 45 52 54 49  47 20 20 20 20 20 20 20  |.".FERTIG       |
00000B30: 20 20 20 20 20 20 20 4A  2F 4E 20 20 20 20 20 4A  |       J/N     J|
00000B40: 9D 9D 9D 22 3B 49 4E 24  3A 8B 49 4E 24 B2 22 4A  |...";IN$:.IN$."J|
00000B50: 22 A7 8E 00 5E 13 A2 4E  89 32 30 31 32 30 00 00  |"...^..N.20120..|
00000B60: 00 EA                                             |..              |

....... SAVE"@0:K+L",8.<.... LETZTER STA
ND  9.2.80:VERSION 1.^...."....KOPIEREN 
ODER LOESCHEN".~...."..VON DISKETTEN FIL
ES..."......"BEIDE DISKETTEN IN LAUFWERK
E STECKEN..  ".P...DN.8:DN$.I(D(DN),1):.
15,DN,15......"LAUFWERK NR. DER DISKETTE
 EINGEBEN..".#...."AUF DIE KOPIERT WERDE
N SOLL ";DD.G...DD$.I(D(DD),1):SD$.I(D(1
.DD),1)._...CC$."I".SD$:.15,CC$......"..
..IST FORMATIEREN ERFORDERLICH "......".
BEI  DISKETTE   "DD$;.A...."  N...";S$:.
S$."J".30......900:CC$."I".DD$:.15,CC$:.
42......"DISK NAME   ...";N$:.N$." "..".
";:.30.E. .."ID (FUER FORMATIERUNG) ";ID
$:.ID$." ".ID$."":.36.Z.".ID$.",".H(ID$,
2)...$..900:CC$."N ".DD$.":".N$.ID$:.15,
CC$...*..D$(240)...2.."..SOLL DAS VERZEI
CHNIS...3..".ALPHABETHISCH GEORDNET WERD
EN    J...";S$...=.P$."N":.P$.."J".P$."*
".*.A..INPUT"..PATTERN. (USE 2040 RULES)
   ...";P$.B.B..IFP$=" "THENP$="*".P.F..
"..C = KOPIEREN ALLER FILES VON  LW "SD$
...G.."..Q = KOPIEREN BESTIMMTER FILES L
W "SD$.L.H.."..L = LOESCHEN BESTIMMTER F
ILES LW "DD$...P.."..    BUCHSTABEN EING
EBEN       Q...";Q$...Z..900...D..L.0.10
00:.:.500.".N..200.S.S..Q$."C". .".KOPIE
REN BEENDET !.":.L.0.4000:....T..Q$."Q".
 .".KOPIEREN BEENDET !.":.L.0.4000:....U
..Q$."L". .".LOESCHEN BEENDET !.":.L.0.4
000:..I.X..".....":.20000.V.H..I.1.K.1..
.M..:IN$."J":.Q$."Q"..".KOPIEREN ? ."D$(
I)".":."  J...";IN$.H.N..:.Q$."L"..".LOE
SCHEN ? ."D$(I)".":."  N...";IN$.`.R..".
.":.IN$.."J"..:..R.S..Q$."L". .250.....C
C$."C ".DD$.":".D$(I)."=".SD$.":".D$(I).
.....15,CC$:.900.G....EN.29 . EN.0. .:..
.....15,"M-W"G(41)G(0)G(1)G(DD.66):. PAT
CH FOR SCRATCH.&...CC$."S ".SD$.":".D$(I
):.15,CC$:.900......:..C.... READ DIRECT
ORY.K...K.1...... PRINT#15,"M-E"CHR$(212
)CHR$(237):REM DIRECTORY LOAD PATCH.....
. "..    .VERZEICHNIS VON LW   "SD$".":B
.30...&.CC$."$".SD$.":".P$:. 2,DN,0,CC$.
..'.CC$."OPEN 2,".DN$.",0,".G(34).CC$.G(
34)...+..900:..0.0..#2,A$ :.#2,A$ :I$.""
.B.:.. ST..0 . 660.V.D.. A.1.B :.#2,A$.L
.N.. A$."" . A$.G(0)...X.I$.I$.A$ :. :I$
.I$."  "...B.BQ.F(J(I$,3,1))...L.BQ.BQ.F
(J(I$,4,1)).256.K.V.. BQ;J(I$,5,27).Y.W.
.B.30.650...Y..I.6.27:.J(I$,I,1)..G(34).
.:.650.0.{..J.I.1.27:.J(I$,J,1)..G(34).D
$.D$.J(I$,J,1):..F...S$."J"..700:.650.Y
...D$(K).D$:K.K.1.{...D$."":I$."":B.32:.
A$.."S".570......:CC$."VERZEICHNIS   ":.
900.....CC$."CLOSE 2":   2:.900:."..":..
T.... SORT DIRECTORY...F.. K.1 . J.0: . 
740...P.. K.0 . J..1:. 740.4.Z.. J.K.1 .
 1 ..1:. D$.D$(J) . D$(J.1).D$(J): ..M..
.D$(J.1).D$ :K.K.1 :..L.... INPUT FROM E
RROR CHANNEL......15,EN,EM$,ET$,ES$.....
.EN.0.."."CC$". C> ".15)EM$:..P....EN.1.
."."CC$". C> ".15)"."ET$"."EM$:.......".
."CC$:.". C> FEHLER #"EN"."EM$;......EN.
30.." IN "ET$"."ES$;......".".C.J.."WEIT
ER    J...";IN$:.IN$."J". ..I.T...T. N.2
0100.O.*N.158,2:.623,13:.624,13.}.4NNA$.
"MEN"...>N."...LOAD"G(34)NA$G(34)",8":."
....RUN":.".";...HN.....N.".WEITER ODER 
ENDE    W/E     W...";IN$:.IN$."W"......
N.".PROGRAMM DISKETTE IN LAUFWERK 0 STEC
KEN.S..N.".FERTIG              J/N     J
...";IN$:.IN$."J"...^..N.20120....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL