RENAMEDISK
FILE INFORMATION
FILENAME(S): RENAMEDISK
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 19:36:54
APPEARS ON: 1 disk(s)
FILE HASH
dc3f421e46d8d5e76295e51fe35f79ac4977cc8c4f37ea993a5e9cbcf6ec727b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C 64 UTILITIES 2 | RENAMEDISK | PRG | Curtcool, Bo | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 BB 08 00 00 9F 39 2C 30 2C 30 3A 9F 31 35 |.......9,0,0:.15| 00000010: 2C 38 2C 31 35 3A 50 4B B2 C2 28 35 39 34 36 38 |,8,15:PK..(59468| 00000020: 29 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 4D 44 24 B2 |):::::::::::MD$.| 00000030: 22 13 22 3A 81 49 B2 31 A4 32 30 3A 4D 44 24 B2 |".":.I.1.20:MD$.| 00000040: 4D 44 24 AA 22 11 22 3A 82 3A 81 49 B2 31 A4 33 |MD$.".":.:.I.1.3| 00000050: 39 3A 42 4C 24 B2 42 4C 24 AA 22 20 22 3A 82 3A |9:BL$.BL$." ":.:| 00000060: 50 30 24 B2 22 93 11 11 20 20 20 20 20 20 20 44 |P0$."... D| 00000070: 49 53 4B 20 4E 41 4D 45 20 43 48 41 4E 47 45 22 |ISK NAME CHANGE"| 00000080: 3A 52 45 24 B2 22 50 52 45 53 53 20 12 20 52 45 |:RE$."PRESS . RE| 00000090: 54 55 52 4E 20 92 20 54 4F 20 43 4F 4E 54 49 4E |TURN . TO CONTIN| 000000A0: 55 45 20 20 22 3A 83 32 2C 4F 55 54 4F 46 52 41 |UE ":.2,OUTOFRA| 000000B0: 4E 47 45 2C 54 4F 4F 4C 4F 4E 47 00 DE 08 01 00 |NGE,TOOLONG.....| 000000C0: 87 41 3A 86 45 4D 24 28 41 29 3A 81 49 B2 31 A4 |.A:.EM$(A):.I.1.| 000000D0: 41 3A 87 45 4D 24 28 49 29 3A 82 3A 89 38 00 F1 |A:.EM$(I):.:.8..| 000000E0: 08 02 00 84 31 35 2C 45 52 3A 8B 45 52 B2 30 A7 |....15,ER:.ER.0.| 000000F0: 8E 00 38 09 03 00 84 31 35 2C 45 52 2C 45 4D 24 |..8....15,ER,EM$| 00000100: 2C 45 54 24 2C 45 53 24 3A 99 4D 44 24 22 12 44 |,ET$,ES$:.MD$".D| 00000110: 49 53 4B 20 45 52 52 4F 52 21 92 20 23 22 45 52 |ISK ERROR!. #"ER| 00000120: 22 20 20 20 22 45 4D 24 22 20 20 22 45 54 24 22 |" "EM$" "ET$"| 00000130: 2C 20 22 45 53 24 3A 80 00 52 09 04 00 84 39 2C |, "ES$:..R....9,| 00000140: 51 24 3A 99 3A 51 31 24 B2 C8 28 51 24 2C 31 29 |Q$:.:Q1$..(Q$,1)| 00000150: 3A 8E 00 64 09 05 00 A0 32 3A A0 31 35 3A 99 22 |:..d....2:.15:."| 00000160: 93 22 3A 80 00 89 09 06 00 99 C8 28 4D 44 24 2C |.":........(MD$,| 00000170: 4D 44 29 42 4C 24 3A 99 42 4C 24 3A 99 C8 28 4D |MD)BL$:.BL$:..(M| 00000180: 44 24 2C 4D 44 29 3B 3A 8E 00 C5 09 07 00 4D 44 |D$,MD);:......MD| 00000190: B2 32 31 3A 8D 36 3A 99 22 12 55 4E 41 43 43 45 |.21:.6:.".UNACCE| 000001A0: 50 54 41 42 4C 45 20 45 4E 54 52 59 20 2D 2D 20 |PTABLE ENTRY -- | 000001B0: 22 45 4D 24 28 45 4D 29 3A 99 52 45 24 3A 8D 34 |"EM$(EM):.RE$:.4| 000001C0: 3A 8D 36 3A 8E 00 32 0A 08 00 46 B2 30 3A 99 50 |:.6:..2...F.0:.P| 000001D0: 30 24 3A 99 22 11 4F 4E 20 57 48 49 43 48 20 44 |0$:.".ON WHICH D| 000001E0: 52 49 56 45 20 53 48 41 4C 4C 20 57 45 20 50 45 |RIVE SHALL WE PE| 000001F0: 52 46 4F 52 4D 22 3A 99 22 54 48 45 20 43 48 41 |RFORM":."THE CHA| 00000200: 4E 47 45 53 3F 20 20 28 30 2F 31 29 20 12 22 3B |NGES? (0/1) .";| 00000210: 3A 8D 34 3A 44 56 B2 C5 28 51 24 29 3A 8B 44 56 |:.4:DV..(Q$):.DV| 00000220: B3 30 B0 44 56 B1 31 A7 45 4D B2 31 3A 8D 37 3A |.0.DV.1.EM.1:.7:| 00000230: 89 38 00 50 0A 09 00 8B 44 56 B2 30 AF 51 31 24 |.8.P....DV.0.Q1$| 00000240: B3 B1 22 30 22 A7 45 4D B2 31 3A 8D 37 3A 89 38 |.."0".EM.1:.7:.8| 00000250: 00 7E 0A 0A 00 99 50 30 24 3A 99 22 11 50 4C 41 |.~....P0$:.".PLA| 00000260: 43 45 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 |CE DISK IN DRIVE| 00000270: 22 44 56 22 11 22 3A 99 52 45 24 3A 8D 34 00 FB |"DV".":.RE$:.4..| 00000280: 0A 0B 00 98 31 35 2C 22 49 22 AA C4 28 44 56 29 |....15,"I"..(DV)| 00000290: 3A 8D 32 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A 98 |:.2:.2,8,2,"#":.| 000002A0: 31 35 2C 22 55 31 3A 32 22 3B 44 56 3B 22 2C 31 |15,"U1:2";DV;",1| 000002B0: 38 2C 30 22 3A 8D 32 3A 98 31 35 2C 22 42 2D 50 |8,0":.2:.15,"B-P| 000002C0: 3A 32 2C 31 34 34 22 3A 8D 32 3A 44 4E 24 B2 22 |:2,144":.2:DN$."| 000002D0: 22 3A 81 49 B2 31 A4 31 36 3A A1 23 32 2C 41 24 |":.I.1.16:.#2,A$| 000002E0: 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 3A 4D 44 |:DN$.DN$.A$:.:MD| 000002F0: B2 31 30 3A 8D 36 3A 8B 46 A7 8E 00 2E 0B 0C 00 |.10:.6:.F.......| 00000300: 99 22 54 48 45 20 50 52 45 53 45 4E 54 20 44 49 |."THE PRESENT DI| 00000310: 53 4B 20 4E 41 4D 45 20 49 53 3A 22 3A 99 A3 35 |SK NAME IS:":..5| 00000320: 29 C7 28 33 34 29 44 4E 24 C7 28 33 34 29 00 71 |).(34)DN$.(34).q| 00000330: 0B 0D 00 4D 44 B2 31 33 3A 8D 36 3A 99 22 44 4F |...MD.13:.6:."DO| 00000340: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 41 | YOU WANT TO CHA| 00000350: 4E 47 45 20 49 54 3F 20 20 28 59 2F 4E 29 20 12 |NGE IT? (Y/N) .| 00000360: 22 3B 3A 8D 34 3A 8B 51 31 24 B2 22 4E 22 A7 32 |";:.4:.Q1$."N".2| 00000370: 32 00 82 0B 0E 00 8B 51 31 24 B3 B1 22 59 22 A7 |2......Q1$.."Y".| 00000380: 31 33 00 C2 0B 0F 00 4D 44 B2 31 36 3A 8D 36 3A |13.....MD.16:.6:| 00000390: 99 22 45 4E 54 45 52 20 4E 45 57 20 44 49 53 4B |."ENTER NEW DISK| 000003A0: 20 4E 41 4D 45 22 3A 99 22 4C 49 4D 49 54 20 54 | NAME":."LIMIT T| 000003B0: 4F 20 31 36 20 43 48 41 52 41 43 54 45 52 53 20 |O 16 CHARACTERS | 000003C0: 12 22 00 E8 0B 10 00 8D 34 3A 8B C3 28 51 24 29 |."......4:..(Q$)| 000003D0: B1 31 36 A7 45 4D B2 32 3A 8D 37 3A 4D 44 B2 31 |.16.EM.2:.7:MD.1| 000003E0: 38 3A 8D 36 3A 89 31 36 00 FE 0B 11 00 4E 44 4E |8:.6:.16.....NDN| 000003F0: 24 B2 C8 28 51 24 AA 42 4C 24 2C 31 36 29 00 57 |$..(Q$.BL$,16).W| 00000400: 0C 12 00 4D 44 B2 32 31 3A 8D 36 3A 99 22 53 48 |...MD.21:.6:."SH| 00000410: 41 4C 4C 20 49 20 53 45 4E 44 20 12 22 4E 44 4E |ALL I SEND ."NDN| 00000420: 24 3A 99 22 54 4F 20 54 48 45 20 44 49 53 4B 20 |$:."TO THE DISK | 00000430: 4F 4E 20 44 52 49 56 45 22 44 56 22 3F 20 20 28 |ON DRIVE"DV"? (| 00000440: 59 2F 4E 29 20 12 22 3B 3A 8D 34 3A 8B 51 31 24 |Y/N) .";:.4:.Q1$| 00000450: B2 22 59 22 A7 32 31 00 74 0C 13 00 8B 51 31 24 |."Y".21.t....Q1$| 00000460: B2 22 4E 22 A7 8D 36 3A 4D 44 B2 31 38 3A 8D 36 |."N"..6:MD.18:.6| 00000470: 3A 89 31 35 00 7C 0C 14 00 89 31 38 00 20 0D 15 |:.15.|....18. ..| 00000480: 00 4D 44 B2 32 31 3A 8D 36 3A 99 22 42 45 20 50 |.MD.21:.6:."BE P| 00000490: 41 54 49 45 4E 54 20 2E 20 2E 20 2E 22 3A 98 31 |ATIENT . . .":.1| 000004A0: 35 2C 22 42 2D 50 3A 32 2C 31 34 34 22 3A 8D 32 |5,"B-P:2,144":.2| 000004B0: 3A 98 32 2C 4E 44 4E 24 3B 3A 8D 32 3A 98 31 35 |:.2,NDN$;:.2:.15| 000004C0: 2C 22 55 32 3A 32 22 3B 44 56 3B 22 2C 31 38 2C |,"U2:2";DV;",18,| 000004D0: 30 22 3A 8D 32 3A 98 31 35 2C 22 49 22 AA C4 28 |0":.2:.15,"I"..(| 000004E0: 44 56 29 3A 8D 32 3A A0 32 3A 46 B2 31 3A 99 50 |DV):.2:.2:F.1:.P| 000004F0: 30 24 3A 8D 31 31 3A 46 B2 30 3A 99 22 54 48 45 |0$:.11:F.0:."THE| 00000500: 20 4E 45 57 20 44 49 53 4B 20 49 44 20 49 53 3A | NEW DISK ID IS:| 00000510: 22 3A 99 C7 28 33 34 29 44 4E 24 C7 28 33 34 29 |":..(34)DN$.(34)| 00000520: 00 6F 0D 16 00 A0 32 3A 4D 44 B2 32 31 3A 8D 36 |.o....2:MD.21:.6| 00000530: 3A 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |:."DO YOU WANT T| 00000540: 4F 20 44 4F 22 3A 99 22 41 4E 4F 54 48 45 52 20 |O DO":."ANOTHER | 00000550: 44 49 53 4B 3F 20 20 28 59 2F 4E 29 20 20 12 22 |DISK? (Y/N) ."| 00000560: 3B 3A 8D 34 3A 8B 51 31 24 B2 22 59 22 A7 8A 00 |;:.4:.Q1$."Y"...| 00000570: 7E 0D 17 00 8B 51 31 24 B2 22 4E 22 A7 35 00 86 |~....Q1$."N".5..| 00000580: 0D 18 00 89 32 32 00 00 00 |....22... |
.......9,0,0:.15,8,15:PK.B(59468)::::::: ::::MD$.".":.I.1.20:MD$.MD$.".":.:.I.1.3 9:BL$.BL$." ":.:P0$."... DISK NAME CHANGE":RE$."PRESS . RETURN . TO CONTIN UE ":.2,OUTOFRANGE,TOOLONG......A:.EM$( A):.I.1.A:.EM$(I):.:.8......15,ER:.ER.0. ..8....15,ER,EM$,ET$,ES$:.MD$".DISK ERRO R!. #"ER" "EM$" "ET$", "ES$:..R....9, Q$:.:Q1$.H(Q$,1):..D... 2: 15:.".":..... ..H(MD$,MD)BL$:.BL$:.H(MD$,MD);:..E...MD .21:.6:.".UNACCEPTABLE ENTRY -- "EM$(EM) :.RE$:.4:.6:..2...F.0:.P0$:.".ON WHICH D RIVE SHALL WE PERFORM":."THE CHANGES? ( 0/1) .";:.4:DV.E(Q$):.DV.0.DV.1.EM.1:.7: .8.P....DV.0.Q1$.."0".EM.1:.7:.8.~....P0 $:.".PLACE DISK IN DRIVE"DV".":.RE$:.4.. ....15,"I".D(DV):.2:.2,8,2,"#":.15,"U1:2 ";DV;",18,0":.2:.15,"B-P:2,144":.2:DN$." ":.I.1.16:.#2,A$:DN$.DN$.A$:.:MD.10:.6:. F........"THE PRESENT DISK NAME IS:":..5 )G(34)DN$G(34).Q...MD.13:.6:."DO YOU WAN T TO CHANGE IT? (Y/N) .";:.4:.Q1$."N".2 2......Q1$.."Y".13.B...MD.16:.6:."ENTER NEW DISK NAME":."LIMIT TO 16 CHARACTERS ."......4:.C(Q$).16.EM.2:.7:MD.18:.6:.16 .....NDN$.H(Q$.BL$,16).W...MD.21:.6:."SH ALL I SEND ."NDN$:."TO THE DISK ON DRIVE "DV"? (Y/N) .";:.4:.Q1$."Y".21.T....Q1$ ."N"..6:MD.18:.6:.15.|....18. ...MD.21:. 6:."BE PATIENT . . .":.15,"B-P:2,144":.2 :.2,NDN$;:.2:.15,"U2:2";DV;",18,0":.2:.1 5,"I".D(DV):.2: 2:F.1:.P0$:.11:F.0:."THE NEW DISK ID IS:":.G(34)DN$G(34).O... 2: MD.21:.6:."DO YOU WANT TO DO":."ANOTHER DISK? (Y/N) .";:.4:.Q1$."Y"...~....Q1$ ."N".5......22...
> CLICK IMAGE PREVIEW FOR FULL MODAL