DISK ID CHANGER
FILE INFORMATION
FILENAME(S): DISK ID CHANGER
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 21:11:27
APPEARS ON: 1 disk(s)
FILE HASH
88fc37701c21cdb58ed77e184cf761ed2e2cadbc3e9bd7822b531a28b7eb924a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VERZAMEL 22 5 | DISK ID CHANGER | PRG | DuncanTwain | 2 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 01 00 97 35 33 32 38 30 2C 30 32 3A |.......53280,02:| 00000010: 97 35 33 32 38 31 2C 20 31 00 4D 08 05 00 99 20 |.53281, 1.M.... | 00000020: 22 90 93 12 20 20 20 20 20 20 20 20 20 20 20 4D |"... M| 00000030: 45 47 41 53 4F 46 54 20 28 43 29 20 31 39 38 34 |EGASOFT (C) 1984| 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 81 08 | "...| 00000050: 06 00 99 22 90 12 20 20 20 20 20 20 20 20 20 20 |...".. | 00000060: 20 20 44 49 53 4B 20 49 44 20 43 48 41 4E 47 45 | DISK ID CHANGE| 00000070: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 11 1C |R ..| 00000080: 22 00 95 08 0A 00 9F 39 2C 30 2C 30 3A 9F 31 35 |"......9,0,0:.15| 00000090: 2C 38 2C 31 35 00 A9 08 14 00 8B 20 58 B2 31 A7 |,8,15...... X.1.| 000000A0: 58 B2 32 3A 9E 32 31 34 39 00 CB 08 1E 00 4D 44 |X.2:.2149.....MD| 000000B0: 24 B2 22 13 22 3A 81 49 B2 31 A4 33 32 3A 4D 44 |$.".":.I.1.32:MD| 000000C0: 24 B2 4D 44 24 AA 22 11 22 3A 82 00 E5 08 28 00 |$.MD$.".":....(.| 000000D0: 81 49 B2 31 A4 33 39 3A 42 4C 24 B2 42 4C 24 AA |.I.1.39:BL$.BL$.| 000000E0: 22 20 22 3A 82 00 08 09 32 00 50 30 24 B2 22 05 |" ":....2.P0$.".| 000000F0: 11 1D 1D 12 44 49 53 4B 20 49 20 44 20 23 20 43 |....DISK I D # C| 00000100: 48 41 4E 47 45 52 3A 90 00 2B 09 3C 00 52 45 24 |HANGER:..+.<.RE$| 00000110: B2 22 90 20 20 20 20 20 20 20 20 20 20 50 52 45 |.". PRE| 00000120: 53 53 20 12 52 45 54 55 52 4E 22 00 48 09 46 00 |SS .RETURN".H.F.| 00000130: 83 32 2C 4F 55 54 20 4F 46 20 52 41 4E 47 45 2C |.2,OUT OF RANGE,| 00000140: 54 4F 4F 20 4C 4F 4E 47 00 68 09 50 00 87 41 3A |TOO LONG.h.P..A:| 00000150: 86 45 4D 24 28 41 29 3A 81 49 B2 31 A4 41 3A 87 |.EM$(A):.I.1.A:.| 00000160: 45 4D 24 28 49 29 3A 82 00 72 09 63 00 89 31 30 |EM$(I):..r.c..10| 00000170: 30 30 00 85 09 64 00 84 31 35 2C 45 52 3A 8B 45 |00...d..15,ER:.E| 00000180: 52 B2 30 A7 8E 00 9C 09 6E 00 84 31 35 2C 45 52 |R.0.....n..15,ER| 00000190: 2C 45 4D 24 2C 45 54 24 2C 45 53 24 00 D2 09 78 |,EM$,ET$,ES$...x| 000001A0: 00 99 4D 44 24 22 12 20 20 20 44 49 53 4B 20 45 |..MD$". DISK E| 000001B0: 52 52 4F 52 21 92 20 20 20 20 20 23 22 45 52 22 |RROR!. #"ER"| 000001C0: 20 22 45 4D 24 22 20 22 45 54 24 22 2C 20 22 45 | "EM$" "ET$", "E| 000001D0: 53 24 00 D8 09 82 00 80 00 F2 09 C8 00 84 39 2C |S$............9,| 000001E0: 51 24 3A 99 3A 51 31 24 B2 C8 28 51 24 2C 31 29 |Q$:.:Q1$..(Q$,1)| 000001F0: 3A 8E 00 1B 0A 2C 01 A0 32 3A A0 31 35 3A 97 35 |:....,..2:.15:.5| 00000200: 39 34 36 38 2C 50 4B 3A 99 22 93 22 3A 99 22 1D |9468,PK:.".":.".| 00000210: 1D 1D 1D 1D 1D 45 4E 44 22 3A 80 00 32 0A 90 01 |.....END":..2...| 00000220: 99 C8 28 4D 44 24 2C 4D 44 29 42 4C 24 3A 99 42 |..(MD$,MD)BL$:.B| 00000230: 4C 24 00 44 0A 9A 01 99 C8 28 4D 44 24 2C 4D 44 |L$.D.....(MD$,MD| 00000240: 29 3B 3A 8E 00 53 0A F4 01 4D 44 B2 32 31 3A 8D |);:..S...MD.21:.| 00000250: 34 30 30 00 79 0A FE 01 99 22 12 55 4E 41 43 43 |400.y....".UNACC| 00000260: 45 50 54 41 42 4C 45 20 45 4E 54 52 59 20 2D 2D |EPTABLE ENTRY --| 00000270: 20 22 45 4D 24 28 45 4D 29 00 8C 0A 08 02 99 52 | "EM$(EM)......R| 00000280: 45 24 3A 8D 32 30 30 3A 8D 34 30 30 00 92 0A 12 |E$:.200:.400....| 00000290: 02 8E 00 9F 0A E8 03 46 B2 30 3A 99 50 30 24 00 |.......F.0:.P0$.| 000002A0: A8 0A FC 03 44 56 B2 30 00 CE 0A 10 04 99 50 30 |....DV.0......P0| 000002B0: 24 3A 99 22 11 50 4C 41 43 45 20 44 49 53 4B 20 |$:.".PLACE DISK | 000002C0: 49 4E 20 44 52 49 56 45 22 44 56 22 11 22 00 DC |IN DRIVE"DV"."..| 000002D0: 0A 1A 04 99 52 45 24 3A 8D 32 30 30 00 F3 0A 24 |....RE$:.200...$| 000002E0: 04 98 31 35 2C 22 49 22 AA C4 28 44 56 29 3A 8D |..15,"I"..(DV):.| 000002F0: 31 30 30 00 1D 0B 2E 04 9F 32 2C 38 2C 32 2C 22 |100......2,8,2,"| 00000300: 23 22 3A 98 31 35 2C 22 55 31 3A 32 22 3B 44 56 |#":.15,"U1:2";DV| 00000310: 3B 22 2C 31 38 2C 30 22 3A 8D 31 30 30 00 3D 0B |;",18,0":.100.=.| 00000320: 38 04 98 31 35 2C 22 42 2D 50 3A 32 2C 31 36 32 |8..15,"B-P:2,162| 00000330: 22 3A 8D 31 30 30 3A 44 4E 24 B2 22 22 00 5D 0B |":.100:DN$."".].| 00000340: 42 04 81 49 B2 31 A4 31 36 3A A1 23 32 2C 41 24 |B..I.1.16:.#2,A$| 00000350: 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A 82 00 73 0B |:DN$.DN$.A$:..s.| 00000360: 4C 04 4D 44 B2 31 30 3A 8D 34 30 30 3A 8B 20 46 |L.MD.10:.400:. F| 00000370: 20 A7 8E 00 7C 0B 4D 04 99 22 93 22 00 B0 0B 55 | ...|.M.."."...U| 00000380: 04 99 20 22 90 11 12 20 20 20 20 20 20 20 20 20 |.. "... | 00000390: 20 20 4D 45 47 41 53 4F 46 54 20 28 43 29 20 31 | MEGASOFT (C) 1| 000003A0: 39 38 34 20 20 20 20 20 20 20 20 20 20 20 20 22 |984 "| 000003B0: 00 CB 0B 56 04 99 22 90 12 54 48 45 20 44 49 53 |...V.."..THE DIS| 000003C0: 4B 20 49 44 20 23 20 49 53 3A 91 00 E2 0B 60 04 |K ID # IS:....`.| 000003D0: 99 A3 31 38 29 C7 28 33 34 29 44 4E 24 C7 28 33 |..18).(34)DN$.(3| 000003E0: 34 29 00 EC 0B 6A 04 4D 44 B2 31 33 00 F6 0B 92 |4)...j.MD.13....| 000003F0: 04 4D 44 B2 31 36 00 0F 0C 97 04 99 22 20 11 11 |.MD.16......" ..| 00000400: 1C 22 2C 22 20 20 20 20 20 45 4E 54 45 52 11 00 |."," ENTER..| 00000410: 40 0C 9C 04 99 22 90 4E 45 57 20 44 49 53 4B 20 |@....".NEW DISK | 00000420: 49 44 20 23 22 3A 99 22 4C 49 4D 49 54 20 54 4F |ID #":."LIMIT TO| 00000430: 20 32 20 43 48 41 52 41 43 54 45 52 53 20 12 22 | 2 CHARACTERS ."| 00000440: 00 6D 0C A6 04 8D 32 30 30 3A 8B C3 28 51 24 29 |.m....200:..(Q$)| 00000450: B1 32 A7 45 4D B2 32 3A 8D 35 30 30 3A 4D 44 B2 |.2.EM.2:.500:MD.| 00000460: 31 38 3A 8D 34 30 30 3A 89 31 31 39 30 00 82 0C |18:.400:.1190...| 00000470: B0 04 4E 44 4E 24 B2 C8 28 51 24 AA 42 4C 24 2C |..NDN$..(Q$.BL$,| 00000480: 32 29 00 91 0C BA 04 4D 44 B2 32 31 3A 8D 34 30 |2).....MD.21:.40| 00000490: 30 00 AB 0C C4 04 99 22 53 48 41 4C 4C 20 49 20 |0......"SHALL I | 000004A0: 53 45 4E 44 20 12 22 4E 44 4E 24 00 D7 0C CE 04 |SEND ."NDN$.....| 000004B0: 99 22 54 4F 20 54 48 45 20 44 49 53 4B 45 54 54 |."TO THE DISKETT| 000004C0: 45 20 4F 4E 20 44 52 49 56 45 22 44 56 22 3F 20 |E ON DRIVE"DV"? | 000004D0: 28 59 2F 4E 29 12 22 00 EB 0C CF 04 A1 45 24 3A |(Y/N)."......E$:| 000004E0: 8B 45 24 B2 22 22 A7 31 32 33 31 00 FB 0C D0 04 |.E$."".1231.....| 000004F0: 8B 45 24 B2 22 4E 22 A7 33 30 30 00 05 0D D8 04 |.E$."N".300.....| 00000500: 89 31 32 37 30 00 24 0D E2 04 8B 51 31 24 B3 B1 |.1270.$....Q1$..| 00000510: 22 4E 22 A7 8D 34 30 30 3A 4D 44 B2 31 38 3A 89 |"N"..400:MD.18:.| 00000520: 31 31 37 30 00 2E 0D EC 04 89 31 32 31 30 00 48 |1170......1210.H| 00000530: 0D F6 04 4D 44 B2 32 31 3A 99 22 42 45 20 50 41 |...MD.21:."BE PA| 00000540: 54 49 45 4E 54 2E 2E 2E 00 61 0D 00 05 98 31 35 |TIENT....a....15| 00000550: 2C 22 42 2D 50 3A 32 2C 31 36 32 22 3A 8D 31 30 |,"B-P:2,162":.10| 00000560: 30 00 73 0D 0A 05 98 32 2C 4E 44 4E 24 3B 3A 8D |0.s....2,NDN$;:.| 00000570: 31 30 30 00 9B 0D 14 05 98 31 35 2C 22 55 32 3A |100......15,"U2:| 00000580: 32 22 3B 44 56 3B 22 2C 31 38 2C 30 22 3A 8D 31 |2";DV;",18,0":.1| 00000590: 30 30 9B 20 33 30 30 AB 33 35 30 00 B5 0D 1E 05 |00. 300.350.....| 000005A0: 98 31 35 2C 22 49 22 AA C4 28 44 56 29 3A 8D 31 |.15,"I"..(DV):.1| 000005B0: 30 30 3A A0 32 00 CC 0D 28 05 46 B2 31 3A 99 50 |00:.2...(.F.1:.P| 000005C0: 30 24 3A 8D 31 30 36 30 3A 46 B2 30 00 E9 0D 32 |0$:.1060:F.0...2| 000005D0: 05 99 22 54 48 45 20 4E 45 57 20 44 49 53 4B 20 |.."THE NEW DISK | 000005E0: 49 44 20 23 20 49 53 3A 91 00 00 0E 3C 05 99 A3 |ID # IS:....<...| 000005F0: 32 32 29 C7 28 33 34 29 44 4E 24 C7 28 33 34 29 |22).(34)DN$.(34)| 00000600: 00 26 0E 46 05 A0 32 3A 4D 44 B2 32 31 3A 8D 34 |.&.F..2:MD.21:.4| 00000610: 30 30 3A 99 22 44 4F 20 59 4F 55 20 57 49 53 48 |00:."DO YOU WISH| 00000620: 20 54 4F 20 44 4F 00 52 0E 50 05 99 22 93 11 11 | TO DO.R.P.."...| 00000630: 11 11 11 11 11 11 11 11 11 41 4E 4F 54 48 45 52 |.........ANOTHER| 00000640: 20 44 49 53 4B 45 54 54 45 3F 20 28 59 2F 4E 29 | DISKETTE? (Y/N)| 00000650: 12 22 00 66 0E 51 05 A1 55 24 3A 8B 55 24 B2 22 |.".f.Q..U$:.U$."| 00000660: 22 A7 31 33 36 31 00 77 0E 5A 05 8B 55 24 B2 22 |".1361.w.Z..U$."| 00000670: 59 22 A7 31 30 34 30 00 8A 0E 64 05 8B 55 24 B2 |Y".1040...d..U$.| 00000680: 22 4E 22 A7 9E 36 34 37 33 38 00 94 0E 6E 05 89 |"N"..64738...n..| 00000690: 31 33 36 31 00 00 00 A9 7F 8D 0D DC A9 30 85 01 |1361.........0..| 000006A0: A9 00 85 FB 85 FD A9 C0 85 FC A9 D0 85 FE A0 00 |................| 000006B0: B1 FB 91 FD C8 D0 F9 E6 FC E6 FE A9 E0 C5 FE D0 |................| 000006C0: ED A9 37 85 01 A9 81 8D 0D DC 60 A9 37 85 01 A9 |..7.......`.7...| 000006D0: 1D 8D 16 03 A9 CF 8D 17 03 20 00 CF 60 00 00 00 |......... ..`...|
.......53280,02:.53281, 1.M.... "...
MEGASOFT (C) 1984 "...
...".. DISK ID CHANGER
.."......9,0,0:.15,8,15...... X.1.
X.2:.2149.K...MD$.".":.I.1.32:MD$.MD$.".
":....(..I.1.39:BL$.BL$." ":....2.P0$.".
....DISK I D # CHANGER:..+.<.RE$.".
PRESS .RETURN".H.F..2,OUT OF RANGE,
TOO LONG.H.P..A:.EM$(A):.I.1.A:.EM$(I):.
.R.C..1000...D..15,ER:.ER.0.....N..15,ER
,EM$,ET$,ES$.R.X..MD$". DISK ERROR!.
#"ER" "EM$" "ET$", "ES$.X.......H..9,
Q$:.:Q1$.H(Q$,1):....,. 2: 15:.59468,PK:
.".":."......END":..2....H(MD$,MD)BL$:.B
L$.D....H(MD$,MD);:..S...MD.21:.400.Y...
.".UNACCEPTABLE ENTRY -- "EM$(EM)......R
E$:.200:.400...........F.0:.P0$.....DV.0
.N....P0$:.".PLACE DISK IN DRIVE"DV"."..
....RE$:.200...$..15,"I".D(DV):.100.....
.2,8,2,"#":.15,"U1:2";DV;",18,0":.100.=.
8..15,"B-P:2,162":.100:DN$."".].B..I.1.1
6:.#2,A$:DN$.DN$.A$:..S.L.MD.10:.400:. F
...|.M.."."...U.. "... MEGASO
FT (C) 1984 ".K.V.."..THE DIS
K ID # IS:....`...18)G(34)DN$G(34)...J.M
D.13.....MD.16......" ..."," ENTER..
@....".NEW DISK ID #":."LIMIT TO 2 CHARA
CTERS .".M....200:.C(Q$).2.EM.2:.500:MD.
18:.400:.1190.....NDN$.H(Q$.BL$,2).....M
D.21:.400...D.."SHALL I SEND ."NDN$.W.N.
."TO THE DISKETTE ON DRIVE"DV"? (Y/N).".
..O..E$:.E$."".1231...P..E$."N".300...X.
.1270.$....Q1$.."N"..400:MD.18:.1170....
..1210.H...MD.21:."BE PATIENT....A....15
,"B-P:2,162":.100.S....2,NDN$;:.100.....
.15,"U2:2";DV;",18,0":.100. 300.350.....
.15,"I".D(DV):.100: 2.L.(.F.1:.P0$:.1060
:F.0...2.."THE NEW DISK ID # IS:....<...
22)G(34)DN$G(34).&.F. 2:MD.21:.400:."DO
YOU WISH TO DO.R.P.."............ANOTHER
DISKETTE? (Y/N).".F.Q..U$:.U$."".1361.W
.Z..U$."Y".1040...D..U$."N"..64738...N..
1361........0.............P.. .....HP..
.....E.P..7.......`.7........O... .O`...
> CLICK IMAGE PREVIEW FOR FULL MODAL