DISK NAME CHANGE

FILE INFORMATION

FILENAME(S): DISK NAME CHANGE

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 01:07:57

APPEARS ON: 2 disk(s)

FILE HASH

e8ed3d4a036c485e9951fb51990ae4e55c19bfa5e4ae3841c0bb9a4d7e174c79

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FREESOFT NR	DISK NAME CHANGE	PRG	Treasure Chest - Wolfgang Rauprich	14	1	DOWNLOAD FILE
PD DISK 19	DISK NAME CHANGE	PRG	Treasure Chest - Wolfgang Rauprich	14	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1F 08 01 00 8F 20  44 49 53 4B 20 4E 41 4D  |....... DISK NAM|
00000010: 45 20 43 48 41 4E 47 45  52 20 28 52 45 56 29 00  |E CHANGER (REV).|
00000020: 3F 08 02 00 8F 20 43 4F  4D 50 55 54 45 20 36 20  |?.... COMPUTE 6 |
00000030: 2D 2D 20 52 45 4E 45 20  50 4F 49 52 49 45 52 00  |-- RENE POIRIER.|
00000040: 53 08 0A 00 9F 39 2C 30  2C 30 3A 9F 31 35 2C 38  |S....9,0,0:.15,8|
00000050: 2C 31 35 00 6D 08 14 00  50 4B B2 C2 28 35 39 34  |,15.m...PK..(594|
00000060: 36 38 29 3A 97 35 39 34  36 38 2C 31 32 00 8F 08  |68):.59468,12...|
00000070: 1E 00 4D 44 24 B2 22 13  22 3A 81 49 B2 31 A4 32  |..MD$.".":.I.1.2|
00000080: 30 3A 4D 44 24 B2 4D 44  24 AA 22 11 22 3A 82 00  |0:MD$.MD$.".":..|
00000090: A9 08 28 00 81 49 B2 31  A4 33 39 3A 42 4C 24 B2  |..(..I.1.39:BL$.|
000000A0: 42 4C 24 AA 22 20 22 3A  82 00 D0 08 32 00 50 30  |BL$." ":....2.P0|
000000B0: 24 B2 22 93 11 11 20 20  20 20 20 20 20 20 20 44  |$."...         D|
000000C0: 49 53 4B 20 4E 41 4D 45  20 43 48 41 4E 47 45 52  |ISK NAME CHANGER|
000000D0: 00 F4 08 3C 00 52 45 24  B2 22 50 52 45 53 53 20  |...<.RE$."PRESS |
000000E0: 12 52 45 54 55 52 4E 92  20 54 4F 20 43 4F 4E 54  |.RETURN. TO CONT|
000000F0: 49 4E 55 45 00 11 09 46  00 83 32 2C 4F 55 54 20  |INUE...F..2,OUT |
00000100: 4F 46 20 52 41 4E 47 45  2C 54 4F 4F 20 4C 4F 4E  |OF RANGE,TOO LON|
00000110: 47 00 31 09 50 00 87 41  3A 86 45 4D 24 28 41 29  |G.1.P..A:.EM$(A)|
00000120: 3A 81 49 B2 31 A4 41 3A  87 45 4D 24 28 49 29 3A  |:.I.1.A:.EM$(I):|
00000130: 82 00 3B 09 63 00 89 31  30 30 30 00 4E 09 64 00  |..;.c..1000.N.d.|
00000140: 84 31 35 2C 45 52 3A 8B  45 52 B2 30 A7 8E 00 65  |.15,ER:.ER.0...e|
00000150: 09 6E 00 84 31 35 2C 45  52 2C 45 4D 24 2C 45 54  |.n..15,ER,EM$,ET|
00000160: 24 2C 45 53 24 00 94 09  78 00 99 4D 44 24 22 12  |$,ES$...x..MD$".|
00000170: 44 49 53 4B 20 45 52 52  4F 52 21 92 20 23 22 45  |DISK ERROR!. #"E|
00000180: 52 22 20 22 45 4D 24 22  20 22 45 54 24 22 2C 20  |R" "EM$" "ET$", |
00000190: 22 45 53 24 00 9A 09 82  00 80 00 B4 09 C8 00 84  |"ES$............|
000001A0: 39 2C 51 24 3A 99 3A 51  31 24 B2 C8 28 51 24 2C  |9,Q$:.:Q1$..(Q$,|
000001B0: 31 29 3A 8E 00 D0 09 2C  01 A0 32 3A A0 31 35 3A  |1):....,..2:.15:|
000001C0: 97 35 39 34 36 38 2C 50  4B 3A 99 22 93 22 3A 80  |.59468,PK:.".":.|
000001D0: 00 E7 09 90 01 99 C8 28  4D 44 24 2C 4D 44 29 42  |.......(MD$,MD)B|
000001E0: 4C 24 3A 99 42 4C 24 00  F9 09 9A 01 99 C8 28 4D  |L$:.BL$.......(M|
000001F0: 44 24 2C 4D 44 29 3B 3A  8E 00 08 0A F4 01 4D 44  |D$,MD);:......MD|
00000200: B2 32 31 3A 8D 34 30 30  00 2E 0A FE 01 99 22 12  |.21:.400......".|
00000210: 55 4E 41 43 43 45 50 54  41 42 4C 45 20 45 4E 54  |UNACCEPTABLE ENT|
00000220: 52 59 20 2D 2D 20 22 45  4D 24 28 45 4D 29 00 41  |RY -- "EM$(EM).A|
00000230: 0A 08 02 99 52 45 24 3A  8D 32 30 30 3A 8D 34 30  |....RE$:.200:.40|
00000240: 30 00 47 0A 12 02 8E 00  54 0A E8 03 46 B2 30 3A  |0.G.....T...F.0:|
00000250: 99 50 30 24 00 86 0A ED  03 99 22 11 4F 4E 20 57  |.P0$......".ON W|
00000260: 48 49 43 48 20 44 52 49  56 45 20 46 4F 52 20 43  |HICH DRIVE FOR C|
00000270: 48 41 4E 47 45 53 3F 20  28 30 2F 31 29 20 12 22  |HANGES? (0/1) ."|
00000280: 3B 3A 8D 32 30 30 00 AE  0A FC 03 44 56 B2 C5 28  |;:.200.....DV..(|
00000290: 51 24 29 3A 8B 44 56 B3  30 B0 44 56 B1 31 A7 45  |Q$):.DV.0.DV.1.E|
000002A0: 4D B2 31 3A 8D 35 30 30  3A 89 31 30 30 30 00 D1  |M.1:.500:.1000..|
000002B0: 0A 06 04 8B 44 56 B2 30  AF 51 31 24 B3 B1 22 30  |....DV.0.Q1$.."0|
000002C0: 22 A7 45 4D B2 31 3A 8D  35 30 30 3A 89 31 30 30  |".EM.1:.500:.100|
000002D0: 30 00 FB 0A 10 04 99 50  30 24 3A 99 22 11 50 4C  |0......P0$:.".PL|
000002E0: 41 43 45 20 44 49 53 4B  45 54 54 45 20 49 4E 20  |ACE DISKETTE IN |
000002F0: 44 52 49 56 45 22 44 56  22 11 22 00 09 0B 1A 04  |DRIVE"DV".".....|
00000300: 99 52 45 24 3A 8D 32 30  30 00 20 0B 24 04 98 31  |.RE$:.200. .$..1|
00000310: 35 2C 22 49 22 AA C4 28  44 56 29 3A 8D 31 30 30  |5,"I"..(DV):.100|
00000320: 00 4A 0B 2E 04 9F 32 2C  38 2C 32 2C 22 23 22 3A  |.J....2,8,2,"#":|
00000330: 98 31 35 2C 22 55 31 3A  32 22 3B 44 56 3B 22 2C  |.15,"U1:2";DV;",|
00000340: 31 38 2C 30 22 3A 8D 31  30 30 00 6A 0B 38 04 98  |18,0":.100.j.8..|
00000350: 31 35 2C 22 42 2D 50 3A  32 2C 31 34 34 22 3A 8D  |15,"B-P:2,144":.|
00000360: 31 30 30 3A 44 4E 24 B2  22 22 00 8A 0B 42 04 81  |100:DN$.""...B..|
00000370: 49 B2 31 A4 31 36 3A A1  23 32 2C 41 24 3A 44 4E  |I.1.16:.#2,A$:DN|
00000380: 24 B2 44 4E 24 AA 41 24  3A 82 00 A1 0B 4C 04 4D  |$.DN$.A$:....L.M|
00000390: 44 B2 31 30 3A 8D 34 30  30 3A 8B 20 46 20 A7 20  |D.10:.400:. F . |
000003A0: 8E 00 C1 0B 56 04 99 22  54 48 45 20 50 52 45 53  |....V.."THE PRES|
000003B0: 45 4E 54 20 44 49 53 4B  20 4E 41 4D 45 20 49 53  |ENT DISK NAME IS|
000003C0: 3A 00 D7 0B 60 04 99 A3  35 29 C7 28 33 34 29 44  |:...`...5).(34)D|
000003D0: 4E 24 C7 28 33 34 29 00  E6 0B 6A 04 4D 44 B2 31  |N$.(34)...j.MD.1|
000003E0: 33 3A 8D 34 30 30 00 15  0C 74 04 99 22 44 4F 20  |3:.400...t.."DO |
000003F0: 59 4F 55 20 57 49 53 48  20 54 4F 20 43 48 41 4E  |YOU WISH TO CHAN|
00000400: 47 45 20 49 54 3F 20 28  59 2F 4E 29 20 12 22 3B  |GE IT? (Y/N) .";|
00000410: 3A 8D 32 30 30 00 27 0C  7E 04 8B 51 31 24 B2 22  |:.200.'.~..Q1$."|
00000420: 4E 22 A7 31 33 35 30 00  3A 0C 88 04 8B 51 31 24  |N".1350.:....Q1$|
00000430: B3 B1 22 59 22 A7 31 31  33 30 00 49 0C 92 04 4D  |.."Y".1130.I...M|
00000440: 44 B2 31 36 3A 8D 34 30  30 00 80 0C 9C 04 99 22  |D.16:.400......"|
00000450: 45 4E 54 45 52 20 4E 45  57 20 44 49 53 4B 20 4E  |ENTER NEW DISK N|
00000460: 41 4D 45 22 3A 99 22 4C  49 4D 49 54 20 54 4F 20  |AME":."LIMIT TO |
00000470: 31 36 20 43 48 41 52 41  43 54 45 52 53 20 12 22  |16 CHARACTERS ."|
00000480: 00 AE 0C A6 04 8D 32 30  30 3A 8B C3 28 51 24 29  |......200:..(Q$)|
00000490: B1 31 36 A7 45 4D B2 32  3A 8D 35 30 30 3A 4D 44  |.16.EM.2:.500:MD|
000004A0: B2 31 38 3A 8D 34 30 30  3A 89 31 31 39 30 00 C4  |.18:.400:.1190..|
000004B0: 0C B0 04 4E 44 4E 24 B2  C8 28 51 24 AA 42 4C 24  |...NDN$..(Q$.BL$|
000004C0: 2C 31 36 29 00 D3 0C BA  04 4D 44 B2 32 31 3A 8D  |,16).....MD.21:.|
000004D0: 34 30 30 00 ED 0C C4 04  99 22 53 48 41 4C 4C 20  |400......"SHALL |
000004E0: 49 20 53 45 4E 44 20 12  22 4E 44 4E 24 00 20 0D  |I SEND ."NDN$. .|
000004F0: CE 04 99 22 54 4F 20 54  48 45 20 44 49 53 4B 45  |..."TO THE DISKE|
00000500: 54 54 45 20 4F 4E 20 44  52 49 56 45 22 44 56 22  |TTE ON DRIVE"DV"|
00000510: 3F 20 28 59 2F 4E 29 20  12 22 3B 3A 8D 32 30 30  |? (Y/N) .";:.200|
00000520: 00 32 0D D8 04 8B 51 31  24 B2 22 59 22 A7 31 32  |.2....Q1$."Y".12|
00000530: 37 30 00 56 0D E2 04 8B  51 31 24 B3 B1 22 4E 22  |70.V....Q1$.."N"|
00000540: A7 8D 34 30 30 3A 4D 44  B2 31 38 3A 8D 34 30 30  |..400:MD.18:.400|
00000550: 3A 89 31 31 37 30 00 60  0D EC 04 89 31 32 31 30  |:.1170.`....1210|
00000560: 00 7F 0D F6 04 4D 44 B2  32 31 3A 8D 34 30 30 3A  |.....MD.21:.400:|
00000570: 99 22 42 45 20 50 41 54  49 45 4E 54 2E 2E 2E 00  |."BE PATIENT....|
00000580: 98 0D 00 05 98 31 35 2C  22 42 2D 50 3A 32 2C 31  |.....15,"B-P:2,1|
00000590: 34 34 22 3A 8D 31 30 30  00 AA 0D 0A 05 98 32 2C  |44":.100......2,|
000005A0: 4E 44 4E 24 3B 3A 8D 31  30 30 00 C9 0D 14 05 98  |NDN$;:.100......|
000005B0: 31 35 2C 22 55 32 3A 32  22 3B 44 56 3B 22 2C 31  |15,"U2:2";DV;",1|
000005C0: 38 2C 30 22 3A 8D 31 30  30 00 E3 0D 1E 05 98 31  |8,0":.100......1|
000005D0: 35 2C 22 49 22 AA C4 28  44 56 29 3A 8D 31 30 30  |5,"I"..(DV):.100|
000005E0: 3A A0 32 00 FA 0D 28 05  46 B2 31 3A 99 50 30 24  |:.2...(.F.1:.P0$|
000005F0: 3A 8D 31 30 36 30 3A 46  B2 30 00 16 0E 32 05 99  |:.1060:F.0...2..|
00000600: 22 54 48 45 20 4E 45 57  20 44 49 53 4B 20 4E 41  |"THE NEW DISK NA|
00000610: 4D 45 20 49 53 3A 00 29  0E 3C 05 99 C7 28 33 34  |ME IS:.).<...(34|
00000620: 29 44 4E 24 C7 28 33 34  29 00 4F 0E 46 05 A0 32  |)DN$.(34).O.F..2|
00000630: 3A 4D 44 B2 32 31 3A 8D  34 30 30 3A 99 22 44 4F  |:MD.21:.400:."DO|
00000640: 20 59 4F 55 20 57 49 53  48 20 54 4F 20 44 4F 00  | YOU WISH TO DO.|
00000650: 76 0E 50 05 99 22 41 4E  4F 54 48 45 52 20 44 49  |v.P.."ANOTHER DI|
00000660: 53 4B 45 54 54 45 3F 20  28 59 2F 4E 29 20 12 22  |SKETTE? (Y/N) ."|
00000670: 3B 3A 8D 32 30 30 00 88  0E 5A 05 8B 51 31 24 B2  |;:.200...Z..Q1$.|
00000680: 22 59 22 A7 31 30 34 30  00 99 0E 64 05 8B 51 31  |"Y".1040...d..Q1|
00000690: 24 B2 22 4E 22 A7 33 30  30 00 A3 0E 6E 05 89 31  |$."N".300...n..1|
000006A0: 33 35 30 00 00 00                                 |350...          |

....... DISK NAME CHANGER (REV).?.... CO
MPUTE 6 -- RENE POIRIER.S....9,0,0:.15,8
,15.M...PK.B(59468):.59468,12.....MD$.".
":.I.1.20:MD$.MD$.".":....(..I.1.39:BL$.
BL$." ":..P.2.P0$."...         DISK NAME
 CHANGER...<.RE$."PRESS .RETURN. TO CONT
INUE...F..2,OUT OF RANGE,TOO LONG.1.P..A
:.EM$(A):.I.1.A:.EM$(I):..;.C..1000.N.D.
.15,ER:.ER.0...E.N..15,ER,EM$,ET$,ES$...
X..MD$".DISK ERROR!. #"ER" "EM$" "ET$", 
"ES$.........H..9,Q$:.:Q1$.H(Q$,1):..P.,
. 2: 15:.59468,PK:.".":.......H(MD$,MD)B
L$:.BL$......H(MD$,MD);:......MD.21:.400
......".UNACCEPTABLE ENTRY -- "EM$(EM).A
....RE$:.200:.400.G.....T...F.0:.P0$....
..".ON WHICH DRIVE FOR CHANGES? (0/1) ."
;:.200.....DV.E(Q$):.DV.0.DV.1.EM.1:.500
:.1000.Q....DV.0.Q1$.."0".EM.1:.500:.100
0......P0$:.".PLACE DISKETTE IN DRIVE"DV
"."......RE$:.200. .$..15,"I".D(DV):.100
.J....2,8,2,"#":.15,"U1:2";DV;",18,0":.1
00.J.8..15,"B-P:2,144":.100:DN$.""...B..
I.1.16:.#2,A$:DN$.DN$.A$:....L.MD.10:.40
0:. F . ..A.V.."THE PRESENT DISK NAME IS
:.W.`...5)G(34)DN$G(34)...J.MD.13:.400..
.T.."DO YOU WISH TO CHANGE IT? (Y/N) .";
:.200.'.~..Q1$."N".1350.:....Q1$.."Y".11
30.I...MD.16:.400......"ENTER NEW DISK N
AME":."LIMIT TO 16 CHARACTERS ."......20
0:.C(Q$).16.EM.2:.500:MD.18:.400:.1190.D
...NDN$.H(Q$.BL$,16).S...MD.21:.400...D.
."SHALL I SEND ."NDN$. .N.."TO THE DISKE
TTE ON DRIVE"DV"? (Y/N) .";:.200.2.X..Q1
$."Y".1270.V....Q1$.."N"..400:MD.18:.400
:.1170.`....1210....MD.21:.400:."BE PAT
IENT.........15,"B-P:2,144":.100......2,
NDN$;:.100.I....15,"U2:2";DV;",18,0":.10
0......15,"I".D(DV):.100: 2...(.F.1:.P0$
:.1060:F.0...2.."THE NEW DISK NAME IS:.)
.<..G(34)DN$G(34).O.F. 2:MD.21:.400:."DO
 YOU WISH TO DO.V.P.."ANOTHER DISKETTE? 
(Y/N) .";:.200...Z..Q1$."Y".1040...D..Q1
$."N".300...N..1350...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL