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

EDITFUN

FILE INFORMATION

FILENAME(S): EDITFUN

FILE TYPE(S): USR

FILE SIZE: 431b

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

APPEARS ON: 1 disk(s)

FILE HASH

f132539d68cf2ea7afee3f472cbee083a31fafa230ac08b3a7b413c6347c81a5

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C EDITFUN USR Treasure Chest - Klaus Der Suhler 21 10 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 3B 20 54 68 65 20 6E 61  6D 65 20 6F 66 20 74 68  |; The name of th|
00000010: 69 73 20 66 69 6C 65 20  69 73 20 45 44 49 54 46  |is file is EDITF|
00000020: 55 4E 43 54 49 4F 4E 00  43 55 54 20 43 4F 50 59  |UNCTION.CUT COPY|
00000030: 20 43 4C 45 41 52 20 50  41 53 54 45 00 20 50 48  | CLEAR PASTE. PH|
00000040: 41 00 20 4A 53 52 20 24  43 31 42 44 00 20 50 4C  |A. JSR $C1BD. PL|
00000050: 41 00 43 55 54 31 58 20  43 4F 50 59 31 58 20 50  |A.CUT1X COPY1X P|
00000060: 41 53 54 45 31 58 00 20  6C 6F 61 64 77 20 52 30  |ASTE1X. loadw R0|
00000070: 3A 56 4E 44 42 38 00 20  4A 53 52 20 24 43 32 35  |:VNDB8. JSR $C25|
00000080: 36 00 20 52 54 53 00 3B  2D 2D 2D 00 3B 2D 20 20  |6. RTS.;---.;-  |
00000090: 44 49 41 4C 4F 47 20 42  4F 58 20 46 4F 52 20 50  |DIALOG BOX FOR P|
000000A0: 52 4F 4D 50 54 00 56 4E  44 42 38 00 2E 42 59 54  |ROMPT.VNDB8..BYT|
000000B0: 45 20 31 32 38 2B 32 00  2E 42 79 74 65 20 32 2C  |E 128+2..Byte 2,|
000000C0: 31 37 2C 37 37 2D 38 00  2E 42 59 54 45 20 31 31  |17,77-8..BYTE 11|
000000D0: 2C 38 2C 32 34 00 2E 57  4F 52 44 20 58 64 31 31  |,8,24..WORD Xd11|
000000E0: 00 2E 42 59 54 45 20 31  31 2C 38 2C 33 36 00 2E  |..BYTE 11,8,36..|
000000F0: 57 4F 52 44 20 58 64 32  00 2E 42 59 54 45 20 31  |WORD Xd2..BYTE 1|
00000100: 31 2C 38 2C 34 38 00 2E  57 4F 52 44 20 58 64 33  |1,8,48..WORD Xd3|
00000110: 00 3B 00 2E 42 79 74 65  20 31 34 00 2E 42 79 74  |.;..Byte 14..Byt|
00000120: 65 20 30 00 58 64 31 31  20 2E 42 59 54 45 20 27  |e 0.Xd11 .BYTE '|
00000130: 59 6F 75 20 68 61 76 65  20 73 65 6C 65 63 74 65  |You have selecte|
00000140: 64 20 61 20 72 65 73 69  64 65 6E 74 27 2C 30 00  |d a resident',0.|
00000150: 58 64 32 20 2E 42 59 54  45 20 27 72 6F 75 74 69  |Xd2 .BYTE 'routi|
00000160: 6E 65 2E 20 20 4E 6F 20  64 69 73 6B 20 61 63 63  |ne.  No disk acc|
00000170: 65 73 73 27 2C 30 00 58  64 33 20 2E 42 59 54 45  |ess',0.Xd3 .BYTE|
00000180: 20 27 69 73 20 6E 65 63  65 73 73 61 72 79 20 74  | 'is necessary t|
00000190: 6F 20 72 75 6E 2E 27 2C  30 00 3B 3D 3D 3D 3D 3D  |o run.',0.;=====|
000001A0: 3D 3D 00 3B 3D 3D 3D 3D  3D 3D 3D 3D 3D 00 00     |==.;=========.. |

; THE NAME OF THIS FILE IS EDITFUNCTION.
CUT COPY CLEAR PASTE. PHA. JSR $C1BD. PL
A.CUT1X COPY1X PASTE1X. LOADW R0:VNDB8. 
JSR $C256. RTS.;---.;-  DIALOG BOX FOR P
ROMPT.VNDB8..BYTE 128+2..BYTE 2,17,77-8.
.BYTE 11,8,24..WORD XD11..BYTE 11,8,36..
WORD XD2..BYTE 11,8,48..WORD XD3.;..BYTE
 14..BYTE 0.XD11 .BYTE 'YOU HAVE SELECTE
D A RESIDENT',0.XD2 .BYTE 'ROUTINE.  NO 
DISK ACCESS',0.XD3 .BYTE 'IS NECESSARY T
O RUN.',0.;=======.;=========..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL