PAGINA 13
FILE INFORMATION
FILENAME(S): PAGINA 13
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 21:24:22
APPEARS ON: 1 disk(s)
FILE HASH
6758f5394b952be6d111d216fa574c0763aa9669f0f3c9a0c3651456790e1446
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 45 1 | PAGINA 13 | PRG | DuncanTwain | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4E 08 00 00 8F 20 2D 2D 28 43 29 20 44 49 |..N.... --(C) DI| 00000010: 47 49 43 4F 4D 20 53 4F 46 54 57 41 52 45 2C 54 |GICOM SOFTWARE,T| 00000020: 41 50 45 20 42 30 31 2D 2D 20 20 20 20 20 20 20 |APE B01-- | 00000030: 20 20 20 41 41 4E 47 45 50 41 53 54 20 56 4F 4F | AANGEPAST VOO| 00000040: 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 00 6F |R COMMODORE 64.o| 00000050: 08 0A 00 8F 20 2A 2A 2A 20 53 4F 52 54 45 45 52 |.... *** SORTEER| 00000060: 50 52 4F 47 52 41 4D 4D 41 20 32 20 2A 2A 2A 00 |PROGRAMMA 2 ***.| 00000070: A9 08 14 00 8F 20 20 20 20 20 44 49 54 20 50 52 |..... DIT PR| 00000080: 4F 47 52 41 4D 4D 41 20 53 4F 52 54 45 45 52 54 |OGRAMMA SORTEERT| 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 20 42 49 4E 41 49 52 2E 00 B6 08 28 00 86 20 | BINAIR....(.. | 000000B0: 41 28 31 30 30 29 00 D4 08 32 00 8F 20 2A 2A 2A |A(100)...2.. ***| 000000C0: 20 49 4E 56 4F 45 52 20 47 45 47 45 56 45 4E 53 | INVOER GEGEVENS| 000000D0: 20 2A 2A 2A 00 DE 08 3C 00 99 22 93 22 3B 00 04 | ***...<..".";..| 000000E0: 09 46 00 99 22 2A 2A 2A 20 42 49 4E 41 49 52 45 |.F.."*** BINAIRE| 000000F0: 20 53 4F 52 54 45 45 52 4D 45 54 48 4F 44 45 20 | SORTEERMETHODE | 00000100: 2A 2A 2A 22 00 0A 09 50 00 99 00 24 09 5A 00 99 |***"...P...$.Z..| 00000110: 22 48 4F 45 56 45 45 4C 20 47 45 54 41 4C 4C 45 |"HOEVEEL GETALLE| 00000120: 4E 20 22 3B 00 2C 09 64 00 85 20 4E 00 47 09 6E |N ";.,.d.. N.G.n| 00000130: 00 8B 20 28 4E B3 32 29 20 B0 20 28 4E B1 31 30 |.. (N.2) . (N.10| 00000140: 30 29 20 A7 20 39 30 00 6E 09 78 00 8F 20 2A 20 |0) . 90.n.x.. * | 00000150: 56 55 4C 4C 45 4E 20 4D 41 54 52 49 58 20 41 20 |VULLEN MATRIX A | 00000160: 4D 45 54 20 4E 20 47 45 54 41 4C 4C 45 4E 00 7C |MET N GETALLEN.|| 00000170: 09 82 00 81 20 49 B2 31 20 A4 20 4E 00 91 09 8C |.... I.1 . N....| 00000180: 00 41 28 49 29 B2 B5 28 BB 28 31 29 AC 31 30 30 |.A(I)..(.(1).100| 00000190: 29 00 9C 09 96 00 99 41 28 49 29 3B 00 A4 09 A0 |)......A(I);....| 000001A0: 00 82 20 49 00 AA 09 AA 00 99 00 E2 09 B4 00 99 |.. I............| 000001B0: 22 53 4F 52 54 45 52 45 4E 20 42 45 47 49 4E 54 |"SORTEREN BEGINT| 000001C0: 20 4D 45 54 20 49 4E 44 52 55 4B 4B 45 4E 20 56 | MET INDRUKKEN V| 000001D0: 41 4E 20 52 45 54 55 52 4E 2D 54 4F 45 54 53 20 |AN RETURN-TOETS | 000001E0: 22 3B 00 EB 09 BE 00 85 20 41 24 00 F3 09 C8 00 |";...... A$.....| 000001F0: 54 B2 30 00 12 0A D2 00 99 22 45 52 20 57 4F 52 |T.0......"ER WOR| 00000200: 44 54 20 4E 55 20 47 45 53 4F 52 54 45 45 52 44 |DT NU GESORTEERD| 00000210: 2E 22 00 38 0A DC 00 8F 20 2A 2A 20 46 45 49 54 |.".8.... ** FEIT| 00000220: 45 4C 59 4B 45 20 53 4F 52 54 45 45 52 52 4F 55 |ELYKE SORTEERROU| 00000230: 54 49 4E 45 20 2A 2A 2A 00 7F 0A E6 00 8F 20 20 |TINE ***...... | 00000240: 20 20 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 2D | DIT PROGRAMMA-| 00000250: 4F 4E 44 45 52 44 45 45 4C 20 4B 41 4E 20 20 20 |ONDERDEEL KAN | 00000260: 20 20 20 20 20 20 20 20 20 20 41 4C 53 20 53 55 | ALS SU| 00000270: 42 52 4F 55 54 49 4E 45 20 49 4E 20 45 45 4E 00 |BROUTINE IN EEN.| 00000280: A3 0A F0 00 8F 20 20 20 20 50 52 4F 47 52 41 4D |..... PROGRAM| 00000290: 4D 41 20 47 45 42 52 55 49 4B 54 20 57 4F 52 44 |MA GEBRUIKT WORD| 000002A0: 45 4E 2E 00 E0 0A FA 00 8F 20 20 20 20 4D 41 54 |EN....... MAT| 000002B0: 52 49 58 20 41 20 4D 4F 45 54 20 4D 45 54 20 4E |RIX A MOET MET N| 000002C0: 20 45 4C 45 4D 45 4E 54 45 4E 20 20 20 20 20 20 | ELEMENTEN | 000002D0: 20 20 20 20 20 47 45 56 55 4C 44 20 5A 59 4E 2E | GEVULD ZYN.| 000002E0: 00 EE 0A 04 01 81 20 49 B2 32 20 A4 20 4E 00 F7 |...... I.2 . N..| 000002F0: 0A 0E 01 58 31 B2 31 00 00 0B 18 01 58 32 B2 49 |...X1.1.....X2.I| 00000300: 00 17 0B 22 01 58 33 B2 58 31 AA B5 28 28 58 32 |...".X3.X1..((X2| 00000310: AB 58 31 29 AD 32 29 00 21 0B 2C 01 54 B2 54 AA |.X1).2).!.,.T.T.| 00000320: 31 00 3A 0B 36 01 8B 20 41 28 49 29 20 B3 20 41 |1.:.6.. A(I) . A| 00000330: 28 58 33 29 20 A7 20 33 34 30 00 53 0B 40 01 8B |(X3) . 340.S.@..| 00000340: 20 41 28 49 29 20 B1 20 41 28 58 33 29 20 A7 20 | A(I) . A(X3) . | 00000350: 33 37 30 00 5D 0B 4A 01 58 32 B2 58 33 00 6F 0B |370.].J.X2.X3.o.| 00000360: 54 01 8B 20 58 32 B2 58 33 20 A7 20 34 30 30 00 |T.. X2.X3 . 400.| 00000370: 79 0B 5E 01 58 32 B2 58 33 00 83 0B 68 01 89 20 |y.^.X2.X3...h.. | 00000380: 32 39 30 00 95 0B 72 01 8B 20 58 31 B2 58 33 20 |290...r.. X1.X3 | 00000390: A7 20 34 30 30 00 9F 0B 7C 01 58 31 B2 58 33 00 |. 400...|.X1.X3.| 000003A0: A9 0B 86 01 89 20 32 39 30 00 BE 0B 90 01 8F 20 |..... 290...... | 000003B0: 2A 2A 20 57 49 53 53 45 4C 45 4E 20 2A 2A 00 C9 |** WISSELEN **..| 000003C0: 0B 9A 01 48 B2 41 28 49 29 00 DF 0B A4 01 81 20 |...H.A(I)...... | 000003D0: 4A B2 49 20 A4 20 58 32 AA 31 20 A9 20 AB 31 00 |J.I . X2.1 . .1.| 000003E0: EF 0B AE 01 41 28 4A 29 B2 41 28 4A AB 31 29 00 |....A(J).A(J.1).| 000003F0: 15 0C B8 01 8F 20 48 49 45 52 20 4B 41 4E 20 4D |..... HIER KAN M| 00000400: 45 4E 20 49 4E 44 45 58 20 4D 45 45 20 57 49 53 |EN INDEX MEE WIS| 00000410: 53 45 4C 45 4E 00 1D 0C C2 01 82 20 4A 00 29 0C |SELEN...... J.).| 00000420: CC 01 41 28 58 32 29 B2 48 00 31 0C D6 01 82 20 |..A(X2).H.1.... | 00000430: 49 00 58 0C E0 01 8F 20 55 49 54 50 52 49 4E 54 |I.X.... UITPRINT| 00000440: 45 4E 20 56 41 4E 20 47 45 53 4F 52 54 45 45 52 |EN VAN GESORTEER| 00000450: 44 45 20 54 41 42 45 4C 00 62 0C EA 01 99 22 93 |DE TABEL.b....".| 00000460: 22 3B 00 88 0C F4 01 99 22 2A 2A 2A 20 42 49 4E |";......"*** BIN| 00000470: 41 49 52 45 20 53 4F 52 54 45 45 52 4D 45 54 48 |AIRE SORTEERMETH| 00000480: 4F 44 45 20 2A 2A 2A 22 00 96 0C FE 01 81 20 49 |ODE ***"...... I| 00000490: B2 31 20 A4 20 4E 00 A2 0C 08 02 99 20 41 28 49 |.1 . N...... A(I| 000004A0: 29 3B 00 AA 0C 12 02 82 20 49 00 B0 0C 1C 02 99 |);...... I......| 000004B0: 00 D4 0C 26 02 99 22 44 45 20 43 4F 4E 44 49 54 |...&.."DE CONDIT| 000004C0: 49 45 20 49 53 20 22 54 3B 22 2A 20 47 45 54 45 |IE IS "T;"* GETE| 000004D0: 53 54 2E 22 00 DA 0C 30 02 80 00 00 00 |ST."...0..... |
..N.... --(C) DIGICOM SOFTWARE,TAPE B01-
- AANGEPAST VOOR COMMODORE 64.O
.... *** SORTEERPROGRAMMA 2 ***......
DIT PROGRAMMA SORTEERT
BINAIR....(.. A(100).T.2.. *** INVOER
GEGEVENS ***...<..".";...F.."*** BINAIRE
SORTEERMETHODE ***"...P...$.Z.."HOEVEEL
GETALLEN ";.,.D.. N.G.N.. (N.2) . (N.10
0) . 90.N.X.. * VULLEN MATRIX A MET N GE
TALLEN.|.... I.1 . N.....A(I)..(.(1).100
)......A(I);... .. I............"SORTERE
N BEGINT MET INDRUKKEN VAN RETURN-TOETS
";...... A$...H.T.0...R.."ER WORDT NU GE
SORTEERD.".8.... ** FEITELYKE SORTEERROU
TINE ***..... DIT PROGRAMMA-ONDERDEE
L KAN ALS SUBROUTINE IN EEN.
..... PROGRAMMA GEBRUIKT WORDEN......
. MATRIX A MOET MET N ELEMENTEN
GEVULD ZYN....... I.2 . N.....X1.1.
....X2.I...".X3.X1..((X2.X1).2).!.,.T.T.
1.:.6.. A(I) . A(X3) . 340.S.@.. A(I) .
A(X3) . 370.].J.X2.X3.O.T.. X2.X3 . 400.
Y.^.X2.X3...H.. 290...R.. X1.X3 . 400...
|.X1.X3...... 290...... ** WISSELEN **.I
...H.A(I)...... J.I . X2.1 . .1.....A(J)
.A(J.1)...... HIER KAN MEN INDEX MEE WIS
SELEN...B.. J.).L.A(X2).H.1.V.. I.X....
UITPRINTEN VAN GESORTEERDE TABEL.B....".
";......"*** BINAIRE SORTEERMETHODE ***"
...... I.1 . N...... A(I);...... I......
.T.&.."DE CONDITIE IS "T;"* GETEST.".Z.0
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL