_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

FIND

FILE INFORMATION

FILENAME(S): FIND

FILE TYPE(S): USR

FILE SIZE: 703b

FIRST SEEN: 2025-10-20 14:31:15

APPEARS ON: 2 disk(s)

FILE HASH

2a699c05754eb7edeeb7662e2350b390f184ff93b7ffbb31807b68994ad11814

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C FIND USR Treasure Chest - Klaus Der Suhler 22 7 DOWNLOAD FILE
C FIND USR marcus 22 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 3B 20 72 6F 75 74 69 6E  65 73 20 74 6F 20 66 69  |; routines to fi|
00000010: 6E 64 20 61 20 74 65 78  74 20 73 74 72 69 6E 67  |nd a text string|
00000020: 2E 00 46 49 4E 44 33 62  00 20 6C 6F 61 64 77 20  |..FIND3b. loadw |
00000030: 52 30 3A 56 4E 44 42 31  00 20 4A 53 52 20 24 43  |R0:VNDB1. JSR $C|
00000040: 32 35 36 00 20 52 54 53  00 3B 2D 2D 2D 00 3B 2D  |256. RTS.;---.;-|
00000050: 20 20 44 49 41 4C 4F 47  20 42 4F 58 20 46 4F 52  |  DIALOG BOX FOR|
00000060: 20 50 52 4F 4D 50 54 00  56 4E 44 42 31 00 2E 42  | PROMPT.VNDB1..B|
00000070: 59 54 45 20 31 32 38 2B  32 00 2E 42 79 74 65 20  |YTE 128+2..Byte |
00000080: 32 2C 31 37 2C 37 37 2D  38 00 2E 42 59 54 45 20  |2,17,77-8..BYTE |
00000090: 31 31 2C 38 2C 32 34 00  2E 57 4F 52 44 20 58 68  |11,8,24..WORD Xh|
000000A0: 31 00 2E 42 59 54 45 20  31 31 2C 38 2C 33 36 00  |1..BYTE 11,8,36.|
000000B0: 2E 57 4F 52 44 20 58 68  32 00 2E 42 59 54 45 20  |.WORD Xh2..BYTE |
000000C0: 31 31 2C 38 2C 34 38 00  2E 57 4F 52 44 20 58 68  |11,8,48..WORD Xh|
000000D0: 33 00 3B 00 2E 42 79 74  65 20 31 34 00 2E 42 79  |3.;..Byte 14..By|
000000E0: 74 65 20 30 00 58 68 31  20 2E 42 59 54 45 20 27  |te 0.Xh1 .BYTE '|
000000F0: 59 6F 75 20 68 61 76 65  20 6C 6F 61 64 65 64 20  |You have loaded |
00000100: 52 65 63 6F 72 64 20 23  32 27 2C 30 00 58 68 32  |Record #2',0.Xh2|
00000110: 20 2E 42 59 54 45 20 27  54 68 69 73 20 69 73 20  | .BYTE 'This is |
00000120: 77 68 65 72 65 20 74 68  65 20 46 49 4E 44 20 72  |where the FIND r|
00000130: 6F 75 74 69 6E 65 73 27  2C 30 00 58 68 33 20 2E  |outines',0.Xh3 .|
00000140: 42 59 54 45 20 27 41 72  65 20 6C 6F 63 61 74 65  |BYTE 'Are locate|
00000150: 64 20 61 74 2E 27 2C 30  00 3B 3D 3D 3D 3D 3D 3D  |d at.',0.;======|
00000160: 3D 00 3B 00 52 50 31 61  3B 20 72 65 70 6C 61 63  |=.;.RP1a; replac|
00000170: 65 20 73 74 72 69 6E 67  20 72 6F 75 74 69 6E 65  |e string routine|
00000180: 00 20 6C 6F 61 64 77 20  52 30 3A 56 4E 44 42 32  |. loadw R0:VNDB2|
00000190: 00 20 4A 53 52 20 24 43  32 35 36 00 20 52 54 53  |. JSR $C256. RTS|
000001A0: 00 3B 2D 2D 2D 00 3B 2D  20 20 44 49 41 4C 4F 47  |.;---.;-  DIALOG|
000001B0: 20 42 4F 58 20 46 4F 52  20 50 52 4F 4D 50 54 00  | BOX FOR PROMPT.|
000001C0: 56 4E 44 42 32 00 2E 42  59 54 45 20 31 32 38 2B  |VNDB2..BYTE 128+|
000001D0: 32 00 2E 42 79 74 65 20  32 2C 31 37 2C 37 37 2D  |2..Byte 2,17,77-|
000001E0: 38 00 2E 42 59 54 45 20  31 31 2C 38 2C 32 34 00  |8..BYTE 11,8,24.|
000001F0: 2E 57 4F 52 44 20 58 49  31 00 2E 42 59 54 45 20  |.WORD XI1..BYTE |
00000200: 31 31 2C 38 2C 33 36 00  2E 57 4F 52 44 20 58 49  |11,8,36..WORD XI|
00000210: 32 00 2E 42 59 54 45 20  31 31 2C 38 2C 34 38 00  |2..BYTE 11,8,48.|
00000220: 2E 57 4F 52 44 20 58 49  33 00 3B 00 2E 42 79 74  |.WORD XI3.;..Byt|
00000230: 65 20 31 34 00 2E 42 79  74 65 20 30 00 58 49 31  |e 14..Byte 0.XI1|
00000240: 20 2E 42 59 54 45 20 27  59 6F 75 20 68 61 76 65  | .BYTE 'You have|
00000250: 20 6C 6F 61 64 65 64 20  52 65 63 6F 72 64 20 23  | loaded Record #|
00000260: 32 27 2C 30 00 58 49 32  20 2E 42 59 54 45 20 27  |2',0.XI2 .BYTE '|
00000270: 54 68 69 73 20 69 73 20  77 68 65 72 65 20 74 68  |This is where th|
00000280: 65 20 72 65 70 6C 61 63  65 20 72 6F 75 74 69 6E  |e replace routin|
00000290: 65 73 27 2C 30 00 58 49  33 20 2E 42 59 54 45 20  |es',0.XI3 .BYTE |
000002A0: 27 41 72 65 20 6C 6F 63  61 74 65 64 20 61 74 2E  |'Are located at.|
000002B0: 27 2C 30 00 3B 3D 3D 3D  3D 3D 3D 3D 00 00 00     |',0.;=======... |
; ROUTINES TO FIND A TEXT STRING..FIND3B
. LOADW R0:VNDB1. JSR $C256. RTS.;---.;-
  DIALOG BOX FOR PROMPT.VNDB1..BYTE 128+
2..BYTE 2,17,77-8..BYTE 11,8,24..WORD XH
1..BYTE 11,8,36..WORD XH2..BYTE 11,8,48.
.WORD XH3.;..BYTE 14..BYTE 0.XH1 .BYTE '
YOU HAVE LOADED RECORD #2',0.XH2 .BYTE '
THIS IS WHERE THE FIND ROUTINES',0.XH3 .
BYTE 'ARE LOCATED AT.',0.;=======.;.RP1A
; REPLACE STRING ROUTINE. LOADW R0:VNDB2
. JSR $C256. RTS.;---.;-  DIALOG BOX FOR
 PROMPT.VNDB2..BYTE 128+2..BYTE 2,17,77-
8..BYTE 11,8,24..WORD XI1..BYTE 11,8,36.
.WORD XI2..BYTE 11,8,48..WORD XI3.;..BYT
E 14..BYTE 0.XI1 .BYTE 'YOU HAVE LOADED 
RECORD #2',0.XI2 .BYTE 'THIS IS WHERE TH
E REPLACE ROUTINES',0.XI3 .BYTE 'ARE LOC
ATED AT.',0.;=======...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL