UTILITY1
FILE INFORMATION
FILENAME(S): UTILITY1
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 20:09:20
APPEARS ON: 1 disk(s)
FILE HASH
8ab01fc1377bdd57ac68d585662c2451c08ff830357048526ab744c74faec6b4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTER DISK 1A | UTILITY1 | PRG | Curtcool, Klaus & Jan | 20 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.| 00000010: 35 33 32 38 31 2C 30 00 5A 08 14 00 99 22 92 93 |53281,0.Z...."..| 00000020: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000030: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 12 |....... .| 00000040: 96 43 4F 50 59 52 49 47 48 54 20 42 59 20 50 41 |.COPYRIGHT BY PA| 00000050: 50 50 41 20 4C 44 54 2E 92 22 00 8E 08 1E 00 99 |PPA LDT.."......| 00000060: 22 13 9F 1E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"...************| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B 00 C1 |************";..| 00000090: 08 28 00 99 22 2A 9E 20 20 4E 20 59 20 54 20 20 |.(.."*. N Y T | 000000A0: 20 44 20 49 20 53 20 4B 20 45 20 54 20 54 20 45 | D I S K E T T E| 000000B0: 20 20 20 4E 20 41 20 56 20 4E 20 20 20 9F 2A 22 | N A V N .*"| 000000C0: 3B 00 F2 08 32 00 99 22 2A 2A 2A 2A 2A 2A 2A 2A |;...2.."********| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000F0: 22 3B 00 00 09 46 00 97 32 31 34 2C 32 32 3A 99 |";...F..214,22:.| 00000100: 00 2A 09 50 00 99 A6 33 29 22 92 1F 13 11 11 11 |.*.P...3)"......| 00000110: 11 11 11 11 11 11 20 20 20 20 20 20 4E 45 57 20 |...... NEW | 00000120: 44 49 53 4B 20 4E 41 4D 45 22 00 49 09 5A 00 99 |DISK NAME".I.Z..| 00000130: A6 33 29 22 99 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.3)"............| 00000140: C3 C3 C3 C3 C3 C3 C3 C9 22 00 67 09 64 00 99 A6 |........".g.d...| 00000150: 33 29 22 C2 20 20 20 20 20 20 20 20 20 20 20 20 |3)". | 00000160: 20 20 20 20 20 C2 22 00 85 09 6E 00 99 A6 33 29 | ."...n...3)| 00000170: 22 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |"...............| 00000180: C3 C3 C3 CB 22 00 8E 09 73 00 8D 35 30 30 00 AC |...."...s..500..| 00000190: 09 78 00 86 44 24 28 32 30 29 3A 51 B2 34 3A 41 |.x..D$(20):Q.4:A| 000001A0: B2 31 36 3A 5A B2 31 3A 8D 32 34 30 00 C6 09 82 |.16:Z.1:.240....| 000001B0: 00 43 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |.C$." | 000001C0: 20 20 20 20 20 22 00 EF 09 8C 00 43 B2 C3 28 43 | ".....C..(C| 000001D0: 24 29 AB C3 28 41 24 28 31 29 29 3A 41 24 28 31 |$)..(A$(1)):A$(1| 000001E0: 29 B2 41 24 28 31 29 AA C9 28 43 24 2C 43 29 00 |).A$(1)..(C$,C).| 000001F0: 06 0A 96 00 41 24 B2 41 24 28 31 29 AA 22 20 20 |....A$.A$(1)." | 00000200: 4D 4B 26 54 30 22 00 1D 0A A0 00 9F 31 2C 38 2C |MK&T0"......1,8,| 00000210: 31 35 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 33 0A |15:.2,8,2,"#".3.| 00000220: AA 00 98 31 2C 22 55 31 3A 22 3B 32 3B 30 3B 31 |...1,"U1:";2;0;1| 00000230: 38 3B 30 00 47 0A B4 00 98 31 2C 22 42 2D 50 3A |8;0.G....1,"B-P:| 00000240: 22 3B 32 3B 31 34 34 00 52 0A BE 00 98 32 2C 41 |";2;144.R....2,A| 00000250: 24 3B 00 6F 0A C8 00 98 31 2C 22 55 32 3A 22 3B |$;.o....1,"U2:";| 00000260: 32 3B 30 3B 31 38 3B 30 3A 98 31 2C 22 49 22 00 |2;0;18;0:.1,"I".| 00000270: 79 0A D2 00 A0 32 3A A0 31 00 9C 0A DC 00 9F 32 |y....2:.1......2| 00000280: 2C 38 2C 30 2C 22 24 22 3A 99 22 11 11 11 11 11 |,8,0,"$":.".....| 00000290: 11 4E 45 57 20 4E 41 4D 45 3A 22 3B 00 BE 0A E6 |.NEW NAME:";....| 000002A0: 00 81 54 B2 31 A4 33 34 3A A1 23 32 2C 42 24 3A |..T.1.34:.#2,B$:| 000002B0: 99 42 24 3B 3A 82 3A A0 32 3A 89 33 39 30 00 D6 |.B$;:.:.2:.390..| 000002C0: 0A F0 00 97 32 31 34 2C 31 30 3A 99 3A 99 A6 51 |....214,10:.:..Q| 000002D0: AA 59 29 22 3C 22 00 F3 0A FA 00 A1 47 24 3A 3A |.Y)"<"......G$::| 000002E0: 44 24 28 59 29 B2 47 24 3A 8B 47 24 B2 22 22 A7 |D$(Y).G$:.G$."".| 000002F0: 32 35 30 00 2B 0B 04 01 8B C2 28 31 39 37 29 B2 |250.+.....(197).| 00000300: 30 AF 59 B1 B2 31 A7 59 B2 59 AB 31 3A 97 32 31 |0.Y..1.Y.Y.1:.21| 00000310: 34 2C 31 30 3A 99 3A 99 A3 51 AA 59 29 22 3C 20 |4,10:.:..Q.Y)"< | 00000320: 22 3A 8D 33 35 30 3A 89 32 35 30 00 3D 0B 0E 01 |":.350:.250.=...| 00000330: 8B C2 28 31 39 37 29 B2 30 A7 32 35 30 00 7A 0B |..(197).0.250.z.| 00000340: 18 01 8B C2 28 31 39 37 29 B2 31 AF 59 B1 30 A7 |....(197).1.Y.0.| 00000350: 43 24 B2 22 22 3A 81 58 B2 30 A4 59 AB 31 3A 43 |C$."":.X.0.Y.1:C| 00000360: 24 B2 43 24 AA 44 24 28 58 29 3A 82 3A 41 24 28 |$.C$.D$(X):.:A$(| 00000370: 5A 29 B2 43 24 3A 89 33 32 30 00 87 0B 22 01 8B |Z).C$:.320..."..| 00000380: 59 B2 41 A7 32 36 30 00 B5 0B 2C 01 8B C2 28 31 |Y.A.260...,...(1| 00000390: 39 37 29 B1 31 A7 97 32 31 34 2C 31 30 3A 99 3A |97).1..214,10:.:| 000003A0: 99 A3 51 AA 59 29 44 24 28 59 29 AA 22 3C 22 3A |..Q.Y)D$(Y)."<":| 000003B0: 59 B2 59 AA 31 00 C3 0B 36 01 8D 33 35 30 3A 89 |Y.Y.1...6..350:.| 000003C0: 32 35 30 00 EC 0B 40 01 8F 49 46 20 51 3D 34 20 |250...@..IF Q=4 | 000003D0: 54 48 45 4E 51 3D 32 35 3A 41 3D 32 3A 5A 3D 32 |THENQ=25:A=2:Z=2| 000003E0: 3A 59 3D 30 3A 47 4F 54 4F 32 34 30 00 12 0C 4A |:Y=0:GOTO240...J| 000003F0: 01 8F 51 3D 32 35 54 48 45 4E 51 3D 33 32 3A 41 |..Q=25THENQ=32:A| 00000400: 3D 32 3A 5A 3D 33 3A 59 3D 30 3A 47 4F 54 4F 32 |=2:Z=3:Y=0:GOTO2| 00000410: 34 30 00 18 0C 54 01 8E 00 2E 0C 5E 01 97 31 39 |40...T.....^..19| 00000420: 38 2C 30 3A 20 8B 59 B2 AB 31 A7 59 B2 30 00 34 |8,0: .Y..1.Y.0.4| 00000430: 0C 68 01 8E 00 49 0C 86 01 9C 3A A1 41 24 3A 8B |.h...I....:.A$:.| 00000440: 41 24 B2 22 22 A7 33 39 30 00 53 0C 8B 01 99 22 |A$."".390.S...."| 00000450: 93 22 3B 00 5B 0C 90 01 89 31 30 00 73 0C F4 01 |.";.[....10.s...| 00000460: 8F 2D 20 4F 4C 44 20 4E 41 4D 45 20 52 4F 55 54 |.- OLD NAME ROUT| 00000470: 49 4E 45 00 87 0C FE 01 99 22 11 11 4F 4C 44 20 |INE......"..OLD | 00000480: 4E 41 4D 45 3A 22 3B 00 B0 0C 08 02 9F 32 2C 38 |NAME:";......2,8| 00000490: 2C 30 2C 22 24 22 3A 81 57 57 B2 31 A4 33 34 3A |,0,"$":.WW.1.34:| 000004A0: A1 23 32 2C 45 24 3A 99 45 24 3B 3A 82 3A A0 32 |.#2,E$:.E$;:.:.2| 000004B0: 00 B6 0C 12 02 8E 00 00 00 1A 28 4A C9 |..........(J. |
.......53280,0:.53281,0.Z...."..........
............... ..COPYRIGHT BY PA
PPA LDT.."......"...********************
********************";.A.(.."*. N Y T
D I S K E T T E N A V N .*";...2.."
****************************************
";...F..214,22:..*.P...3)"............
NEW DISK NAME".I.Z...3)".UCCCCCCCCCC
CCCCCCCI".G.D...3)"B B".
..N...3)"JCCCCCCCCCCCCCCCCCK"...S..500..
.X..D$(20):Q.4:A.16:Z.1:.240.F...C$."
".....C.C(C$).C(A$(1)):A$(1
).A$(1).I(C$,C).....A$.A$(1)." MK&T0"..
. ..1,8,15:.2,8,2,"#".3....1,"U1:";2;0;1
8;0.G....1,"B-P:";2;144.R....2,A$;.O.H..
1,"U2:";2;0;18;0:.1,"I".Y.R. 2: 1......2
,8,0,"$":."......NEW NAME:";......T.1.34
:.#2,B$:.B$;:.: 2:.390.V....214,10:.:..Q
.Y)"<"......G$::D$(Y).G$:.G$."".250.+...
.B(197).0.Y..1.Y.Y.1:.214,10:.:..Q.Y)"<
":.350:.250.=....B(197).0.250.Z....B(197
).1.Y.0.C$."":.X.0.Y.1:C$.C$.D$(X):.:A$(
Z).C$:.320..."..Y.A.260...,..B(197).1..2
14,10:.:..Q.Y)D$(Y)."<":Y.Y.1.C.6..350:.
250...@..IF Q=4 THENQ=25:A=2:Z=2:Y=0:GOT
O240...J..Q=25THENQ=32:A=2:Z=3:Y=0:GOTO2
40...T.....^..198,0: .Y..1.Y.0.4.H...I..
..:.A$:.A$."".390.S....".";.[....10.S...
.- OLD NAME ROUTINE......"..OLD NAME:";.
.....2,8,0,"$":.WW.1.34:.#2,E$:.E$;:.: 2
..........(JI
> CLICK IMAGE PREVIEW FOR FULL MODAL