SORTEERPROG.
FILE INFORMATION
FILENAME(S): SORTEERPROG.
FILE TYPE(S): PRG
FILE SIZE: 948b
FIRST SEEN: 2025-11-30 21:05:35
APPEARS ON: 1 disk(s)
FILE HASH
76bdc8b3347e2e92ef36c137ed1045d946a348463c0f7192354a032a2b9b0691
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPIEER PRG | SORTEERPROG. | PRG | DuncanTwain | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 41 08 01 00 8F 20 44 49 54 20 50 52 4F 47 |..A.... DIT PROG| 00000010: 52 41 4D 4D 41 20 50 52 49 4E 54 20 45 45 4E 20 |RAMMA PRINT EEN | 00000020: 47 45 53 4F 52 54 45 45 52 44 45 20 4C 49 4A 53 |GESORTEERDE LIJS| 00000030: 54 20 56 41 4E 20 49 4E 50 55 54 53 20 55 49 54 |T VAN INPUTS UIT| 00000040: 22 00 63 08 02 00 86 20 4C 28 31 30 30 29 2C 52 |".c.... L(100),R| 00000050: 28 31 30 30 29 2C 53 28 31 30 30 29 2C 42 28 31 |(100),S(100),B(1| 00000060: 30 30 29 00 7A 08 05 00 8F 20 51 57 45 52 54 59 |00).z.... QWERTY| 00000070: 49 53 20 44 45 20 46 4C 41 47 00 88 08 08 00 86 |IS DE FLAG......| 00000080: 20 41 24 28 31 30 30 29 00 9C 08 09 00 85 22 46 | A$(100)......"F| 00000090: 49 4C 45 2D 4E 41 4D 45 22 3B 41 24 00 CE 08 0A |ILE-NAME";A$....| 000000A0: 00 99 20 22 93 12 C4 49 54 20 50 52 4F 47 52 41 |.. "...IT PROGRA| 000000B0: 4D 4D 41 20 53 4F 52 54 45 45 52 54 20 45 4E 20 |MMA SORTEERT EN | 000000C0: 50 52 49 4E 54 20 45 45 4E 20 20 20 20 22 00 FE |PRINT EEN "..| 000000D0: 08 0B 00 99 22 12 4C 49 4A 53 54 20 55 49 54 2C |....".LIJST UIT,| 000000E0: 20 57 45 4C 4B 45 20 48 49 45 52 4E 41 20 49 4E | WELKE HIERNA IN| 000000F0: 47 45 56 4F 45 52 44 20 4B 41 4E 20 20 22 00 2E |GEVOERD KAN "..| 00000100: 09 0C 00 99 22 12 57 4F 52 44 45 4E 3A 20 20 20 |....".WORDEN: | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 3E | ".>| 00000130: 09 0D 00 99 20 C7 28 39 29 C7 28 31 34 29 00 6E |.... .(9).(14).n| 00000140: 09 0E 00 99 20 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.... "..........| 00000150: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000160: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 74 |.............".t| 00000170: 09 0F 00 99 00 7A 09 10 00 99 00 8A 09 13 00 81 |.....z..........| 00000180: 20 4B B2 31 20 A4 20 31 30 30 00 A1 09 14 00 99 | K.1 . 100......| 00000190: 20 22 C9 CE D0 D5 D4 22 3B 4B 3A 85 41 24 28 4B | ".....";K:.A$(K| 000001A0: 29 00 BA 09 19 00 8B 20 C3 28 41 24 28 4B 29 29 |)...... .(A$(K))| 000001B0: B1 33 35 20 A7 20 89 20 32 30 00 D3 09 1E 00 8B |.35 . . 20......| 000001C0: 41 24 28 4B 29 B2 22 51 57 45 52 54 59 22 20 A7 |A$(K)."QWERTY" .| 000001D0: 20 37 30 00 DF 09 28 00 99 20 41 24 28 4B 29 00 | 70...(.. A$(K).| 000001E0: E7 09 32 00 82 20 4B 00 0C 0A 3C 00 8F 20 4E 20 |..2.. K...<.. N | 000001F0: 49 53 20 41 41 4E 54 41 4C 20 49 4E 47 45 4C 45 |IS AANTAL INGELE| 00000200: 5A 45 4D 20 47 45 54 41 4C 4C 45 4E 00 2D 0A 46 |ZEM GETALLEN.-.F| 00000210: 00 99 20 22 C5 56 45 4E 20 47 45 44 55 4C 44 20 |.. ".VEN GEDULD | 00000220: C1 2E D5 2E C2 2E 22 3A 4E B2 4B AB 31 00 3D 0A |......":N.K.1.=.| 00000230: 50 00 81 20 49 B2 31 20 A4 20 4E AB 31 00 4D 0A |P.. I.1 . N.1.M.| 00000240: 5A 00 81 20 4A B2 49 AA 31 20 A4 20 4E 00 66 0A |Z.. J.I.1 . N.f.| 00000250: 64 00 8B 20 41 24 28 49 29 B1 41 24 28 4A 29 A7 |d.. A$(I).A$(J).| 00000260: 20 8D 20 32 30 30 00 6E 0A 6E 00 82 20 4A 00 76 | . 200.n.n.. J.v| 00000270: 0A 78 00 82 20 49 00 80 0A B4 00 89 20 32 35 30 |.x.. I...... 250| 00000280: 00 99 0A BE 00 8F 20 56 45 52 57 49 53 53 45 4C |...... VERWISSEL| 00000290: 50 52 4F 43 45 44 55 52 45 00 A6 0A C8 00 58 24 |PROCEDURE.....X$| 000002A0: B2 41 24 28 49 29 00 B6 0A DC 00 41 24 28 49 29 |.A$(I).....A$(I)| 000002B0: B2 41 24 28 4A 29 00 C3 0A E6 00 41 24 28 4A 29 |.A$(J).....A$(J)| 000002C0: B2 58 24 00 C9 0A F0 00 8E 00 D5 0A F5 00 4D 52 |.X$...........MR| 000002D0: B2 4D 4C AA 31 00 E6 0A FA 00 4D 4C B2 B5 28 4E |.ML.1.....ML..(N| 000002E0: AD 32 AA 2E 35 29 00 F5 0A 04 01 81 20 4C B2 31 |.2..5)...... L.1| 000002F0: 20 A4 20 4D 4C 00 14 0B 0E 01 42 28 4C 29 B2 C3 | . ML.....B(L)..| 00000300: 28 41 24 28 4C 29 29 3A 53 28 4C 29 B2 33 35 AB |(A$(L)):S(L).35.| 00000310: 42 28 4C 29 00 1B 0B 22 01 82 4C 00 27 0B 27 01 |B(L)..."..L.'.'.| 00000320: 9F 20 31 2C 34 2C 37 00 35 0B 28 01 98 31 2C C7 |. 1,4,7.5.(..1,.| 00000330: 28 31 34 29 3B 00 49 0B 29 01 98 31 2C C7 28 31 |(14);.I.)..1,.(1| 00000340: 36 29 22 31 35 22 3B 41 24 00 50 0B 2A 01 98 31 |6)"15";A$.P.*..1| 00000350: 00 57 0B 2B 01 98 31 00 62 0B 2C 01 52 B2 31 AA |.W.+..1.b.,.R.1.| 00000360: 4D 4C 00 71 0B 36 01 81 20 4C B2 31 20 A4 20 4D |ML.q.6.. L.1 . M| 00000370: 4C 00 94 0B 40 01 98 31 2C C7 28 31 35 29 41 24 |L...@..1,.(15)A$| 00000380: 28 4C 29 3B A6 53 28 4C 29 29 3B A6 35 29 3B 41 |(L);.S(L));.5);A| 00000390: 24 28 52 29 00 9B 0B 4A 01 98 31 00 A8 0B 54 01 |$(R)...J..1...T.| 000003A0: 52 B2 52 AA 31 3A 82 4C 00 AE 0B 5E 01 80 00 00 |R.R.1:.L...^....| 000003B0: 00 C6 0D 20 |... |
..A.... DIT PROGRAMMA PRINT EEN GESORTEE
RDE LIJST VAN INPUTS UIT".C.... L(100),R
(100),S(100),B(100).Z.... QWERTYIS DE FL
AG...... A$(100)......"FILE-NAME";A$.N..
.. "..DIT PROGRAMMA SORTEERT EN PRINT EE
N "......".LIJST UIT, WELKE HIERNA IN
GEVOERD KAN "......".WORDEN:
".>.... G(9)G(14).N
.... "..................................
.....".T.....Z.......... K.1 . 100......
"INPUT";K:.A$(K)...... C(A$(K)).35 . .
20.S....A$(K)."QWERTY" . 70...(.. A$(K).
..2.. K...<.. N IS AANTAL INGELEZEM GETA
LLEN.-.F.. "EVEN GEDULD A.U.B.":N.K.1.=.
P.. I.1 . N.1.M.Z.. J.I.1 . N.F.D.. A$(I
).A$(J). . 200.N.N.. J.V.X.. I...... 250
...... VERWISSELPROCEDURE...H.X$.A$(I)..
...A$(I).A$(J).C...A$(J).X$.I.....U...MR
.ML.1.....ML..(N.2..5)...... L.1 . ML...
..B(L).C(A$(L)):S(L).35.B(L)..."..L.'.'.
. 1,4,7.5.(..1,G(14);.I.)..1,G(16)"15";A
$.P.*..1.W.+..1.B.,.R.1.ML.Q.6.. L.1 . M
L...@..1,G(15)A$(L);.S(L));.5);A$(R)...J
..1...T.R.R.1:.L...^.....F.
> CLICK IMAGE PREVIEW FOR FULL MODAL