EDIT DISK NAME
FILE INFORMATION
FILENAME(S): EDIT DISK NAME
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-12-01 02:25:40
APPEARS ON: 1 disk(s)
FILE HASH
4337996f73ff780a657597099abf48019e1a13fef630fef45db108a4c23518a6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| INSIDE C DOS 1 | EDIT DISK NAME | PRG | hedning, shine | 17 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 2A 49 4E 53 49 44 45 20 |..%.... *INSIDE |
00000010: 43 4F 4D 4D 4F 44 4F 52 45 20 44 4F 53 20 50 47 |COMMODORE DOS PG|
00000020: 2E 20 37 38 2A 00 3C 08 14 00 8F 20 2A 4A 4A 4D |. 78*.<.... *JJM|
00000030: 2A 20 20 20 2A 30 34 30 37 38 37 2A 00 51 08 64 |* *040787*.Q.d|
00000040: 00 8F 20 45 44 49 54 20 44 49 53 4B 20 4E 41 4D |.. EDIT DISK NAM|
00000050: 45 00 60 08 6E 00 81 20 49 B2 31 20 A4 20 31 36 |E.`.n.. I.1 . 16|
00000060: 00 75 08 78 00 50 41 44 24 B2 50 41 44 24 AA C7 |.u.x.PAD$.PAD$..|
00000070: 28 31 36 30 29 00 7D 08 82 00 82 20 49 00 9B 08 |(160).}.... I...|
00000080: 8C 00 99 22 93 45 44 49 54 20 44 49 53 4B 20 4E |...".EDIT DISK N|
00000090: 41 4D 45 20 2D 20 31 35 34 31 22 00 BE 08 96 00 |AME - 1541".....|
000000A0: 99 22 11 52 45 4D 4F 56 45 20 12 57 52 49 54 45 |.".REMOVE .WRITE|
000000B0: 20 50 52 4F 54 45 43 54 20 54 41 42 92 22 00 DF | PROTECT TAB."..|
000000C0: 08 A0 00 99 22 11 49 4E 53 45 52 54 20 44 49 53 |....".INSERT DIS|
000000D0: 4B 45 54 54 45 20 49 4E 20 44 52 49 56 45 22 00 |KETTE IN DRIVE".|
000000E0: 02 09 AA 00 99 22 11 50 52 45 53 53 20 12 52 45 |.....".PRESS .RE|
000000F0: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
00000100: 45 22 00 15 09 B4 00 A1 43 24 3A 8B 43 24 B2 22 |E"......C$:.C$."|
00000110: 22 A7 31 38 30 00 28 09 BE 00 8B 43 24 B3 B1 C7 |".180.(....C$...|
00000120: 28 31 33 29 89 31 38 30 00 32 09 C8 00 99 22 4F |(13).180.2...."O|
00000130: 4B 22 00 3F 09 D2 00 9F 31 35 2C 38 2C 31 35 00 |K".?....15,8,15.|
00000140: 4C 09 DC 00 98 31 35 2C 22 49 30 22 00 64 09 E6 |L....15,"I0".d..|
00000150: 00 84 31 35 2C 45 4E 24 2C 45 4D 24 2C 45 54 24 |..15,EN$,EM$,ET$|
00000160: 2C 45 53 24 00 76 09 F0 00 8B 45 4E 24 B2 22 30 |,ES$.v....EN$."0|
00000170: 30 22 89 32 38 30 00 95 09 FA 00 99 22 11 22 45 |0".280......"."E|
00000180: 4E 24 22 2C 20 22 45 4D 24 22 2C 22 45 54 24 22 |N$", "EM$","ET$"|
00000190: 2C 22 45 53 24 00 9D 09 04 01 A0 31 35 00 A3 09 |,"ES$......15...|
000001A0: 0E 01 80 00 B2 09 18 01 9F 32 2C 38 2C 32 2C 22 |.........2,8,2,"|
000001B0: 23 22 00 C8 09 22 01 98 31 35 2C 22 55 31 22 3B |#"..."..15,"U1";|
000001C0: 32 3B 30 3B 31 38 3B 30 00 E0 09 2C 01 84 31 35 |2;0;18;0...,..15|
000001D0: 2C 45 4E 24 2C 45 4D 24 2C 45 54 24 2C 45 53 24 |,EN$,EM$,ET$,ES$|
000001E0: 00 F2 09 36 01 98 31 35 2C 22 42 2D 50 22 3B 32 |...6..15,"B-P";2|
000001F0: 3B 32 00 FD 09 40 01 A1 23 32 2C 42 24 00 10 0A |;2...@..#2,B$...|
00000200: 4A 01 8B 42 24 B2 22 22 A7 42 24 B2 C7 28 30 29 |J..B$."".B$..(0)|
00000210: 00 1E 0A 54 01 44 4F 53 B2 C6 28 42 24 29 00 2E |...T.DOS..(B$)..|
00000220: 0A 5E 01 8B 44 4F 53 B2 36 35 89 33 39 30 00 51 |.^..DOS.65.390.Q|
00000230: 0A 68 01 99 22 11 37 33 2C 43 42 4D 20 44 4F 53 |.h..".73,CBM DOS|
00000240: 20 56 32 2E 36 20 31 35 34 31 2C 30 30 2C 30 30 | V2.6 1541,00,00|
00000250: 22 00 62 0A 72 01 99 22 11 12 46 41 49 4C 45 44 |".b.r.."..FAILED|
00000260: 92 22 00 6B 0A 7C 01 89 37 32 30 00 7F 0A 86 01 |.".k.|..720.....|
00000270: 98 31 35 2C 22 42 2D 50 22 3B 32 3B 31 34 34 00 |.15,"B-P";2;144.|
00000280: 8C 0A 90 01 81 20 49 B2 31 A4 31 36 00 97 0A 9A |..... I.1.16....|
00000290: 01 A1 23 32 2C 42 24 00 AA 0A A4 01 8B 42 24 B2 |..#2,B$......B$.|
000002A0: 22 22 A7 42 24 B2 C7 28 30 29 00 B6 0A AE 01 41 |"".B$..(0).....A|
000002B0: B2 C6 28 42 24 29 00 C9 0A B8 01 8B 41 B1 31 32 |..(B$)......A.12|
000002C0: 37 A7 41 B2 41 AB 31 32 38 00 DD 0A C2 01 8B 41 |7.A.A.128......A|
000002D0: B3 33 32 B0 41 B1 39 35 A7 41 B2 36 33 00 EC 0A |.32.A.95.A.63...|
000002E0: CC 01 8B 41 B2 33 34 A7 41 B2 36 33 00 FF 0A D6 |...A.34.A.63....|
000002F0: 01 4F 44 4E 24 B2 4F 44 4E 24 AA C7 28 41 29 00 |.ODN$.ODN$..(A).|
00000300: 07 0B E0 01 82 20 49 00 24 0B EA 01 99 22 11 4F |..... I.$....".O|
00000310: 4C 44 20 44 49 53 4B 20 4E 41 4D 45 3A 20 22 3B |LD DISK NAME: ";|
00000320: 4F 44 4E 24 00 3F 0B F4 01 85 22 11 4E 45 57 20 |ODN$.?....".NEW |
00000330: 44 49 53 4B 20 4E 41 4D 45 22 3B 4E 44 4E 24 00 |DISK NAME";NDN$.|
00000340: 5E 0B FE 01 8B C3 28 4E 44 4E 24 29 B3 B1 30 AF |^.....(NDN$)..0.|
00000350: C3 28 4E 44 4E 24 29 B3 31 37 89 35 33 30 00 67 |.(NDN$).17.530.g|
00000360: 0B 08 02 89 37 32 30 00 8B 0B 12 02 85 22 11 41 |....720......".A|
00000370: 52 45 20 59 4F 55 20 53 55 52 45 20 28 59 2F 4E |RE YOU SURE (Y/N|
00000380: 29 20 20 59 9D 9D 9D 22 3B 51 24 00 9C 0B 1C 02 |) Y...";Q$.....|
00000390: 8B 51 24 B3 B1 22 59 22 89 37 32 30 00 B5 0B 26 |.Q$.."Y".720...&|
000003A0: 02 4E 44 4E 24 B2 C8 28 4E 44 4E 24 AA 50 41 44 |.NDN$..(NDN$.PAD|
000003B0: 24 2C 31 36 29 00 C9 0B 30 02 98 31 35 2C 22 42 |$,16)...0..15,"B|
000003C0: 2D 50 22 3B 32 3B 31 34 34 00 D6 0B 3A 02 98 32 |-P";2;144...:..2|
000003D0: 2C 4E 44 4E 24 3B 00 EC 0B 44 02 98 31 35 2C 22 |,NDN$;...D..15,"|
000003E0: 55 32 22 3B 32 3B 30 3B 31 38 3B 30 00 04 0C 4E |U2";2;0;18;0...N|
000003F0: 02 84 31 35 2C 45 4E 24 2C 45 4D 24 2C 45 54 24 |..15,EN$,EM$,ET$|
00000400: 2C 45 53 24 00 16 0C 58 02 8B 45 4E 24 B2 22 30 |,ES$...X..EN$."0|
00000410: 30 22 89 36 34 30 00 35 0C 62 02 99 22 11 22 45 |0".640.5.b.."."E|
00000420: 4E 24 22 2C 20 22 45 4D 24 22 2C 22 45 54 24 22 |N$", "EM$","ET$"|
00000430: 2C 22 45 53 24 00 46 0C 6C 02 99 22 11 12 46 41 |,"ES$.F.l.."..FA|
00000440: 49 4C 45 44 92 22 00 4F 0C 76 02 89 37 32 30 00 |ILED.".O.v..720.|
00000450: 56 0C 80 02 A0 32 00 6E 0C 8A 02 84 31 35 2C 45 |V....2.n....15,E|
00000460: 4E 24 2C 45 4D 24 2C 45 54 24 2C 45 53 24 00 7B |N$,EM$,ET$,ES$.{|
00000470: 0C 94 02 98 31 35 2C 22 49 30 22 00 93 0C 9E 02 |....15,"I0".....|
00000480: 84 31 35 2C 45 4E 24 2C 45 4D 24 2C 45 54 24 2C |.15,EN$,EM$,ET$,|
00000490: 45 53 24 00 9B 0C A8 02 A0 31 35 00 A9 0C B2 02 |ES$......15.....|
000004A0: 99 22 11 44 4F 4E 45 21 22 00 AF 0C BC 02 80 00 |.".DONE!".......|
000004B0: BB 0C C6 02 8F 20 43 4C 4F 53 45 00 C2 0C D0 02 |..... CLOSE.....|
000004C0: A0 32 00 DA 0C DA 02 84 31 35 2C 45 4E 24 2C 45 |.2......15,EN$,E|
000004D0: 4D 24 2C 45 54 24 2C 45 53 24 00 E2 0C E4 02 A0 |M$,ET$,ES$......|
000004E0: 31 35 00 E8 0C EE 02 80 00 00 00 |15......... |
..%.... *INSIDE COMMODORE DOS PG. 78*.<.
... *JJM* *040787*.Q.D.. EDIT DISK NAM
E.`.N.. I.1 . 16.U.X.PAD$.PAD$.G(160).}.
... I......".EDIT DISK NAME - 1541".....
.".REMOVE .WRITE PROTECT TAB."... ..".IN
SERT DISKETTE IN DRIVE"......".PRESS .RE
TURN. TO CONTINUE"......C$:.C$."".180.(.
...C$..G(13).180.2.H.."OK".?.R..15,8,15.
L....15,"I0".D....15,EN$,EM$,ET$,ES$.V..
..EN$."00".280......"."EN$", "EM$","ET$"
,"ES$..... 15............2,8,2,"#".H."..
15,"U1";2;0;18;0...,..15,EN$,EM$,ET$,ES$
...6..15,"B-P";2;2...@..#2,B$...J..B$.""
.B$.G(0)...T.DOS.F(B$)...^..DOS.65.390.Q
.H..".73,CBM DOS V2.6 1541,00,00".B.R.."
..FAILED.".K.|..720.....15,"B-P";2;144.
..... I.1.16......#2,B$......B$."".B$.G(
0).....A.F(B$).I....A.127.A.A.128...B..A
.32.A.95.A.63...L..A.34.A.63...V.ODN$.OD
N$.G(A)...... I.$....".OLD DISK NAME: ";
ODN$.?....".NEW DISK NAME";NDN$.^....C(N
DN$)..0.C(NDN$).17.530.G....720......".A
RE YOU SURE (Y/N) Y...";Q$......Q$.."Y"
.720...&.NDN$.H(NDN$.PAD$,16).I.0..15,"B
-P";2;144.V.:..2,NDN$;...D..15,"U2";2;0;
18;0...N..15,EN$,EM$,ET$,ES$...X..EN$."0
0".640.5.B.."."EN$", "EM$","ET$","ES$.F.
L.."..FAILED.".O.V..720.V... 2.N....15,E
N$,EM$,ET$,ES$.{....15,"I0"......15,EN$,
EM$,ET$,ES$..... 15......".DONE!".......
..F.. CLOSE.B.P. 2.Z.Z..15,EN$,EM$,ET$,E
S$..... 15.........
> CLICK IMAGE PREVIEW FOR FULL MODAL