SORT.DIRECTORY
FILE INFORMATION
FILENAME(S): SORT.DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-12-02 23:08:27
APPEARS ON: 1 disk(s)
FILE HASH
47c012603b31bea04425682d36983f9afa2c23a5df0a95bf6a89beb073a01f25
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIENSTPROGRAMME1 | SORT.DIRECTORY | PRG | swasti, flohmarkt, swasti, misc | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 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 2A 00 4F 08 14 00 8F 20 2A |********.O.... *| 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000050: 76 08 1E 00 8F 20 2A 20 53 4F 52 54 49 45 52 54 |v.... * SORTIERT| 00000060: 2E 20 44 49 52 45 43 54 4F 52 59 20 41 55 46 20 |. DIRECTORY AUF | 00000070: 44 49 53 4B 20 2A 00 9D 08 28 00 8F 20 2A 20 20 |DISK *...(.. * | 00000080: 41 55 53 20 27 43 4F 4D 50 55 54 45 52 20 50 45 |AUS 'COMPUTER PE| 00000090: 52 53 4F 45 4E 4C 49 43 48 27 20 20 2A 00 C4 08 |RSOENLICH' *...| 000000A0: 32 00 8F 20 2A 20 20 20 20 41 55 53 47 41 42 45 |2.. * AUSGABE| 000000B0: 20 32 32 20 56 4F 4D 20 31 37 2E 31 30 2E 38 34 | 22 VOM 17.10.84| 000000C0: 20 20 20 2A 00 EB 08 3C 00 8F 20 2A 20 20 20 20 | *...<.. * | 000000D0: 20 20 20 20 41 55 46 20 53 45 49 54 45 20 38 39 | AUF SEITE 89| 000000E0: 20 2D 20 31 30 30 20 20 20 20 2A 00 12 09 46 00 | - 100 *...F.| 000000F0: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 20 2A 00 39 09 50 00 8F 20 2A 2A 2A 2A 2A 2A 2A | *.9.P.. *******| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5F 09 96 00 99 22 |*********._...."| 00000140: 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D D2 D2 D2 D2 D2 |................| 00000150: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 22 00 |..............".| 00000160: 84 09 A0 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |....."..........| 00000170: 53 4F 52 54 49 45 52 45 4E 20 44 49 52 45 43 54 |SORTIEREN DIRECT| 00000180: 4F 52 59 22 00 AA 09 AA 00 99 22 1D 1D 1D 1D 1D |ORY"......".....| 00000190: 1D 1D 1D 1D 1D A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 000001A0: A3 A3 A3 A3 A3 A3 A3 A3 11 22 00 D6 09 B4 00 8F |........."......| 000001B0: 22 14 14 14 14 14 14 14 14 8D 90 20 12 20 2A 2A |".......... . **| 000001C0: 2A 20 53 54 45 55 45 52 4C 45 49 53 54 45 20 2A |* STEUERLEISTE *| 000001D0: 2A 2A 20 92 8D 9A 00 F4 09 D2 00 86 50 4E 24 28 |** .........PN$(| 000001E0: 31 34 33 29 2C 53 45 28 31 39 29 2C 4D 43 24 28 |143),SE(19),MC$(| 000001F0: 31 34 33 29 00 FE 09 DC 00 8D 31 30 30 30 00 08 |143)......1000..| 00000200: 0A E6 00 8D 32 30 30 30 00 12 0A F0 00 8D 33 30 |....2000......30| 00000210: 30 30 00 33 0A FA 00 99 22 20 22 3A 98 31 35 2C |00.3...." ":.15,| 00000220: 22 49 22 3A A0 31 35 3A A0 32 3A 99 22 45 4E 44 |"I":.15:.2:."END| 00000230: 22 3A 80 00 60 0A CA 03 8F 22 14 14 14 14 14 14 |":..`...."......| 00000240: 14 14 8D 90 20 12 20 2A 2A 2A 20 55 4E 54 45 52 |.... . *** UNTER| 00000250: 52 4F 55 54 49 4E 45 4E 20 2A 2A 2A 20 92 8D 9A |ROUTINEN *** ...| 00000260: 00 8F 0A E8 03 8F 22 14 14 14 14 14 14 14 14 14 |......".........| 00000270: 8D 90 20 12 20 2A 2A 2A 20 44 41 54 45 4E 20 45 |.. . *** DATEN E| 00000280: 49 4E 4C 45 53 45 4E 20 2A 2A 2A 20 92 8D 9A 00 |INLESEN *** ....| 00000290: A6 0A 06 04 9F 31 35 2C 38 2C 31 35 2C 22 49 22 |.....15,8,15,"I"| 000002A0: 3A 8D 34 30 30 30 00 BB 0A 10 04 9F 32 2C 38 2C |:.4000......2,8,| 000002B0: 32 2C 22 23 22 3A 8D 34 30 30 30 00 C6 0A 1A 04 |2,"#":.4000.....| 000002C0: A1 23 32 2C 50 24 00 D8 0A 24 04 50 24 B2 C7 28 |.#2,P$...$.P$..(| 000002D0: C6 28 50 24 29 AA 33 29 00 0C 0B 2E 04 8F 22 14 |.(P$).3)......".| 000002E0: 14 14 14 14 14 14 14 14 8D 90 20 12 20 2A 2A 2A |.......... . ***| 000002F0: 20 31 2E 20 53 50 55 52 20 31 38 2C 53 45 4B 54 | 1. SPUR 18,SEKT| 00000300: 4F 52 20 30 20 2A 2A 2A 20 92 8D 9A 00 19 0B 4C |OR 0 *** ......L| 00000310: 04 54 B2 31 38 3A 53 B2 30 00 34 0B 56 04 99 22 |.T.18:S.0.4.V.."| 00000320: 11 52 45 41 44 3A 22 2C 22 53 50 55 52 22 2C 2C |.READ:","SPUR",,| 00000330: 54 22 11 22 00 3E 0B 60 04 8D 31 35 30 30 00 79 |T".".>.`..1500.y| 00000340: 0B 6A 04 8F 22 14 14 14 14 14 14 14 14 14 8D 90 |.j.."...........| 00000350: 20 12 20 2A 2A 2A 20 32 2E 20 53 45 4B 54 4F 52 | . *** 2. SEKTOR| 00000360: 45 4E 20 4D 2E 45 49 4E 54 52 41 47 55 4E 47 45 |EN M.EINTRAGUNGE| 00000370: 4E 20 2A 2A 2A 20 92 8D 9A 00 87 0B 88 04 81 20 |N *** ......... | 00000380: 4C 31 B2 30 A4 31 37 00 94 0B 92 04 53 B2 53 45 |L1.0.17.....S.SE| 00000390: 28 53 43 29 00 A8 0B 9C 04 99 22 20 22 2C 22 42 |(SC)......" ","B| 000003A0: 4C 4F 43 4B 22 2C 2C 53 00 B2 0B A6 04 8D 31 35 |LOCK",,S......15| 000003B0: 30 30 00 BF 0B B0 04 81 20 4C 32 B2 30 A4 37 00 |00...... L2.0.7.| 000003C0: CE 0B BA 04 45 49 B2 4C 31 AC 38 AA 4C 32 00 DC |....EI.L1.8.L2..| 000003D0: 0B C4 04 81 20 4C 33 B2 31 A4 33 30 00 E7 0B CE |.... L3.1.30....| 000003E0: 04 A1 23 32 2C 41 24 00 FC 0B D8 04 8B 4C 33 B3 |..#2,A$......L3.| 000003F0: 34 B0 4C 33 B1 31 39 A7 31 32 36 30 00 17 0C E2 |4.L3.19.1260....| 00000400: 04 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 31 36 30 |..A$."".A$..(160| 00000410: 29 3A 89 31 32 37 30 00 2A 0C EC 04 8B 41 24 B2 |):.1270.*....A$.| 00000420: 22 22 A7 41 24 B2 C7 28 30 29 00 41 0C F6 04 50 |"".A$..(0).A...P| 00000430: 4E 24 28 45 49 29 B2 50 4E 24 28 45 49 29 AA 41 |N$(EI).PN$(EI).A| 00000440: 24 00 49 0C 00 05 82 4C 33 00 59 0C 0A 05 8B 4C |$.I....L3.Y....L| 00000450: 32 B2 37 A7 89 31 33 31 30 00 6B 0C 14 05 A1 23 |2.7..1310.k....#| 00000460: 32 2C 41 24 3A A1 23 32 2C 41 24 00 73 0C 1E 05 |2,A$:.#2,A$.s...| 00000470: 82 4C 32 00 7E 0C 28 05 8B 54 B2 30 A7 8E 00 86 |.L2.~.(..T.0....| 00000480: 0C 32 05 82 4C 31 00 8C 0C 3C 05 8E 00 C5 0C DC |.2..L1...<......| 00000490: 05 8F 22 14 14 14 14 14 14 14 14 14 8D 90 20 12 |.."........... .| 000004A0: 20 2A 2A 2A 20 4C 45 53 45 52 4F 55 54 49 4E 45 | *** LESEROUTINE| 000004B0: 20 28 42 59 54 45 20 30 20 2B 20 31 29 20 2A 2A | (BYTE 0 + 1) **| 000004C0: 2A 20 92 8D 9A 00 E0 0C FA 05 98 31 35 2C 22 55 |* .........15,"U| 000004D0: 41 22 3B 32 3B 30 3B 54 3B 53 3A 8D 34 30 30 30 |A";2;0;T;S:.4000| 000004E0: 00 0B 0D 04 06 8F 22 14 14 14 14 14 14 14 14 14 |......".........| 000004F0: 8D 90 20 12 20 2A 2A 2A 20 31 2E 20 20 42 59 54 |.. . *** 1. BYT| 00000500: 45 20 30 20 2A 2A 2A 20 92 8D 9A 00 1D 0D 22 06 |E 0 *** ......".| 00000510: 98 31 35 2C 22 42 2D 50 3A 32 2C 31 22 00 31 0D |.15,"B-P:2,1".1.| 00000520: 2C 06 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 50 |,..15,"M-R".(0)P| 00000530: 24 00 3D 0D 36 06 A1 23 31 35 2C 41 24 00 50 0D |$.=.6..#15,A$.P.| 00000540: 40 06 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 |@..A$."".A$..(0)| 00000550: 00 5C 0D 4A 06 54 B2 C6 28 41 24 29 00 87 0D 5E |.\.J.T..(A$)...^| 00000560: 06 8F 22 14 14 14 14 14 14 14 14 14 8D 90 20 12 |.."........... .| 00000570: 20 2A 2A 2A 20 32 2E 20 20 42 59 54 45 20 31 20 | *** 2. BYTE 1 | 00000580: 2A 2A 2A 20 92 8D 9A 00 92 0D 72 06 A1 23 32 2C |*** ......r..#2,| 00000590: 41 24 00 A5 0D 7C 06 8B 41 24 B2 22 22 A7 41 24 |A$...|..A$."".A$| 000005A0: B2 C7 28 30 29 00 BE 0D 86 06 53 43 B2 53 43 AA |..(0).....SC.SC.| 000005B0: 31 3A 53 45 28 53 43 29 B2 C6 28 41 24 29 00 C4 |1:SE(SC)..(A$)..| 000005C0: 0D 90 06 8E 00 F3 0D D0 07 8F 22 14 14 14 14 14 |..........".....| 000005D0: 14 14 14 14 8D 90 20 12 20 2A 2A 2A 20 53 4F 52 |...... . *** SOR| 000005E0: 54 20 2D 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 20 |T - ROUTINE *** | 000005F0: 92 8D 9A 00 28 0E EE 07 8F 22 14 14 14 14 14 14 |....(...."......| 00000600: 14 14 14 8D 90 20 12 20 2A 2A 2A 20 31 2E 20 42 |..... . *** 1. B| 00000610: 49 4C 44 45 4E 20 4D 41 54 43 48 2D 43 4F 44 45 |ILDEN MATCH-CODE| 00000620: 20 2A 2A 2A 20 92 8D 9A 00 37 0E 0C 08 99 22 11 | *** ....7....".| 00000630: 53 4F 52 54 3A 22 2C 00 45 0E 16 08 81 20 53 31 |SORT:",.E.... S1| 00000640: B2 30 A4 45 49 00 51 0E 20 08 47 4C 24 B2 22 30 |.0.EI.Q. .GL$."0| 00000650: 22 00 72 0E 2A 08 8B C6 28 CA 28 50 4E 24 28 53 |".r.*...(.(PN$(S| 00000660: 31 29 2C 31 2C 31 29 29 B2 30 A7 47 4C 24 B2 22 |1),1,1)).0.GL$."| 00000670: 31 22 00 98 0E 34 08 4D 43 24 28 53 31 29 B2 47 |1"...4.MC$(S1).G| 00000680: 4C 24 AA CA 28 50 4E 24 28 53 31 29 2C 34 2C 31 |L$..(PN$(S1),4,1| 00000690: 36 29 AA C4 28 53 31 29 00 A0 0E 3E 08 82 53 31 |6)..(S1)...>..S1| 000006A0: 00 D8 0E 48 08 8F 22 14 14 14 14 14 14 14 14 14 |...H..".........| 000006B0: 8D 90 20 12 20 2A 2A 2A 20 32 2E 20 53 4F 52 54 |.. . *** 2. SORT| 000006C0: 20 4E 41 43 48 20 4D 41 54 43 48 2D 43 4F 44 45 | NACH MATCH-CODE| 000006D0: 20 2A 2A 2A 20 92 8D 9A 00 E9 0E 66 08 99 22 45 | *** ......f.."E| 000006E0: 49 4E 54 52 41 47 22 2C 2C 00 03 0F 70 08 43 31 |INTRAG",,...p.C1| 000006F0: B2 C2 28 32 31 31 29 3A 43 32 B2 C2 28 32 31 34 |..(211):C2..(214| 00000700: 29 AB 31 00 11 0F 7A 08 81 20 53 31 B2 30 A4 45 |).1...z.. S1.0.E| 00000710: 49 00 25 0F 84 08 97 32 31 31 2C 43 31 3A 97 32 |I.%....211,C1:.2| 00000720: 31 34 2C 43 32 00 2F 0F 8E 08 99 53 31 AA 31 00 |14,C2./....S1.1.| 00000730: 43 0F 98 08 81 20 53 32 B2 45 49 A4 53 31 AA 31 |C.... S2.EI.S1.1| 00000740: A9 AB 31 00 75 0F A2 08 8B CA 28 4D 43 24 28 53 |..1.u.....(MC$(S| 00000750: 32 29 2C 31 2C 31 37 29 20 B3 20 CA 28 4D 43 24 |2),1,17) . .(MC$| 00000760: 28 53 32 AB 31 29 2C 31 2C 31 37 29 20 A7 20 8D |(S2.1),1,17) . .| 00000770: 20 32 35 30 30 00 7D 0F AC 08 82 53 32 00 85 0F | 2500.}....S2...| 00000780: B6 08 82 53 31 00 8B 0F C0 08 8E 00 C1 0F C4 09 |...S1...........| 00000790: 8F 22 14 14 14 14 14 14 14 14 14 8D 90 20 12 20 |."........... . | 000007A0: 2A 2A 2A 20 41 55 53 54 41 55 53 43 48 20 44 45 |*** AUSTAUSCH DE| 000007B0: 52 20 49 4E 48 41 4C 54 45 20 2A 2A 2A 20 92 8D |R INHALTE *** ..| 000007C0: 9A 00 D1 0F E2 09 54 41 24 B2 4D 43 24 28 53 32 |......TA$.MC$(S2| 000007D0: 29 00 E7 0F EC 09 4D 43 24 28 53 32 29 B2 4D 43 |).....MC$(S2).MC| 000007E0: 24 28 53 32 AB 31 29 00 F9 0F F6 09 4D 43 24 28 |$(S2.1).....MC$(| 000007F0: 53 32 AB 31 29 B2 54 41 24 00 FF 0F 00 0A 8E 00 |S2.1).TA$.......| 00000800: 3A 10 B8 0B 8F 22 14 14 14 14 14 14 14 14 14 8D |:...."..........| 00000810: 90 20 12 20 2A 2A 2A 20 5A 55 52 55 45 43 4B 53 |. . *** ZURUECKS| 00000820: 43 48 52 45 49 42 45 4E 20 44 49 52 45 43 54 4F |CHREIBEN DIRECTO| 00000830: 52 59 20 2A 2A 2A 20 92 8D 9A 00 6F 10 D6 0B 8F |RY *** ....o....| 00000840: 22 14 14 14 14 14 14 14 14 14 8D 90 20 12 20 2A |"........... . *| 00000850: 2A 2A 20 31 2E 20 42 4C 4F 43 4B 20 41 55 46 42 |** 1. BLOCK AUFB| 00000860: 45 52 45 49 54 45 4E 20 2A 2A 2A 20 92 8D 9A 00 |EREITEN *** ....| 00000870: 78 10 F4 0B 54 B2 31 38 00 97 10 FE 0B 99 22 11 |x...T.18......".| 00000880: 11 52 45 50 4C 41 43 45 3A 22 2C 22 53 50 55 52 |.REPLACE:","SPUR| 00000890: 22 2C 2C 54 22 11 22 00 A7 10 08 0C 81 20 57 31 |",,T"."...... W1| 000008A0: B2 30 A4 53 43 AB 32 00 B6 10 12 0C 53 B2 53 45 |.0.SC.2.....S.SE| 000008B0: 28 57 31 AA 31 29 00 CA 10 1C 0C 42 4C 24 B2 C7 |(W1.1).....BL$..| 000008C0: 28 53 45 28 57 31 AA 32 29 29 00 D6 10 26 0C 81 |(SE(W1.2))...&..| 000008D0: 57 32 B2 30 A4 37 00 E5 10 30 0C 57 33 B2 57 31 |W2.0.7...0.W3.W1| 000008E0: AC 38 AA 57 32 00 FF 10 3A 0C 57 34 B2 C5 28 CA |.8.W2...:.W4..(.| 000008F0: 28 4D 43 24 28 57 33 29 2C 31 39 2C 33 29 29 00 |(MC$(W3),19,3)).| 00000900: 13 11 44 0C 42 4C 24 B2 42 4C 24 AA 50 4E 24 28 |..D.BL$.BL$.PN$(| 00000910: 57 34 29 00 23 11 4E 0C 8B 57 32 B2 37 A7 89 33 |W4).#.N..W2.7..3| 00000920: 31 37 30 00 39 11 58 0C 42 4C 24 B2 42 4C 24 AA |170.9.X.BL$.BL$.| 00000930: C7 28 30 29 AA C7 28 30 29 00 41 11 62 0C 82 57 |.(0)..(0).A.b..W| 00000940: 32 00 4B 11 6C 0C 8D 33 33 30 30 00 55 11 76 0C |2.K.l..3300.U.v.| 00000950: 8D 33 35 30 30 00 5D 11 80 0C 82 57 31 00 63 11 |.3500.]....W1.c.| 00000960: 8A 0C 8E 00 9C 11 E4 0C 8F 22 14 14 14 14 14 14 |........."......| 00000970: 14 14 14 8D 90 20 12 20 2A 2A 2A 20 31 2E 20 46 |..... . *** 1. F| 00000980: 4F 4C 47 45 53 50 55 52 20 4E 41 43 48 20 42 59 |OLGESPUR NACH BY| 00000990: 54 45 20 30 20 2A 2A 2A 20 92 8D 9A 00 D5 11 EE |TE 0 *** .......| 000009A0: 0C 8F 22 14 14 14 14 14 14 14 14 14 8D 90 20 12 |.."........... .| 000009B0: 20 2A 2A 2A 20 32 2E 20 46 4F 4C 47 45 53 50 55 | *** 2. FOLGESPU| 000009C0: 52 20 4E 41 43 48 20 42 59 54 45 20 30 20 2A 2A |R NACH BYTE 0 **| 000009D0: 2A 20 92 8D 9A 00 EE 11 02 0D 8B 20 53 45 28 57 |* ......... SE(W| 000009E0: 31 AA 32 29 B2 32 35 35 A7 20 33 33 36 30 00 0B |1.2).255. 3360..| 000009F0: 12 0C 0D 98 31 35 2C 22 4D 2D 57 22 C7 28 30 29 |....15,"M-W".(0)| 00000A00: 50 24 C7 28 31 29 C7 28 31 38 29 00 11 12 16 0D |P$.(1).(18).....| 00000A10: 8E 00 2D 12 20 0D 98 31 35 2C 22 4D 2D 57 22 C7 |..-. ..15,"M-W".| 00000A20: 28 30 29 50 24 C7 28 31 29 C7 28 30 29 00 33 12 |(0)P$.(1).(0).3.| 00000A30: 2A 0D 8E 00 6D 12 AC 0D 8F 22 14 14 14 14 14 14 |*...m...."......| 00000A40: 14 14 14 8D 90 20 12 20 2A 2A 2A 20 33 2E 20 42 |..... . *** 3. B| 00000A50: 4C 4F 43 4B 20 5A 55 52 55 45 43 4B 53 43 48 52 |LOCK ZURUECKSCHR| 00000A60: 45 49 42 45 4E 20 2A 2A 2A 20 92 8D 9A 00 81 12 |EIBEN *** ......| 00000A70: CA 0D 99 22 20 22 2C 22 42 4C 4F 43 4B 22 2C 2C |..." ","BLOCK",,| 00000A80: 53 00 8D 12 D4 0D 98 32 2C 42 4C 24 3B 00 9F 12 |S......2,BL$;...| 00000A90: DE 0D 98 31 35 2C 22 42 2D 50 22 3B 32 3B 31 00 |...15,"B-P";2;1.| 00000AA0: B4 12 E8 0D 98 31 35 2C 22 55 42 22 3B 32 3B 30 |.....15,"UB";2;0| 00000AB0: 3B 54 3B 53 00 BE 12 F2 0D 8D 34 30 30 30 00 C4 |;T;S......4000..| 00000AC0: 12 FC 0D 8E 00 F3 12 A0 0F 8F 22 14 14 14 14 14 |..........".....| 00000AD0: 14 14 14 14 8D 90 20 12 20 2A 2A 2A 20 46 45 48 |...... . *** FEH| 00000AE0: 4C 45 52 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 20 |LER ROUTINE *** | 00000AF0: 92 8D 9A 00 08 13 BE 0F 84 31 35 2C 4E 52 2C 4B |.........15,NR,K| 00000B00: 54 24 2C 53 50 2C 53 52 00 14 13 C8 0F 8B 4E 52 |T$,SP,SR......NR| 00000B10: B2 30 A7 8E 00 1E 13 D2 0F 99 22 20 11 22 00 3D |.0........" .".=| 00000B20: 13 DC 0F 99 22 12 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........| 00000B30: 44 49 53 4B 20 45 52 52 4F 52 92 11 22 00 4F 13 |DISK ERROR..".O.| 00000B40: E6 0F 99 4E 52 2C 4B 54 24 2C 53 50 2C 53 52 00 |...NR,KT$,SP,SR.| 00000B50: 62 13 F0 0F 85 22 11 57 45 49 54 45 52 20 22 3B |b....".WEITER ";| 00000B60: 57 24 00 70 13 FA 0F 8B 57 24 B2 22 4A 22 A7 8E |W$.p....W$."J"..| 00000B70: 00 7A 13 04 10 89 20 32 35 30 00 8D 13 88 13 9F |.z.... 250......| 00000B80: 31 2C 38 2C 31 35 2C 22 56 22 3A A0 31 00 00 00 |1,8,15,"V":.1...|
..(.... ******************************** .O.... * *. V.... * SORTIERT. DIRECTORY AUF DISK *.. .(.. * AUS 'COMPUTER PERSOENLICH' *.D. 2.. * AUSGABE 22 VOM 17.10.84 *...< .. * AUF SEITE 89 - 100 *...F. . * *.9.P.. ********************************._...." ...........RRRRRRRRRRRRRRRRRRR"... ..".. ........SORTIEREN DIRECTORY"......"..... .........................".V...."....... ... . *** STEUERLEISTE *** ......R..PN$( 143),SE(19),MC$(143)......1000......2000 ......3000.3...." ":.15,"I": 15: 2:."END ":..`.J..".......... . *** UNTERROUTINEN *** ........."........... . *** DATEN E INLESEN *** .........15,8,15,"I":.4000.. ....2,8,2,"#":.4000.F....#2,P$.X.$.P$.G( F(P$).3)......"........... . *** 1. SPUR 18,SEKTOR 0 *** ......L.T.18:S.0.4.V.." .READ:","SPUR",,T".".>.`..1500.Y.J.."... ........ . *** 2. SEKTOREN M.EINTRAGUNGE N *** ......... L1.0.17.....S.SE(SC).... .." ","BLOCK",,S......1500...... L2.0.7. N...EI.L1.8.L2...D.. L3.1.30...N..#2,A$. ..X..L3.4.L3.19.1260......A$."".A$.G(160 ):.1270.*....A$."".A$.G(0).A...PN$(EI).P N$(EI).A$.I....L3.Y....L2.7..1310.K....# 2,A$:.#2,A$.S....L2.~.(..T.0.....2..L1.. .<...E...."........... . *** LESEROUTINE (BYTE 0 + 1) *** .........15,"UA";2;0;T ;S:.4000......"........... . *** 1. BYT E 0 *** ......"..15,"B-P:2,1".1.,..15,"M -R"G(0)P$.=.6..#15,A$.P.@..A$."".A$.G(0) .\.J.T.F(A$)...^.."........... . *** 2. BYTE 1 *** ......R..#2,A$...|..A$."".A$ .G(0).....SC.SC.1:SE(SC).F(A$).D.......P .."........... . *** SORT - ROUTINE *** ....(...."........... . *** 1. BILDEN MA TCH-CODE *** ....7....".SORT:",.E.... S1 .0.EI.Q. .GL$."0".R.*..F(J(PN$(S1),1,1)) .0.GL$."1"...4.MC$(S1).GL$.J(PN$(S1),4,1 6).D(S1). .>..S1.X.H.."........... . *** 2. SORT NACH MATCH-CODE *** ......F.."E INTRAG",,...P.C1.B(211):C2.B(214).1...Z. . S1.0.EI.%....211,C1:.214,C2./....S1.1. C.... S2.EI.S1.1..1.U....J(MC$(S2),1,17) . J(MC$(S2.1),1,17) . . 2500.}....S2... ...S1.......A.D.."........... . *** AUST AUSCH DER INHALTE *** ....Q...TA$.MC$(S2 ).....MC$(S2).MC$(S2.1).....MC$(S2.1).TA $.......:...."........... . *** ZURUECKS CHREIBEN DIRECTORY *** ....O.V.."....... .... . *** 1. BLOCK AUFBEREITEN *** .... X...T.18......"..REPLACE:","SPUR",,T".". ..... W1.0.SC.2.....S.SE(W1.1).J...BL$.G (SE(W1.2)).V.&..W2.0.7...0.W3.W1.8.W2... :.W4.E(J(MC$(W3),19,3))...D.BL$.BL$.PN$( W4).#.N..W2.7..3170.9.X.BL$.BL$.G(0).G(0 ).A.B..W2.K.L..3300.U.V..3500.]....W1.C. ........."........... . *** 1. FOLGESPUR NACH BYTE 0 *** ....U...."........... . *** 2. FOLGESPUR NACH BYTE 0 *** ...... ... SE(W1.2).255. 3360......15,"M-W"G(0) P$G(1)G(18).......-. ..15,"M-W"G(0)P$G(1 )G(0).3.*...M...."........... . *** 3. B LOCK ZURUECKSCHREIBEN *** ......J.." "," BLOCK",,S...T..2,BL$;......15,"B-P";2;1. .....15,"UB";2;0;T;S......4000.D....... .."........... . *** FEHLER ROUTINE *** .........15,NR,KT$,SP,SR...H..NR.0.....R .." .".=...."...........DISK ERROR..".O. ...NR,KT$,SP,SR.B....".WEITER ";W$.P.... W$."J"...Z.... 250......1,8,15,"V": 1...
> CLICK IMAGE PREVIEW FOR FULL MODAL