HEADER-CHANGER
FILE INFORMATION
FILENAME(S): HEADER-CHANGER
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 19:36:38
APPEARS ON: 1 disk(s)
FILE HASH
a53c2086a44c0224aed6cbc4e0776edb47973c03311289c8535251f489f9c65b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CHAMP | HEADER-CHANGER | PRG | Curtcool, Bo | 25 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 05 00 97 20 35 33 32 38 30 2C 30 3A |....... 53280,0:| 00000010: 97 35 33 32 38 31 2C 30 00 40 08 0A 00 99 20 22 |.53281,0.@.... "| 00000020: 96 93 11 20 43 48 41 4E 47 45 20 44 49 53 4B 45 |... CHANGE DISKE| 00000030: 54 54 45 20 48 45 41 44 45 52 2D 4E 41 4D 45 22 |TTE HEADER-NAME"| 00000040: 00 69 08 14 00 99 20 22 99 11 20 44 49 53 4B 20 |.i.... ".. DISK | 00000050: 55 4E 49 54 20 4E 52 20 28 38 2D 31 35 29 20 3F |UNIT NR (8-15) ?| 00000060: A0 38 20 9D 9D 9D 9D 22 3B 00 8F 08 1E 00 85 20 |.8 ....";...... | 00000070: 55 3A 20 8B 20 55 B3 38 20 B0 20 55 B1 31 35 20 |U: . U.8 . U.15 | 00000080: A7 20 99 20 22 91 91 91 22 3A 20 89 20 32 30 00 |. . "...": . 20.| 00000090: B6 08 28 00 99 20 22 9A 11 20 44 49 53 4B 20 44 |..(.. ".. DISK D| 000000A0: 52 49 56 45 20 4E 52 20 28 30 2F 31 29 20 3F A0 |RIVE NR (0/1) ?.| 000000B0: 30 9D 9D 9D 22 3B 00 DB 08 32 00 85 20 44 3A 20 |0...";...2.. D: | 000000C0: 8B 20 44 B3 30 20 B0 20 44 B1 31 20 A7 20 99 20 |. D.0 . D.1 . . | 000000D0: 22 91 91 91 22 3A 20 89 20 34 30 00 0C 09 3C 00 |"...": . 40...<.| 000000E0: 99 20 22 9B 11 11 20 50 55 54 20 54 41 52 47 45 |. "... PUT TARGE| 000000F0: 54 20 44 49 53 4B 20 49 4E 20 55 4E 49 54 22 3B |T DISK IN UNIT";| 00000100: 55 3B 22 20 44 52 49 56 45 22 3B 44 00 35 09 46 |U;" DRIVE";D.5.F| 00000110: 00 99 20 22 05 20 54 48 45 4E 20 50 52 45 53 53 |.. ". THEN PRESS| 00000120: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT| 00000130: 49 4E 55 45 22 00 4B 09 50 00 A1 20 58 24 3A 20 |INUE".K.P.. X$: | 00000140: 8B 20 58 24 B2 22 22 A7 20 38 30 00 6E 09 5A 00 |. X$."". 80.n.Z.| 00000150: 41 B2 31 3A 20 56 B2 31 36 3A 20 51 24 B2 C7 28 |A.1: V.16: Q$..(| 00000160: 33 34 29 3A 20 50 24 B2 C7 28 31 36 30 29 00 8E |34): P$..(160)..| 00000170: 09 64 00 54 B2 31 38 3A 20 53 B2 30 3A 20 49 24 |.d.T.18: S.0: I$| 00000180: B2 22 49 22 AA C9 28 C4 28 44 29 2C 31 29 00 A5 |."I"..(.(D),1)..| 00000190: 09 6E 00 9F 20 31 2C 55 2C 31 35 2C 49 24 3A 20 |.n.. 1,U,15,I$: | 000001A0: 8D 20 33 35 30 00 C7 09 78 00 8D 20 33 31 30 3A |. 350...x.. 310:| 000001B0: 20 46 24 B2 48 24 3A 20 A1 23 32 2C 58 24 2C 58 | F$.H$: .#2,X$,X| 000001C0: 24 2C 41 24 2C 42 24 00 F2 09 82 00 99 20 22 9F |$,A$,B$...... ".| 000001D0: 93 11 11 20 43 55 52 52 45 4E 54 20 48 45 41 44 |... CURRENT HEAD| 000001E0: 45 52 2D 4E 41 4D 45 20 22 3B 51 24 3B 46 24 3B |ER-NAME ";Q$;F$;| 000001F0: 51 24 00 14 0A 8C 00 99 20 22 1E 20 44 49 53 4B |Q$...... ". DISK| 00000200: 45 54 54 45 20 49 44 20 49 53 3A 20 20 22 3B 41 |ETTE ID IS: ";A| 00000210: 24 3B 42 24 00 46 0A 96 00 99 20 22 1F 11 20 4E |$;B$.F.... ".. N| 00000220: 45 57 20 4E 41 4D 45 20 28 4D 41 58 20 31 36 20 |EW NAME (MAX 16 | 00000230: 43 48 41 52 41 43 54 45 52 53 29 20 4F 52 20 27 |CHARACTERS) OR '| 00000240: 51 55 49 54 27 22 00 76 0A A0 00 85 20 22 9E 20 |QUIT'".v.... ". | 00000250: 3F 20 51 55 49 54 9D 9D 9D 9D 9D 9D 22 3B 4E 24 |? QUIT......";N$| 00000260: 3A 20 4C B2 C3 28 4E 24 29 3A 20 8B 20 4C B1 56 |: L..(N$): . L.V| 00000270: 20 A7 20 31 33 30 00 96 0A AA 00 8B 20 4E 24 B2 | . 130...... N$.| 00000280: 22 51 55 49 54 22 20 A7 20 99 20 22 93 22 3B 3A |"QUIT" . . ".";:| 00000290: 20 89 20 33 37 30 00 CB 0A B4 00 99 20 22 96 11 | . 370...... "..| 000002A0: 20 4F 4B 20 54 4F 20 57 52 49 54 45 20 4E 45 57 | OK TO WRITE NEW| 000002B0: 20 48 45 41 44 45 52 2D 4E 41 4D 45 20 28 59 2F | HEADER-NAME (Y/| 000002C0: 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 E5 0A BE 00 |N) ? Y...";.....| 000002D0: 85 20 58 24 3A 20 8B 20 58 24 B3 B1 22 59 22 20 |. X$: . X$.."Y" | 000002E0: A7 20 31 33 30 00 F5 0A C8 00 8B 20 4C B2 56 20 |. 130...... L.V | 000002F0: A7 20 32 32 30 00 12 0B D2 00 81 20 58 B2 4C AA |. 220...... X.L.| 00000300: 41 20 A4 20 56 3A 20 4E 24 B2 4E 24 AA 50 24 3A |A . V: N$.N$.P$:| 00000310: 20 82 00 2E 0B DC 00 98 31 2C 22 42 2D 50 3A 22 | .......1,"B-P:"| 00000320: 3B 32 3B 31 34 34 3A 20 98 32 2C 4E 24 3B 00 4A |;2;144: .2,N$;.J| 00000330: 0B E6 00 98 31 2C 22 55 32 3A 22 3B 32 3B 44 3B |....1,"U2:";2;D;| 00000340: 54 3B 53 3A 20 8D 20 33 35 30 00 60 0B F0 00 98 |T;S: . 350.`....| 00000350: 31 2C 49 24 3A 20 8D 20 33 35 30 3A 20 A0 20 32 |1,I$: . 350: . 2| 00000360: 00 85 0B FA 00 99 20 22 99 11 20 4F 4C 44 20 48 |...... ".. OLD H| 00000370: 45 41 44 45 52 2D 4E 41 4D 45 20 22 3B 51 24 3B |EADER-NAME ";Q$;| 00000380: 46 24 3B 51 24 00 99 0B 04 01 8D 20 33 31 30 3A |F$;Q$...... 310:| 00000390: 20 A0 20 32 3A 20 A0 20 31 00 BE 0B 0E 01 99 20 | . 2: . 1...... | 000003A0: 22 9A 11 20 4E 45 57 20 48 45 41 44 45 52 2D 4E |".. NEW HEADER-N| 000003B0: 41 4D 45 20 22 3B 51 24 3B 48 24 3B 51 24 00 EF |AME ";Q$;H$;Q$..| 000003C0: 0B 18 01 99 20 22 9B 11 20 43 48 41 4E 47 45 20 |.... ".. CHANGE | 000003D0: 41 4E 4F 54 48 45 52 20 44 49 53 4B 45 54 54 45 |ANOTHER DISKETTE| 000003E0: 20 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 | (Y/N) ? Y...";.| 000003F0: 07 0C 22 01 85 20 58 24 3A 20 8B 20 58 24 B2 22 |..".. X$: . X$."| 00000400: 59 22 20 A7 20 36 30 00 15 0C 2C 01 99 20 22 93 |Y" . 60...,.. ".| 00000410: 22 3B 3A 20 80 00 33 0C 36 01 9F 20 32 2C 55 2C |";: ..3.6.. 2,U,| 00000420: 32 2C 22 23 22 3A 20 8D 20 33 35 30 3A 20 48 24 |2,"#": . 350: H$| 00000430: B2 22 22 00 4F 0C 40 01 98 31 2C 22 55 31 3A 22 |."".O.@..1,"U1:"| 00000440: 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 33 35 30 00 |;2;D;T;S: . 350.| 00000450: 6E 0C 4A 01 98 31 2C 22 42 2D 50 3A 22 3B 32 3B |n.J..1,"B-P:";2;| 00000460: 31 34 34 3A 20 81 20 58 B2 41 20 A4 20 56 00 89 |144: . X.A . V..| 00000470: 0C 54 01 A1 23 32 2C 54 24 3A 20 48 24 B2 48 24 |.T..#2,T$: H$.H$| 00000480: AA 54 24 3A 20 82 3A 20 8E 00 A3 0C 5E 01 84 31 |.T$: .: ....^..1| 00000490: 2C 45 2C 4D 24 2C 4A 2C 4B 3A 8B 20 45 B2 30 20 |,E,M$,J,K:. E.0 | 000004A0: A7 20 8E 00 BE 0C 68 01 99 20 22 11 20 45 52 52 |. ....h.. ". ERR| 000004B0: 4F 52 3A 20 22 3B 45 3B 4D 24 3B 4A 3B 4B 00 CE |OR: ";E;M$;J;K..| 000004C0: 0C 72 01 A0 20 32 3A 20 A0 20 31 3A 20 80 00 00 |.r.. 2: . 1: ...| 000004D0: 00 |. |
....... 53280,0:.53281,0.@.... "... CHAN GE DISKETTE HEADER-NAME".I.... ".. DISK UNIT NR (8-15) ? 8 ....";...... U: . U.8 . U.15 . . "...": . 20...(.. ".. DISK D RIVE NR (0/1) ? 0...";...2.. D: . D.0 . D.1 . . "...": . 40...<.. "... PUT TARGE T DISK IN UNIT";U;" DRIVE";D.5.F.. ". TH EN PRESS ANY KEY TO CONTINUE".K.P.. X$: . X$."". 80.N.Z.A.1: V.16: Q$.G(34): P$. G(160)...D.T.18: S.0: I$."I".I(D(D),1).. .N.. 1,U,15,I$: . 350.G.X.. 310: F$.H$: .#2,X$,X$,A$,B$...... ".... CURRENT HEAD ER-NAME ";Q$;F$;Q$...... ". DISKETTE ID IS: ";A$;B$.F.... ".. NEW NAME (MAX 16 CHARACTERS) OR 'QUIT'".V. .. ". ? QUIT.. ....";N$: L.C(N$): . L.V . 130...... N$. "QUIT" . . ".";: . 370.K.... ".. OK TO W RITE NEW HEADER-NAME (Y/N) ? Y...";..... . X$: . X$.."Y" . 130...H.. L.V . 220... R.. X.L.A . V: N$.N$.P$: .......1,"B-P:" ;2;144: .2,N$;.J....1,"U2:";2;D;T;S: . 3 50.`....1,I$: . 350: 2...... ".. OLD H EADER-NAME ";Q$;F$;Q$...... 310: 2: 1...... ".. NEW HEADER-NAME ";Q$;H$;Q$.. .... ".. CHANGE ANOTHER DISKETTE (Y/N) ? Y...";...".. X$: . X$."Y" . 60...,.. ". ";: ..3.6.. 2,U,2,"#": . 350: H$."".O.@. .1,"U1:";2;D;T;S: . 350.N.J..1,"B-P:";2; 144: . X.A . V...T..#2,T$: H$.H$.T$: .: ....^..1,E,M$,J,K:. E.0 . ....H.. ". ERR OR: ";E;M$;J;K.N.R. 2: 1: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL