1581 HEAD.CHANGE

FILE INFORMATION

FILENAME(S): 1581 HEAD.CHANGE

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 18:06:10

APPEARS ON: 1 disk(s)

FILE HASH

791c06085962ac6b26b75ed10b66d0dc95d47e2d93ed73b7fc5dc51a7e6b18a6

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TIGERDISK NUMMER	1581 HEAD.CHANGE	PRG	Xii	19	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 28 08 0A 00 99 20  22 93 11 20 43 48 41 4E  |..(.... ".. CHAN|
00000010: 47 45 20 44 49 53 4B 45  54 54 45 20 48 45 41 44  |GE DISKETTE HEAD|
00000020: 45 52 2D 4E 41 4D 45 22  00 50 08 14 00 99 20 22  |ER-NAME".P.... "|
00000030: 11 20 44 49 53 4B 20 55  4E 49 54 20 4E 52 20 28  |. DISK UNIT NR (|
00000040: 38 2D 31 35 29 20 3F A0  38 20 9D 9D 9D 9D 22 3B  |8-15) ?.8 ....";|
00000050: 00 76 08 1E 00 85 20 55  3A 20 8B 20 55 B3 38 20  |.v.... U: . U.8 |
00000060: B0 20 55 B1 31 35 20 A7  20 99 20 22 91 91 91 22  |. U.15 . . "..."|
00000070: 3A 20 89 20 32 30 00 9C  08 28 00 99 20 22 11 20  |: . 20...(.. ". |
00000080: 44 49 53 4B 20 44 52 49  56 45 20 4E 52 20 28 30  |DISK DRIVE NR (0|
00000090: 2F 31 29 20 3F A0 30 9D  9D 9D 22 3B 00 C1 08 32  |/1) ?.0...";...2|
000000A0: 00 85 20 44 3A 20 8B 20  44 B3 30 20 B0 20 44 B1  |.. D: . D.0 . D.|
000000B0: 31 20 A7 20 99 20 22 91  91 91 22 3A 20 89 20 34  |1 . . "...": . 4|
000000C0: 30 00 F1 08 3C 00 99 20  22 11 11 20 50 55 54 20  |0...<.. ".. PUT |
000000D0: 54 41 52 47 45 54 20 44  49 53 4B 20 49 4E 20 55  |TARGET DISK IN U|
000000E0: 4E 49 54 22 3B 55 3B 22  20 44 52 49 56 45 22 3B  |NIT";U;" DRIVE";|
000000F0: 44 00 19 09 46 00 99 20  22 20 54 48 45 4E 20 50  |D...F.. " THEN P|
00000100: 52 45 53 53 20 41 4E 59  20 4B 45 59 20 54 4F 20  |RESS ANY KEY TO |
00000110: 43 4F 4E 54 49 4E 55 45  22 00 2F 09 50 00 A1 20  |CONTINUE"./.P.. |
00000120: 58 24 3A 20 8B 20 58 24  B2 22 22 A7 20 38 30 00  |X$: . X$."". 80.|
00000130: 52 09 5A 00 41 B2 31 3A  20 56 B2 31 36 3A 20 51  |R.Z.A.1: V.16: Q|
00000140: 24 B2 C7 28 33 34 29 3A  20 50 24 B2 C7 28 31 36  |$..(34): P$..(16|
00000150: 30 29 00 72 09 64 00 54  B2 34 30 3A 20 53 B2 30  |0).r.d.T.40: S.0|
00000160: 3A 20 49 24 B2 22 49 22  AA C9 28 C4 28 44 29 2C  |: I$."I"..(.(D),|
00000170: 31 29 00 89 09 6E 00 9F  20 31 2C 55 2C 31 35 2C  |1)...n.. 1,U,15,|
00000180: 49 24 3A 20 8D 20 33 35  30 00 AB 09 78 00 8D 20  |I$: . 350...x.. |
00000190: 33 31 30 3A 20 46 24 B2  48 24 3A 20 A1 23 32 2C  |310: F$.H$: .#2,|
000001A0: 58 24 2C 58 24 2C 41 24  2C 42 24 00 D5 09 82 00  |X$,X$,A$,B$.....|
000001B0: 99 20 22 93 11 11 20 43  55 52 52 45 4E 54 20 48  |. "... CURRENT H|
000001C0: 45 41 44 45 52 2D 4E 41  4D 45 20 22 3B 51 24 3B  |EADER-NAME ";Q$;|
000001D0: 46 24 3B 51 24 00 F6 09  8C 00 99 20 22 20 44 49  |F$;Q$...... " DI|
000001E0: 53 4B 45 54 54 45 20 49  44 20 49 53 3A 20 20 22  |SKETTE ID IS:  "|
000001F0: 3B 41 24 3B 42 24 00 27  0A 96 00 99 20 22 11 20  |;A$;B$.'.... ". |
00000200: 4E 45 57 20 4E 41 4D 45  20 28 4D 41 58 20 31 36  |NEW NAME (MAX 16|
00000210: 20 43 48 41 52 41 43 54  45 52 53 29 20 4F 52 20  | CHARACTERS) OR |
00000220: 27 51 55 49 54 27 22 00  56 0A A0 00 85 20 22 20  |'QUIT'".V.... " |
00000230: 3F 20 51 55 49 54 9D 9D  9D 9D 9D 9D 22 3B 4E 24  |? QUIT......";N$|
00000240: 3A 20 4C B2 C3 28 4E 24  29 3A 20 8B 20 4C B1 56  |: L..(N$): . L.V|
00000250: 20 A7 20 31 33 30 00 76  0A AA 00 8B 20 4E 24 B2  | . 130.v.... N$.|
00000260: 22 51 55 49 54 22 20 A7  20 99 20 22 93 22 3B 3A  |"QUIT" . . ".";:|
00000270: 20 89 20 33 37 30 00 AA  0A B4 00 99 20 22 11 20  | . 370...... ". |
00000280: 4F 4B 20 54 4F 20 57 52  49 54 45 20 4E 45 57 20  |OK TO WRITE NEW |
00000290: 48 45 41 44 45 52 2D 4E  41 4D 45 20 28 59 2F 4E  |HEADER-NAME (Y/N|
000002A0: 29 20 3F 20 59 9D 9D 9D  22 3B 00 C4 0A BE 00 85  |) ? Y...";......|
000002B0: 20 58 24 3A 20 8B 20 58  24 B3 B1 22 59 22 20 A7  | X$: . X$.."Y" .|
000002C0: 20 31 33 30 00 D4 0A C8  00 8B 20 4C B2 56 20 A7  | 130...... L.V .|
000002D0: 20 32 32 30 00 F1 0A D2  00 81 20 58 B2 4C AA 41  | 220...... X.L.A|
000002E0: 20 A4 20 56 3A 20 4E 24  B2 4E 24 AA 50 24 3A 20  | . V: N$.N$.P$: |
000002F0: 82 00 0B 0B DC 00 98 31  2C 22 42 2D 50 3A 22 3B  |.......1,"B-P:";|
00000300: 32 3B 34 3A 20 98 32 2C  4E 24 3B 00 27 0B E6 00  |2;4: .2,N$;.'...|
00000310: 98 31 2C 22 55 32 3A 22  3B 32 3B 44 3B 54 3B 53  |.1,"U2:";2;D;T;S|
00000320: 3A 20 8D 20 33 35 30 00  3D 0B F0 00 98 31 2C 49  |: . 350.=....1,I|
00000330: 24 3A 20 8D 20 33 35 30  3A 20 A0 20 32 00 61 0B  |$: . 350: . 2.a.|
00000340: FA 00 99 20 22 11 20 4F  4C 44 20 48 45 41 44 45  |... ". OLD HEADE|
00000350: 52 2D 4E 41 4D 45 20 22  3B 51 24 3B 46 24 3B 51  |R-NAME ";Q$;F$;Q|
00000360: 24 00 75 0B 04 01 8D 20  33 31 30 3A 20 A0 20 32  |$.u.... 310: . 2|
00000370: 3A 20 A0 20 31 00 99 0B  0E 01 99 20 22 11 20 4E  |: . 1...... ". N|
00000380: 45 57 20 48 45 41 44 45  52 2D 4E 41 4D 45 20 22  |EW HEADER-NAME "|
00000390: 3B 51 24 3B 48 24 3B 51  24 00 C9 0B 18 01 99 20  |;Q$;H$;Q$...... |
000003A0: 22 11 20 43 48 41 4E 47  45 20 41 4E 4F 54 48 45  |". CHANGE ANOTHE|
000003B0: 52 20 44 49 53 4B 45 54  54 45 20 28 59 2F 4E 29  |R DISKETTE (Y/N)|
000003C0: 20 3F 20 59 9D 9D 9D 22  3B 00 E1 0B 22 01 85 20  | ? Y...";...".. |
000003D0: 58 24 3A 20 8B 20 58 24  B2 22 59 22 20 A7 20 36  |X$: . X$."Y" . 6|
000003E0: 30 00 EF 0B 2C 01 99 20  22 93 22 3B 3A 20 80 00  |0...,.. ".";: ..|
000003F0: 0D 0C 36 01 9F 20 32 2C  55 2C 32 2C 22 23 22 3A  |..6.. 2,U,2,"#":|
00000400: 20 8D 20 33 35 30 3A 20  48 24 B2 22 22 00 29 0C  | . 350: H$."".).|
00000410: 40 01 98 31 2C 22 55 31  3A 22 3B 32 3B 44 3B 54  |@..1,"U1:";2;D;T|
00000420: 3B 53 3A 20 8D 20 33 35  30 00 46 0C 4A 01 98 31  |;S: . 350.F.J..1|
00000430: 2C 22 42 2D 50 3A 22 3B  32 3B 34 3A 20 81 20 58  |,"B-P:";2;4: . X|
00000440: B2 41 20 A4 20 56 00 61  0C 54 01 A1 23 32 2C 54  |.A . V.a.T..#2,T|
00000450: 24 3A 20 48 24 B2 48 24  AA 54 24 3A 20 82 3A 20  |$: H$.H$.T$: .: |
00000460: 8E 00 7B 0C 5E 01 84 31  2C 45 2C 4D 24 2C 4A 2C  |..{.^..1,E,M$,J,|
00000470: 4B 3A 8B 20 45 B2 30 20  A7 20 8E 00 96 0C 68 01  |K:. E.0 . ....h.|
00000480: 99 20 22 11 20 45 52 52  4F 52 3A 20 22 3B 45 3B  |. ". ERROR: ";E;|
00000490: 4D 24 3B 4A 3B 4B 00 A6  0C 72 01 A0 20 32 3A 20  |M$;J;K...r.. 2: |
000004A0: A0 20 31 3A 20 80 00 00  00                       |. 1: ....       |

..(.... ".. CHANGE DISKETTE HEADER-NAME"
.P.... ". DISK UNIT NR (8-15) ? 8 ....";
.V.... U: . U.8 . U.15 . . "...": . 20..
.(.. ". DISK DRIVE NR (0/1) ? 0...";.A.2
.. D: . D.0 . D.1 . . "...": . 40...<.. 
".. PUT TARGET DISK IN UNIT";U;" DRIVE";
D...F.. " THEN PRESS ANY KEY TO CONTINUE
"./.P.. X$: . X$."". 80.R.Z.A.1: V.16: Q
$.G(34): P$.G(160).R.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$.U.... "... C
URRENT HEADER-NAME ";Q$;F$;Q$...... " DI
SKETTE ID IS:  ";A$;B$.'.... ". NEW NAME
 (MAX 16 CHARACTERS) OR 'QUIT'".V. .. " 
? QUIT......";N$: L.C(N$): . L.V . 130.V
.... N$."QUIT" . . ".";: . 370...... ". 
OK TO WRITE NEW HEADER-NAME (Y/N) ? Y...
";.D.... X$: . X$.."Y" . 130.T.H.. L.V .
 220...R.. X.L.A . V: N$.N$.P$: .......1
,"B-P:";2;4: .2,N$;.'....1,"U2:";2;D;T;S
: . 350.=....1,I$: . 350:   2.A.... ". O
LD HEADER-NAME ";Q$;F$;Q$.U.... 310:   2
:   1...... ". NEW HEADER-NAME ";Q$;H$;Q
$.I.... ". CHANGE ANOTHER DISKETTE (Y/N)
 ? Y...";...".. X$: . X$."Y" . 60...,.. 
".";: ....6.. 2,U,2,"#": . 350: H$."".).
@..1,"U1:";2;D;T;S: . 350.F.J..1,"B-P:";
2;4: . X.A . V.A.T..#2,T$: H$.H$.T$: .: 
..{.^..1,E,M$,J,K:. E.0 . ....H.. ". ERR
OR: ";E;M$;J;K...R.  2:   1: ....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL