CHANGE TITLE.C
FILE INFORMATION
FILENAME(S): CHANGE TITLE.C
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 5 disk(s)
FILE HASH
3a24d1478d3387fd449a9a703a3cde083993663ffa6be1bfbe9f1c8c51e901e4
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | CHANGE TITLE.C | PRG | Treasure Chest - Plattfuss | 5 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | CHANGE TITLE.C | PRG | Treasure Chest - Wolfgang Rauprich | 16 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | CHANGE TITLE.C | PRG | Treasure Chest - Wolfgang Rauprich | 16 | 0 | DOWNLOAD FILE |
| U TILITIE | CHANGE TITLE.C | PRG | Treasure Chest - Wolfgang Rauprich | 16 | 0 | DOWNLOAD FILE |
| TPUG APRIL 84 C | CHANGE TITLE.C | PRG | Sailor, Ganheden | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 01 00 9F 31 35 2C 38 2C 31 35 3A 8D |.......15,8,15:.| 00000010: 31 39 00 23 08 02 00 98 31 35 2C 22 49 30 22 3A |19.#....15,"I0":| 00000020: 8D 31 39 00 36 08 03 00 9F 32 2C 38 2C 32 2C 22 |.19.6....2,8,2,"| 00000030: 23 22 3A 8D 31 39 00 58 08 04 00 86 41 24 28 31 |#":.19.X....A$(1| 00000040: 35 29 3A 98 31 35 2C 22 55 31 3A 32 2C 30 22 3B |5):.15,"U1:2,0";| 00000050: 31 38 3B 30 3A 8D 31 39 00 70 08 05 00 98 31 35 |18;0:.19.p....15| 00000060: 2C 22 42 2D 50 3A 32 2C 31 34 34 22 3A 8D 31 39 |,"B-P:2,144":.19| 00000070: 00 8C 08 06 00 81 49 B2 30 A4 31 35 3A A1 23 32 |......I.0.15:.#2| 00000080: 2C 41 24 28 49 29 3A 8D 31 39 3A 82 00 BA 08 07 |,A$(I):.19:.....| 00000090: 00 99 22 93 4F 4C 44 20 54 49 54 4C 45 3A 11 22 |..".OLD TITLE:."| 000000A0: 3A 81 49 B2 30 A4 31 35 3A 99 22 12 22 3B 41 24 |:.I.0.15:.".";A$| 000000B0: 28 49 29 3B 22 92 22 3B 3A 82 00 E1 08 08 00 99 |(I);".";:.......| 000000C0: 3A 99 22 11 44 4F 20 59 4F 55 20 57 49 53 48 20 |:.".DO YOU WISH | 000000D0: 54 4F 20 43 48 41 4E 47 45 20 49 54 20 3F 20 22 |TO CHANGE IT ? "| 000000E0: 3B 00 FC 08 09 00 A1 41 24 3A 8B 41 24 B3 B1 22 |;......A$:.A$.."| 000000F0: 59 22 AF 41 24 B3 B1 22 4E 22 A7 39 00 0F 09 0A |Y".A$.."N".9....| 00000100: 00 99 41 24 3A 8B 41 24 B2 22 4E 22 A7 31 38 00 |..A$:.A$."N".18.| 00000110: 25 09 0B 00 85 22 11 4E 45 57 20 54 49 54 4C 45 |%....".NEW TITLE| 00000120: 20 22 3B 41 24 00 3F 09 0C 00 8B C3 28 41 24 29 | ";A$.?.....(A$)| 00000130: B1 31 36 A7 41 24 B2 C8 28 41 24 2C 31 36 29 00 |.16.A$..(A$,16).| 00000140: 5B 09 0D 00 8B C3 28 41 24 29 B3 31 36 A7 41 24 |[.....(A$).16.A$| 00000150: B2 41 24 AA 22 20 22 3A 89 31 33 00 73 09 0E 00 |.A$." ":.13.s...| 00000160: 98 31 35 2C 22 42 2D 50 3A 32 2C 31 34 34 22 3A |.15,"B-P:2,144":| 00000170: 8D 31 39 00 93 09 0F 00 81 49 B2 31 A4 31 36 3A |.19......I.1.16:| 00000180: 98 32 2C CA 28 41 24 2C 49 2C 31 29 3B 3A 8D 31 |.2,.(A$,I,1);:.1| 00000190: 39 3A 82 00 AD 09 10 00 98 31 35 2C 22 55 32 3A |9:.......15,"U2:| 000001A0: 32 2C 30 2C 31 38 2C 30 22 3A 8D 31 39 00 BE 09 |2,0,18,0":.19...| 000001B0: 11 00 98 31 35 2C 22 49 30 22 3A 8D 31 39 00 D1 |...15,"I0":.19..| 000001C0: 09 12 00 81 49 B2 31 A4 31 35 3A A0 49 3A 82 3A |....I.1.15:.I:.:| 000001D0: 80 00 EE 09 13 00 84 31 35 2C 45 4E 2C 45 4D 24 |.......15,EN,EM$| 000001E0: 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 A7 8E 00 06 |,ET,ES:.EN.0....| 000001F0: 0A 14 00 99 3A 99 45 4E 3B 45 4D 24 3B 45 54 3B |....:.EN;EM$;ET;| 00000200: 45 53 3A 89 31 38 00 2E 0A 15 00 8F 12 3A 20 20 |ES:.18.......: | 00000210: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 | * | 00000220: 20 20 20 20 2A 20 20 20 20 20 20 20 20 3A 00 56 | * :.V| 00000230: 0A 16 00 8F 12 3A 20 20 20 20 20 20 20 2A 20 43 |.....: * C| 00000240: 48 41 4E 47 45 20 54 49 54 4C 45 20 2A 20 20 20 |HANGE TITLE * | 00000250: 20 20 20 20 20 3A 00 7E 0A 17 00 8F 12 3A 20 20 | :.~.....: | 00000260: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 | * | 00000270: 20 20 20 20 2A 20 20 20 20 20 20 20 20 3A 00 A6 | * :..| 00000280: 0A 18 00 8F 12 3A 20 20 20 20 20 20 20 2A 20 20 |.....: * | 00000290: 20 20 20 20 42 59 20 20 20 20 20 20 2A 20 20 20 | BY * | 000002A0: 20 20 20 20 20 3A 00 CE 0A 19 00 8F 12 3A 20 20 | :.......: | 000002B0: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 | * | 000002C0: 20 20 20 20 2A 20 20 20 20 20 20 20 20 3A 00 F6 | * :..| 000002D0: 0A 1A 00 8F 12 3A 20 20 20 20 20 20 20 2A 20 20 |.....: * | 000002E0: 42 4F 42 20 53 57 49 46 54 20 20 20 2A 20 20 20 |BOB SWIFT * | 000002F0: 20 20 20 20 20 3A 00 1E 0B 1B 00 8F 12 3A 20 20 | :.......: | 00000300: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 | * | 00000310: 20 20 20 20 2A 20 20 20 20 20 20 20 20 3A 00 46 | * :.F| 00000320: 0B 1C 00 8F 12 3A 20 20 20 20 20 20 20 2A 2A 2A |.....: ***| 00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 20 |************* | 00000340: 20 20 20 20 20 3A 00 6E 0B 1D 00 8F 12 3A 20 20 | :.n.....: | 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 96 | :..| 00000370: 0B 1E 00 8F 12 3A 20 20 54 48 49 53 20 50 52 4F |.....: THIS PRO| 00000380: 47 52 41 4D 2C 20 57 48 45 4E 20 27 52 55 4E 27 |GRAM, WHEN 'RUN'| 00000390: 2C 20 20 20 20 3A 00 BE 0B 1F 00 8F 12 3A 20 20 |, :.......: | 000003A0: 57 49 4C 4C 20 41 4C 4C 4F 57 20 59 4F 55 20 54 |WILL ALLOW YOU T| 000003B0: 4F 20 43 48 41 4E 47 45 20 20 20 20 20 3A 00 E6 |O CHANGE :..| 000003C0: 0B 20 00 8F 12 3A 20 20 54 48 45 20 54 49 54 4C |. ...: THE TITL| 000003D0: 45 20 4F 46 20 54 48 45 20 44 49 53 4B 20 49 4E |E OF THE DISK IN| 000003E0: 20 20 20 20 20 3A 00 0E 0C 21 00 8F 12 3A 20 20 | :...!...: | 000003F0: 59 4F 55 52 20 56 49 43 2D 31 35 34 31 20 44 52 |YOUR VIC-1541 DR| 00000400: 49 56 45 2E 20 54 48 45 20 20 20 20 20 3A 00 36 |IVE. THE :.6| 00000410: 0C 22 00 8F 12 3A 20 20 50 52 4F 47 52 41 4D 20 |."...: PROGRAM | 00000420: 46 49 52 53 54 20 44 49 53 50 4C 41 59 53 20 54 |FIRST DISPLAYS T| 00000430: 48 45 20 20 20 3A 00 5E 0C 23 00 8F 12 3A 20 20 |HE :.^.#...: | 00000440: 50 52 45 53 45 4E 54 20 54 49 54 4C 45 2C 20 41 |PRESENT TITLE, A| 00000450: 4E 44 20 54 48 45 4E 20 20 20 20 20 20 3A 00 86 |ND THEN :..| 00000460: 0C 24 00 8F 12 3A 20 20 41 53 4B 53 20 49 46 20 |.$...: ASKS IF | 00000470: 59 4F 55 20 57 49 53 48 20 54 4F 20 43 48 41 4E |YOU WISH TO CHAN| 00000480: 47 45 20 20 20 3A 00 AE 0C 25 00 8F 12 3A 20 20 |GE :...%...: | 00000490: 49 54 2E 20 49 46 20 59 4F 55 20 53 41 59 20 27 |IT. IF YOU SAY '| 000004A0: 59 27 20 54 48 45 20 20 20 20 20 20 20 3A 00 D6 |Y' THE :..| 000004B0: 0C 26 00 8F 12 3A 20 20 50 52 4F 47 52 41 4D 20 |.&...: PROGRAM | 000004C0: 54 48 45 4E 20 41 53 4B 53 20 59 4F 55 20 46 4F |THEN ASKS YOU FO| 000004D0: 52 20 20 20 20 3A 00 FE 0C 27 00 8F 12 3A 20 20 |R :...'...: | 000004E0: 54 48 45 20 4E 45 57 20 54 49 54 4C 45 2C 20 41 |THE NEW TITLE, A| 000004F0: 4E 44 20 43 48 41 4E 47 45 53 20 20 20 3A 00 26 |ND CHANGES :.&| 00000500: 0D 28 00 8F 12 3A 20 20 49 54 20 4F 4E 20 54 48 |.(...: IT ON TH| 00000510: 45 20 44 49 53 4B 2E 20 54 48 49 53 20 50 52 4F |E DISK. THIS PRO| 00000520: 47 52 41 4D 20 3A 00 4E 0D 29 00 8F 12 3A 20 20 |GRAM :.N.)...: | 00000530: 57 49 4C 4C 20 4E 4F 54 20 41 46 46 45 43 54 20 |WILL NOT AFFECT | 00000540: 41 4E 59 54 48 49 4E 47 20 20 20 20 20 3A 00 76 |ANYTHING :.v| 00000550: 0D 2A 00 8F 12 3A 20 20 45 4C 53 45 20 4F 4E 20 |.*...: ELSE ON | 00000560: 20 54 48 45 20 44 49 53 4B 2E 20 20 20 20 20 20 | THE DISK. | 00000570: 20 20 20 20 20 3A 00 9E 0D 2B 00 8F 12 3A 20 20 | :...+...: | 00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 00 | :..| 000005A0: 00 |. |
.......15,8,15:.19.#....15,"I0":.19.6... .2,8,2,"#":.19.X....A$(15):.15,"U1:2,0"; 18;0:.19.P....15,"B-P:2,144":.19......I. 0.15:.#2,A$(I):.19:.......".OLD TITLE:." :.I.0.15:.".";A$(I);".";:.......:.".DO Y OU WISH TO CHANGE IT ? ";......A$:.A$.." Y".A$.."N".9......A$:.A$."N".18.%....".N EW TITLE ";A$.?....C(A$).16.A$.H(A$,16). [....C(A$).16.A$.A$." ":.13.S....15,"B-P :2,144":.19......I.1.16:.2,J(A$,I,1);:.1 9:.......15,"U2:2,0,18,0":.19......15,"I 0":.19.Q....I.1.15: I:.:.......15,EN,EM$ ,ET,ES:.EN.0........:.EN;EM$;ET;ES:.18.. .....: * * :.V .....: * CHANGE TITLE * :.~ .....: * * :.. .....: * BY * :.N .....: * * :.. .....: * BOB SWIFT * :.. .....: * * :.F .....: **************** :.N .....: :.. .....: THIS PROGRAM, WHEN 'RUN', :.. .....: WILL ALLOW YOU TO CHANGE :.. . ...: THE TITLE OF THE DISK IN :.. .!...: YOUR VIC-1541 DRIVE. THE :.6 ."...: PROGRAM FIRST DISPLAYS THE :.^ .#...: PRESENT TITLE, AND THEN :.. .$...: ASKS IF YOU WISH TO CHANGE :.. .%...: IT. IF YOU SAY 'Y' THE :.V .&...: PROGRAM THEN ASKS YOU FOR :.. .'...: THE NEW TITLE, AND CHANGES :.& .(...: IT ON THE DISK. THIS PROGRAM :.N .)...: WILL NOT AFFECT ANYTHING :.V .*...: ELSE ON THE DISK. :.. .+...: :.. .
> CLICK IMAGE PREVIEW FOR FULL MODAL