NAMES UTILITY.C
FILE INFORMATION
FILENAME(S): NAMES UTILITY.C
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-02 16:39:18
APPEARS ON: 9 disk(s)
FILE HASH
2af009f8558da3aa41b1edfefa74cc077e7c86dc238c09bdda43aab6f05c26b4
FOUND ON DISKS (9 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD DISK NR | NAMES UTILITY.C | PRG | Treasure Chest - Plattfuss | 4 | 9 | DOWNLOAD FILE |
| PD DISK NR | NAMES UTILITY.C | PRG | Treasure Chest - Plattfuss | 4 | 9 | DOWNLOAD FILE |
| TPUG APRIL 84 C | NAMES UTILITY.C | PRG | Treasure Chest - Plattfuss | 26 | 3 | DOWNLOAD FILE |
| FREESOFT DISK NR | NAMES UTILITY.C | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | NAMES UTILITY.C | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
| D IVERSE | NAMES UTILITY.C | PRG | Treasure Chest - Wolfgang Rauprich | 32 | 0 | DOWNLOAD FILE |
| FREEWARE DISK NR | NAMES UTILITY.C | PRG | Treasure Chest - Wolfgang Rauprich | 32 | 0 | DOWNLOAD FILE |
| U TILITIE | NAMES UTILITY.C | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
| TPUG APRIL 84 C | NAMES UTILITY.C | PRG | Sailor, Ganheden | 26 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 50 00 9F 31 35 2C 38 2C 31 35 3A 97 |..1.P..15,8,15:.| 00000010: 35 33 32 38 31 2C 31 32 3A 97 35 33 32 38 30 2C |53281,12:.53280,| 00000020: 31 32 3A 99 C7 28 35 29 C7 28 31 34 29 C7 28 38 |12:..(5).(14).(8| 00000030: 29 00 48 08 5A 00 86 20 53 4E 24 28 31 30 30 29 |).H.Z.. SN$(100)| 00000040: 3A 5A 24 B2 C7 28 30 29 00 5F 08 64 00 99 22 93 |:Z$..(0)._.d..".| 00000050: 11 11 4E 41 4D 45 53 20 55 54 49 4C 49 54 59 00 |..NAMES UTILITY.| 00000060: 77 08 6E 00 99 22 11 11 45 4E 54 45 52 20 46 49 |w.n.."..ENTER FI| 00000070: 4C 45 20 4E 41 4D 45 00 88 08 78 00 85 22 20 20 |LE NAME...x.." | 00000080: BF 9D 9D 9D 22 3B 46 24 00 9F 08 7D 00 8B 46 24 |....";F$...}..F$| 00000090: B2 22 BF 22 A7 99 22 91 22 3B 3A 89 31 32 30 00 |."."..".";:.120.| 000000A0: DF 08 82 00 99 22 11 49 53 20 54 48 49 53 20 12 |.....".IS THIS .| 000000B0: 4E 92 45 57 20 4F 52 20 12 45 92 58 49 53 54 49 |N.EW OR .E.XISTI| 000000C0: 4E 47 22 3A 47 53 24 B2 22 4E 45 22 3A 8D 36 30 |NG":GS$."NE":.60| 000000D0: 30 30 3A 91 56 8D 33 30 30 30 2C 37 30 30 30 00 |00:.V.3000,7000.| 000000E0: F6 08 87 00 99 22 93 11 11 4E 41 4D 45 53 20 55 |....."...NAMES U| 000000F0: 54 49 4C 49 54 59 00 0F 09 8C 00 99 22 11 11 4D |TILITY......"..M| 00000100: 41 4B 45 20 41 20 53 45 4C 45 43 54 49 4F 4E 00 |AKE A SELECTION.| 00000110: 27 09 96 00 99 22 11 20 20 41 2E 20 20 4C 49 53 |'....". A. LIS| 00000120: 54 20 4E 41 4D 45 53 00 3E 09 A0 00 99 22 11 20 |T NAMES.>....". | 00000130: 20 42 2E 20 20 41 44 44 20 4E 41 4D 45 53 00 58 | B. ADD NAMES.X| 00000140: 09 AA 00 99 22 11 20 20 43 2E 20 20 43 48 41 4E |....". C. CHAN| 00000150: 47 45 20 4E 41 4D 45 53 00 7D 09 BE 00 99 22 11 |GE NAMES.}....".| 00000160: 20 20 44 2E 20 20 45 58 49 54 2F 53 41 56 45 20 | D. EXIT/SAVE | 00000170: 52 45 57 4F 52 4B 45 44 20 46 49 4C 45 00 92 09 |REWORKED FILE...| 00000180: C8 00 47 53 24 B2 22 41 42 43 44 22 3A 8D 36 30 |..GS$."ABCD":.60| 00000190: 30 30 00 A7 09 D2 00 91 56 89 33 30 30 2C 31 30 |00......V.300,10| 000001A0: 30 30 2C 32 30 30 30 00 B6 09 DC 00 8B 43 46 B2 |00,2000......CF.| 000001B0: 31 A7 38 30 30 30 00 BC 09 E6 00 80 00 D4 09 2C |1.8000.........,| 000001C0: 01 99 22 93 11 11 CE 41 4D 45 20 4C 49 53 54 22 |.."....AME LIST"| 000001D0: 3A 4A B2 30 00 0C 0A 36 01 99 22 11 12 53 92 43 |:J.0...6.."..S.C| 000001E0: 52 45 45 4E 20 4F 52 20 12 50 92 52 49 4E 54 45 |REEN OR .P.RINTE| 000001F0: 52 22 3A 47 53 24 B2 22 53 50 22 3A 8D 36 30 30 |R":GS$."SP":.600| 00000200: 30 3A 44 56 B2 56 3A 8D 35 38 30 30 00 1E 0A 40 |0:DV.V:.5800...@| 00000210: 01 81 49 B2 31 A4 4E 53 3A 4A B2 4A AA 31 00 42 |..I.1.NS:J.J.1.B| 00000220: 0A 4A 01 99 53 4E 24 28 49 29 3A 8B 4A B2 32 30 |.J..SN$(I):.J.20| 00000230: A7 8D 35 39 30 30 3A 4A B2 30 3A 99 3A 8D 35 38 |..5900:J.0:.:.58| 00000240: 30 30 00 48 0A 54 01 82 00 57 0A 5E 01 8D 35 39 |00.H.T...W.^..59| 00000250: 30 30 3A 89 31 33 35 00 72 0A E8 03 99 22 93 11 |00:.135.r...."..| 00000260: 11 C1 44 44 20 4E 41 4D 45 53 20 55 54 49 4C 49 |..DD NAMES UTILI| 00000270: 54 59 00 8F 0A FC 03 85 22 11 45 4E 54 45 52 20 |TY......".ENTER | 00000280: 4E 41 4D 45 20 20 20 BF 9D 9D 9D 22 3B 41 24 00 |NAME ....";A$.| 00000290: A0 0A 06 04 8B 41 24 B2 22 BF 22 A7 89 31 33 35 |.....A$."."..135| 000002A0: 00 B7 0A 10 04 4E 53 B2 4E 53 AA 31 3A 53 4E 24 |.....NS.NS.1:SN$| 000002B0: 28 4E 53 29 B2 41 24 00 C6 0A 1A 04 43 46 B2 31 |(NS).A$.....CF.1| 000002C0: 3A 89 31 30 32 30 00 EF 0A D0 07 85 22 93 11 45 |:.1020......"..E| 000002D0: 4E 54 45 52 20 4E 41 4D 45 20 54 4F 20 43 48 41 |NTER NAME TO CHA| 000002E0: 4E 47 45 20 9D 20 20 BF 9D 9D 9D 22 3B 41 24 00 |NGE . ....";A$.| 000002F0: FF 0A E4 07 8B 41 24 B2 22 BF 22 A7 31 33 35 00 |.....A$.".".135.| 00000300: 0C 0B EE 07 53 53 B2 C3 28 41 24 29 00 2A 0B F8 |....SS..(A$).*..| 00000310: 07 81 49 B2 31 A4 4E 53 3A 4C 4C B2 C3 28 53 4E |..I.1.NS:LL..(SN| 00000320: 24 28 49 29 29 AB 53 53 AA 31 00 36 0B 02 08 81 |$(I)).SS.1.6....| 00000330: 4A B2 31 A4 4C 4C 00 53 0B 0C 08 8B 41 24 B3 B1 |J.1.LL.S....A$..| 00000340: CA 28 53 4E 24 28 49 29 2C 4A 2C 53 53 29 A7 32 |.(SN$(I),J,SS).2| 00000350: 30 37 30 00 79 0B 0D 08 99 22 11 46 4F 55 4E 44 |070.y....".FOUND| 00000360: 20 22 53 4E 24 28 49 29 22 2C 20 43 48 41 4E 47 | "SN$(I)", CHANG| 00000370: 45 3F 20 12 59 92 2F 12 4E 00 96 0B 0E 08 47 53 |E? .Y./.N.....GS| 00000380: 24 B2 22 4E 59 22 3A 8D 36 30 30 30 3A 8B 56 B2 |$."NY":.6000:.V.| 00000390: 31 A7 32 30 37 35 00 B1 0B 0F 08 99 22 11 45 4E |1.2075......".EN| 000003A0: 54 45 52 20 52 45 56 49 53 45 44 20 4E 41 4D 45 |TER REVISED NAME| 000003B0: 22 00 C3 0B 10 08 85 22 20 20 20 BF 9D 9D 9D 22 |"......" ...."| 000003C0: 3B 41 24 00 DB 0B 11 08 8B 41 24 B2 22 BF 22 A7 |;A$......A$.".".| 000003D0: 99 22 91 22 3B 3A 89 32 30 36 35 00 E9 0B 12 08 |.".";:.2065.....| 000003E0: 53 4E 24 28 49 29 B2 41 24 00 F8 0B 13 08 43 46 |SN$(I).A$.....CF| 000003F0: B2 31 3A 89 32 30 39 30 00 FF 0B 16 08 82 4A 00 |.1:.2090......J.| 00000400: 06 0C 1B 08 82 49 00 1D 0C 20 08 99 22 11 4E 4F |.....I... ..".NO| 00000410: 20 4D 41 54 43 48 20 46 4F 55 4E 44 22 00 2D 0C | MATCH FOUND".-.| 00000420: 2A 08 8D 35 39 39 30 3A 89 32 30 30 30 00 3B 0C |*..5990:.2000.;.| 00000430: 34 08 47 53 24 B2 C7 28 31 33 29 00 50 0C B8 0B |4.GS$..(13).P...| 00000440: 99 22 93 11 11 C3 52 45 41 54 45 20 46 49 4C 45 |."....REATE FILE| 00000450: 00 83 0C C2 0B 9F 38 2C 38 2C 38 2C 22 4E 22 AA |......8,8,8,"N".| 00000460: 46 24 AA 22 2C 53 2C 57 22 20 20 20 20 20 20 20 |F$.",S,W" | 00000470: 20 20 20 20 20 20 20 20 20 3A 8D 31 30 30 30 30 | :.10000| 00000480: 3A A0 38 00 8D 0C CC 0B 89 31 30 32 30 00 A0 0C |:.8......1020...| 00000490: A8 16 9F 34 2C 44 56 AA 32 2C 36 3A 9D 34 3A 8E |...4,DV.2,6:.4:.| 000004A0: 00 AA 0C 0C 17 98 34 3A A0 34 00 D7 0C 66 17 99 |......4:.4...f..| 000004B0: 22 11 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 |".PRESS .RETURN.| 000004C0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 47 53 | TO CONTINUE":GS| 000004D0: 24 B2 C7 28 31 33 29 00 FC 0C 70 17 A1 42 24 3A |$..(13)...p..B$:| 000004E0: 81 56 B2 31 A4 C3 28 47 53 24 29 3A 8B 42 24 B2 |.V.1..(GS$):.B$.| 000004F0: CA 28 47 53 24 2C 56 2C 31 29 A7 8E 00 08 0D 7A |.(GS$,V,1).....z| 00000500: 17 82 3A 89 36 30 30 30 00 2F 0D 58 1B 99 22 11 |..:.6000./.X..".| 00000510: 11 52 45 41 44 49 4E 47 20 4E 41 4D 45 53 2C 20 |.READING NAMES, | 00000520: 50 4C 45 41 53 45 20 53 54 41 4E 44 20 42 59 00 |PLEASE STAND BY.| 00000530: 4F 0D 62 1B 9F 38 2C 38 2C 38 2C 22 4E 22 AA 46 |O.b..8,8,8,"N".F| 00000540: 24 AA 22 2C 53 2C 52 22 3A 8D 31 30 30 30 30 00 |$.",S,R":.10000.| 00000550: 68 0D 6C 1B A1 23 38 2C 41 24 3A 4E 53 B2 C6 28 |h.l..#8,A$:NS..(| 00000560: 41 24 AA C7 28 30 29 29 00 80 0D 76 1B 81 49 B2 |A$..(0))...v..I.| 00000570: 31 A4 4E 53 3A 84 38 2C 53 4E 24 28 49 29 3A 82 |1.NS:.8,SN$(I):.| 00000580: 00 94 0D 80 1B A0 38 3A 99 22 11 11 12 C4 CF CE |......8:."......| 00000590: C5 22 3A 8E 00 BC 0D 40 1F 99 22 11 11 57 52 49 |.":....@.."..WRI| 000005A0: 54 49 4E 47 20 4E 41 4D 45 53 2C 20 50 4C 45 41 |TING NAMES, PLEA| 000005B0: 53 45 20 53 54 41 4E 44 20 42 59 22 00 DB 0D 4A |SE STAND BY"...J| 000005C0: 1F 98 31 35 2C 22 53 30 3A 4E 4D 45 2E 42 41 43 |..15,"S0:NME.BAC| 000005D0: 4B 55 50 22 3A 8D 31 30 30 30 30 00 09 0E 54 1F |KUP":.10000...T.| 000005E0: 98 31 35 2C 22 52 30 3A 4E 4D 45 2E 42 41 43 4B |.15,"R0:NME.BACK| 000005F0: 55 50 3D 4E 22 AA 46 24 20 20 20 20 20 20 20 20 |UP=N".F$ | 00000600: 20 20 3A 8D 31 30 30 30 30 00 29 0E 5E 1F 9F 38 | :.10000.).^..8| 00000610: 2C 38 2C 38 2C 22 4E 22 AA 46 24 AA 22 2C 53 2C |,8,8,"N".F$.",S,| 00000620: 57 22 3A 8D 31 30 30 30 30 00 37 0E 68 1F 98 38 |W":.10000.7.h..8| 00000630: 2C C7 28 4E 53 29 3B 00 4F 0E 72 1F 81 49 B2 31 |,.(NS);.O.r..I.1| 00000640: A4 4E 53 3A 98 38 2C 53 4E 24 28 49 29 3A 82 00 |.NS:.8,SN$(I):..| 00000650: 56 0E 7C 1F A0 38 00 94 0E 86 1F 99 22 11 11 C2 |V.|..8......"...| 00000660: 41 43 4B 55 50 20 43 4F 50 59 3F 20 12 59 92 2F |ACKUP COPY? .Y./| 00000670: 12 4E 22 20 20 20 20 20 20 20 20 20 20 20 3A 47 |.N" :G| 00000680: 53 24 B2 22 59 4E 22 3A 8D 36 30 30 30 3A 8B 56 |S$."YN":.6000:.V| 00000690: B2 32 A7 80 00 C2 0E 90 1F 99 22 11 11 49 4E 53 |.2........"..INS| 000006A0: 45 52 54 20 53 45 43 4F 4E 44 20 44 49 53 4B 20 |ERT SECOND DISK | 000006B0: 41 4E 44 20 50 52 45 53 53 20 12 52 45 54 55 52 |AND PRESS .RETUR| 000006C0: 4E 22 00 DC 0E 9A 1F 47 53 24 B2 C7 28 31 33 29 |N".....GS$..(13)| 000006D0: 3A 8D 36 30 30 30 3A 89 38 30 31 30 00 F4 0E 10 |:.6000:.8010....| 000006E0: 27 8F 20 20 44 49 53 4B 20 45 52 52 4F 52 20 43 |'. DISK ERROR C| 000006F0: 48 45 43 4B 00 09 0F 1A 27 84 31 35 2C 58 2C 5A |HECK....'.15,X,Z| 00000700: 24 3A 8B 58 B3 B2 31 A7 8E 00 15 0F 24 27 99 58 |$:.X..1.....$'.X| 00000710: 2C 5A 24 3A 90 00 00 00 |,Z$:.... |
..1.P..15,8,15:.53281,12:.53280,12:.G(5) G(14)G(8).H.Z.. SN$(100):Z$.G(0)._.D..". ..NAMES UTILITY.W.N.."..ENTER FILE NAME. ..X.." ....";F$...}..F$."."..".";:.120. .....".IS THIS .N.EW OR .E.XISTING":GS$. "NE":.6000:.V.3000,7000......"...NAMES U TILITY......"..MAKE A SELECTION.'....". A. LIST NAMES.>. ..". B. ADD NAMES.X ....". C. CHANGE NAMES.}....". D. EX IT/SAVE REWORKED FILE...H.GS$."ABCD":.60 00...R..V.300,1000,2000......CF.1.8000.. .....T.,.."...NAME LIST":J.0...6.."..S.C REEN OR .P.RINTER":GS$."SP":.6000:DV.V:. 5800...@..I.1.NS:J.J.1.B.J..SN$(I):.J.20 ..5900:J.0:.:.5800.H.T...W.^..5900:.135. R...."...ADD NAMES UTILITY......".ENTER NAME ....";A$. ....A$."."..135.....NS. NS.1:SN$(NS).A$.F...CF.1:.1020...P.."..E NTER NAME TO CHANGE . ....";A$......A$. ".".135.....SS.C(A$).*....I.1.NS:LL.C(SN $(I)).SS.1.6....J.1.LL.S....A$..J(SN$(I) ,J,SS).2070.Y....".FOUND "SN$(I)", CHANG E? .Y./.N.....GS$."NY":.6000:.V.1.2075.. ....".ENTER REVISED NAME".C...." ...." ;A$......A$."."..".";:.2065.....SN$(I).A $.....CF.1:.2090......J......I... ..".NO MATCH FOUND".-.*..5990:.2000.;.4.GS$.G( 13).P...."...CREATE FILE...B..8,8,8,"N". F$.",S,W" :.10000: 8...L. .1020. ....4,DV.2,6:.4:.......4: 4.W.F.. ".PRESS .RETURN. TO CONTINUE":GS$.G(13). ..P..B$:.V.1.C(GS$):.B$.J(GS$,V,1).....Z ..:.6000./.X.."..READING NAMES, PLEASE S TAND BY.O.B..8,8,8,"N".F$.",S,R":.10000. H.L..#8,A$:NS.F(A$.G(0))...V..I.1.NS:.8, SN$(I):...... 8:."...DONE":....@.."..WRI TING NAMES, PLEASE STAND BY"...J..15,"S0 :NME.BACKUP":.10000...T..15,"R0:NME.BACK UP=N".F$ :.10000.).^..8,8,8,"N" .F$.",S,W":.10000.7.H..8,G(NS);.O.R..I.1 .NS:.8,SN$(I):..V.|. 8......"..BACKUP CO PY? .Y./.N" :GS$."YN":.6000:.V .2...B...."..INSERT SECOND DISK AND PRES S .RETURN".....GS$.G(13):.6000:.8010.... '. DISK ERROR CHECK....'.15,X,Z$:.X..1. ....$'.X,Z$:....
> CLICK IMAGE PREVIEW FOR FULL MODAL