SORTEREN
FILE INFORMATION
FILENAME(S): SORTEREN
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-12-01 02:26:15
APPEARS ON: 1 disk(s)
FILE HASH
22f1197850be9647b82704ddbae7a7e3914620750cc132188026faacec3cf0ff
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HUUB GILLISSEN | SORTEREN | PRG | Shine | 8 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 8D 31 30 30 30 30 3A 8F 49 4E |..'....10000:.IN|
00000010: 4C 45 49 44 49 4E 47 20 26 20 49 4E 49 54 49 41 |LEIDING & INITIA|
00000020: 4C 49 53 45 52 45 4E 00 3E 08 14 00 8D 31 30 30 |LISEREN.>....100|
00000030: 30 3A 8F 20 4B 45 55 5A 45 2D 4D 45 4E 55 00 63 |0:. KEUZE-MENU.c|
00000040: 08 1E 00 91 4B 45 55 5A 45 20 8D 32 30 30 30 2C |....KEUZE .2000,|
00000050: 32 30 30 30 2C 33 30 30 30 2C 34 30 30 30 2C 35 |2000,3000,4000,5|
00000060: 30 30 30 00 6B 08 28 00 89 32 30 00 71 08 32 00 |000.k.(..20.q.2.|
00000070: 80 00 7F 08 E8 03 8F 4B 45 55 5A 45 20 20 20 00 |.......KEUZE .|
00000080: 88 08 F2 03 99 43 4C 24 00 A8 08 FC 03 99 22 D5 |.....CL$......".|
00000090: 20 4B 55 4E 54 20 4B 49 45 5A 45 4E 20 55 49 54 | KUNT KIEZEN UIT|
000000A0: 3A 22 3A 99 3A 99 3A 99 00 CD 08 06 04 99 22 20 |:":.:.:......." |
000000B0: 3C 31 3E 20 2D 2D 3E 20 53 54 52 49 4E 47 53 20 |<1> --> STRINGS |
000000C0: 49 4E 56 4F 45 52 45 4E 22 3A 99 3A 99 00 F3 08 |INVOEREN":.:....|
000000D0: 10 04 99 22 20 3C 32 3E 20 2D 2D 3E 20 47 45 54 |..." <2> --> GET|
000000E0: 41 4C 4C 45 4E 20 49 4E 56 4F 45 52 45 4E 22 3A |ALLEN INVOEREN":|
000000F0: 99 3A 99 00 17 09 1A 04 99 22 20 3C 33 3E 20 2D |.:......." <3> -|
00000100: 2D 3E 20 44 45 20 52 49 4A 20 53 4F 52 54 45 52 |-> DE RIJ SORTER|
00000110: 45 4E 22 3A 99 3A 99 00 3B 09 24 04 99 22 20 3C |EN":.:..;.$.." <|
00000120: 34 3E 20 2D 2D 3E 20 44 45 20 52 49 4A 20 42 45 |4> --> DE RIJ BE|
00000130: 4B 49 4A 4B 45 4E 22 3A 99 3A 99 00 57 09 2E 04 |KIJKEN":.:..W...|
00000140: 99 22 20 3C 35 3E 20 2D 2D 3E 20 53 54 4F 50 50 |." <5> --> STOPP|
00000150: 45 4E 22 3A 99 3A 99 00 7E 09 38 04 99 22 D4 4F |EN":.:..~.8..".O|
00000160: 45 54 53 20 48 45 54 20 47 45 57 45 4E 53 54 45 |ETS HET GEWENSTE|
00000170: 20 4E 55 4D 4D 45 52 20 49 4E 3A 20 22 3B 00 AC | NUMMER IN: ";..|
00000180: 09 42 04 A1 4B 24 3A 4B 45 55 5A 45 B2 C5 28 4B |.B..K$:KEUZE..(K|
00000190: 24 29 3A 8B 4B 45 55 5A 45 B3 31 20 B0 4B 45 55 |$):.KEUZE.1 .KEU|
000001A0: 5A 45 B1 35 20 A7 20 89 31 30 39 30 00 B7 09 4C |ZE.5 . .1090...L|
000001B0: 04 99 4B 45 55 5A 45 00 BD 09 56 04 8E 00 C9 09 |..KEUZE...V.....|
000001C0: D0 07 8F 49 4E 56 4F 45 52 00 D2 09 DA 07 99 43 |...INVOER......C|
000001D0: 4C 24 00 00 0A E4 07 99 22 C7 45 45 46 20 44 45 |L$......".EEF DE|
000001E0: 20 53 54 52 49 4E 47 53 20 4F 46 20 47 45 54 41 | STRINGS OF GETA|
000001F0: 4C 4C 45 4E 20 44 49 45 20 47 45 53 4F 52 2D 22 |LLEN DIE GESOR-"|
00000200: 00 29 0A EE 07 99 22 54 45 45 52 44 20 4D 4F 45 |.)...."TEERD MOE|
00000210: 54 45 4E 20 57 4F 52 44 45 4E 2E 20 C4 52 55 4B |TEN WORDEN. .RUK|
00000220: 20 4E 41 20 45 4C 4B 45 22 00 43 0A F8 07 99 22 | NA ELKE".C...."|
00000230: 49 4E 56 4F 45 52 20 4F 50 20 D2 C5 D4 D5 D2 CE |INVOER OP ......|
00000240: 22 3A 99 00 70 0A 02 08 99 22 C4 52 55 4B 20 4E |":..p....".RUK N|
00000250: 41 20 44 45 20 4C 41 41 54 53 54 45 20 49 4E 56 |A DE LAATSTE INV|
00000260: 4F 45 52 20 4E 4F 47 4D 41 41 4C 53 20 4F 50 22 |OER NOGMAALS OP"|
00000270: 00 9D 0A 0C 08 99 22 D2 C5 D4 D5 D2 CE 20 4F 4D |......"...... OM|
00000280: 20 48 45 54 20 45 49 4E 44 45 20 56 41 4E 20 44 | HET EINDE VAN D|
00000290: 45 20 52 49 4A 20 41 41 4E 20 54 45 22 00 B0 0A |E RIJ AAN TE"...|
000002A0: 11 08 99 22 47 45 56 45 4E 22 3A 99 3A 99 3A 99 |..."GEVEN":.:.:.|
000002B0: 00 BF 0A 16 08 54 59 50 45 B2 4B 45 55 5A 45 00 |.....TYPE.KEUZE.|
000002C0: E5 0A 20 08 49 4E 24 B2 22 53 54 52 49 4E 47 22 |.. .IN$."STRING"|
000002D0: 3A 8B 54 59 50 45 B2 32 20 A7 49 4E 24 B2 22 47 |:.TYPE.2 .IN$."G|
000002E0: 45 54 41 4C 22 00 ED 0A 2A 08 4E B2 30 00 14 0B |ETAL"...*.N.0...|
000002F0: 34 08 99 49 4E 24 3B 4E AA 31 3B 3A 41 24 B2 22 |4..IN$;N.1;:A$."|
00000300: 22 3A 85 41 24 3A 8B 41 24 B2 22 22 20 A7 20 89 |":.A$:.A$."" . .|
00000310: 32 31 32 30 00 36 0B 3E 08 4E B2 4E AA 31 3A 57 |2120.6.>.N.N.1:W|
00000320: 24 28 4E 29 B2 41 24 3A 8B 4E B3 4D 41 58 20 A7 |$(N).A$:.N.MAX .|
00000330: 20 89 32 31 30 30 00 3E 0B 48 08 53 B2 30 00 44 | .2100.>.H.S.0.D|
00000340: 0B 52 08 8E 00 52 0B B8 0B 8F 53 4F 52 54 45 52 |.R...R....SORTER|
00000350: 45 4E 00 6B 0B C2 0B 99 43 4C 24 3B 22 C5 56 45 |EN.k....CL$;".VE|
00000360: 4E 20 47 45 44 55 4C 44 20 22 3B 00 82 0B CC 0B |N GEDULD ";.....|
00000370: 8B 4E B3 32 20 B0 20 53 B2 31 20 A7 20 89 33 30 |.N.2 . S.1 . .30|
00000380: 38 30 00 9C 0B D6 0B 81 49 B2 4E 20 A4 32 20 A9 |80......I.N .2 .|
00000390: AB 31 3A 81 4A B2 31 20 A4 49 AB 31 00 AA 0B E0 |.1:.J.1 .I.1....|
000003A0: 0B 81 4A B2 31 20 A4 49 AB 31 00 BF 0B EA 0B 91 |..J.1 .I.1......|
000003B0: 54 59 50 45 20 8D 33 31 30 30 2C 33 32 30 30 00 |TYPE .3100,3200.|
000003C0: C6 0B F4 0B 82 4A 00 D3 0B FE 0B 99 22 2E 22 3B |.....J......".";|
000003D0: 3A 82 49 00 DB 0B 03 0C 53 B2 31 00 E1 0B 08 0C |:.I.....S.1.....|
000003E0: 8E 00 ED 0B 1C 0C 8F 53 54 52 49 4E 47 00 1F 0C |.......STRING...|
000003F0: 26 0C 8B 57 24 28 4A 29 B1 57 24 28 49 29 20 A7 |&..W$(J).W$(I) .|
00000400: 48 55 24 B2 57 24 28 4A 29 3A 57 24 28 4A 29 B2 |HU$.W$(J):W$(J).|
00000410: 57 24 28 49 29 3A 57 24 28 49 29 B2 48 55 24 00 |W$(I):W$(I).HU$.|
00000420: 25 0C 30 0C 8E 00 33 0C 80 0C 8F 47 45 54 41 4C |%.0...3....GETAL|
00000430: 4C 45 4E 00 6B 0C 8A 0C 8B C5 28 57 24 28 4A 29 |LEN.k.....(W$(J)|
00000440: 29 B1 C5 28 57 24 28 49 29 29 20 A7 48 55 24 B2 |)..(W$(I)) .HU$.|
00000450: 57 24 28 4A 29 3A 57 24 28 4A 29 B2 57 24 28 49 |W$(J):W$(J).W$(I|
00000460: 29 3A 57 24 28 49 29 B2 48 55 24 00 71 0C 94 0C |):W$(I).HU$.q...|
00000470: 8E 00 7E 0C A0 0F 8F 55 49 54 56 4F 45 52 00 87 |..~....UITVOER..|
00000480: 0C AA 0F 99 43 4C 24 00 9D 0C B4 0F 52 B2 30 3A |....CL$.....R.0:|
00000490: 8B 20 4E B2 30 20 A7 20 89 34 30 36 30 00 A9 0C |. N.0 . .4060...|
000004A0: BE 0F 81 49 B2 31 20 A4 4E 00 D6 0C C8 0F 99 49 |...I.1 .N......I|
000004B0: 4E 24 3B 49 3B A3 31 30 29 3B 22 3A 20 22 3B 57 |N$;I;.10);": ";W|
000004C0: 24 28 49 29 3A 52 B2 52 AA 31 3A 8B 52 B2 32 30 |$(I):R.R.1:.R.20|
000004D0: A7 8D 34 31 30 30 00 DD 0C D2 0F 82 49 00 EC 0C |..4100......I...|
000004E0: DC 0F 99 3A 99 22 CB CC C1 C1 D2 22 00 F6 0C E6 |...:."....."....|
000004F0: 0F 8D 34 31 30 30 00 FC 0C F0 0F 8E 00 0E 0D 04 |..4100..........|
00000500: 10 8F 45 49 4E 44 45 20 50 41 47 49 4E 41 00 4B |..EINDE PAGINA.K|
00000510: 0D 0E 10 99 48 24 3B 22 11 11 11 11 11 11 11 11 |....H$;"........|
00000520: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 D4 |................|
00000530: 4F 45 54 53 20 53 50 41 54 49 45 20 56 4F 4F 52 |OETS SPATIE VOOR|
00000540: 20 56 45 52 56 4F 4C 47 20 22 3B 00 64 0D 18 10 | VERVOLG ";.d...|
00000550: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 20 A7 20 89 |.A$:.A$.." " . .|
00000560: 34 31 32 30 00 72 0D 22 10 99 43 4C 24 3A 20 52 |4120.r."..CL$: R|
00000570: B2 30 00 78 0D 2C 10 8E 00 85 0D 88 13 8F 53 54 |.0.x.,........ST|
00000580: 4F 50 50 45 4E 00 A8 0D 92 13 99 3A 85 22 D6 4F |OPPEN......:.".O|
00000590: 4F 52 20 53 54 4F 50 50 45 4E 2C 20 54 49 4B 20 |OR STOPPEN, TIK |
000005A0: 4A 41 3A 20 22 3B 41 24 00 BD 0D 9C 13 8B 41 24 |JA: ";A$......A$|
000005B0: B2 22 4A 41 22 20 A7 99 43 4C 24 3A 80 00 C3 0D |."JA" ..CL$:....|
000005C0: A6 13 8E 00 D6 0D 10 27 8F 49 4E 49 54 49 41 4C |.......'.INITIAL|
000005D0: 49 53 45 52 45 4E 00 E3 0D 1A 27 4D 41 58 B2 31 |ISEREN....'MAX.1|
000005E0: 30 30 30 00 F0 0D 24 27 86 57 24 28 4D 41 58 29 |000...$'.W$(MAX)|
000005F0: 00 04 0E 2E 27 48 24 B2 22 13 22 3A 20 43 4C 24 |....'H$.".": CL$|
00000600: B2 22 93 22 00 1D 0E 38 27 99 43 4C 24 3B 22 11 |."."...8'.CL$;".|
00000610: 11 11 11 11 11 11 22 3B C7 28 31 34 29 00 4C 0E |......";.(14).L.|
00000620: 42 27 99 22 C4 49 54 20 50 52 4F 47 52 41 4D 4D |B'.".IT PROGRAMM|
00000630: 41 20 42 49 45 44 54 20 D5 20 44 45 20 47 45 4C |A BIEDT . DE GEL|
00000640: 45 47 45 4E 48 45 49 44 20 4F 4D 22 00 7B 0E 4C |EGENHEID OM".{.L|
00000650: 27 99 22 45 45 4E 20 52 49 4A 20 47 45 54 41 4C |'."EEN RIJ GETAL|
00000660: 4C 45 4E 20 4F 46 20 53 54 52 49 4E 47 53 20 28 |LEN OF STRINGS (|
00000670: 3D 20 57 4F 4F 52 44 45 4E 29 22 00 92 0E 56 27 |= WOORDEN)"...V'|
00000680: 99 22 49 4E 20 54 45 20 56 4F 45 52 45 4E 2E 22 |."IN TE VOEREN."|
00000690: 3A 99 00 BE 0E 60 27 99 22 C4 41 41 52 4E 41 20 |:....`'.".AARNA |
000006A0: 4B 55 4E 54 20 D5 20 44 45 20 52 49 4A 20 42 45 |KUNT . DE RIJ BE|
000006B0: 4B 49 4A 4B 45 4E 2C 20 4C 41 54 45 4E 22 00 E6 |KIJKEN, LATEN"..|
000006C0: 0E 6A 27 99 22 53 4F 52 54 45 52 45 4E 2C 20 45 |.j'."SORTEREN, E|
000006D0: 4E 20 4F 50 4E 49 45 55 57 20 42 45 4B 49 4A 4B |N OPNIEUW BEKIJK|
000006E0: 45 4E 2E 22 3A 99 00 15 0F 74 27 99 22 C8 45 54 |EN.":....t'.".ET|
000006F0: 20 50 52 4F 47 52 41 4D 4D 41 20 49 53 20 47 45 | PROGRAMMA IS GE|
00000700: 53 43 48 49 4B 54 20 56 4F 4F 52 20 4D 41 58 49 |SCHIKT VOOR MAXI|
00000710: 4D 41 41 4C 22 00 41 0F 7E 27 99 22 31 30 30 30 |MAAL".A.~'."1000|
00000720: 20 47 45 54 41 4C 4C 45 4E 20 4F 46 20 53 54 52 | GETALLEN OF STR|
00000730: 49 4E 47 53 2E 20 C4 49 54 20 4B 55 4E 54 20 D5 |INGS. .IT KUNT .|
00000740: 22 00 6E 0F 88 27 99 22 45 56 45 4E 54 55 45 45 |".n..'."EVENTUEE|
00000750: 4C 20 56 45 52 41 4E 44 45 52 45 4E 20 44 4F 4F |L VERANDEREN DOO|
00000760: 52 20 52 45 47 45 4C 20 31 30 30 31 30 22 00 84 |R REGEL 10010"..|
00000770: 0F 92 27 99 22 41 41 4E 20 54 45 20 50 41 53 53 |..'."AAN TE PASS|
00000780: 45 4E 2E 22 00 8E 0F 9C 27 8D 34 31 30 30 00 94 |EN."....'.4100..|
00000790: 0F A6 27 8E 00 00 00 |..'.... |
..'....10000:.INLEIDING & INITIALISEREN.
>....1000:. KEUZE-MENU.C....KEUZE .2000,
2000,3000,4000,5000.K.(..20.Q.2.......K
EUZE ......CL$......"U KUNT KIEZEN UIT
:":.:.:..M...." <1> --> STRINGS INVOEREN
":.:......." <2> --> GETALLEN INVOEREN":
.:......." <3> --> DE RIJ SORTEREN":.:..
;.$.." <4> --> DE RIJ BEKIJKEN":.:..W...
." <5> --> STOPPEN":.:..~.8.."TOETS HET
GEWENSTE NUMMER IN: ";...B..K$:KEUZE.E(K
$):.KEUZE.1 .KEUZE.5 . .1090...L..KEUZE.
..V...I.P..INVOER.R.Z..CL$......"GEEF DE
STRINGS OF GETALLEN DIE GESOR-".)...."T
EERD MOETEN WORDEN. DRUK NA ELKE".C...."
INVOER OP RETURN":..P...."DRUK NA DE LAA
TSTE INVOER NOGMAALS OP"......"RETURN OM
HET EINDE VAN DE RIJ AAN TE"......"GEVE
N":.:.:......TYPE.KEUZE... .IN$."STRING"
:.TYPE.2 .IN$."GETAL"...*.N.0...4..IN$;N
.1;:A$."":.A$:.A$."" . .2120.6.>.N.N.1:W
$(N).A$:.N.MAX . .2100.>.H.S.0.D.R...R..
..SORTEREN.K.B..CL$;"EVEN GEDULD ";...L.
.N.2 . S.1 . .3080...V..I.N .2 ..1:.J.1
.I.1......J.1 .I.1......TYPE .3100,3200.
F....J.S....".";:.I.....S.1............S
TRING...&..W$(J).W$(I) .HU$.W$(J):W$(J).
W$(I):W$(I).HU$.%.0...3....GETALLEN.K...
.E(W$(J)).E(W$(I)) .HU$.W$(J):W$(J).W$(I
):W$(I).HU$.Q.....~. ..UITVOER......CL$.
....R.0:. N.0 . .4060......I.1 .N.V.H..I
N$;I;.10);": ";W$(I):R.R.1:.R.20..4100..
.R..I......:."KLAAR"......4100..........
..EINDE PAGINA.K....H$;"................
.......TOETS SPATIE VOOR VERVOLG ";.D...
.A$:.A$.." " . .4120.R."..CL$: R.0.X.,..
......STOPPEN......:."VOOR STOPPEN, TIK
JA: ";A$......A$."JA" ..CL$:..C.....V..'
.INITIALISEREN....'MAX.1000...$'.W$(MAX)
....'H$.".": CL$."."...8'.CL$;".......";
G(14).L.B'."DIT PROGRAMMA BIEDT U DE GEL
EGENHEID OM".{.L'."EEN RIJ GETALLEN OF S
TRINGS (= WOORDEN)"...V'."IN TE VOEREN."
:....`'."DAARNA KUNT U DE RIJ BEKIJKEN,
LATEN"...J'."SORTEREN, EN OPNIEUW BEKIJK
EN.":....T'."HET PROGRAMMA IS GESCHIKT V
OOR MAXIMAAL".A.~'."1000 GETALLEN OF STR
INGS. DIT KUNT U".N..'."EVENTUEEL VERAND
EREN DOOR REGEL 10010"....'."AAN TE PASS
EN."....'.4100....'....
> CLICK IMAGE PREVIEW FOR FULL MODAL