DISK ID CHANGE
FILE INFORMATION
FILENAME(S): DISK ID CHANGE
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-10-19 23:07:23
APPEARS ON: 1 disk(s)
FILE HASH
cf73455af7c5fa53d98100ed5e3c3e670db1c579e2a3bf19ff2ffa4f7c8e62d0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RHS SOFT952 3964 | DISK ID CHANGE | PRG | Bugjam - Argentina | 19 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 00 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 93 9E 22 00 43 08 |53281,0:."..".C.|
00000020: 01 00 99 A6 38 29 22 11 11 12 54 48 49 53 20 50 |....8)"...THIS P|
00000030: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 43 48 41 4E |ROGRAM WILL CHAN|
00000040: 47 45 22 00 64 08 02 00 99 A6 31 30 29 22 11 12 |GE".d.....10)"..|
00000050: 54 48 45 20 49 2E 44 2E 23 20 4F 46 20 41 20 44 |THE I.D.# OF A D|
00000060: 49 53 4B 22 00 84 08 05 00 99 A6 31 34 29 22 11 |ISK".......14)".|
00000070: 11 11 11 11 11 11 11 12 48 49 54 20 41 4E 59 20 |........HIT ANY |
00000080: 4B 45 59 22 00 95 08 06 00 A1 41 24 3A 8B 41 24 |KEY"......A$:.A$|
00000090: B2 22 22 A7 36 00 A9 08 0A 00 9F 39 2C 30 2C 30 |."".6......9,0,0|
000000A0: 3A 9F 31 35 2C 38 2C 31 35 00 B7 08 0F 00 97 35 |:.15,8,15......5|
000000B0: 33 32 38 30 2C 31 34 00 C4 08 10 00 97 35 33 32 |3280,14......532|
000000C0: 38 31 2C 31 00 E6 08 1E 00 4D 44 24 B2 22 13 22 |81,1.....MD$."."|
000000D0: 3A 81 49 B2 31 A4 33 32 3A 4D 44 24 B2 4D 44 24 |:.I.1.32:MD$.MD$|
000000E0: AA 22 11 22 3A 82 00 00 09 28 00 81 49 B2 31 A4 |.".":....(..I.1.|
000000F0: 33 39 3A 42 4C 24 B2 42 4C 24 AA 22 20 22 3A 82 |39:BL$.BL$." ":.|
00000100: 00 2E 09 32 00 50 30 24 B2 22 93 11 11 11 1D 1D |...2.P0$."......|
00000110: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 1C 44 49 53 4B 20 |...........DISK |
00000120: 49 2E 44 2E 20 23 20 43 48 41 4E 47 45 22 00 55 |I.D. # CHANGE".U|
00000130: 09 3C 00 52 45 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D |.<.RE$."........|
00000140: 1D 1D 1D 1D 1D 1D 90 50 52 45 53 53 20 12 52 45 |.......PRESS .RE|
00000150: 54 55 52 4E 22 00 72 09 46 00 83 32 2C 4F 55 54 |TURN".r.F..2,OUT|
00000160: 20 4F 46 20 52 41 4E 47 45 2C 54 4F 4F 20 4C 4F | OF RANGE,TOO LO|
00000170: 4E 47 00 92 09 50 00 87 41 3A 86 45 4D 24 28 41 |NG...P..A:.EM$(A|
00000180: 29 3A 81 49 B2 31 A4 41 3A 87 45 4D 24 28 49 29 |):.I.1.A:.EM$(I)|
00000190: 3A 82 00 9C 09 63 00 89 31 30 30 30 00 AF 09 64 |:....c..1000...d|
000001A0: 00 84 31 35 2C 45 52 3A 8B 45 52 B2 30 A7 8E 00 |..15,ER:.ER.0...|
000001B0: C6 09 6E 00 84 31 35 2C 45 52 2C 45 4D 24 2C 45 |..n..15,ER,EM$,E|
000001C0: 54 24 2C 45 53 24 00 FE 09 78 00 99 4D 44 24 22 |T$,ES$...x..MD$"|
000001D0: 20 20 20 20 20 20 20 20 20 12 44 49 53 4B 20 45 | .DISK E|
000001E0: 52 52 4F 52 21 92 20 23 22 45 52 22 20 22 45 4D |RROR!. #"ER" "EM|
000001F0: 24 22 20 22 45 54 24 22 2C 20 22 45 53 24 00 04 |$" "ET$", "ES$..|
00000200: 0A 82 00 80 00 1E 0A C8 00 84 39 2C 51 24 3A 99 |..........9,Q$:.|
00000210: 3A 51 31 24 B2 C8 28 51 24 2C 31 29 3A 8E 00 47 |:Q1$..(Q$,1):..G|
00000220: 0A 2C 01 A0 32 3A A0 31 35 3A 97 35 39 34 36 38 |.,..2:.15:.59468|
00000230: 2C 50 4B 3A 99 22 93 22 3A 99 22 1D 1D 1D 1D 1D |,PK:.".":.".....|
00000240: 1D 45 4E 44 22 3A 80 00 5E 0A 90 01 99 C8 28 4D |.END":..^.....(M|
00000250: 44 24 2C 4D 44 29 42 4C 24 3A 99 42 4C 24 00 70 |D$,MD)BL$:.BL$.p|
00000260: 0A 9A 01 99 C8 28 4D 44 24 2C 4D 44 29 3B 3A 8E |.....(MD$,MD);:.|
00000270: 00 7F 0A F4 01 4D 44 B2 32 31 3A 8D 34 30 30 00 |.....MD.21:.400.|
00000280: AD 0A FE 01 99 22 11 20 20 20 20 20 20 20 12 55 |.....". .U|
00000290: 4E 41 43 43 45 50 54 41 42 4C 45 20 45 4E 54 52 |NACCEPTABLE ENTR|
000002A0: 59 20 2D 2D 20 22 45 4D 24 28 45 4D 29 00 C0 0A |Y -- "EM$(EM)...|
000002B0: 08 02 99 52 45 24 3A 8D 32 30 30 3A 8D 34 30 30 |...RE$:.200:.400|
000002C0: 00 C6 0A 12 02 8E 00 D3 0A E8 03 46 B2 30 3A 99 |...........F.0:.|
000002D0: 50 30 24 00 DC 0A FC 03 44 56 B2 30 00 06 0B 10 |P0$.....DV.0....|
000002E0: 04 99 50 30 24 3A 99 A6 31 30 29 22 11 50 4C 41 |..P0$:..10)".PLA|
000002F0: 43 45 20 44 49 53 4B 20 49 4E 20 44 52 49 56 45 |CE DISK IN DRIVE|
00000300: 22 44 56 22 11 22 00 14 0B 1A 04 99 52 45 24 3A |"DV"."......RE$:|
00000310: 8D 32 30 30 00 2B 0B 24 04 98 31 35 2C 22 49 22 |.200.+.$..15,"I"|
00000320: AA C4 28 44 56 29 3A 8D 31 30 30 00 55 0B 2E 04 |..(DV):.100.U...|
00000330: 9F 32 2C 38 2C 32 2C 22 23 22 3A 98 31 35 2C 22 |.2,8,2,"#":.15,"|
00000340: 55 31 3A 32 22 3B 44 56 3B 22 2C 31 38 2C 30 22 |U1:2";DV;",18,0"|
00000350: 3A 8D 31 30 30 00 75 0B 38 04 98 31 35 2C 22 42 |:.100.u.8..15,"B|
00000360: 2D 50 3A 32 2C 31 36 32 22 3A 8D 31 30 30 3A 44 |-P:2,162":.100:D|
00000370: 4E 24 B2 22 22 00 95 0B 42 04 81 49 B2 31 A4 31 |N$.""...B..I.1.1|
00000380: 36 3A A1 23 32 2C 41 24 3A 44 4E 24 B2 44 4E 24 |6:.#2,A$:DN$.DN$|
00000390: AA 41 24 3A 82 00 A9 0B 4C 04 4D 44 B2 31 30 3A |.A$:....L.MD.10:|
000003A0: 8D 34 30 30 3A 8B 46 A7 8E 00 CC 0B 56 04 99 A6 |.400:.F.....V...|
000003B0: 39 29 22 11 1F 54 48 45 20 44 49 53 4B 20 49 44 |9)"..THE DISK ID|
000003C0: 20 23 20 49 53 90 20 22 3B 44 4E 24 00 D6 0B 6A | # IS. ";DN$...j|
000003D0: 04 4D 44 B2 31 33 00 E0 0B 92 04 4D 44 B2 31 36 |.MD.13.....MD.16|
000003E0: 00 F4 0B 97 04 99 A6 31 30 29 22 11 1C 45 4E 54 |.......10)"..ENT|
000003F0: 45 52 22 3B 00 2A 0C 9C 04 99 22 20 90 4E 45 57 |ER";.*...." .NEW|
00000400: 20 44 49 53 4B 20 49 44 20 23 22 3A 99 A6 31 30 | DISK ID #":..10|
00000410: 29 22 11 4C 49 4D 49 54 20 54 4F 20 32 20 43 48 |)".LIMIT TO 2 CH|
00000420: 41 52 41 43 54 45 52 53 12 22 00 57 0C A6 04 8D |ARACTERS.".W....|
00000430: 32 30 30 3A 8B C3 28 51 24 29 B1 32 A7 45 4D B2 |200:..(Q$).2.EM.|
00000440: 32 3A 8D 35 30 30 3A 4D 44 B2 31 38 3A 8D 34 30 |2:.500:MD.18:.40|
00000450: 30 3A 89 31 31 39 30 00 6C 0C B0 04 4E 44 4E 24 |0:.1190.l...NDN$|
00000460: B2 C8 28 51 24 AA 42 4C 24 2C 32 29 00 7B 0C BA |..(Q$.BL$,2).{..|
00000470: 04 4D 44 B2 32 31 3A 8D 34 30 30 00 9A 0C C4 04 |.MD.21:.400.....|
00000480: 99 A6 31 32 29 22 11 53 48 41 4C 4C 20 49 20 53 |..12)".SHALL I S|
00000490: 45 4E 44 20 12 22 4E 44 4E 24 00 CC 0C CE 04 99 |END ."NDN$......|
000004A0: A6 32 29 22 11 54 4F 20 54 48 45 20 44 49 53 4B |.2)".TO THE DISK|
000004B0: 45 54 54 45 20 4F 4E 20 44 52 49 56 45 22 44 56 |ETTE ON DRIVE"DV|
000004C0: 22 3F 20 28 59 2F 4E 29 20 12 22 3B 00 E0 0C CF |"? (Y/N) .";....|
000004D0: 04 A1 45 24 3A 8B 45 24 B2 22 22 A7 31 32 33 31 |..E$:.E$."".1231|
000004E0: 00 F0 0C D0 04 8B 45 24 B2 22 4E 22 A7 33 30 30 |......E$."N".300|
000004F0: 00 FA 0C D8 04 89 31 32 37 30 00 19 0D E2 04 8B |......1270......|
00000500: 51 31 24 B3 B1 22 4E 22 A7 8D 34 30 30 3A 4D 44 |Q1$.."N"..400:MD|
00000510: B2 31 38 3A 89 31 31 37 30 00 23 0D EC 04 89 31 |.18:.1170.#....1|
00000520: 32 31 30 00 42 0D F6 04 4D 44 B2 32 31 3A 99 A6 |210.B...MD.21:..|
00000530: 31 33 29 22 42 45 20 50 41 54 49 45 4E 54 2E 2E |13)"BE PATIENT..|
00000540: 2E 22 00 5B 0D 00 05 98 31 35 2C 22 42 2D 50 3A |.".[....15,"B-P:|
00000550: 32 2C 31 36 32 22 3A 8D 31 30 30 00 6D 0D 0A 05 |2,162":.100.m...|
00000560: 98 32 2C 4E 44 4E 24 3B 3A 8D 31 30 30 00 95 0D |.2,NDN$;:.100...|
00000570: 14 05 98 31 35 2C 22 55 32 3A 32 22 3B 44 56 3B |...15,"U2:2";DV;|
00000580: 22 2C 31 38 2C 30 22 3A 8D 31 30 30 9B 20 33 30 |",18,0":.100. 30|
00000590: 30 AB 33 35 30 00 AF 0D 1E 05 98 31 35 2C 22 49 |0.350......15,"I|
000005A0: 22 AA C4 28 44 56 29 3A 8D 31 30 30 3A A0 32 00 |"..(DV):.100:.2.|
000005B0: C6 0D 28 05 46 B2 31 3A 99 50 30 24 3A 8D 31 30 |..(.F.1:.P0$:.10|
000005C0: 36 30 3A 46 B2 30 00 E8 0D 32 05 99 A6 39 29 22 |60:F.0...2...9)"|
000005D0: 54 48 45 20 4E 45 57 20 44 49 53 4B 20 49 44 20 |THE NEW DISK ID |
000005E0: 49 53 20 22 3B 44 4E 24 00 13 0E 46 05 A0 32 3A |IS ";DN$...F..2:|
000005F0: 4D 44 B2 32 31 3A 8D 34 30 30 3A 99 A6 31 32 29 |MD.21:.400:..12)|
00000600: 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |"DO YOU WISH TO |
00000610: 44 4F 22 00 37 0E 50 05 99 A6 38 29 22 41 4E 4F |DO".7.P...8)"ANO|
00000620: 54 48 45 52 20 44 49 53 4B 45 54 54 45 3F 20 28 |THER DISKETTE? (|
00000630: 59 2F 4E 29 20 12 22 00 4B 0E 51 05 A1 55 24 3A |Y/N) .".K.Q..U$:|
00000640: 8B 55 24 B2 22 22 A7 31 33 36 31 00 5C 0E 5A 05 |.U$."".1361.\.Z.|
00000650: 8B 55 24 B2 22 59 22 A7 31 30 34 30 00 6C 0E 64 |.U$."Y".1040.l.d|
00000660: 05 8B 55 24 B2 22 4E 22 A7 33 30 30 00 76 0E 6E |..U$."N".300.v.n|
00000670: 05 89 31 33 36 31 00 00 00 00 FF |..1361..... |
.......53280,0:.53281,0:."..".C.....8)".
..THIS PROGRAM WILL CHANGE".D.....10)"..
THE I.D.# OF A DISK".......14)".........
HIT ANY KEY"......A$:.A$."".6......9,0,0
:.15,8,15......53280,14.D....53281,1....
.MD$.".":.I.1.32:MD$.MD$.".":....(..I.1.
39:BL$.BL$." ":....2.P0$."..............
...DISK I.D. # CHANGE".U.<.RE$."........
.......PRESS .RETURN".R.F..2,OUT OF RANG
E,TOO LONG...P..A:.EM$(A):.I.1.A:.EM$(I)
:....C..1000...D..15,ER:.ER.0...F.N..15,
ER,EM$,ET$,ES$...X..MD$" .DISK E
RROR!. #"ER" "EM$" "ET$", "ES$.........H
..9,Q$:.:Q1$.H(Q$,1):..G.,. 2: 15:.59468
,PK:.".":."......END":..^....H(MD$,MD)BL
$:.BL$.P....H(MD$,MD);:.....MD.21:.400.
.....". .UNACCEPTABLE ENTRY -- "EM
$(EM)......RE$:.200:.400.F.....S...F.0:.
P0$.....DV.0......P0$:..10)".PLACE DISK
IN DRIVE"DV"."......RE$:.200.+.$..15,"I"
.D(DV):.100.U....2,8,2,"#":.15,"U1:2";DV
;",18,0":.100.U.8..15,"B-P:2,162":.100:D
N$.""...B..I.1.16:.#2,A$:DN$.DN$.A$:....
L.MD.10:.400:.F...L.V...9)"..THE DISK ID
# IS. ";DN$.V.J.MD.13.....MD.16.......1
0)"..ENTER";.*...." .NEW DISK ID #":..10
)".LIMIT TO 2 CHARACTERS.".W....200:.C(Q
$).2.EM.2:.500:MD.18:.400:.1190.L...NDN$
.H(Q$.BL$,2).{...MD.21:.400...D...12)".S
HALL I SEND ."NDN$.L.N...2)".TO THE DISK
ETTE ON DRIVE"DV"? (Y/N) .";...O..E$:.E$
."".1231...P..E$."N".300...X..1270......
Q1$.."N"..400:MD.18:.1170.#....1210.B...
MD.21:..13)"BE PATIENT...".[....15,"B-P:
2,162":.100.M....2,NDN$;:.100......15,"U
2:2";DV;",18,0":.100. 300.350......15,"I
".D(DV):.100: 2.F.(.F.1:.P0$:.1060:F.0..
.2...9)"THE NEW DISK ID IS ";DN$...F. 2:
MD.21:.400:..12)"DO YOU WISH TO DO".7.P.
..8)"ANOTHER DISKETTE? (Y/N) .".K.Q..U$:
.U$."".1361.\.Z..U$."Y".1040.L.D..U$."N"
.300.V.N..1361.....
> CLICK IMAGE PREVIEW FOR FULL MODAL