CHANGE DISK NAME
FILE INFORMATION
FILENAME(S): CHANGE DISK NAME
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-12-02 02:15:03
APPEARS ON: 1 disk(s)
FILE HASH
55d326768c33c5a7e088ad8a84f45c314903de6e27af736a0c8cc0ba4c939608
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 03 | CHANGE DISK NAME | PRG | The BAM Archive | 8 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 99 20 22 93 3D 3D 3E 20 49 4E |..$.... ".==> IN|
00000010: 53 45 52 54 20 44 49 53 4B 20 54 4F 20 52 45 4E |SERT DISK TO REN|
00000020: 41 4D 45 22 00 3E 08 14 00 A1 20 58 24 3A 8B 20 |AME".>.... X$:. |
00000030: 58 24 B3 B1 C7 28 31 33 29 20 A7 20 32 30 00 64 |X$...(13) . 20.d|
00000040: 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.d.. ***********|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 00 8A 08 6E 00 8F 20 2A 20 20 20 20 |****...n.. * |
00000070: 20 20 20 20 20 4F 50 45 4E 20 46 49 4C 45 53 20 | OPEN FILES |
00000080: 20 20 20 20 20 20 20 20 20 2A 00 B0 08 78 00 8F | *...x..|
00000090: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 00 C3 08 82 00 43 48 B2 38 3A 8F 20 43 48 41 4E |.....CH.8:. CHAN|
000000C0: 4E 45 4C 00 D4 08 8C 00 44 52 B2 30 3A 8F 20 44 |NEL.....DR.0:. D|
000000D0: 52 49 56 45 00 E1 08 96 00 9F 20 31 2C 38 2C 31 |RIVE...... 1,8,1|
000000E0: 35 00 F3 08 A0 00 9F 20 31 30 30 2C 38 2C 38 2C |5...... 100,8,8,|
000000F0: 22 23 22 00 19 09 C8 00 8F 20 2A 2A 2A 2A 2A 2A |"#"...... ******|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3F 09 D2 00 8F 20 |*********.?.... |
00000120: 2A 20 20 20 20 53 43 52 45 45 4E 20 4D 41 53 4B |* SCREEN MASK|
00000130: 20 26 20 4D 45 53 53 41 47 45 20 20 20 20 2A 00 | & MESSAGE *.|
00000140: 65 09 DC 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |e.... **********|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 2A 2A 2A 00 70 09 E6 00 99 20 22 93 22 3B |*****.p.... ".";|
00000170: 00 A2 09 F0 00 99 20 22 C0 C0 C0 C0 C0 C0 C0 C0 |...... "........|
00000180: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000190: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001A0: 22 3B 00 D6 09 FA 00 99 20 22 12 20 20 20 20 20 |";...... ". |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 92 22 3B 00 08 0A 04 01 99 20 22 C0 C0 | .";...... "..|
000001E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000200: C0 C0 C0 C0 C0 C0 22 3B 00 2D 0A 09 01 97 20 37 |......";.-.... 7|
00000210: 38 31 2C 31 3A 97 20 37 38 32 2C 31 30 3A 97 20 |81,1:. 782,10:. |
00000220: 37 38 33 2C 30 3A 9E 20 36 35 35 32 30 00 4A 0A |783,0:. 65520.J.|
00000230: 0E 01 99 20 22 20 43 48 41 4E 47 45 20 44 49 53 |... " CHANGE DIS|
00000240: 4B 20 48 45 41 44 45 52 20 22 00 50 0A 18 01 99 |K HEADER ".P....|
00000250: 00 79 0A 22 01 99 20 A3 31 30 29 20 22 28 43 29 |.y.".. .10) "(C)|
00000260: 20 31 39 38 33 20 56 41 4E 20 43 55 54 53 45 4D | 1983 VAN CUTSEM|
00000270: 20 47 49 4C 42 45 52 54 22 00 7F 0A 2C 01 8F 00 | GILBERT"...,...|
00000280: 85 0A 31 01 99 00 AC 0A 36 01 99 20 A3 37 29 20 |..1.....6.. .7) |
00000290: 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
000002A0: C0 C0 C0 C0 B2 C0 C0 B2 C0 C0 AE 22 00 D3 0A 40 |..........."...@|
000002B0: 01 99 20 A3 37 29 20 22 DD 4F 4C 44 20 44 49 53 |.. .7) ".OLD DIS|
000002C0: 4B 20 4E 41 4D 45 20 2E 2E 5F C0 DD 49 44 DD 20 |K NAME .._..ID. |
000002D0: 20 DD 22 00 FA 0A 4A 01 99 20 A3 37 29 20 22 AD | ."...J.. .7) ".|
000002E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002F0: C0 C0 B1 C0 C0 B1 C0 C0 BD 22 00 00 0B 4F 01 99 |........."...O..|
00000300: 00 24 0B 54 01 99 20 A3 37 29 20 22 B0 C0 C0 C0 |.$.T.. .7) "....|
00000310: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B2 |................|
00000320: C0 C0 AE 22 00 47 0B 5E 01 99 20 A3 37 29 20 22 |...".G.^.. .7) "|
00000330: DD 4E 45 57 20 44 49 53 4B 20 4E 41 4D 45 20 2E |.NEW DISK NAME .|
00000340: 2E 5F C0 DD 49 44 DD 00 6B 0B 68 01 99 20 A3 37 |._..ID..k.h.. .7|
00000350: 29 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |) ".............|
00000360: C0 C0 C0 C0 C0 C0 B1 C0 C0 BD 22 00 71 0B 72 01 |..........".q.r.|
00000370: 3A 00 86 0B 77 01 8D 20 35 30 30 30 3A 8F 20 2A |:...w.. 5000:. *|
00000380: 2A 20 52 45 41 44 00 9B 0B 7C 01 50 25 B2 38 3A |* READ...|.P%.8:|
00000390: 4C B2 31 36 3A 8D 20 37 30 30 30 00 AC 0B 86 01 |L.16:. 7000.....|
000003A0: 44 4E 24 B2 C8 28 58 24 2C 31 36 29 00 C1 0B 90 |DN$..(X$,16)....|
000003B0: 01 50 25 B2 32 37 3A 4C B2 32 3A 8D 20 37 30 30 |.P%.27:L.2:. 700|
000003C0: 30 00 D1 0B 9A 01 49 44 24 B2 C8 28 58 24 2C 32 |0.....ID$..(X$,2|
000003D0: 29 00 F3 0B AE 01 8D 20 36 30 30 30 3A 8F 20 2A |)...... 6000:. *|
000003E0: 2A 20 57 52 49 54 45 20 44 49 53 4B 20 4E 41 4D |* WRITE DISK NAM|
000003F0: 45 20 2A 00 18 0C 88 13 8F 20 2A 2A 2A 2A 2A 2A |E *...... ******|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000410: 2A 2A 2A 2A 2A 2A 2A 2A 00 3D 0C 92 13 8F 20 2A |********.=.... *|
00000420: 20 52 45 41 44 20 44 49 53 4B 20 4E 41 4D 45 20 | READ DISK NAME |
00000430: 2B 20 49 44 20 2B 20 46 4D 41 54 20 2A 00 62 0C |+ ID + FMAT *.b.|
00000440: 9C 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000460: 2A 2A 00 74 0C A6 13 54 B2 30 31 38 3A 8F 20 54 |**.t...T.018:. T|
00000470: 52 41 43 4B 00 87 0C B0 13 53 B2 30 30 30 3A 8F |RACK.....S.000:.|
00000480: 20 53 45 43 54 4F 52 00 A2 0C BA 13 42 B2 31 34 | SECTOR.....B.14|
00000490: 34 3A 8F 20 42 55 46 46 45 52 20 50 4F 49 4E 54 |4:. BUFFER POINT|
000004A0: 45 52 00 B9 0C C4 13 98 31 2C 22 42 2D 52 3A 22 |ER......1,"B-R:"|
000004B0: 43 48 3B 44 52 3B 54 3B 53 00 CB 0C CE 13 98 31 |CH;DR;T;S......1|
000004C0: 2C 22 42 2D 50 3A 22 43 48 3B 42 00 D1 0C D8 13 |,"B-P:"CH;B.....|
000004D0: 3A 00 EE 0C E2 13 8F 20 2A 2A 2A 20 52 45 41 44 |:...... *** READ|
000004E0: 20 44 49 53 4B 20 4E 41 4D 45 20 2A 2A 2A 00 F4 | DISK NAME ***..|
000004F0: 0C E7 13 3A 00 FF 0C EC 13 44 4E 24 B2 22 22 00 |...:.....DN$."".|
00000500: 11 0D F6 13 81 20 49 B2 31 34 34 20 A4 20 31 36 |..... I.144 . 16|
00000510: 31 00 29 0D 00 14 A1 23 31 30 30 2C 41 24 3A 44 |1.)....#100,A$:D|
00000520: 4E 24 B2 44 4E 24 AA 41 24 00 31 0D 0A 14 82 20 |N$.DN$.A$.1.... |
00000530: 49 00 37 0D 1E 14 3A 00 54 0D 28 14 8F 20 2A 2A |I.7...:.T.(.. **|
00000540: 2A 20 52 45 41 44 20 49 44 20 20 20 20 20 20 20 |* READ ID |
00000550: 20 2A 2A 2A 00 5A 0D 2D 14 3A 00 6D 0D 32 14 A1 | ***.Z.-.:.m.2..|
00000560: 23 31 30 30 2C 41 24 2C 42 24 2C 43 24 00 7B 0D |#100,A$,B$,C$.{.|
00000570: 3C 14 49 44 24 B2 41 24 AA 42 24 00 81 0D 50 14 |<.ID$.A$.B$...P.|
00000580: 3A 00 9E 0D 5A 14 8F 20 2A 2A 2A 20 52 45 41 44 |:...Z.. *** READ|
00000590: 20 46 4D 41 54 20 20 20 20 20 20 2A 2A 2A 00 A4 | FMAT ***..|
000005A0: 0D 5F 14 3A 00 B4 0D 64 14 A1 23 31 30 30 2C 41 |._.:...d..#100,A|
000005B0: 24 2C 42 24 00 C2 0D 6E 14 46 4D 24 B2 41 24 AA |$,B$...n.FM$.A$.|
000005C0: 42 24 00 C8 0D 78 14 3A 00 EC 0D 82 14 97 20 37 |B$...x.:...... 7|
000005D0: 38 31 2C 37 3A 97 20 37 38 32 2C 38 3A 97 20 37 |81,7:. 782,8:. 7|
000005E0: 38 33 2C 30 3A 9E 20 36 35 35 32 30 00 FA 0D 8C |83,0:. 65520....|
000005F0: 14 99 20 22 12 22 20 44 4E 24 00 1F 0E 96 14 97 |.. "." DN$......|
00000600: 20 37 38 31 2C 37 3A 97 20 37 38 32 2C 32 37 3A | 781,7:. 782,27:|
00000610: 97 20 37 38 33 2C 30 3A 9E 20 36 35 35 32 30 00 |. 783,0:. 65520.|
00000620: 2D 0E A0 14 99 20 22 12 22 20 49 44 24 00 52 0E |-.... "." ID$.R.|
00000630: AA 14 97 20 37 38 31 2C 37 3A 97 20 37 38 32 2C |... 781,7:. 782,|
00000640: 33 30 3A 97 20 37 38 33 2C 30 3A 9E 20 36 35 35 |30:. 783,0:. 655|
00000650: 32 30 00 60 0E AF 14 99 20 22 12 22 20 46 4D 24 |20.`.... "." FM$|
00000660: 00 66 0E B4 14 8E 00 6C 0E BE 14 3A 00 91 0E 70 |.f.....l...:...p|
00000670: 17 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000690: 2A 00 B6 0E 84 17 8F 20 2A 20 52 45 57 52 49 54 |*...... * REWRIT|
000006A0: 45 20 4E 45 57 20 4E 41 4D 45 20 26 20 49 44 20 |E NEW NAME & ID |
000006B0: 20 20 20 20 20 2A 00 DB 0E 8E 17 8F 20 2A 2A 2A | *...... ***|
000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E5 0E A2 17 |***********.....|
000006E0: 99 3A 99 3A 99 00 12 0F AC 17 99 20 22 20 20 20 |.:.:....... " |
000006F0: 20 20 20 49 53 20 49 54 20 4F 4B 20 54 4F 20 52 | IS IT OK TO R|
00000700: 45 4E 41 4D 45 20 54 48 49 53 20 44 49 53 4B 20 |ENAME THIS DISK |
00000710: 3F 22 00 2A 0F B6 17 A1 20 58 24 3A 8B 20 58 24 |?".*.... X$:. X$|
00000720: B2 22 22 20 A7 20 36 30 37 30 00 3B 0F C0 17 8B |."" . 6070.;....|
00000730: 20 58 24 B2 22 4E 22 20 A7 20 8A 00 50 0F CA 17 | X$."N" . ..P...|
00000740: 8B 20 58 24 B3 B1 22 59 22 20 A7 20 36 30 37 30 |. X$.."Y" . 6070|
00000750: 00 62 0F D4 17 54 B2 30 31 38 3A 8F 20 54 52 41 |.b...T.018:. TRA|
00000760: 43 4B 00 75 0F D8 17 53 B2 30 30 30 3A 8F 20 53 |CK.u...S.000:. S|
00000770: 45 43 54 4F 52 00 8F 0F DB 17 42 B2 31 34 34 3A |ECTOR.....B.144:|
00000780: 8F 20 42 55 46 45 52 20 50 4F 49 4E 54 45 52 00 |. BUFER POINTER.|
00000790: A1 0F DE 17 98 31 2C 22 42 2D 50 3A 22 43 48 3B |.....1,"B-P:"CH;|
000007A0: 42 00 AE 0F E8 17 98 31 30 30 2C 44 4E 24 00 C2 |B......100,DN$..|
000007B0: 0F EC 17 98 31 2C 22 42 2D 50 3A 22 43 48 3B 31 |....1,"B-P:"CH;1|
000007C0: 36 30 00 D8 0F EE 17 98 31 30 30 2C C7 28 31 36 |60......100,.(16|
000007D0: 30 29 C7 28 31 36 30 29 00 EC 0F F2 17 98 31 2C |0).(160)......1,|
000007E0: 22 42 2D 50 3A 22 43 48 3B 31 36 32 00 F9 0F FC |"B-P:"CH;162....|
000007F0: 17 98 31 30 30 2C 49 44 24 00 0D 10 FD 17 98 31 |..100,ID$......1|
00000800: 2C 22 42 2D 50 3A 22 43 48 3B 31 36 34 00 1D 10 |,"B-P:"CH;164...|
00000810: FE 17 98 31 30 30 2C C7 28 31 36 30 29 00 31 10 |...100,.(160).1.|
00000820: 00 18 98 31 2C 22 42 2D 50 3A 22 43 48 3B 31 36 |...1,"B-P:"CH;16|
00000830: 35 00 45 10 01 18 98 31 30 30 2C C7 28 35 30 29 |5.E....100,.(50)|
00000840: C7 28 36 35 29 00 59 10 02 18 98 31 2C 22 42 2D |.(65).Y....1,"B-|
00000850: 50 3A 22 43 48 3B 31 36 37 00 7B 10 03 18 98 31 |P:"CH;167.{....1|
00000860: 30 30 2C C7 28 31 36 30 29 C7 28 31 36 30 29 C7 |00,.(160).(160).|
00000870: 28 31 36 30 29 C7 28 31 36 30 29 00 92 10 06 18 |(160).(160).....|
00000880: 98 31 2C 22 42 2D 57 3A 22 43 48 3B 44 52 3B 54 |.1,"B-W:"CH;DR;T|
00000890: 3B 53 00 9E 10 10 18 98 31 2C 22 49 30 22 00 A4 |;S......1,"I0"..|
000008A0: 10 15 18 8F 00 C9 10 1A 18 8F 20 2A 2A 2A 2A 2A |.......... *****|
000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 10 24 18 8F 20 |*********...$.. |
000008D0: 2A 20 20 43 4C 4F 53 45 20 46 49 4C 45 53 20 41 |* CLOSE FILES A|
000008E0: 4E 44 20 45 4E 44 20 20 20 20 20 20 20 2A 00 13 |ND END *..|
000008F0: 11 2E 18 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000910: 2A 2A 2A 00 1B 11 38 18 A0 20 31 00 25 11 42 18 |***...8.. 1.%.B.|
00000920: A0 20 31 30 30 00 3E 11 4C 18 99 20 22 93 4F 4B |. 100.>.L.. ".OK|
00000930: 20 44 49 53 4B 20 52 45 4E 41 4D 45 44 22 00 70 | DISK RENAMED".p|
00000940: 11 56 18 99 22 11 11 11 11 11 11 11 20 20 20 20 |.V.."....... |
00000950: 20 41 4E 4F 54 48 45 52 20 44 49 53 4B 20 54 4F | ANOTHER DISK TO|
00000960: 20 52 45 4E 41 4D 45 20 28 59 2F 4E 29 20 3F 22 | RENAME (Y/N) ?"|
00000970: 00 84 11 60 18 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...`..A$:.A$."".|
00000980: 36 32 34 30 00 92 11 6A 18 8B 41 24 B2 22 59 22 |6240...j..A$."Y"|
00000990: A7 8A 00 A4 11 74 18 8B 41 24 B3 B1 22 4E 22 A7 |.....t..A$.."N".|
000009A0: 36 32 34 30 00 AA 11 7E 18 80 00 CF 11 58 1B 8F |6240...~.....X..|
000009B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000009D0: F4 11 62 1B 8F 20 2A 20 20 49 4E 50 55 54 20 52 |..b.. * INPUT R|
000009E0: 4F 55 54 49 4E 45 20 4E 41 4D 45 20 26 20 49 44 |OUTINE NAME & ID|
000009F0: 20 20 20 2A 00 19 12 6C 1B 8F 20 2A 2A 2A 2A 2A | *...l.. *****|
00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 12 76 1B 8F 00 |*********...v...|
00000A20: 45 12 80 1B 97 20 37 38 31 2C 31 31 3A 97 20 37 |E.... 781,11:. 7|
00000A30: 38 32 2C 50 25 3A 97 20 37 38 33 2C 30 3A 9E 20 |82,P%:. 783,0:. |
00000A40: 36 35 35 32 30 00 55 12 8A 1B 58 24 B2 22 22 3A |65520.U...X$."":|
00000A50: 41 24 B2 22 22 00 64 12 8F 1B 99 20 41 24 20 22 |A$."".d.... A$ "|
00000A60: 5F 9D 22 3B 00 7C 12 94 1B A1 20 41 24 3A 8B 20 |_.";.|.... A$:. |
00000A70: 41 24 B2 22 22 20 A7 20 37 30 36 30 00 92 12 9E |A$."" . 7060....|
00000A80: 1B 8B 20 41 24 B2 C7 28 31 33 29 20 A7 20 37 31 |.. A$..(13) . 71|
00000A90: 34 30 00 A7 12 A8 1B 8B 20 C3 28 58 24 29 B3 31 |40...... .(X$).1|
00000AA0: 20 A7 20 37 31 30 30 00 DB 12 B2 1B 8B 20 41 24 | . 7100...... A$|
00000AB0: B2 C7 28 32 30 29 20 A7 20 58 24 B2 C8 28 58 24 |..(20) . X$..(X$|
00000AC0: 2C C3 28 58 24 29 AB 31 29 3A 41 24 B2 22 2E 9D |,.(X$).1):A$."..|
00000AD0: 9D 2E 9D 22 3A 89 20 37 30 35 35 00 F8 12 BC 1B |...":. 7055.....|
00000AE0: 8B 20 41 24 B3 22 20 22 20 B0 20 41 24 B1 22 5F |. A$." " . A$."_|
00000AF0: 22 20 A7 20 37 30 36 30 00 05 13 C6 1B 58 24 B2 |" . 7060.....X$.|
00000B00: 58 24 AA 41 24 00 1A 13 D0 1B 8B 20 C3 28 58 24 |X$.A$...... .(X$|
00000B10: 29 B3 4C 20 A7 20 37 30 35 35 00 26 13 DA 1B 99 |).L . 7055.&....|
00000B20: 20 41 24 3B 3A 8E 00 33 13 E4 1B 99 20 22 20 22 | A$;:..3.... " "|
00000B30: 3B 3A 8E 00 00 00 01 12 39 E4 |;:......9. |
..$.... ".==> INSERT DISK TO RENAME".>..
.. X$:. X$..G(13) . 20.D.D.. ***********
********************...N.. * OPE
N FILES *...X.. ***************
****************.C...CH.8:. CHANNEL.T...
DR.0:. DRIVE...... 1,8,15... .. 100,8,8,
"#"...H.. ******************************
*.?.R.. * SCREEN MASK & MESSAGE *.
E.... *******************************.P.
... ".";...... "........................
................";.V.... ".
.";...... "..
......................................";
.-.... 781,1:. 782,10:. 783,0:. 65520.J.
... " CHANGE DISK HEADER ".P.....Y.".. .
10) "(C) 1983 VAN CUTSEM GILBERT"..,...
..1.....6.. .7) ".......................
...".S.@.. .7) ".OLD DISK NAME .._..ID.
."...J.. .7) ".........................
."...O...$.T.. .7) "....................
...".G.^.. .7) ".NEW DISK NAME .._..ID..
K.H.. .7) ".......................".Q.R.
:...W.. 5000:. ** READ...|.P%.8:L.16:. 7
000.....DN$.H(X$,16).A...P%.27:L.2:. 700
0.Q...ID$.H(X$,2)...... 6000:. ** WRITE
DISK NAME *...... **********************
********.=.... * READ DISK NAME + ID + F
MAT *.B.... ****************************
**.T...T.018:. TRACK.....S.000:. SECTOR.
....B.144:. BUFFER POINTER...D..1,"B-R:"
CH;DR;T;S.K.N..1,"B-P:"CH;B.Q.X.:......
*** READ DISK NAME ***.....:.....DN$."".
..... I.144 . 161.)....#100,A$:DN$.DN$.A
$.1.... I.7...:.T.(.. *** READ ID
***.Z.-.:.M.2..#100,A$,B$,C$.{.<.ID$.A$
.B$...P.:...Z.. *** READ FMAT ***..
._.:...D..#100,A$,B$.B.N.FM$.A$.B$.H.X.:
...... 781,7:. 782,8:. 783,0:. 65520....
.. "." DN$...... 781,7:. 782,27:. 783,0:
. 65520.-. .. "." ID$.R.... 781,7:. 782,
30:. 783,0:. 65520.`.... "." FM$.F.....L
...:...P.. *****************************
*...... * REWRITE NEW NAME & ID *..
.... ******************************.....
.:.:....... " IS IT OK TO RENAME TH
IS DISK ?".*.... X$:. X$."" . 6070.;....
X$."N" . ..P.J.. X$.."Y" . 6070.B.T.T.0
18:. TRACK.U.X.S.000:. SECTOR.....B.144:
. BUFER POINTER......1,"B-P:"CH;B......1
00,DN$.B....1,"B-P:"CH;160.X....100,G(16
0)G(160)......1,"B-P:"CH;162......100,ID
$......1,"B-P:"CH;164......100,G(160).1.
...1,"B-P:"CH;165.E....100,G(50)G(65).Y.
...1,"B-P:"CH;167.{....100,G(160)G(160)G
(160)G(160)......1,"B-W:"CH;DR;T;S......
1,"I0".......I.... *********************
*********...$.. * CLOSE FILES AND END
*...... ***************************
***...8. 1.%.B. 100.>.L.. ".OK DISK RE
NAMED".P.V.."....... ANOTHER DISK TO
RENAME (Y/N) ?"...`..A$:.A$."".6240...J
..A$."Y".....T..A$.."N".6240...~...O.X..
******************************...B.. *
INPUT ROUTINE NAME & ID *...L.. *****
*************************...V...E.... 78
1,11:. 782,P%:. 783,0:. 65520.U...X$."":
A$."".D.... A$ "_.";.|.... A$:. A$."" .
7060...... A$.G(13) . 7140...... C(X$).1
. 7100...... A$.G(20) . X$.H(X$,C(X$).1
):A$.".....":. 7055...... A$." " . A$."_
" . 7060...F.X$.X$.A$...P.. C(X$).L . 70
55.&.Z.. A$;:..3.... " ";:......9.
> CLICK IMAGE PREVIEW FOR FULL MODAL