RENAM/RENUM
FILE INFORMATION
FILENAME(S): RENAM/RENUM
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 4 disk(s)
FILE HASH
a9889e348de28ceea3de5dca4aeb8caa37b491f1b0e3c0e7f8fa3d002b95138a
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D F UE | RENAM/RENUM | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 6 | DOWNLOAD FILE |
| U TILITIE | RENAM/RENUM | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | RENAM/RENUM | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | RENAM/RENUM | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 05 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A |..'.... *******| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 00 4C 08 0A 00 8F 20 2A 20 |*******.L.... * | 00000030: 20 52 45 4E 41 4D 45 20 2F 20 52 45 4E 55 4D 42 | RENAME / RENUMB| 00000040: 45 52 20 4D 45 4E 55 20 20 20 20 2A 00 71 08 14 |ER MENU *.q..| 00000050: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 2A 00 BE 08 1E 00 8F 20 2A 20 4D 4F 44 49 46 49 |*...... * MODIFI| 00000080: 45 44 20 42 59 3A 20 20 4D 41 52 56 20 47 4F 4C |ED BY: MARV GOL| 00000090: 44 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 |D * | 000000A0: 2A 20 20 20 20 20 20 20 20 20 4A 41 4E 2E 20 39 |* JAN. 9| 000000B0: 2C 31 39 38 35 20 20 20 20 20 20 20 20 2A 00 E3 |,1985 *..| 000000C0: 08 28 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(.. ***********| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 00 F4 08 32 00 8F 20 53 45 54 20 53 43 |***...2.. SET SC| 000000F0: 52 45 45 4E 00 29 09 3C 00 97 35 33 32 38 31 2C |REEN.).<..53281,| 00000100: 31 3A 99 22 93 90 20 20 20 20 20 20 12 20 52 45 |1:.".. . RE| 00000110: 4E 41 4D 45 20 2F 20 52 45 4E 55 4D 42 45 52 20 |NAME / RENUMBER | 00000120: 4D 45 4E 55 20 20 20 92 22 00 2F 09 46 00 3A 00 |MENU ."./.F.:.| 00000130: 45 09 50 00 8F 20 47 45 54 20 44 49 53 4B 20 48 |E.P.. GET DISK H| 00000140: 45 41 44 45 52 00 5B 09 5A 00 4E 24 B2 C7 28 30 |EADER.[.Z.N$..(0| 00000150: 29 3A 51 54 24 B2 C7 28 33 34 29 00 6B 09 64 00 |):QT$..(34).k.d.| 00000160: 9F 31 2C 38 2C 30 2C 22 24 30 22 00 83 09 6E 00 |.1,8,0,"$0"...n.| 00000170: A1 23 31 2C 51 24 3A 8B 51 24 B3 B1 51 54 24 A7 |.#1,Q$:.Q$..QT$.| 00000180: 31 31 30 00 89 09 78 00 3A 00 A1 09 82 00 8F 20 |110...x.:...... | 00000190: 4E 4F 57 20 47 45 54 20 44 49 53 4B 20 4E 41 4D |NOW GET DISK NAM| 000001A0: 45 00 B8 09 8C 00 A1 23 31 2C 51 24 3A 8B 51 24 |E......#1,Q$:.Q$| 000001B0: B2 51 54 24 A7 31 36 30 00 D5 09 96 00 51 51 24 |.QT$.160.....QQ$| 000001C0: B2 51 51 24 AA C7 28 C6 28 51 24 AA 4E 24 29 29 |.QQ$..(.(Q$.N$))| 000001D0: 3A 89 31 34 30 00 DB 09 A0 00 3A 00 F5 09 AA 00 |:.140.....:.....| 000001E0: 8F 20 4E 4F 57 20 47 45 54 20 44 49 53 4B 20 4E |. NOW GET DISK N| 000001F0: 55 4D 42 45 52 00 10 0A B4 00 A1 23 31 2C 51 24 |UMBER......#1,Q$| 00000200: 2C 51 24 2C 41 24 3A 49 44 24 B2 51 24 AA 41 24 |,Q$,A$:ID$.Q$.A$| 00000210: 00 27 0A BE 00 A1 23 31 2C 51 24 3A 8B 51 24 B3 |.'....#1,Q$:.Q$.| 00000220: B1 22 22 A7 31 39 30 00 61 0A C8 00 99 22 11 12 |."".190.a...."..| 00000230: 20 44 49 53 4B 20 4E 41 4D 45 3A 20 20 20 92 20 | DISK NAME: . | 00000240: 22 51 51 24 3A 99 3A 99 22 12 20 44 49 53 4B 20 |"QQ$:.:.". DISK | 00000250: 4E 55 4D 42 45 52 3A 20 92 20 22 49 44 24 3A A0 |NUMBER: . "ID$:.| 00000260: 31 00 67 0A D2 00 3A 00 78 0A DC 00 8F 20 47 45 |1.g...:.x.... GE| 00000270: 54 20 48 45 41 44 45 52 00 A2 0A E6 00 9C 3A 58 |T HEADER......:X| 00000280: 58 24 B2 22 22 3A 9F 31 2C 38 2C 32 2C 22 23 22 |X$."":.1,8,2,"#"| 00000290: 3A 9F 31 35 2C 38 2C 31 35 3A 54 B2 31 38 3A 53 |:.15,8,15:T.18:S| 000002A0: B2 30 00 B7 0A F0 00 98 31 35 2C 22 55 31 22 3B |.0......15,"U1";| 000002B0: 32 3B 30 3B 54 3B 53 00 CD 0A FA 00 A1 23 31 2C |2;0;T;S......#1,| 000002C0: 58 24 3A 58 58 24 B2 58 58 24 AA 58 24 00 D3 0A |X$:XX$.XX$.X$...| 000002D0: 04 01 3A 00 EC 0A 0E 01 8F 20 46 4F 55 4E 44 20 |..:...... FOUND | 000002E0: 48 45 41 44 45 52 27 53 20 45 4E 44 00 10 0B 18 |HEADER'S END....| 000002F0: 01 8B 53 54 B2 36 34 A7 33 32 30 3A 8F 20 46 4F |..ST.64.320:. FO| 00000300: 55 4E 44 20 48 45 41 44 45 52 27 53 20 45 4E 44 |UND HEADER'S END| 00000310: 00 19 0B 22 01 89 32 35 30 00 1F 0B 2C 01 3A 00 |..."..250...,.:.| 00000320: 39 0B 36 01 8F 20 57 52 49 54 45 20 4E 45 57 20 |9.6.. WRITE NEW | 00000330: 44 49 53 4B 20 4E 41 4D 45 00 6A 0B 40 01 99 22 |DISK NAME.j.@.."| 00000340: 11 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------| 00000350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 73 0B 41 01 8D |---------".s.A..| 00000370: 35 30 30 00 A4 0B 42 01 99 22 11 2D 2D 2D 2D 2D |500...B..".-----| 00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003A0: 2D 2D 2D 22 00 C8 0B 45 01 99 22 12 20 4E 45 57 |---"...E..". NEW| 000003B0: 20 44 49 53 4B 20 4E 41 4D 45 3A 20 92 20 22 4E | DISK NAME: . "N| 000003C0: 33 24 3B 3A 85 4E 31 24 00 EA 0B 4A 01 99 22 11 |3$;:.N1$...J..".| 000003D0: 12 20 4E 45 57 20 49 44 20 4E 55 4D 42 45 52 3A |. NEW ID NUMBER:| 000003E0: 20 92 20 22 3B 3A 85 49 44 24 00 FE 0B 4F 01 98 | . ";:.ID$...O..| 000003F0: 31 35 2C 22 42 2D 50 22 3B 32 3B 31 34 34 00 29 |15,"B-P";2;144.)| 00000400: 0C 54 01 4E 32 24 B2 22 22 3A 81 58 B2 31 A4 31 |.T.N2$."":.X.1.1| 00000410: 36 AB C3 28 4E 31 24 29 3A 4E 32 24 B2 4E 32 24 |6..(N1$):N2$.N2$| 00000420: AA C7 28 31 36 30 29 3A 82 00 3C 0C 5E 01 4E 24 |..(160):..<.^.N$| 00000430: B2 4E 33 24 AA 4E 31 24 AA 4E 32 24 00 47 0C 68 |.N3$.N1$.N2$.G.h| 00000440: 01 98 31 2C 4E 24 3B 00 5D 0C 72 01 98 31 35 2C |..1,N$;.].r..15,| 00000450: 22 55 32 22 3B 32 3B 30 3B 31 38 3B 30 00 71 0C |"U2";2;0;18;0.q.| 00000460: 7C 01 98 31 35 2C 22 42 2D 50 22 3B 32 3B 31 36 ||..15,"B-P";2;16| 00000470: 32 00 8F 0C 86 01 98 31 2C 49 44 24 AA C7 28 31 |2......1,ID$..(1| 00000480: 36 30 29 AA C7 28 35 30 29 AA C7 28 36 35 29 00 |60)..(50)..(65).| 00000490: A5 0C 90 01 98 31 35 2C 22 55 32 22 3B 32 3B 30 |.....15,"U2";2;0| 000004A0: 3B 31 38 3B 30 00 B1 0C E0 01 98 31 35 2C 22 49 |;18;0......15,"I| 000004B0: 22 00 EB 0C E1 01 99 22 11 41 4C 4C 20 44 4F 4E |"......".ALL DON| 000004C0: 45 21 21 22 3A 85 22 11 12 41 4E 4F 54 48 45 52 |E!!":."..ANOTHER| 000004D0: 20 44 49 53 4B 20 54 4F 20 43 48 41 4E 47 45 20 | DISK TO CHANGE | 000004E0: 28 59 2F 4E 29 92 22 3B 58 58 24 00 F6 0C E3 01 |(Y/N).";XX$.....| 000004F0: A0 31 3A A0 31 35 00 05 0D E5 01 8B 58 58 24 B2 |.1:.15......XX$.| 00000500: 22 59 22 A7 8A 00 0B 0D F3 01 80 00 27 0D F4 01 |"Y".........'...| 00000510: 99 22 43 48 4F 4F 53 45 20 59 4F 55 52 20 43 41 |."CHOOSE YOUR CA| 00000520: 54 45 47 4F 52 59 22 00 46 0D FE 01 99 22 11 31 |TEGORY".F....".1| 00000530: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 | .............. | 00000540: 43 36 34 20 2D 22 00 64 0D 08 02 99 22 32 20 2E |C64 -".d...."2 .| 00000550: 2E 2E 2E 2E 2E 2E 2E 2E 20 4D 55 53 49 43 20 36 |........ MUSIC 6| 00000560: 34 20 2D 22 00 82 0D 12 02 99 22 33 20 2E 2E 2E |4 -"......"3 ...| 00000570: 2E 2E 2E 2E 20 55 54 49 4C 49 54 59 20 36 34 20 |.... UTILITY 64 | 00000580: 2D 22 00 A0 0D 17 02 99 22 34 20 2E 42 4C 41 4E |-"......"4 .BLAN| 00000590: 4B 28 59 4F 55 20 43 48 4F 4F 53 45 29 20 2D 22 |K(YOU CHOOSE) -"| 000005A0: 00 A9 0D 1C 02 85 5A 5A 24 00 B7 0D 26 02 5A 5A |......ZZ$...&.ZZ| 000005B0: B2 C5 28 5A 5A 24 29 00 CF 0D 2B 02 91 5A 5A 89 |..(ZZ$)...+..ZZ.| 000005C0: 35 36 30 2C 35 37 30 2C 35 38 30 2C 35 38 35 00 |560,570,580,585.| 000005D0: E5 0D 30 02 4E 33 24 B2 22 43 36 34 20 2D 20 22 |..0.N3$."C64 - "| 000005E0: 3A 89 35 39 30 00 00 0E 3A 02 4E 33 24 B2 22 4D |:.590...:.N3$."M| 000005F0: 55 53 49 43 20 36 34 20 2D 20 22 3A 89 35 39 30 |USIC 64 - ":.590| 00000600: 00 1D 0E 44 02 4E 33 24 B2 22 55 54 49 4C 49 54 |...D.N3$."UTILIT| 00000610: 59 20 36 34 20 2D 20 22 3A 89 35 39 30 00 28 0E |Y 64 - ":.590.(.| 00000620: 49 02 4E 33 24 B2 22 22 00 2E 0E 4E 02 8E 00 00 |I.N3$.""...N....| 00000630: 00 |. |
..'.... ******************************. L.... * RENAME / RENUMBER MENU *.Q.. .. * *...... * MODIFIED BY: MARV GOLD * * JAN. 9,1985 *...(.. *** ***************************...2.. SET SC REEN.).<..53281,1:.".. . RENAME / R ENUMBER MENU ."./.F.:.E.P.. GET DISK H EADER.[.Z.N$.G(0):QT$.G(34).K.D..1,8,0," $0"...N..#1,Q$:.Q$..QT$.110...X.:...... NOW GET DISK NAME......#1,Q$:.Q$.QT$.160 .U...QQ$.QQ$.G(F(Q$.N$)):.140... .:..... . NOW GET DISK NUMBER......#1,Q$,Q$,A$:I D$.Q$.A$.'....#1,Q$:.Q$.."".190.A.H..".. DISK NAME: . "QQ$:.:.". DISK NUMBER: . "ID$: 1.G.R.:.X.... GET HEADER......:X X$."":.1,8,2,"#":.15,8,15:T.18:S.0...... 15,"U1";2;0;T;S.M....#1,X$:XX$.XX$.X$.S. ..:...... FOUND HEADER'S END......ST.64. 320:. FOUND HEADER'S END..."..250...,.:. 9.6.. WRITE NEW DISK NAME.J.@..".------- ---------------------------------".S.A.. 500...B..".----------------------------- -----------".H.E..". NEW DISK NAME: . "N 3$;:.N1$...J..".. NEW ID NUMBER: . ";:.I D$...O..15,"B-P";2;144.).T.N2$."":.X.1.1 6.C(N1$):N2$.N2$.G(160):..<.^.N$.N3$.N1$ .N2$.G.H..1,N$;.].R..15,"U2";2;0;18;0.Q. |..15,"B-P";2;162......1,ID$.G(160).G(50 ).G(65)......15,"U2";2;0;18;0......15,"I "......".ALL DONE!!":."..ANOTHER DISK TO CHANGE (Y/N).";XX$..... 1: 15......XX$. "Y".........'...."CHOOSE YOUR CATEGORY". F....".1 .............. C64 -".D...."2 . ........ MUSIC 64 -"......"3 ....... UTI LITY 64 -". ...."4 .BLANK(YOU CHOOSE) -" ......ZZ$...&.ZZ.E(ZZ$).O.+..ZZ.560,570, 580,585...0.N3$."C64 - ":.590...:.N3$."M USIC 64 - ":.590...D.N3$."UTILITY 64 - " :.590.(.I.N3$.""...N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL