1581 ID-CHANGER
FILE INFORMATION
FILENAME(S): 1581 ID-CHANGER
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 18:06:10
APPEARS ON: 1 disk(s)
FILE HASH
54ffe091681fd1fad2d2e52ddfeeef06003e2cf58412a9e6b368bafd94cf4d3c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TIGERDISK NUMMER | 1581 ID-CHANGER | PRG | Xii | 2 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 05 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.| 00000010: 35 33 32 38 31 2C 31 3A 99 22 9A 22 00 3D 08 0A |53281,1:.".".=..| 00000020: 00 99 20 22 93 11 12 43 48 41 4E 47 45 20 31 35 |.. "...CHANGE 15| 00000030: 38 31 20 44 49 53 4B 20 49 44 23 92 22 00 65 08 |81 DISK ID#.".e.| 00000040: 14 00 99 20 22 11 20 44 49 53 4B 20 55 4E 49 54 |... ". DISK UNIT| 00000050: 20 4E 52 20 28 38 2D 31 35 29 20 3F A0 38 20 9D | NR (8-15) ?.8 .| 00000060: 9D 9D 9D 22 3B 00 8B 08 1E 00 85 20 55 3A 20 8B |...";...... U: .| 00000070: 20 55 B3 38 20 B0 20 55 B1 31 35 20 A7 20 99 20 | U.8 . U.15 . . | 00000080: 22 91 91 91 22 3A 20 89 20 32 30 00 B1 08 28 00 |"...": . 20...(.| 00000090: 99 20 22 11 20 44 49 53 4B 20 44 52 49 56 45 20 |. ". DISK DRIVE | 000000A0: 4E 52 20 28 30 2F 31 29 20 3F A0 30 9D 9D 9D 22 |NR (0/1) ?.0..."| 000000B0: 3B 00 D6 08 32 00 85 20 44 3A 20 8B 20 44 B3 30 |;...2.. D: . D.0| 000000C0: 20 B0 20 44 B1 31 20 A7 20 99 20 22 91 91 91 22 | . D.1 . . "..."| 000000D0: 3A 20 89 20 34 30 00 06 09 3C 00 99 20 22 11 11 |: . 40...<.. "..| 000000E0: 20 50 55 54 20 54 41 52 47 45 54 20 44 49 53 4B | PUT TARGET DISK| 000000F0: 20 49 4E 20 55 4E 49 54 22 3B 55 3B 22 20 44 52 | IN UNIT";U;" DR| 00000100: 49 56 45 22 3B 44 00 2E 09 46 00 99 20 22 20 54 |IVE";D...F.. " T| 00000110: 48 45 4E 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |HEN PRESS ANY KE| 00000120: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 44 |Y TO CONTINUE".D| 00000130: 09 50 00 A1 20 58 24 3A 20 8B 20 58 24 B2 22 22 |.P.. X$: . X$.""| 00000140: A7 20 38 30 00 67 09 5A 00 41 B2 31 3A 20 56 B2 |. 80.g.Z.A.1: V.| 00000150: 32 20 3A 20 51 24 B2 C7 28 33 34 29 3A 20 50 24 |2 : Q$..(34): P$| 00000160: B2 C7 28 31 36 30 29 00 87 09 64 00 54 B2 34 30 |..(160)...d.T.40| 00000170: 3A 20 53 B2 30 3A 20 49 24 B2 22 49 22 AA C9 28 |: S.0: I$."I"..(| 00000180: C4 28 44 29 2C 31 29 00 9E 09 6E 00 9F 20 31 2C |.(D),1)...n.. 1,| 00000190: 55 2C 31 35 2C 49 24 3A 20 8D 20 33 35 30 00 C0 |U,15,I$: . 350..| 000001A0: 09 78 00 8D 20 33 31 30 3A 20 46 24 B2 48 24 3A |.x.. 310: F$.H$:| 000001B0: 20 A1 23 32 2C 58 24 2C 58 24 2C 41 24 2C 42 24 | .#2,X$,X$,A$,B$| 000001C0: 00 E1 09 82 00 99 22 93 11 11 20 43 55 52 52 45 |......"... CURRE| 000001D0: 4E 54 20 49 44 23 20 22 3B 51 24 3B 46 24 3B 51 |NT ID# ";Q$;F$;Q| 000001E0: 24 00 04 0A 96 00 99 22 11 20 4E 45 57 20 49 44 |$......". NEW ID| 000001F0: 23 20 4F 52 20 12 51 55 49 54 92 20 12 28 51 29 |# OR .QUIT. .(Q)| 00000200: 92 20 3F 22 00 27 0A A0 00 85 20 22 20 3F 9D 22 |. ?".'.... " ?."| 00000210: 3B 4E 24 3A 20 4C B2 C3 28 4E 24 29 3A 8B 20 4C |;N$: L..(N$):. L| 00000220: B1 56 20 A7 31 33 30 00 3F 0A AA 00 8B 20 4E 24 |.V .130.?.... N$| 00000230: B2 22 51 22 A7 99 22 93 22 3B 3A 89 33 37 30 00 |."Q"..".";:.370.| 00000240: 6B 0A B4 00 99 20 22 11 20 4F 4B 20 54 4F 20 57 |k.... ". OK TO W| 00000250: 52 49 54 45 20 4E 45 57 20 49 44 23 20 28 59 2F |RITE NEW ID# (Y/| 00000260: 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 85 0A BE 00 |N) ? Y...";.....| 00000270: 85 20 58 24 3A 20 8B 20 58 24 B3 B1 22 59 22 20 |. X$: . X$.."Y" | 00000280: A7 20 31 33 30 00 95 0A C8 00 8B 20 4C B2 56 20 |. 130...... L.V | 00000290: A7 20 32 32 30 00 B2 0A D2 00 81 20 58 B2 4C AA |. 220...... X.L.| 000002A0: 41 20 A4 20 56 3A 20 4E 24 B2 4E 24 AA 50 24 3A |A . V: N$.N$.P$:| 000002B0: 20 82 00 CD 0A DC 00 98 31 2C 22 42 2D 50 3A 22 | .......1,"B-P:"| 000002C0: 3B 32 3B 32 32 3A 20 98 32 2C 4E 24 3B 00 E9 0A |;2;22: .2,N$;...| 000002D0: E6 00 98 31 2C 22 55 32 3A 22 3B 32 3B 44 3B 54 |...1,"U2:";2;D;T| 000002E0: 3B 53 3A 20 8D 20 33 35 30 00 FF 0A F0 00 98 31 |;S: . 350......1| 000002F0: 2C 49 24 3A 20 8D 20 33 35 30 3A 20 A0 20 32 00 |,I$: . 350: . 2.| 00000300: 1B 0B FA 00 99 20 22 11 20 4F 4C 44 20 49 44 23 |..... ". OLD ID#| 00000310: 20 22 3B 51 24 3B 46 24 3B 51 24 00 2F 0B 04 01 | ";Q$;F$;Q$./...| 00000320: 8D 20 33 31 30 3A 20 A0 20 32 3A 20 A0 20 31 00 |. 310: . 2: . 1.| 00000330: 4C 0B 0E 01 99 20 22 11 12 4E 45 57 92 20 49 44 |L.... "..NEW. ID| 00000340: 23 20 22 3B 51 24 3B 48 24 3B 51 24 00 7C 0B 18 |# ";Q$;H$;Q$.|..| 00000350: 01 99 20 22 11 20 43 48 41 4E 47 45 20 41 4E 4F |.. ". CHANGE ANO| 00000360: 54 48 45 52 20 44 49 53 4B 45 54 54 45 20 28 59 |THER DISKETTE (Y| 00000370: 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 94 0B 22 |/N) ? Y...";..."| 00000380: 01 85 20 58 24 3A 20 8B 20 58 24 B2 22 59 22 20 |.. X$: . X$."Y" | 00000390: A7 20 36 30 00 A2 0B 2C 01 99 20 22 93 22 3B 3A |. 60...,.. ".";:| 000003A0: 20 80 00 C0 0B 36 01 9F 20 32 2C 55 2C 32 2C 22 | ....6.. 2,U,2,"| 000003B0: 23 22 3A 20 8D 20 33 35 30 3A 20 48 24 B2 22 22 |#": . 350: H$.""| 000003C0: 00 DC 0B 40 01 98 31 2C 22 55 31 3A 22 3B 32 3B |...@..1,"U1:";2;| 000003D0: 44 3B 54 3B 53 3A 20 8D 20 33 35 30 00 F8 0B 4A |D;T;S: . 350...J| 000003E0: 01 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 32 32 3A |..1,"B-P:";2;22:| 000003F0: 20 81 20 58 B2 41 A4 56 00 13 0C 54 01 A1 23 32 | . X.A.V...T..#2| 00000400: 2C 54 24 3A 20 48 24 B2 48 24 AA 54 24 3A 20 82 |,T$: H$.H$.T$: .| 00000410: 3A 20 8E 00 2D 0C 5E 01 84 31 2C 45 2C 4D 24 2C |: ..-.^..1,E,M$,| 00000420: 4A 2C 4B 3A 8B 20 45 B2 30 20 A7 20 8E 00 48 0C |J,K:. E.0 . ..H.| 00000430: 68 01 99 20 22 11 20 45 52 52 4F 52 3A 20 22 3B |h.. ". ERROR: ";| 00000440: 45 3B 4D 24 3B 4A 3B 4B 00 58 0C 72 01 A0 20 32 |E;M$;J;K.X.r.. 2| 00000450: 3A 20 A0 20 31 3A 20 80 00 00 00 |: . 1: .... |
.......53280,0:.53281,1:.".".=.... "...C HANGE 1581 DISK ID#.".E.... ". DISK UNIT NR (8-15) ? 8 ....";...... U: . U.8 . U .15 . . "...": . 20...(.. ". DISK DRIVE NR (0/1) ? 0...";.V.2.. D: . D.0 . D.1 . . "...": . 40...<.. ".. PUT TARGET DISK IN UNIT";U;" DRIVE";D...F.. " THEN PRES S ANY KEY TO CONTINUE".D.P.. X$: . X$."" . 80.G.Z.A.1: V.2 : Q$.G(34): P$.G(160). ..D.T.40: S.0: I$."I".I(D(D),1)...N.. 1, U,15,I$: . 350...X.. 310: F$.H$: .#2,X$, X$,A$,B$......"... CURRENT ID# ";Q$;F$;Q $......". NEW ID# OR .QUIT. .(Q). ?".'. .. " ?.";N$: L.C(N$):. L.V .130.?.... N$ ."Q"..".";:.370.K.... ". OK TO WRITE NEW ID# (Y/N) ? Y...";...... X$: . X$.."Y" . 130...H.. L.V . 220...R.. X.L.A . V: N $.N$.P$: ..M....1,"B-P:";2;22: .2,N$;... ...1,"U2:";2;D;T;S: . 350......1,I$: . 3 50: 2...... ". OLD ID# ";Q$;F$;Q$./... . 310: 2: 1.L.... "..NEW. ID# ";Q$;H $;Q$.|.... ". CHANGE ANOTHER DISKETTE (Y /N) ? Y...";...".. X$: . X$."Y" . 60..., .. ".";: ....6.. 2,U,2,"#": . 350: H$."" ...@..1,"U1:";2;D;T;S: . 350...J..1,"B-P :";2;22: . X.A.V...T..#2,T$: H$.H$.T$: . : ..-.^..1,E,M$,J,K:. E.0 . ..H.H.. ". E RROR: ";E;M$;J;K.X.R. 2: 1: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL