Multiple names: DISK SORTER, SORT A LIST
FILE INFORMATION
FILENAME(S):
• DISK SORTER<br>• SORT A LIST
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 2 disk(s)
FILE HASH
767f687e11c86b9fad03ca5b9e59e2710fae996a356f2ac96aa3b6ed1061b86c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES U38 | DISK SORTER | PRG | Radd Maxx | 26 | 0 | DOWNLOAD FILE |
| UTILITIES U38 | SORT A LIST | PRG | Radd Maxx | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 64 00 8F 3A 20 53 4F 52 54 20 41 20 |....d..: SORT A | 00000010: 4C 49 53 54 00 2A 08 6E 00 8F 3A 20 43 4F 50 59 |LIST.*.n..: COPY| 00000020: 52 49 47 48 54 20 31 39 38 33 00 4D 08 6F 00 8F |RIGHT 1983.M.o..| 00000030: 3A 20 54 4F 4D 20 52 55 47 47 2C 20 50 48 49 4C |: TOM RUGG, PHIL| 00000040: 20 46 45 4C 44 4D 41 4E 2C 20 41 4E 44 00 6A 08 | FELDMAN, AND.j.| 00000050: 70 00 8F 3A 20 57 45 53 54 45 52 4E 20 53 59 53 |p..: WESTERN SYS| 00000060: 54 45 4D 53 20 47 52 4F 55 50 00 70 08 72 00 9C |TEMS GROUP.p.r..| 00000070: 00 83 08 73 00 4E B2 31 30 30 30 3A 86 20 41 24 |...s.N.1000:. A$| 00000080: 28 4E 29 00 9D 08 74 00 9F 31 30 2C 38 2C 31 30 |(N)...t..10,8,10| 00000090: 2C 22 30 3A 53 4F 52 54 2C 53 2C 52 22 00 A7 08 |,"0:SORT,S,R"...| 000000A0: 76 00 84 31 30 2C 51 00 CB 08 78 00 81 20 49 B2 |v..10,Q...x.. I.| 000000B0: 31 20 A4 20 51 3A 84 31 30 2C 5A 24 3A 41 24 28 |1 . Q:.10,Z$:A$(| 000000C0: 49 29 B2 5A 24 3A 82 3A A0 31 30 00 DA 08 8C 00 |I).Z$:.:.10.....| 000000D0: 45 24 20 B2 20 22 45 4E 44 22 00 E4 08 96 00 8D |E$ . "END"......| 000000E0: 20 36 30 30 00 F0 08 A0 00 4B 20 B2 20 51 AA 31 | 600.....K . Q.1| 000000F0: 00 02 09 AA 00 8B 20 4B 20 B1 20 4E 20 A7 20 32 |...... K . N . 2| 00000100: 35 30 00 0E 09 AF 00 52 24 20 B2 20 22 22 00 2C |50.....R$ . "".,| 00000110: 09 B4 00 99 20 4B 3B 3A 85 20 52 24 3A 8B 20 52 |.... K;:. R$:. R| 00000120: 24 20 B2 20 22 22 20 A7 20 31 38 30 00 40 09 B9 |$ . "" . 180.@..| 00000130: 00 8B 20 52 24 20 B2 20 45 24 20 A7 20 32 35 30 |.. R$ . E$ . 250| 00000140: 00 5D 09 C8 00 41 24 28 4B 29 20 B2 20 52 24 3A |.]...A$(K) . R$:| 00000150: 4B 20 B2 20 4B AA 31 3A 89 20 31 37 30 00 77 09 |K . K.1:. 170.w.| 00000160: FA 00 4B 20 B2 20 4B AB 31 3A 8B 20 4B 20 B1 20 |..K . K.1:. K . | 00000170: 30 20 A7 20 33 30 30 00 95 09 04 01 99 22 2A 2A |0 . 300......"**| 00000180: 20 4E 4F 20 49 4E 50 55 54 20 54 4F 20 53 4F 52 | NO INPUT TO SOR| 00000190: 54 20 2A 2A 22 00 9F 09 0E 01 89 20 31 36 30 00 |T **"...... 160.| 000001A0: BC 09 2C 01 99 20 4B 3B 22 49 54 45 4D 53 20 45 |..,.. K;"ITEMS E| 000001B0: 4E 54 45 52 45 44 2E 22 3A 99 3A 99 00 D9 09 2D |NTERED.":.:....-| 000001C0: 01 81 4C B2 31 A4 33 30 30 30 3A 82 3A 8F 20 44 |..L.1.3000:.:. D| 000001D0: 45 4C 41 59 20 4C 49 4E 45 00 E2 09 36 01 99 22 |ELAY LINE...6.."| 000001E0: 93 22 00 F4 09 5E 01 8B 20 4B 20 B2 20 31 20 A7 |."...^.. K . 1 .| 000001F0: 20 34 32 30 00 09 0A 68 01 81 20 4A 20 B2 20 4B | 420...h.. J . K| 00000200: 20 A4 20 32 20 A9 20 AB 31 00 1E 0A 72 01 52 24 | . 2 . .1...r.R$| 00000210: 20 B2 20 41 24 28 31 29 3A 46 20 B2 20 31 00 2E | . A$(1):F . 1..| 00000220: 0A 7C 01 81 20 4C 20 B2 20 32 20 A4 20 4A 00 52 |.|.. L . 2 . J.R| 00000230: 0A 86 01 8B 20 41 24 28 4C 29 20 B1 20 52 24 20 |.... A$(L) . R$ | 00000240: A7 20 52 24 20 B2 20 41 24 28 4C 29 3A 46 20 B2 |. R$ . A$(L):F .| 00000250: 20 4C 00 71 0A 90 01 82 3A 41 24 28 46 29 20 B2 | L.q....:A$(F) .| 00000260: 20 41 24 28 4A 29 3A 41 24 28 4A 29 20 B2 20 52 | A$(J):A$(J) . R| 00000270: 24 00 77 0A 9A 01 82 00 BF 0A A4 01 9F 31 30 2C |$.w..........10,| 00000280: 38 2C 31 30 2C 22 40 30 3A 53 4F 52 54 2C 53 2C |8,10,"@0:SORT,S,| 00000290: 57 22 3A 8F 20 54 4F 20 44 49 53 4B 20 44 52 49 |W":. TO DISK DRI| 000002A0: 56 45 20 4F 56 45 52 57 52 49 54 45 20 46 49 4C |VE OVERWRITE FIL| 000002B0: 45 20 57 49 54 48 20 4E 45 57 20 46 49 4C 45 00 |E WITH NEW FILE.| 000002C0: C9 0A AE 01 98 31 30 2C 4B 00 D9 0A F4 01 81 20 |.....10,K...... | 000002D0: 4A 20 B2 20 31 20 A4 20 4B 00 EB 0A FE 01 99 20 |J . 1 . K...... | 000002E0: 4A 3B A3 34 29 3B 41 24 28 4A 29 00 F8 0A 00 02 |J;.4);A$(J).....| 000002F0: 5A 24 B2 41 24 28 4A 29 00 03 0B 02 02 98 31 30 |Z$.A$(J)......10| 00000300: 2C 5A 24 00 09 0B 08 02 82 00 12 0B 12 02 A0 20 |,Z$............ | 00000310: 31 30 00 5B 0B 26 02 99 3A 99 22 20 2A 2A 20 53 |10.[.&..:." ** S| 00000320: 45 4E 44 20 4C 49 53 54 20 54 4F 20 50 52 49 4E |END LIST TO PRIN| 00000330: 54 45 52 3F 20 2A 2A 20 20 20 20 20 20 20 20 20 |TER? ** | 00000340: 20 20 20 20 20 20 20 28 59 29 3D 59 45 53 20 20 | (Y)=YES | 00000350: 20 20 20 20 28 4E 29 3D 4E 4F 22 00 75 0B 30 02 | (N)=NO".u.0.| 00000360: 99 20 A3 31 29 3A 85 50 24 3A 8B 50 24 B2 22 59 |. .1):.P$:.P$."Y| 00000370: 22 A7 37 30 30 00 92 0B 3A 02 99 3A 99 22 20 2A |".700...:..:." *| 00000380: 2A 20 41 44 44 20 54 4F 20 4C 49 53 54 3F 20 2A |* ADD TO LIST? *| 00000390: 2A 22 00 AE 0B 44 02 99 20 A3 31 29 3A 85 41 44 |*"...D.. .1):.AD| 000003A0: 24 3A 8B 41 44 24 B2 22 59 22 A7 31 30 30 00 CE |$:.AD$."Y".100..| 000003B0: 0B 49 02 99 3A 99 22 20 2A 2A 20 45 52 41 53 45 |.I..:." ** ERASE| 000003C0: 20 44 49 53 4B 20 4C 49 53 54 20 2A 2A 22 00 E8 | DISK LIST **"..| 000003D0: 0B 4A 02 99 20 A3 31 29 3A 85 45 24 3A 8B 45 24 |.J.. .1):.E$:.E$| 000003E0: B2 22 59 22 A7 35 39 30 00 F1 0B 4B 02 89 38 31 |."Y".590...K..81| 000003F0: 30 00 23 0C 4E 02 9F 31 35 2C 38 2C 31 35 3A 98 |0.#.N..15,8,15:.| 00000400: 31 35 2C 22 53 30 3A 53 4F 52 54 22 3A 8F 20 45 |15,"S0:SORT":. E| 00000410: 52 41 53 45 20 44 41 54 41 20 46 52 4F 4D 20 44 |RASE DATA FROM D| 00000420: 49 53 4B 00 4E 0C 58 02 99 20 C7 28 31 34 37 29 |ISK.N.X.. .(147)| 00000430: 3A 99 C7 28 33 30 29 3A 97 35 33 32 38 30 2C 30 |:..(30):.53280,0| 00000440: 3A 97 35 33 32 38 31 2C 30 3A 99 22 93 22 00 74 |:.53281,0:.".".t| 00000450: 0C 62 02 99 22 20 20 20 20 20 20 20 20 20 20 20 |.b.." | 00000460: 2A 2A 20 53 4F 52 54 20 41 20 4C 49 53 54 20 2A |** SORT A LIST *| 00000470: 2A 22 3A 99 00 9B 0C 80 02 99 20 4E 3B 22 49 54 |*":....... N;"IT| 00000480: 45 4D 53 2D 37 34 20 53 50 41 43 45 53 20 4D 41 |EMS-74 SPACES MA| 00000490: 58 49 4D 55 4D 2D 54 59 50 45 22 00 C4 0C 8A 02 |XIMUM-TYPE".....| 000004A0: 99 22 20 27 22 3B 45 24 3B 22 27 20 54 4F 20 43 |." '";E$;"' TO C| 000004B0: 4F 4D 50 4C 45 54 45 20 54 48 45 20 4C 49 53 54 |OMPLETE THE LIST| 000004C0: 2E 22 3A 99 00 F4 0C 8F 02 99 22 20 49 54 45 4D |.":......." ITEM| 000004D0: 20 23 31 20 53 48 4F 55 4C 44 20 42 45 20 5F 20 | #1 SHOULD BE _ | 000004E0: 28 45 4E 44 20 46 49 4C 45 20 4D 41 52 4B 45 52 |(END FILE MARKER| 000004F0: 29 22 3A 99 00 FA 0C 94 02 8E 00 11 0D BC 02 9F |)":.............| 00000500: 31 30 2C 34 3A 8F 20 54 4F 20 50 52 49 4E 54 45 |10,4:. TO PRINTE| 00000510: 52 00 1B 0D C6 02 98 31 30 2C 4B 00 26 0D D0 02 |R......10,K.&...| 00000520: 81 4A B2 31 A4 4B 00 37 0D DA 02 99 4A 3B A3 34 |.J.1.K.7....J;.4| 00000530: 29 3B 41 24 28 4A 29 00 44 0D E4 02 5A 24 B2 41 |);A$(J).D...Z$.A| 00000540: 24 28 4A 29 00 4F 0D EE 02 98 31 30 2C 5A 24 00 |$(J).O....10,Z$.| 00000550: 55 0D F8 02 82 00 5D 0D 02 03 A0 31 30 00 A2 0D |U.....]....10...| 00000560: 0C 03 99 22 20 2A 2A 20 44 4F 20 59 4F 55 20 57 |..." ** DO YOU W| 00000570: 49 53 48 20 54 4F 20 41 44 44 20 54 4F 20 4C 49 |ISH TO ADD TO LI| 00000580: 53 54 3F 20 2A 2A 20 20 20 20 20 20 20 20 20 20 |ST? ** | 00000590: 28 59 29 3D 59 45 53 20 20 20 20 28 4E 29 3D 4E |(Y)=YES (N)=N| 000005A0: 4F 22 00 BE 0D 16 03 99 20 A3 31 29 3A 85 41 50 |O"...... .1):.AP| 000005B0: 24 3A 8B 41 50 24 B2 22 59 22 A7 31 30 30 00 C7 |$:.AP$."Y".100..| 000005C0: 0D 20 03 89 35 38 35 00 DD 0D 2A 03 99 22 93 22 |. ..585...*.."."| 000005D0: 3A 99 22 47 4F 4F 44 42 59 45 22 3A 80 00 00 00 |:."GOODBYE":....|
....D..: SORT A LIST.*.N..: COPYRIGHT 19 83.M.O..: TOM RUGG, PHIL FELDMAN, AND.J. P..: WESTERN SYSTEMS GROUP.P.R.....S.N.1 000:. A$(N)...T..10,8,10,"0:SORT,S,R"... V..10,Q.K.X.. I.1 . Q:.10,Z$:A$(I).Z$:.: 10.Z...E$ . "END"...... 600... .K . Q.1 ...... K . N . 250.....R$ . "".,.... K;: . R$:. R$ . "" . 180.@.... R$ . E$ . 250 .].H.A$(K) . R$:K . K.1:. 170.W...K . K. 1:. K . 0 . 300......"** NO INPUT TO SOR T **"...... 160...,.. K;"ITEMS ENTERED." :.:..Y.-..L.1.3000:.:. DELAY LINE...6.." ."...^.. K . 1 . 420...H.. J . K . 2 . . 1...R.R$ . A$(1):F . 1...|.. L . 2 . J.R .... A$(L) . R$ . R$ . A$(L):F . L.Q.... :A$(F) . A$(J):A$(J) . R$.W..........10, 8,10,"@0:SORT,S,W":. TO DISK DRIVE OVERW RITE FILE WITH NEW FILE.I....10,K.Y.... J . 1 . K...... J;.4);A$(J).....Z$.A$(J) ......10,Z$........... 10.[.&..:." ** S END LIST TO PRINTER? ** ( Y)=YES (N)=NO".U.0.. .1):.P$:.P$."Y ".700...:..:." ** ADD TO LIST? **"...D.. .1):.AD$:.AD$."Y".100.N.I..:." ** ERASE DISK LIST **"...J.. .1):.E$:.E$."Y".590 ...K..810.#.N..15,8,15:.15,"S0:SORT":. E RASE DATA FROM DISK.N.X.. G(147):.G(30): .53280,0:.53281,0:.".".T.B.." ** SORT A LIST **":....... N;"ITEMS-74 S PACES MAXIMUM-TYPE".D...." '";E$;"' TO C OMPLETE THE LIST.":......." ITEM #1 SHOU LD BE _ (END FILE MARKER)":............. 10,4:. TO PRINTER...F..10,K.&.P..J.1.K.7 .Z..J;.4);A$(J).D...Z$.A$(J).O....10,Z$. U.....]... 10......" ** DO YOU WISH TO A DD TO LIST? ** (Y)=YES (N)=N O"...... .1):.AP$:.AP$."Y".100.G. ..585. ..*..".":."GOODBYE":....
> CLICK IMAGE PREVIEW FOR FULL MODAL