FIND/REPL SOURCE

00000000: 01 08 07 08 64 00 3B 00  1A 08 69 00 3B 20 46 49  |....d.;...i.; FI|
00000010: 4E 44 2F 52 45 50 4C 41  43 45 00 20 08 6E 00 3B  |ND/REPLACE. .n.;|
00000020: 00 2B 08 73 00 AA 35 30  30 30 30 00 31 08 78 00  |.+.s..50000.1.x.|
00000030: 3B 00 44 08 96 00 20 CA  23 30 3B 42 41 53 49 43  |;.D... .#0;BASIC|
00000040: 2D 52 4F 4D 00 51 08 98  00 20 D2 39 35 3B 49 4E  |-ROM.Q... .95;IN|
00000050: 53 00 5E 08 9A 00 20 D2  39 30 3B 52 41 4D 00 70  |S.^... .90;RAM.p|
00000060: 08 9C 00 20 D2 38 38 3B  4B 4F 50 49 45 52 45 4E  |... .88;KOPIEREN|
00000070: 00 7B 08 9E 00 20 CA 23  31 36 30 00 84 08 A0 00  |.{... .#160.....|
00000080: 20 D2 39 36 00 8F 08 A2  00 20 CA 23 31 39 32 00  | .96..... .#192.|
00000090: 98 08 A4 00 20 D2 39 31  00 A1 08 A6 00 20 D2 38  |.... .91..... .8|
000000A0: 39 00 AD 08 A8 00 20 D6  24 41 33 42 46 00 B3 08  |9..... .$A3BF...|
000000B0: AA 00 3B 00 C3 08 B2 00  20 CA 23 24 36 30 3B 4C  |..;..... .#$60;L|
000000C0: 49 53 54 00 D7 08 B6 00  20 D2 24 41 37 30 45 3B  |IST..... .$A70E;|
000000D0: 41 45 4E 44 45 52 4E 00  DD 08 B7 00 3B 00 F2 08  |AENDERN.....;...|
000000E0: B8 00 20 CA 23 31 34 34  3B 3C 53 48 49 46 54 2D  |.. .#144;<SHIFT-|
000000F0: 4C 3E 00 04 09 BA 00 20  D2 24 41 37 34 30 3B 54  |L>..... .$A740;T|
00000100: 52 49 43 4B 00 0A 09 BC  00 3B 00 1C 09 BE 00 20  |RICK.....;..... |
00000110: CA 23 24 45 36 3B 52 45  47 2E 20 31 00 31 09 C0  |.#$E6;REG. 1.1..|
00000120: 00 20 D2 24 41 38 34 46  3B 45 52 48 4F 45 48 45  |. .$A84F;ERHOEHE|
00000130: 4E 00 40 09 C2 00 20 CA  23 24 30 31 3B 42 45 49  |N.@... .#$01;BEI|
00000140: 00 51 09 C4 00 20 D2 24  41 38 35 30 3B 53 54 4F  |.Q... .$A850;STO|
00000150: 50 00 57 09 C8 00 3B 00  6B 09 CD 00 20 D6 24 41  |P.W...;.k... .$A|
00000160: 45 46 44 3B 4B 4F 4D 4D  41 20 3F 00 77 09 D2 00  |EFD;KOMMA ?.w...|
00000170: 20 D6 24 41 44 39 45 00  8A 09 D7 00 20 D6 24 42  | .$AD9E..... .$B|
00000180: 36 41 33 3B 53 54 52 49  4E 47 00 9F 09 DC 00 20  |6A3;STRING..... |
00000190: D6 24 42 34 38 30 3B 45  49 4E 4C 45 53 45 4E 00  |.$B480;EINLESEN.|
000001A0: AE 09 E1 00 20 D2 4C 41  45 4E 47 45 2B 31 00 B5  |.... .LAENGE+1..|
000001B0: 09 E6 00 20 DA 00 C9 09  EB 00 43 31 20 CA 28 24  |... ......C1 .($|
000001C0: 36 32 29 2C 59 3B 55 4E  44 00 DE 09 F0 00 20 D2  |62),Y;UND..... .|
000001D0: 46 49 4E 2C 59 3B 4B 4F  50 49 45 52 45 4E 00 E5  |FIN,Y;KOPIEREN..|
000001E0: 09 F5 00 20 EC 00 EE 09  FA 00 20 F0 43 31 00 F4  |... ...... .C1..|
000001F0: 09 2C 01 3B 00 06 0A 36  01 20 D4 31 36 39 3B 44  |.,.;...6. .169;D|
00000200: 45 46 41 55 4C 54 00 16  0A 3B 01 20 D4 31 37 30  |EFAULT...;. .170|
00000210: 3B 57 45 52 54 45 00 23  0A 40 01 20 CA 23 30 3B  |;WERTE.#.@. .#0;|
00000220: 41 55 46 00 37 0A 45 01  20 D2 31 36 37 3B 30 20  |AUF.7.E. .167;0 |
00000230: 2D 20 36 35 35 36 35 00  41 0A 4A 01 20 D2 31 36  |- 65565.A.J. .16|
00000240: 38 00 53 0A 54 01 20 D2  24 41 43 3B 5A 41 45 48  |8.S.T. .$AC;ZAEH|
00000250: 4C 45 52 00 60 0A 59 01  20 D2 24 41 44 3B 3D 30  |LER.`.Y. .$AD;=0|
00000260: 00 6F 0A 5E 01 52 31 20  D2 52 45 50 4C 2B 31 00  |.o.^.R1 .REPL+1.|
00000270: 75 0A 90 01 3B 00 84 0A  95 01 20 D6 24 37 39 3B  |u...;..... .$79;|
00000280: 54 45 53 54 00 98 0A 9A  01 20 C4 23 34 34 3B 41  |TEST..... .#44;A|
00000290: 55 46 20 4B 4F 4D 4D 41  00 A2 0A 9F 01 20 F6 46  |UF KOMMA..... .F|
000002A0: 31 31 00 B5 0A A1 01 20  D6 24 37 33 3B 41 55 53  |11..... .$73;AUS|
000002B0: 44 52 55 43 4B 00 C7 0A  A7 01 20 D6 24 41 44 39  |DRUCK..... .$AD9|
000002C0: 45 3B 48 4F 4C 45 4E 00  D0 0A A9 01 20 CA 31 33  |E;HOLEN..... .13|
000002D0: 00 E1 0A AE 01 20 F0 46  31 30 3B 5A 41 48 4C 20  |..... .F10;ZAHL |
000002E0: 3F 00 E7 0A AF 01 3B 00  08 0B B3 01 3B 5A 57 45  |?.....;.....;ZWE|
000002F0: 49 54 45 52 20 53 54 52  49 4E 47 20 46 55 45 52  |ITER STRING FUER|
00000300: 20 52 45 50 4C 41 43 45  00 0E 0B B4 01 3B 00 1A  | REPLACE.....;..|
00000310: 0B B8 01 20 D6 24 42 36  41 33 00 31 0B BD 01 20  |... .$B6A3.1... |
00000320: C4 4C 41 45 4E 47 45 2B  31 3B 47 4C 45 49 43 48  |.LAENGE+1;GLEICH|
00000330: 45 00 43 0B C0 01 20 F6  52 30 3B 4C 41 45 4E 47  |E.C... .R0;LAENG|
00000340: 45 20 3F 00 4E 0B D1 01  20 D3 52 33 2B 31 00 59  |E ?.N... .R3+1.Y|
00000350: 0B D6 01 20 D4 52 33 2B  32 00 62 0B DB 01 20 D5  |... .R3+2.b... .|
00000360: 52 31 00 68 0B E0 01 3B  00 7B 0B E5 01 52 30 20  |R1.h...;.{...R0 |
00000370: C2 23 32 33 3B 53 54 52  49 4E 47 00 90 0B EA 01  |.#23;STRING.....|
00000380: 20 D5 24 41 34 33 41 3B  54 4F 4F 20 4C 4F 4E 47  | .$A43A;TOO LONG|
00000390: 00 96 0B EF 01 3B 00 AE  0B F4 01 46 31 30 20 D6  |.....;.....F10 .|
000003A0: 24 42 37 46 37 3B 41 4E  46 41 4E 47 53 2D 00 BE  |$B7F7;ANFANGS-..|
000003B0: 0B F9 01 20 D4 31 36 37  3B 5A 45 49 4C 45 00 C8  |... .167;ZEILE..|
000003C0: 0B FE 01 20 D2 31 36 38  00 D2 0B 03 02 20 D6 24  |... .168..... .$|
000003D0: 37 39 00 E1 0B 08 02 20  C4 23 34 34 3B 54 45 53  |79..... .#44;TES|
000003E0: 54 00 F5 0B 0D 02 20 F6  46 31 31 3B 41 55 46 20  |T..... .F11;AUF |
000003F0: 4B 4F 4D 4D 41 00 FF 0B  12 02 20 D6 24 37 33 00  |KOMMA..... .$73.|
00000400: 0B 0C 17 02 20 D6 24 41  44 38 41 00 20 0C 1C 02  |.... .$AD8A. ...|
00000410: 20 D6 24 42 37 46 37 3B  45 4E 44 5A 45 49 4C 45  | .$B7F7;ENDZEILE|
00000420: 00 2A 0C 21 02 20 D4 31  36 39 00 34 0C 26 02 20  |.*.!. .169.4.&. |
00000430: D2 31 37 30 00 3A 0C 2B  02 3B 00 4F 0C BC 02 46  |.170.:.+.;.O...F|
00000440: 31 31 20 CA 23 35 34 3B  41 55 46 20 52 41 4D 00  |11 .#54;AUF RAM.|
00000450: 60 0C C1 02 20 D2 31 3B  57 45 43 48 53 45 4C 4E  |`... .1;WECHSELN|
00000460: 00 66 0C C6 02 3B 00 76  0C E8 03 20 CA 34 34 3B  |.f...;.v... .44;|
00000470: 42 41 53 49 43 2D 00 85  0C F2 03 20 C2 34 33 3B  |BASIC-..... .43;|
00000480: 53 54 41 52 54 00 8B 0C  F7 03 3B 00 97 0C FC 03  |START.....;.....|
00000490: 46 32 20 D2 24 36 30 00  A1 0C 06 04 20 D3 24 35  |F2 .$60..... .$5|
000004A0: 46 00 AB 0C 10 04 20 C3  23 31 3B 00 C3 0C 1A 04  |F..... .#1;.....|
000004B0: 20 CA 28 24 35 46 29 2C  59 3B 45 4E 44 45 20 50  | .($5F),Y;ENDE P|
000004C0: 52 47 3F 00 CD 0C 24 04  20 F7 46 38 3B 00 D6 0C  |RG?...$. .F8;...|
000004D0: 2E 04 20 C2 23 30 00 DF  0C 38 04 20 C3 23 34 00  |.. .#0...8. .#4.|
000004E0: E5 0C 42 04 3B 00 FB 0C  4C 04 46 34 20 CA 28 24  |..B.;...L.F4 .($|
000004F0: 35 46 29 2C 59 3B 5A 45  49 4C 45 00 0D 0D 56 04  |5F),Y;ZEILE...V.|
00000500: 20 F7 46 36 3B 46 45 52  54 49 47 20 3F 00 13 0D  | .F6;FERTIG ?...|
00000510: 60 04 3B 00 1F 0D 6A 04  20 CA 46 49 4E 2C 58 00  |`.;...j. .FIN,X.|
00000520: 2A 0D 74 04 20 C4 23 22  3F 22 00 35 0D 7E 04 20  |*.t. .#"?".5.~. |
00000530: F7 46 35 2B 31 00 4D 0D  88 04 20 C4 28 24 35 46  |.F5+1.M... .($5F|
00000540: 29 2C 59 3B 56 45 52 47  4C 45 49 43 48 00 58 0D  |),Y;VERGLEICH.X.|
00000550: 92 04 20 F7 46 35 2B 31  00 61 0D 9C 04 20 C2 23  |.. .F5+1.a... .#|
00000560: 30 00 77 0D A6 04 46 35  20 CC 32 33 32 3B 42 49  |0.w...F5 .232;BI|
00000570: 54 20 27 49 4E 58 27 00  7E 0D B0 04 20 ED 00 95  |T 'INX'.~... ...|
00000580: 0D BA 04 4C 41 45 4E 47  45 20 C0 23 30 30 3B 53  |...LAENGE .#00;S|
00000590: 54 52 49 4E 47 00 A7 0D  C4 04 20 F6 46 34 3B 46  |TRING..... .F4;F|
000005A0: 45 52 54 49 47 20 3F 00  AD 0D CE 04 3B 00 C1 0D  |ERTIG ?.....;...|
000005B0: D8 04 20 D4 46 33 2B 31  3B 59 20 52 45 54 54 45  |.. .F3+1;Y RETTE|
000005C0: 4E 00 C7 0D 78 05 3B 00  EE 0D 7D 05 3B 20 5A 45  |N...x.;...}.; ZE|
000005D0: 49 4C 45 20 47 45 46 55  4E 44 45 4E 2C 20 54 45  |ILE GEFUNDEN, TE|
000005E0: 53 54 20 41 55 46 20 47  52 45 4E 5A 45 4E 00 F4  |ST AUF GRENZEN..|
000005F0: 0D 82 05 3B 00 FD 0D 87  05 20 C3 23 32 00 09 0E  |...;..... .#2...|
00000600: 8C 05 20 D6 24 41 37 30  38 00 13 0E A5 05 20 C4  |.. .$A708..... .|
00000610: 31 36 38 00 1C 0E AA 05  20 F4 46 36 00 26 0E AF  |168..... .F6.&..|
00000620: 05 20 F6 46 31 32 00 30  0E B4 05 20 C0 31 36 37  |. .F12.0... .167|
00000630: 00 39 0E BE 05 20 F4 46  36 00 3F 0E C3 05 3B 00  |.9... .F6.?...;.|
00000640: 4C 0E CD 05 46 31 32 20  C4 31 37 30 00 56 0E D2  |L...F12 .170.V..|
00000650: 05 20 F7 46 31 33 00 5F  0E D7 05 20 F5 46 36 00  |. .F13._... .F6.|
00000660: 68 0E DC 05 20 F4 46 33  00 75 0E E6 05 46 31 33  |h... .F3.u...F13|
00000670: 20 C0 31 36 39 00 7E 0E  EB 05 20 F7 46 33 00 87  | .169.~... .F3..|
00000680: 0E F0 05 20 F5 46 36 00  8D 0E A4 06 3B 00 98 0E  |... .F6.....;...|
00000690: AB 06 46 33 20 C3 23 30  00 A5 0E AE 06 52 45 50  |..F3 .#0.....REP|
000006A0: 4C 20 C2 23 30 00 B8 0E  B3 06 20 F7 52 32 3B 4B  |L .#0..... .R2;K|
000006B0: 45 49 4E 20 52 45 50 4C  00 BF 0E B5 06 20 EE 00  |EIN REPL..... ..|
000006C0: D6 0E B8 06 52 33 20 CA  24 46 46 46 46 2C 58 3B  |....R3 .$FFFF,X;|
000006D0: 53 54 52 49 4E 47 00 E6  0E BA 06 20 EC 3B 4B 4F  |STRING..... .;KO|
000006E0: 50 49 45 52 45 4E 00 F4  0E BD 06 20 D2 28 24 35  |PIEREN..... .($5|
000006F0: 46 29 2C 59 00 FB 0E C7  06 20 EE 00 04 0F CC 06  |F),Y..... ......|
00000700: 20 F0 52 33 00 0A 0F D1  06 3B 00 11 0F D0 07 52  | .R3.....;.....R|
00000710: 32 00 17 0F DA 07 3B 00  28 0F 0C 08 20 D6 24 41  |2.....;.(... .$A|
00000720: 36 43 33 3B 4C 49 53 54  00 2E 0F 1B 08 3B 00 42  |6C3;LIST.....;.B|
00000730: 0F 34 08 20 D6 24 46 43  44 42 3B 5A 41 45 48 4C  |.4. .$FCDB;ZAEHL|
00000740: 45 52 00 68 0F 3E 08 3B  20 20 20 20 20 20 20 20  |ER.h.>.;        |
00000750: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
00000760: 45 52 48 4F 45 48 45 4E  00 6E 0F 48 08 3B 00 7E  |ERHOEHEN.n.H.;.~|
00000770: 0F 52 08 46 36 20 C3 23  30 3B 4E 45 55 45 00 90  |.R.F6 .#0;NEUE..|
00000780: 0F 5C 08 20 D6 24 41 37  30 38 3B 5A 45 49 4C 45  |.\. .$A708;ZEILE|
00000790: 00 99 0F 84 08 20 D5 46  32 00 9F 0F 8E 08 3B 00  |..... .F2.....;.|
000007A0: AD 0F FC 08 46 38 20 C9  31 3B 52 4F 4D 00 B7 0F  |....F8 .1;ROM...|
000007B0: 01 09 20 CA 23 31 33 00  C6 0F 06 09 20 D6 24 41  |.. .#13..... .$A|
000007C0: 42 34 37 3B 43 52 00 D2  0F 0B 09 20 D6 24 41 42  |B47;CR..... .$AB|
000007D0: 34 37 00 E4 0F 10 09 20  C2 24 41 43 3B 5A 41 45  |47..... .$AC;ZAE|
000007E0: 48 4C 45 52 00 F7 0F 1A  09 20 CA 24 41 44 3B 41  |HLER..... .$AD;A|
000007F0: 55 53 47 45 42 45 4E 00  03 10 24 09 20 D6 24 42  |USGEBEN...$. .$B|
00000800: 44 43 44 00 1B 10 2E 09  20 CA 23 3C 28 54 45 58  |DCD..... .#<(TEX|
00000810: 54 29 3B 45 4E 44 2D 54  45 58 54 00 33 10 38 09  |T);END-TEXT.3.8.|
00000820: 20 C3 23 3E 28 54 45 58  54 29 3B 41 55 53 47 45  | .#>(TEXT);AUSGE|
00000830: 42 45 4E 00 3F 10 42 09  20 D5 24 41 42 31 45 00  |BEN.?.B. .$AB1E.|
00000840: 45 10 B8 0B 3B 00 63 10  C2 0B 54 45 58 54 20 A8  |E...;.c...TEXT .|
00000850: 22 20 45 4E 54 52 49 45  53 20 46 4F 55 4E 44 2E  |" ENTRIES FOUND.|
00000860: 5F 5F 22 00 6B 10 CC 0B  46 49 4E 00 00 00        |__".k...FIN...  |

....D.;...I.; FIND/REPLACE. .N.;.+.S..50
000.1.X.;.D... J#0;BASIC-ROM.Q... R95;IN
S.^... R90;RAM.P... R88;KOPIEREN.{... J#
160... . R96..... J#192..... R91..... R8
9..... V$A3BF.....;.C... J#$60;LIST.W...
 R$A70E;AENDERN.....;..... J#144;<SHIFT-
L>..... R$A740;TRICK.....;..... J#$E6;RE
G. 1.1... R$A84F;ERHOEHEN.@.B. J#$01;BEI
.Q.D. R$A850;STOP.W.H.;.K.M. V$AEFD;KOMM
A ?.W.R. V$AD9E...W. V$B6A3;STRING..... 
V$B480;EINLESEN..... RLAENGE+1..... Z.I.
..C1 J($62),Y;UND..... RFIN,Y;KOPIEREN..
... ...... .C1...,.;...6. T169;DEFAULT..
.;. T170;WERTE.#.@. J#0;AUF.7.E. R167;0 
- 65565.A.J. R168.S.T. R$AC;ZAEHLER.`.Y.
 R$AD;=0.O.^.R1 RREPL+1.U...;..... V$79;
TEST..... D#44;AUF KOMMA..... .F11..... 
V$73;AUSDRUCK.G... V$AD9E;HOLEN.P... J13
..... .F10;ZAHL ?.....;.....;ZWEITER STR
ING FUER REPLACE.....;..... V$B6A3.1... 
DLAENGE+1;GLEICHE.C... .R0;LAENGE ?.N.Q.
 SR3+1.Y.V. TR3+2.B... UR1.H...;.{...R0 
B#23;STRING..... U$A43A;TOO LONG.....;..
...F10 V$B7F7;ANFANGS-..... T167;ZEILE.H
... R168.R... V$79..... D#44;TEST..... .
F11;AUF KOMMA..... V$73..... V$AD8A. ...
 V$B7F7;ENDZEILE.*.!. T169.4.&. R170.:.+
.;.O...F11 J#54;AUF RAM.`.A. R1;WECHSELN
.F.F.;.V... J44;BASIC-..... B43;START...
..;.....F2 R$60..... S$5F..... C#1;.C...
 J($5F),Y;ENDE PRG?.M.$. .F8;.V... B#0..
.8. C#4...B.;...L.F4 J($5F),Y;ZEILE...V.
 .F6;FERTIG ?...`.;...J. JFIN,X.*.T. D#"
?".5.~. .F5+1.M... D($5F),Y;VERGLEICH.X.
.. .F5+1.A... B#0.W...F5 L232;BIT 'INX'.
~... ......LAENGE .#00;STRING...D. .F4;F
ERTIG ?...N.;.A.X. TF3+1;Y RETTEN.G.X.;.
..}.; ZEILE GEFUNDEN, TEST AUF GRENZEN..
...;..... C#2..... V$A708..... D168.....
 .F6.&... .F12.0... .167.9... .F6.?.C.;.
L.M.F12 D170.V.R. .F13._.W. .F6.H... .F3
.U...F13 .169.~... .F3..... .F6.....;...
..F3 C#0.....REPL B#0..... .R2;KEIN REPL
..... ..V...R3 J$FFFF,X;STRING..... .;KO
PIEREN..... R($5F),Y...G. ....L. .R3...Q
.;...P.R2...Z.;.(... V$A6C3;LIST.....;.B
.4. V$FCDB;ZAEHLER.H.>.;                
       ;ERHOEHEN.N.H.;.~.R.F6 C#0;NEUE..
.\. V$A708;ZEILE..... UF2.....;.....F8 I
1;ROM..... J#13.F... V$AB47;CR.R... V$AB
47..... B$AC;ZAEHLER..... J$AD;AUSGEBEN.
..$. V$BDCD..... J#<(TEXT);END-TEXT.3.8.
 C#>(TEXT);AUSGEBEN.?.B. U$AB1E.E...;.C.
B.TEXT ." ENTRIES FOUND.__".K.L.FIN...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL