ALFASORT
FILE INFORMATION
FILENAME(S): ALFASORT
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:11:18
APPEARS ON: 1 disk(s)
FILE HASH
49124eda699a82d2ddb2bedbf311fa9f025b2070ff641d99bf1982f7f458c937
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIVERSEN 1 | ALFASORT | PRG | DuncanTwain | 3 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 16 1C 0A 00 8F 20 53 4F 52 54 45 45 52 44 |....... SORTEERD|
00000010: 45 52 2D 31 32 38 00 4F 1C 0B 00 8F 20 2D 2D 2D |ER-128.O.... ---|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00000050: 88 1C 0F 00 8F 20 45 45 4E 48 45 44 45 4E 20 4C |..... EENHEDEN L|
00000060: 4F 50 45 4E 20 44 4F 4F 52 20 42 49 4A 20 45 45 |OPEN DOOR BIJ EE|
00000070: 4E 20 41 41 4E 54 41 4C 20 56 41 4E 20 4D 45 45 |N AANTAL VAN MEE|
00000080: 52 20 44 41 4E 20 32 30 00 BC 1C 10 00 8F 20 50 |R DAN 20...... P|
00000090: 52 4F 47 52 41 4D 4D 41 20 57 45 52 4B 54 20 41 |ROGRAMMA WERKT A|
000000A0: 4C 4C 45 45 4E 20 42 49 4A 20 4D 41 58 2E 20 31 |LLEEN BIJ MAX. 1|
000000B0: 20 58 20 54 4F 45 56 4F 45 47 45 4E 00 F5 1C 12 | X TOEVOEGEN....|
000000C0: 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000F0: 2D 2D 2D 2D 2D 00 FC 1C 13 00 FE 25 00 2B 1D 14 |-----......%.+..|
00000100: 00 99 22 93 12 99 20 20 20 20 41 20 4C 20 46 20 |.."... A L F |
00000110: 41 20 53 20 4F 20 52 20 54 20 2D 20 31 20 32 20 |A S O R T - 1 2 |
00000120: 38 20 20 20 20 92 22 3A 99 3A 99 00 37 1D 16 00 |8 .":.:..7...|
00000130: 99 3A 99 3A 99 3A 99 00 56 1D 18 00 99 22 05 4B |.:.:.:..V....".K|
00000140: 49 45 53 3A 20 20 9B 20 31 29 20 53 4F 52 54 45 |IES: . 1) SORTE|
00000150: 52 45 4E 22 3A 99 00 79 1D 1A 00 99 22 20 20 20 |REN":..y...." |
00000160: 20 20 20 20 20 32 29 20 54 4F 45 56 4F 45 47 45 | 2) TOEVOEGE|
00000170: 4E 20 5B 20 31 58 20 5D 22 00 98 1D 1B 00 99 3A |N [ 1X ]"......:|
00000180: 99 22 20 20 20 20 20 20 20 20 33 29 20 46 49 4C |." 3) FIL|
00000190: 45 20 4C 41 44 45 4E 22 00 A2 1D 1C 00 A1 F9 20 |E LADEN"....... |
000001A0: 58 24 00 DB 1D 1E 00 8B 20 58 24 B2 22 31 22 20 |X$...... X$."1" |
000001B0: A7 20 99 22 93 12 99 20 20 20 20 41 20 4C 20 46 |. ."... A L F|
000001C0: 20 41 20 53 20 4F 20 52 20 54 20 2D 20 31 20 32 | A S O R T - 1 2|
000001D0: 20 38 20 20 20 20 92 9B 22 3A 99 00 F5 1D 20 00 | 8 ..":.... .|
000001E0: 8B 20 58 24 B2 22 32 22 20 A7 20 99 22 93 22 3A |. X$."2" . .".":|
000001F0: 89 20 38 30 30 00 08 1E 21 00 8B 20 58 24 B2 22 |. 800...!.. X$."|
00000200: 33 22 20 A7 20 36 35 30 00 28 1E 22 00 85 22 54 |3" . 650.(.".."T|
00000210: 45 20 53 4F 52 54 45 52 45 4E 20 41 41 4E 54 41 |E SORTEREN AANTA|
00000220: 4C 20 9F 22 3B 4D 41 58 00 36 1E 23 00 86 20 41 |L .";MAX.6.#.. A|
00000230: 24 28 31 30 30 29 00 4C 1E 28 00 86 20 4C 47 28 |$(100).L.(.. LG(|
00000240: 31 30 30 29 2C 52 47 28 31 30 30 29 00 52 1E 32 |100),RG(100).R.2|
00000250: 00 99 00 6C 1E 3C 00 81 20 49 B2 31 20 A4 20 4D |...l.<.. I.1 . M|
00000260: 41 58 3A 85 20 41 24 28 49 29 3A 82 00 76 1E 46 |AX:. A$(I):..v.F|
00000270: 00 8D 20 35 30 30 00 A1 1E 47 00 99 22 93 12 99 |.. 500...G.."...|
00000280: 20 20 41 20 4C 20 46 20 41 20 53 20 4F 20 52 20 | A L F A S O R |
00000290: 54 20 2D 20 31 20 32 20 38 20 20 92 22 3A 99 3A |T - 1 2 8 .":.:|
000002A0: 99 00 E0 1E 48 00 99 22 05 4B 49 45 53 3A 9B 20 |....H..".KIES:. |
000002B0: 20 20 20 31 29 20 20 4C 45 4E 47 54 45 20 57 4F | 1) LENGTE WO|
000002C0: 4F 52 44 20 4D 41 58 2E 20 32 30 20 4B 41 52 2E |ORD MAX. 20 KAR.|
000002D0: 20 28 4E 41 41 53 54 20 45 4C 4B 41 41 52 29 22 | (NAAST ELKAAR)"|
000002E0: 00 17 1F 49 00 99 3A 99 22 20 20 20 20 20 20 20 |...I..:." |
000002F0: 20 20 32 29 20 20 4D 45 45 52 20 44 41 4E 20 32 | 2) MEER DAN 2|
00000300: 30 20 4B 41 52 2E 20 28 20 4F 4E 44 45 52 20 45 |0 KAR. ( ONDER E|
00000310: 4C 4B 41 41 52 29 22 00 21 1F 4A 00 A1 F9 20 4B |LKAAR)".!.J... K|
00000320: 24 00 2B 1F 4B 00 99 22 93 9F 22 00 3D 1F 4D 00 |$.+.K.."..".=.M.|
00000330: 8B 20 4B 24 B2 22 31 22 20 A7 20 38 30 00 4F 1F |. K$."1" . 80.O.|
00000340: 4E 00 8B 20 4B 24 B2 22 32 22 20 A7 20 38 32 00 |N.. K$."2" . 82.|
00000350: 6A 1F 50 00 81 20 49 B2 31 20 A4 20 4D 41 58 3A |j.P.. I.1 . MAX:|
00000360: 99 20 41 24 28 49 29 2C 3A 82 00 73 1F 51 00 89 |. A$(I),:..s.Q..|
00000370: 20 39 30 00 8D 1F 52 00 81 20 49 B2 31 20 A4 20 | 90...R.. I.1 . |
00000380: 4D 41 58 3A 99 20 41 24 28 49 29 3A 82 00 94 1F |MAX:. A$(I):....|
00000390: 55 00 FE 26 00 AA 1F 5A 00 99 3A 99 3A 99 22 9B |U..&...Z..:.:.".|
000003A0: 3C 20 54 4F 45 54 53 20 3E 22 00 B4 1F 5F 00 A1 |< TOETS >"..._..|
000003B0: F9 20 58 24 00 E3 1F 62 00 99 22 93 12 99 20 20 |. X$...b.."... |
000003C0: 20 20 41 20 4C 20 46 20 41 20 53 20 4F 20 52 20 | A L F A S O R |
000003D0: 54 20 2D 20 31 20 32 20 38 20 20 20 20 92 22 3A |T - 1 2 8 .":|
000003E0: 99 3A 99 00 08 20 64 00 99 22 05 4B 49 45 53 3A |.:... d..".KIES:|
000003F0: 20 9B 20 20 20 31 29 20 4F 50 4E 49 45 55 57 20 | . 1) OPNIEUW |
00000400: 54 4F 4E 45 4E 22 3A 99 00 25 20 66 00 99 22 20 |TONEN":..% f.." |
00000410: 20 20 20 20 20 20 20 20 32 29 20 50 52 49 4E 54 | 2) PRINT|
00000420: 45 4E 22 3A 99 00 40 20 67 00 99 22 20 20 20 20 |EN":..@ g.." |
00000430: 20 20 20 20 20 33 29 20 53 41 56 45 4E 22 3A 99 | 3) SAVEN":.|
00000440: 00 5B 20 68 00 99 22 20 20 20 20 20 20 20 20 20 |.[ h.." |
00000450: 34 29 20 4C 41 44 45 4E 22 3A 99 00 85 20 69 00 |4) LADEN":... i.|
00000460: 99 22 20 20 20 20 20 20 20 20 20 35 29 20 4E 49 |." 5) NI|
00000470: 45 55 57 45 20 52 45 45 4B 53 20 56 41 4E 22 3B |EUWE REEKS VAN";|
00000480: 4D 41 58 3A 99 00 A4 20 6A 00 99 22 20 20 20 20 |MAX:... j.." |
00000490: 20 20 20 20 20 36 29 20 44 49 52 45 43 54 4F 52 | 6) DIRECTOR|
000004A0: 59 22 3A 99 00 C0 20 6B 00 99 22 20 20 20 20 20 |Y":... k.." |
000004B0: 20 20 20 20 37 29 96 20 45 49 4E 44 45 20 9B 22 | 7). EINDE ."|
000004C0: 00 CA 20 6D 00 A1 F9 20 4E 24 00 E3 20 6E 00 8B |.. m... N$.. n..|
000004D0: 20 4E 24 B2 22 31 22 20 A7 20 99 22 93 22 3A 89 | N$."1" . .".":.|
000004E0: 20 37 32 00 F6 20 6F 00 8B 20 4E 24 B2 22 32 22 | 72.. o.. N$."2"|
000004F0: 20 A7 20 33 30 30 00 0B 21 70 00 8B 20 4E 24 B2 | . 300..!p.. N$.|
00000500: 22 33 22 20 A7 20 89 20 36 30 30 00 20 21 72 00 |"3" . . 600. !r.|
00000510: 8B 20 4E 24 B2 22 34 22 20 A7 20 89 20 36 35 30 |. N$."4" . . 650|
00000520: 00 3A 21 74 00 8B 20 4E 24 B2 22 35 22 20 A7 20 |.:!t.. N$."5" . |
00000530: 99 22 93 9F 22 3A 89 20 36 30 00 55 21 75 00 8B |."..":. 60.U!u..|
00000540: 20 4E 24 B2 22 36 22 20 A7 20 99 22 93 22 3A 89 | N$."6" . .".":.|
00000550: 20 31 30 30 30 00 66 21 76 00 8B 20 4E 24 B2 22 | 1000.f!v.. N$."|
00000560: 37 22 20 A7 20 80 00 70 21 78 00 A1 F9 20 4E 24 |7" . ..p!x... N$|
00000570: 00 77 21 7D 00 FE 26 00 7D 21 82 00 80 00 91 21 |.w!}..&.}!.....!|
00000580: 2B 01 8F 20 50 52 49 4E 54 2D 52 4F 55 54 49 4E |+.. PRINT-ROUTIN|
00000590: 45 00 9D 21 2C 01 9F 20 31 2C 34 2C 37 00 A6 21 |E..!,.. 1,4,7..!|
000005A0: 2D 01 99 22 93 22 00 D1 21 2E 01 99 22 05 4B 49 |-.."."..!...".KI|
000005B0: 45 53 3A 20 20 9B 20 31 29 20 4F 4E 44 45 52 20 |ES: . 1) ONDER |
000005C0: 45 4C 4B 41 41 52 20 50 52 49 4E 54 45 4E 22 3A |ELKAAR PRINTEN":|
000005D0: 99 00 FA 21 30 01 99 22 20 20 20 20 20 20 20 20 |...!0.." |
000005E0: 32 29 20 4E 41 41 53 54 20 45 4C 4B 41 41 52 20 |2) NAAST ELKAAR |
000005F0: 50 52 49 4E 54 45 4E 22 3A 99 00 04 22 32 01 A1 |PRINTEN":..."2..|
00000600: F9 20 43 24 00 17 22 33 01 8B 20 43 24 B2 22 31 |. C$.."3.. C$."1|
00000610: 22 20 A7 20 33 32 30 00 2A 22 34 01 8B 20 43 24 |" . 320.*"4.. C$|
00000620: B2 22 32 22 20 A7 20 33 33 30 00 30 22 36 01 8F |."2" . 330.0"6..|
00000630: 00 51 22 40 01 81 20 49 B2 31 20 A4 20 4D 41 58 |.Q"@.. I.1 . MAX|
00000640: 3A 98 31 2C 41 24 28 49 29 3A 82 3A 89 20 33 33 |:.1,A$(I):.:. 33|
00000650: 35 00 6D 22 4A 01 81 20 49 B2 31 20 A4 20 4D 41 |5.m"J.. I.1 . MA|
00000660: 58 3A 98 31 2C 41 24 28 49 29 2C 3A 82 00 74 22 |X:.1,A$(I),:..t"|
00000670: 4F 01 98 31 00 7C 22 54 01 A0 20 31 00 85 22 5E |O..1.|"T.. 1.."^|
00000680: 01 89 20 39 35 00 A6 22 F3 01 8F 20 45 49 47 45 |.. 95.."... EIGE|
00000690: 4E 4C 49 4A 4B 45 20 53 4F 52 54 45 45 52 2D 52 |NLIJKE SORTEER-R|
000006A0: 4F 55 54 49 4E 45 00 D2 22 F4 01 53 B2 31 3A 4C |OUTINE.."..S.1:L|
000006B0: 47 28 31 29 B2 31 3A 52 47 28 31 29 B2 4D 41 58 |G(1).1:RG(1).MAX|
000006C0: 3A EB 3A 8D 20 35 30 31 3A EC 20 FC 20 53 B2 30 |:.:. 501:. . S.0|
000006D0: 3A 8E 00 FF 22 F5 01 4C B2 4C 47 28 53 29 3A 52 |:..."..L.LG(S):R|
000006E0: B2 52 47 28 53 29 3A 53 B2 53 AB 31 3A EB 3A 8D |.RG(S):S.S.1:.:.|
000006F0: 20 35 30 32 3A EC 20 FC 20 4C B1 B2 52 3A 8E 00 | 502:. . L..R:..|
00000700: 4B 23 F6 01 49 B2 4C 3A 4A B2 52 3A 4D B2 28 4C |K#..I.L:J.R:M.(L|
00000710: AA 52 29 AD 32 3A 58 24 B2 41 24 28 4D 29 3A EB |.R).2:X$.A$(M):.|
00000720: 3A 8D 20 35 30 34 3A EC 20 FC 20 49 B1 4A 3A 8B |:. 504:. . I.J:.|
00000730: 49 B3 52 20 A7 20 53 B2 53 AA 31 3A 4C 47 28 53 |I.R . S.S.1:LG(S|
00000740: 29 B2 49 3A 52 47 28 53 29 B2 52 00 55 23 F7 01 |).I:RG(S).R.U#..|
00000750: 52 B2 4A 3A 8E 00 85 23 F8 01 EB 20 FC 20 41 24 |R.J:...#... . A$|
00000760: 28 49 29 B1 B2 58 24 3A 49 B2 49 AA 31 3A EC 3A |(I)..X$:I.I.1:.:|
00000770: EB 20 FC 20 41 24 28 4A 29 B3 B2 58 24 3A 4A B2 |. . A$(J)..X$:J.|
00000780: 4A AB 31 3A EC 00 BC 23 F9 01 8B 20 49 B3 B2 4A |J.1:...#... I..J|
00000790: 20 A7 20 57 24 B2 41 24 28 49 29 3A 41 24 28 49 | . W$.A$(I):A$(I|
000007A0: 29 B2 41 24 28 4A 29 3A 41 24 28 4A 29 B2 57 24 |).A$(J):A$(J).W$|
000007B0: 3A 49 B2 49 AA 31 3A 4A B2 4A AB 31 00 C2 23 FA |:I.I.1:J.J.1..#.|
000007C0: 01 8E 00 CE 23 58 02 8F 20 53 41 56 45 4E 00 E0 |....#X.. SAVEN..|
000007D0: 23 59 02 99 22 93 53 41 56 45 4E 20 2D 20 22 3B |#Y..".SAVEN - ";|
000007E0: 00 FD 23 5A 02 85 22 4E 41 41 4D 20 56 41 4E 20 |..#Z.."NAAM VAN |
000007F0: 44 45 20 46 49 4C 45 20 9F 22 3B 46 24 00 17 24 |DE FILE .";F$..$|
00000800: 5D 02 9F 20 31 2C 38 2C 33 2C 22 30 3A 22 AA 46 |].. 1,8,3,"0:".F|
00000810: 24 AA 22 2C 53 2C 57 00 22 24 5E 02 98 31 2C 4D |$.",S,W."$^..1,M|
00000820: 41 58 00 32 24 5F 02 81 20 49 B2 31 20 A4 20 4D |AX.2$_.. I.1 . M|
00000830: 41 58 00 3F 24 60 02 98 31 2C 41 24 28 49 29 00 |AX.?$`..1,A$(I).|
00000840: 45 24 62 02 82 00 4D 24 64 02 A0 20 31 00 56 24 |E$b...M$d.. 1.V$|
00000850: 67 02 89 20 39 35 00 62 24 8A 02 8F 20 4C 41 44 |g.. 95.b$... LAD|
00000860: 45 4E 00 74 24 8B 02 99 22 93 4C 41 44 45 4E 20 |EN.t$...".LADEN |
00000870: 2D 20 22 3B 00 91 24 8C 02 85 22 4E 41 41 4D 20 |- ";..$..."NAAM |
00000880: 56 41 4E 20 44 45 20 46 49 4C 45 20 9F 22 3B 46 |VAN DE FILE .";F|
00000890: 24 00 AB 24 8F 02 9F 20 31 2C 38 2C 33 2C 22 30 |$..$... 1,8,3,"0|
000008A0: 3A 22 AA 46 24 AA 22 2C 53 2C 52 00 B6 24 90 02 |:".F$.",S,R..$..|
000008B0: 84 31 2C 4D 41 58 00 C6 24 91 02 81 20 49 B2 31 |.1,MAX..$... I.1|
000008C0: 20 A4 20 4D 41 58 00 D3 24 92 02 84 31 2C 41 24 | . MAX..$...1,A$|
000008D0: 28 49 29 00 D9 24 94 02 82 00 E1 24 96 02 A0 20 |(I)..$.....$... |
000008E0: 31 00 EA 24 99 02 89 20 39 35 00 FA 24 20 03 8F |1..$... 95..$ ..|
000008F0: 20 54 4F 45 56 4F 45 47 45 4E 00 1B 25 2A 03 85 | TOEVOEGEN..%*..|
00000900: 22 4E 41 41 4D 20 56 41 4E 20 42 41 53 49 53 2D |"NAAM VAN BASIS-|
00000910: 46 49 4C 45 20 9F 22 3B 46 31 24 00 36 25 2F 03 |FILE .";F1$.6%/.|
00000920: 9F 20 32 2C 38 2C 33 2C 22 30 3A 22 AA 46 31 24 |. 2,8,3,"0:".F1$|
00000930: AA 22 2C 53 2C 52 00 3F 25 30 03 99 22 9F 22 00 |.",S,R.?%0..".".|
00000940: 4A 25 34 03 84 32 2C 4D 41 58 00 5A 25 39 03 81 |J%4..2,MAX.Z%9..|
00000950: 20 49 B2 31 20 A4 20 4D 41 58 00 67 25 3E 03 84 | I.1 . MAX.g%>..|
00000960: 32 2C 41 24 28 49 29 00 6D 25 43 03 82 00 75 25 |2,A$(I).m%C...u%|
00000970: 48 03 A0 20 32 00 7E 25 4D 03 99 22 9B 22 00 A0 |H.. 2.~%M.."."..|
00000980: 25 5C 03 85 22 41 41 4E 54 41 4C 20 54 4F 45 56 |%\.."AANTAL TOEV|
00000990: 4F 45 47 49 4E 47 45 4E 20 9F 22 3B 4D 41 58 41 |OEGINGEN .";MAXA|
000009A0: 00 B7 25 5D 03 4E B2 4D 41 58 AA 31 3A 50 B2 4D |..%].N.MAX.1:P.M|
000009B0: 41 58 AA 4D 41 58 41 00 C5 25 5E 03 81 20 49 B2 |AX.MAXA..%^.. I.|
000009C0: 4E 20 A4 20 50 00 CB 25 5F 03 99 00 D7 25 61 03 |N . P..%_....%a.|
000009D0: 85 20 41 24 28 49 29 00 DD 25 66 03 82 00 ED 25 |. A$(I)..%f....%|
000009E0: 84 03 4D 41 58 B2 50 3A 50 B2 4D 41 58 00 F7 25 |..MAX.P:P.MAX..%|
000009F0: 8E 03 8D 20 35 30 30 00 00 26 93 03 99 22 9B 22 |... 500..&..."."|
00000A00: 00 21 26 98 03 85 22 4E 41 41 4D 20 4E 49 45 55 |.!&..."NAAM NIEU|
00000A10: 57 45 20 46 49 4C 45 20 20 20 20 9F 22 3B 46 32 |WE FILE .";F2|
00000A20: 24 00 3C 26 9D 03 9F 20 33 2C 38 2C 33 2C 22 30 |$.<&... 3,8,3,"0|
00000A30: 3A 22 AA 46 32 24 AA 22 2C 53 2C 57 00 47 26 A2 |:".F2$.",S,W.G&.|
00000A40: 03 98 33 2C 4D 41 58 00 57 26 A7 03 81 20 49 B2 |..3,MAX.W&... I.|
00000A50: 31 20 A4 20 4D 41 58 00 64 26 AC 03 98 33 2C 41 |1 . MAX.d&...3,A|
00000A60: 24 28 49 29 00 6A 26 B6 03 82 00 72 26 C0 03 A0 |$(I).j&....r&...|
00000A70: 20 33 00 7B 26 CA 03 89 20 39 35 00 8B 26 E8 03 | 3.{&... 95..&..|
00000A80: 8F 20 44 49 52 45 43 54 4F 52 59 00 B1 26 EA 03 |. DIRECTORY..&..|
00000A90: 99 22 99 44 49 52 45 43 54 4F 52 59 3A 22 3A 99 |.".DIRECTORY:":.|
00000AA0: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 9B 22 3A 99 3A |"----------.":.:|
00000AB0: 99 00 B7 26 F2 03 EE 00 C3 26 F4 03 99 3A 99 3A |...&.....&...:.:|
00000AC0: 99 3A 99 00 D6 26 F7 03 99 22 05 3C 20 54 4F 45 |.:...&...".< TOE|
00000AD0: 54 53 20 3E 9B 22 00 E0 26 FC 03 A1 F9 20 58 24 |TS >."..&.... X$|
00000AE0: 00 E9 26 06 04 89 20 39 35 00 00 00 |..&... 95... |
....... SORTEERDER-128.O.... -----------
---------------------------------------.
..... EENHEDEN LOPEN DOOR BIJ EEN AANTAL
VAN MEER DAN 20...... PROGRAMMA WERKT A
LLEEN BIJ MAX. 1 X TOEVOEGEN...... -----
----------------------------------------
-----......%.+...."... A L F A S O R
T - 1 2 8 .":.:..7....:.:.:..V....".K
IES: . 1) SORTEREN":..Y...." 2)
TOEVOEGEN [ 1X ]"......:." 3) FIL
E LADEN"....... X$...... X$."1" . ."...
A L F A S O R T - 1 2 8 ..":.... .
. X$."2" . .".":. 800...!.. X$."3" . 650
.(.".."TE SORTEREN AANTAL .";MAX.6.#.. A
$(100).L.(.. LG(100),RG(100).R.2...L.<..
I.1 . MAX:. A$(I):..V.F.. 500...G.."...
A L F A S O R T - 1 2 8 .":.:....H.."
.KIES:. 1) LENGTE WOORD MAX. 20 KAR.
(NAAST ELKAAR)"...I..:." 2) ME
ER DAN 20 KAR. ( ONDER ELKAAR)".!.J... K
$.+.K.."..".=.M.. K$."1" . 80.O.N.. K$."
2" . 82.J.P.. I.1 . MAX:. A$(I),:..S.Q..
90...R.. I.1 . MAX:. A$(I):....U..&...Z
..:.:.".< TOETS >"..._... X$...B.."...
A L F A S O R T - 1 2 8 .":.:... D.
.".KIES: . 1) OPNIEUW TONEN":..% F.."
2) PRINTEN":..@ G.." 3)
SAVEN":..[ H.." 4) LADEN":... I.
." 5) NIEUWE REEKS VAN";MAX:...
J.." 6) DIRECTORY":... K.."
7). EINDE .".J M... N$.. N.. N$."1"
. .".":. 72.. O.. N$."2" . 300..!P.. N$.
"3" . . 600. !R.. N$."4" . . 650.:!T.. N
$."5" . ."..":. 60.U!U.. N$."6" . .".":.
1000.F!V.. N$."7" . ..P!X... N$.W!}..&.
}!.....!+.. PRINT-ROUTINE..!,.. 1,4,7..!
-..".".Q!...".KIES: . 1) ONDER ELKAAR P
RINTEN":...!0.." 2) NAAST ELKAAR
PRINTEN":..."2... C$.."3.. C$."1" . 320.
*"4.. C$."2" . 330.0"6...Q"@.. I.1 . MAX
:.1,A$(I):.:. 335.M"J.. I.1 . MAX:.1,A$(
I),:..T"O..1.|"T. 1.."^.. 95.."... EIGE
NLIJKE SORTEER-ROUTINE.R"..S.1:LG(1).1:R
G(1).MAX:.:. 501:. . S.0:..."..L.LG(S):R
.RG(S):S.S.1:.:. 502:. . L..R:..K#..I.L:
J.R:M.(L.R).2:X$.A$(M):.:. 504:. . I.J:.
I.R . S.S.1:LG(S).I:RG(S).R.U#..R.J:...#
... . A$(I)..X$:I.I.1:.:. . A$(J)..X$:J.
J.1:...#... I..J . W$.A$(I):A$(I).A$(J):
A$(J).W$:I.I.1:J.J.1.B#....N#X.. SAVEN..
#Y..".SAVEN - ";..#Z.."NAAM VAN DE FILE
.";F$..$].. 1,8,3,"0:".F$.",S,W."$^..1,M
AX.2$_.. I.1 . MAX.?$`..1,A$(I).E$B...M$
D. 1.V$G.. 95.B$... LADEN.T$...".LADEN
- ";..$..."NAAM VAN DE FILE .";F$..$...
1,8,3,"0:".F$.",S,R..$...1,MAX.F$... I.1
. MAX.S$...1,A$(I).Y$.....$.. 1..$...
95..$ .. TOEVOEGEN..%*.."NAAM VAN BASIS-
FILE .";F1$.6%/.. 2,8,3,"0:".F1$.",S,R.?
%0..".".J%4..2,MAX.Z%9.. I.1 . MAX.G%>..
2,A$(I).M%C...U%H. 2.~%M..".". %\.."AAN
TAL TOEVOEGINGEN .";MAXA..%].N.MAX.1:P.M
AX.MAXA.E%^.. I.N . P.K%_...W%A.. A$(I).
.%F....%..MAX.P:P.MAX..%... 500..&..."."
.!&..."NAAM NIEUWE FILE .";F2$.<&...
3,8,3,"0:".F2$.",S,W.G&...3,MAX.W&... I.
1 . MAX.D&...3,A$(I).J&....R&.. 3.{&J..
95..&... DIRECTORY..&...".DIRECTORY:":.
"----------.":.:...&....C&...:.:.:..V&..
.".< TOETS >."..&.... X$..&... 95...
> CLICK IMAGE PREVIEW FOR FULL MODAL