DISKETTSORTERING
FILE INFORMATION
FILENAME(S): DISKETTSORTERING
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 18:15:08
APPEARS ON: 1 disk(s)
FILE HASH
9ff3128a381d742c178136a209b62212da2dc6707f8f7ac5fc9ac04749eccdcf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDS TEST | DISKETTSORTERING | PRG | Sailor, Lex | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 5A 00 8F 20 53 4F 52 54 45 52 41 20 |....Z.. SORTERA | 00000010: 44 49 4E 41 20 44 49 53 4B 45 54 54 45 52 00 27 |DINA DISKETTER.'| 00000020: 08 64 00 99 22 93 22 00 44 08 6E 00 97 35 33 32 |.d..".".D.n..532| 00000030: 38 30 2C 31 35 3A 97 35 33 32 38 31 2C 31 35 3A |80,15:.53281,15:| 00000040: 99 22 1F 22 00 4F 08 78 00 99 C7 28 31 34 29 00 |.".".O.x...(14).| 00000050: 95 08 82 00 99 22 11 11 13 D3 5B 54 54 20 49 20 |....."....[TT I | 00000060: 44 49 53 4B 45 4E 20 49 20 44 52 49 56 45 20 30 |DISKEN I DRIVE 0| 00000070: 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000080: 20 D2 C5 D4 D5 D2 CE 20 2D 20 46 4F 52 54 53 5B | ...... - FORTS[| 00000090: 54 54 41 2E 22 00 AC 08 8C 00 A1 5A 24 3A 8B 5A |TTA."......Z$:.Z| 000000A0: 24 B3 B1 C7 28 31 33 29 89 31 31 30 00 D4 08 A0 |$...(13).110....| 000000B0: 00 44 4E B2 38 3A 44 B2 30 3A 43 32 B2 32 3A 43 |.DN.8:D.0:C2.2:C| 000000C0: 43 B2 31 35 3A 54 B2 31 38 3A 53 B2 30 3A 42 50 |C.15:T.18:S.0:BP| 000000D0: B2 31 34 34 00 ED 08 AA 00 9F 43 43 2C 44 4E 2C |.144......CC,DN,| 000000E0: 43 43 2C 22 49 30 22 3A 8D 31 30 31 30 00 05 09 |CC,"I0":.1010...| 000000F0: B4 00 9F 43 32 2C 44 4E 2C 43 32 2C 22 23 22 3A |...C2,DN,C2,"#":| 00000100: 8D 31 30 31 30 00 21 09 D2 00 98 43 43 2C 22 55 |.1010.!....CC,"U| 00000110: 31 3A 22 43 32 3B 44 3B 54 3B 53 3A 8D 31 30 31 |1:"C2;D;T;S:.101| 00000120: 30 00 35 09 DC 00 98 43 43 2C 22 42 2D 50 3A 22 |0.5....CC,"B-P:"| 00000130: 43 32 2C 42 50 00 52 09 E6 00 49 44 24 B2 22 22 |C2,BP.R...ID$.""| 00000140: 3A 4E B2 32 30 3A 8D 31 30 34 30 3A 49 44 24 B2 |:N.20:.1040:ID$.| 00000150: 5A 24 00 70 09 F0 00 99 22 11 C4 49 53 4B 20 20 |Z$.p...."..ISK | 00000160: 20 20 20 20 20 20 3A 20 20 22 49 44 24 22 20 22 | : "ID$" "| 00000170: 00 A9 09 36 01 86 53 25 28 31 39 29 2C 46 54 24 |...6..S%(19),FT$| 00000180: 28 31 39 32 29 2C 54 53 24 28 31 39 32 29 2C 4E |(192),TS$(192),N| 00000190: 46 24 28 31 39 32 29 2C 46 45 24 28 31 39 32 29 |F$(192),FE$(192)| 000001A0: 2C 53 4B 24 28 31 39 32 29 00 E4 09 40 01 86 54 |,SK$(192)...@..T| 000001B0: 24 28 34 29 3A 54 24 28 31 29 B2 22 53 45 51 22 |$(4):T$(1)."SEQ"| 000001C0: 3A 54 24 28 32 29 B2 22 50 52 47 22 3A 54 24 28 |:T$(2)."PRG":T$(| 000001D0: 33 29 B2 22 55 53 52 22 3A 54 24 28 34 29 B2 22 |3)."USR":T$(4)."| 000001E0: 52 45 4C 22 00 FF 09 4A 01 81 49 B2 31 A4 33 30 |REL"...J..I.1.30| 000001F0: 3A 5A 30 24 B2 5A 30 24 AA C7 28 30 29 3A 82 00 |:Z0$.Z0$..(0):..| 00000200: 07 0A 68 01 53 B2 31 00 0F 0A 72 01 45 B2 31 00 |..h.S.1...r.E.1.| 00000210: 30 0A 7C 01 98 43 43 2C 22 55 31 3A 22 43 32 3B |0.|..CC,"U1:"C2;| 00000220: 44 3B 54 3B 53 3A 8D 31 30 31 30 3A 42 50 B2 31 |D;T;S:.1010:BP.1| 00000230: 00 53 0A 86 01 98 43 43 2C 22 42 2D 50 3A 22 3B |.S....CC,"B-P:";| 00000240: 43 32 2C 42 50 3A 8D 31 31 31 30 3A 53 25 28 53 |C2,BP:.1110:S%(S| 00000250: 29 B2 41 00 72 0A 90 01 98 43 43 2C 22 42 2D 50 |).A.r....CC,"B-P| 00000260: 3A 22 43 32 3B 42 50 3A 8D 31 31 31 30 3A 46 54 |:"C2;BP:.1110:FT| 00000270: B2 41 00 91 0A 9A 01 8B 46 54 B2 30 B0 46 54 B2 |.A......FT.0.FT.| 00000280: 31 32 38 A7 42 50 B2 42 50 AA 33 31 3A 89 35 30 |128.BP.BP.31:.50| 00000290: 30 00 BA 0A A4 01 8B 46 54 B3 31 32 38 A7 99 22 |0......FT.128.."| 000002A0: 11 20 C6 C9 CC A0 C6 C5 CC 20 20 20 20 20 20 20 |. ....... | 000002B0: 20 20 20 20 22 3A 89 39 39 39 00 C8 0A AE 01 46 | ":.999.....F| 000002C0: 54 24 28 45 29 B2 41 24 00 E0 0A B8 01 4E B2 32 |T$(E).A$.....N.2| 000002D0: 3A 8D 31 30 34 30 3A 54 53 24 28 45 29 B2 5A 24 |:.1040:TS$(E).Z$| 000002E0: 00 F9 0A C2 01 4E B2 31 36 3A 8D 31 30 34 30 3A |.....N.16:.1040:| 000002F0: 4E 46 24 28 41 29 B2 5A 24 00 12 0B CC 01 4E B2 |NF$(A).Z$.....N.| 00000300: 31 31 3A 8D 31 30 34 30 3A 46 45 24 28 43 29 B2 |11:.1040:FE$(C).| 00000310: 5A 24 00 35 0B E0 01 99 2C 22 20 20 20 20 22 4E |Z$.5....," "N| 00000320: 46 24 28 45 29 22 20 3A 20 22 54 53 24 28 46 54 |F$(E)" : "TS$(FT| 00000330: AB 31 32 38 29 00 47 0B EA 01 42 50 B2 42 50 AA |.128).G...BP.BP.| 00000340: 32 3A 43 B2 43 AA 31 00 57 0B F4 01 8B 42 50 B3 |2:C.C.1.W....BP.| 00000350: 32 35 36 89 34 30 30 00 74 0B FE 01 8B 53 25 28 |256.400.t....S%(| 00000360: 53 29 B3 B1 32 35 35 A7 53 B2 53 24 28 53 29 3A |S)..255.S.S$(S):| 00000370: 89 33 38 30 00 7E 0B 08 02 8D 31 31 34 30 00 91 |.380.~....1140..| 00000380: 0B 12 02 45 B2 45 AB 31 3A 8B 45 B2 30 89 37 33 |...E.E.1:.E.0.73| 00000390: 30 00 B3 0B 1C 02 99 22 D3 4F 52 54 45 52 41 20 |0......".ORTERA | 000003A0: 50 5D 20 46 49 4C 20 54 59 50 20 3F 20 28 4A 2F |P] FIL TYP ? (J/| 000003B0: 4E 29 22 00 CE 0B 26 02 A1 5A 24 3A 46 54 24 B2 |N)"...&..Z$:FT$.| 000003C0: 5A 24 3A 8B 5A 24 B2 22 4A 22 89 35 38 30 00 DF |Z$:.Z$."J".580..| 000003D0: 0B 30 02 8B 5A 24 B3 B1 22 4E 22 89 35 35 30 00 |.0..Z$.."N".550.| 000003E0: F4 0B 44 02 99 22 11 D3 4F 52 54 45 52 41 52 20 |..D.."..ORTERAR | 000003F0: 2E 2E 2E 22 00 04 0C 4E 02 81 49 B2 31 A4 45 3A |..."...N..I.1.E:| 00000400: 4B B2 31 36 00 31 0C 58 02 81 4A B2 31 A4 31 36 |K.16.1.X..J.1.16| 00000410: 3A 8B CA 28 4E 46 24 28 49 29 2C 4A 2C 31 29 B2 |:..(NF$(I),J,1).| 00000420: C7 28 31 36 30 29 A7 4B B2 4A AB 31 3A 4A B2 31 |.(160).K.J.1:J.1| 00000430: 36 00 4B 0C 62 02 82 4A 3A 53 4B 24 28 49 29 B2 |6.K.b..J:SK$(I).| 00000440: C8 28 4E 46 24 28 49 29 2C 4B 29 00 6D 0C 6C 02 |.(NF$(I),K).m.l.| 00000450: 8B 46 54 24 B2 22 59 22 A7 53 4B 24 28 49 29 B2 |.FT$."Y".SK$(I).| 00000460: 46 54 24 28 49 29 AA 53 4B 24 28 49 29 00 78 0C |FT$(I).SK$(I).x.| 00000470: 76 02 82 49 3A 4D B2 45 00 8E 0C 80 02 4D B2 B5 |v..I:M.E.....M..| 00000480: 28 4D AD 32 29 3A 8B 4D B2 30 89 37 34 30 00 9C |(M.2):.M.0.740..| 00000490: 0C 8A 02 4B B2 45 AB 4D 3A 4A B2 30 00 A9 0C 94 |...K.E.M:J.0....| 000004A0: 02 8B 4A B1 4B 89 36 34 30 00 B1 0C 9E 02 49 B2 |..J.K.640.....I.| 000004B0: 4A 00 BE 0C A8 02 8B 49 B3 30 89 37 30 30 00 D7 |J......I.0.700..| 000004C0: 0C B2 02 8B 53 4B 24 28 49 AA 4D 29 B3 53 4B 24 |....SK$(I.M).SK$| 000004D0: 28 49 29 89 37 31 30 00 E6 0C BC 02 4A B2 4A AA |(I).710.....J.J.| 000004E0: 31 3A 89 36 36 30 00 07 0D C6 02 41 24 B2 46 54 |1:.660.....A$.FT| 000004F0: 24 28 49 29 3A 46 54 24 28 49 29 B2 46 54 24 28 |$(I):FT$(I).FT$(| 00000500: 49 AA 4D 29 B2 41 24 00 28 0D C7 02 41 24 B2 54 |I.M).A$.(...A$.T| 00000510: 53 24 28 49 29 3A 54 53 24 28 49 29 B2 54 53 24 |S$(I):TS$(I).TS$| 00000520: 28 49 AA 4D 29 B2 41 24 00 49 0D C8 02 41 24 B2 |(I.M).A$.I...A$.| 00000530: 4E 46 24 28 49 29 3A 4E 46 24 28 49 29 B2 4E 46 |NF$(I):NF$(I).NF| 00000540: 24 28 49 AA 4D 29 B2 41 24 00 6A 0D C9 02 41 24 |$(I.M).A$.j...A$| 00000550: B2 46 45 24 28 49 29 3A 46 45 24 28 49 29 B2 46 |.FE$(I):FE$(I).F| 00000560: 45 24 28 49 AA 4D 29 B2 41 24 00 8B 0D CA 02 41 |E$(I.M).A$.....A| 00000570: 24 B2 53 4B 24 28 49 29 3A 53 4B 24 28 49 29 B2 |$.SK$(I):SK$(I).| 00000580: 53 4B 24 28 49 AA 4D 29 B2 41 24 00 9A 0D D0 02 |SK$(I.M).A$.....| 00000590: 49 B2 49 AB 4D 3A 89 36 38 30 00 B8 0D E4 02 99 |I.I.M:.680......| 000005A0: 22 91 D3 4B 52 49 56 45 52 20 2E 2E 2E 20 3A 20 |"..KRIVER ... : | 000005B0: 20 22 49 44 24 22 20 22 00 CB 0D EE 02 5A 24 B2 | "ID$" ".....Z$.| 000005C0: C7 28 30 29 AA C7 28 32 35 35 29 00 D7 0D F8 02 |.(0)..(255).....| 000005D0: 53 B2 31 3A 4E B2 31 00 F3 0D 02 03 98 43 43 2C |S.1:N.1......CC,| 000005E0: 22 55 31 3A 22 43 32 3B 44 3B 54 3B 53 3A 8D 31 |"U1:"C2;D;T;S:.1| 000005F0: 30 31 30 00 FC 0D 0C 03 42 50 B2 32 00 09 0E 16 |010.....BP.2....| 00000600: 03 8B 4E B1 45 89 38 38 30 00 19 0E 20 03 8B 42 |..N.E.880... ..B| 00000610: 50 B3 32 35 36 89 38 34 30 00 35 0E 34 03 98 43 |P.256.840.5.4..C| 00000620: 43 2C 22 55 32 3A 22 43 32 3B 44 3B 54 3B 53 3A |C,"U2:"C2;D;T;S:| 00000630: 8D 31 30 31 30 00 46 0E 3E 03 53 B2 53 25 28 53 |.1010.F.>.S.S%(S| 00000640: 29 3A 89 37 37 30 00 5B 0E 48 03 98 43 43 2C 22 |):.770.[.H..CC,"| 00000650: 42 2D 50 3A 22 3B 43 32 3B 42 50 00 84 0E 52 03 |B-P:";C2;BP...R.| 00000660: 98 2C 22 20 20 20 20 22 4E 46 24 28 4E 29 22 20 |.," "NF$(N)" | 00000670: 3A 20 22 54 24 28 C6 28 46 54 24 28 4E 29 29 AB |: "T$(.(FT$(N)).| 00000680: 31 32 38 29 00 A9 0E 5C 03 98 43 32 2C 46 54 24 |128)...\..C2,FT$| 00000690: 28 4E 29 3B 54 53 24 28 4E 29 3B 4E 46 24 28 4E |(N);TS$(N);NF$(N| 000006A0: 29 3B 46 45 24 28 4E 29 3B 00 C1 0E 66 03 42 50 |);FE$(N);...f.BP| 000006B0: B2 42 50 AA 33 32 3A 4E B2 4E AA 31 3A 89 37 38 |.BP.32:N.N.1:.78| 000006C0: 30 00 D1 0E 70 03 8B 42 50 B1 32 35 35 89 38 33 |0...p..BP.255.83| 000006D0: 30 00 E6 0E 84 03 98 43 43 2C 22 42 2D 50 3A 22 |0......CC,"B-P:"| 000006E0: 3B 43 32 3B 42 50 00 F3 0E 8E 03 98 43 32 2C 5A |;C2;BP......C2,Z| 000006F0: 30 24 3B 00 05 0F 98 03 42 50 B2 42 50 AA 33 32 |0$;.....BP.BP.32| 00000700: 3A 89 39 39 30 00 1F 0F A2 03 42 50 B2 30 3A 98 |:.990.....BP.0:.| 00000710: 43 43 2C 22 42 2D 50 3A 22 3B 43 32 3B 42 50 00 |CC,"B-P:";C2;BP.| 00000720: 2B 0F AC 03 98 43 32 2C 5A 24 3B 00 47 0F B6 03 |+....C2,Z$;.G...| 00000730: 98 43 43 2C 22 55 32 3A 22 43 32 3B 44 3B 54 3B |.CC,"U2:"C2;D;T;| 00000740: 53 3A 8D 31 30 31 30 00 57 0F C0 03 5A 24 B2 C8 |S:.1010.W...Z$..| 00000750: 28 5A 30 24 2C 32 29 00 6E 0F CA 03 53 B2 53 25 |(Z0$,2).n...S.S%| 00000760: 28 53 29 3A 8B 53 B2 32 35 35 89 39 39 39 00 8A |(S):.S.255.999..| 00000770: 0F D4 03 98 43 43 2C 22 55 31 3A 22 43 32 3B 44 |....CC,"U1:"C2;D| 00000780: 3B 54 3B 53 3A 8D 31 30 30 30 00 98 0F DE 03 42 |;T;S:.1000.....B| 00000790: 50 B2 32 3A 89 39 30 30 00 A6 0F E7 03 A0 43 32 |P.2:.900......C2| 000007A0: 3A A0 43 43 3A 80 00 C3 0F F2 03 84 43 43 2C 45 |:.CC:.......CC,E| 000007B0: 4E 2C 45 4D 24 2C 43 54 2C 45 53 3A 8B 45 4E B2 |N,EM$,CT,ES:.EN.| 000007C0: 30 A7 8E 00 E9 0F FC 03 99 22 93 20 C4 C9 D3 CB |0........". ....| 000007D0: 20 C6 C5 CC 20 20 20 22 45 4E 3B 45 4D 24 3B 45 | ... "EN;EM$;E| 000007E0: 54 3B 45 53 3A 89 39 39 39 00 F3 0F 10 04 5A 24 |T;ES:.999.....Z$| 000007F0: B2 22 22 00 04 10 1A 04 81 49 B2 31 A4 4E 3A 8D |.""......I.1.N:.| 00000800: 31 31 31 30 00 15 10 24 04 5A 24 B2 5A 24 AA 41 |1110...$.Z$.Z$.A| 00000810: 24 3A 82 3A 8E 00 30 10 56 04 A1 23 43 32 2C 41 |$:.:..0.V..#C2,A| 00000820: 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 |$:.A$."".A$..(0)| 00000830: 00 46 10 60 04 41 B2 C6 28 41 24 29 3A 42 50 B2 |.F.`.A..(A$):BP.| 00000840: 42 50 AA 31 3A 8E 00 60 10 74 04 99 22 11 C6 4F |BP.1:..`.t.."..O| 00000850: 52 54 53 5B 54 54 41 20 3F 20 28 4A 2F 4E 29 22 |RTS[TTA ? (J/N)"| 00000860: 00 74 10 7E 04 A1 5A 24 3A 8B 5A 24 B2 22 4E 22 |.t.~..Z$:.Z$."N"| 00000870: 89 39 39 39 00 86 10 88 04 8B 5A 24 B3 B1 22 4A |.999......Z$.."J| 00000880: 22 89 31 31 35 30 00 A8 10 92 04 99 22 91 20 20 |".1150......". | 00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008A0: 20 20 20 20 91 22 3A 8E 00 00 00 | .":.... |
....Z.. SORTERA DINA DISKETTER.'.D..".".
D.N..53280,15:.53281,15:.".".O.X..G(14).
....."...S[TT I DISKEN I DRIVE 0.
RETURN - FORTS[TTA."......Z$:.Z
$..G(13).110.T. .DN.8:D.0:C2.2:CC.15:T.1
8:S.0:BP.144......CC,DN,CC,"I0":.1010...
...C2,DN,C2,"#":.1010.!.R..CC,"U1:"C2;D;
T;S:.1010.5....CC,"B-P:"C2,BP.R...ID$.""
:N.20:.1040:ID$.Z$.P....".DISK :
"ID$" "...6..S%(19),FT$(192),TS$(192),N
F$(192),FE$(192),SK$(192)...@..T$(4):T$(
1)."SEQ":T$(2)."PRG":T$(3)."USR":T$(4)."
REL"...J..I.1.30:Z0$.Z0$.G(0):....H.S.1.
..R.E.1.0.|..CC,"U1:"C2;D;T;S:.1010:BP.1
.S....CC,"B-P:";C2,BP:.1110:S%(S).A.R...
.CC,"B-P:"C2;BP:.1110:FT.A......FT.0.FT.
128.BP.BP.31:.500......FT.128..". FIL FE
L ":.999.H...FT$(E).A$.....N.2
:.1040:TS$(E).Z$...B.N.16:.1040:NF$(A).Z
$...L.N.11:.1040:FE$(C).Z$.5....," "N
F$(E)" : "TS$(FT.128).G...BP.BP.2:C.C.1.
W....BP.256.400.T....S%(S)..255.S.S$(S):
.380.~....1140.....E.E.1:.E.0.730......"
SORTERA P] FIL TYP ? (J/N)".N.&..Z$:FT$.
Z$:.Z$."J".580...0..Z$.."N".550...D..".S
ORTERAR ..."...N..I.1.E:K.16.1.X..J.1.16
:.J(NF$(I),J,1).G(160).K.J.1:J.16.K.B..J
:SK$(I).H(NF$(I),K).M.L..FT$."Y".SK$(I).
FT$(I).SK$(I).X.V..I:M.E.....M..(M.2):.M
.0.740.....K.E.M:J.0......J.K.640.....I.
J......I.0.700.W....SK$(I.M).SK$(I).710.
....J.J.1:.660...F.A$.FT$(I):FT$(I).FT$(
I.M).A$.(.G.A$.TS$(I):TS$(I).TS$(I.M).A$
.I.H.A$.NF$(I):NF$(I).NF$(I.M).A$.J.I.A$
.FE$(I):FE$(I).FE$(I.M).A$...J.A$.SK$(I)
:SK$(I).SK$(I.M).A$...P.I.I.M:.680......
".SKRIVER ... : "ID$" ".K...Z$.G(0).G(2
55).W...S.1:N.1......CC,"U1:"C2;D;T;S:.1
010.....BP.2......N.E.880... ..BP.256.84
0.5.4..CC,"U2:"C2;D;T;S:.1010.F.>.S.S%(S
):.770.[.H..CC,"B-P:";C2;BP...R..," "
NF$(N)" : "T$(F(FT$(N)).128)...\..C2,FT$
(N);TS$(N);NF$(N);FE$(N);.A.F.BP.BP.32:N
.N.1:.780.Q.P..BP.255.830......CC,"B-P:"
;C2;BP......C2,Z0$;.....BP.BP.32:.990...
..BP.0:.CC,"B-P:";C2;BP.+....C2,Z$;.G...
.CC,"U2:"C2;D;T;S:.1010.W...Z$.H(Z0$,2).
N.J.S.S%(S):.S.255.999...T..CC,"U1:"C2;D
;T;S:.1000.....BP.2:.900..... C2: CC:..C
....CC,EN,EM$,CT,ES:.EN.0........". DISK
FEL "EN;EM$;ET;ES:.999.....Z$."".....
.I.1.N:.1110...$.Z$.Z$.A$:.:..0.V..#C2,A
$:.A$."".A$.G(0).F.`.A.F(A$):BP.BP.1:..`
.T..".FORTS[TTA ? (J/N)".T.~..Z$:.Z$."N"
.999......Z$.."J".1150......".
.":....
> CLICK IMAGE PREVIEW FOR FULL MODAL