PAGINA 16
FILE INFORMATION
FILENAME(S): PAGINA 16
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:24:22
APPEARS ON: 1 disk(s)
FILE HASH
c882713b0c7f1305d9ce12b57b939875b0b864327bf322ab708b1a0b0bf913db
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 45 1 | PAGINA 16 | PRG | DuncanTwain | 15 | 1 | 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 20 2D 2D 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 6E |R COMMODORE 64.n| 00000050: 08 0A 00 8F 20 2A 2A 2A 20 42 49 4E 41 49 52 2D |.... *** BINAIR-| 00000060: 5A 4F 45 4B 20 50 52 4F 48 52 41 4D 4D 41 00 B7 |ZOEK PROHRAMMA..| 00000070: 08 14 00 8F 20 20 20 20 20 44 49 54 20 50 52 4F |.... DIT PRO| 00000080: 47 52 41 4D 4D 41 20 4B 41 4E 20 41 4C 4C 45 45 |GRAMMA KAN ALLEE| 00000090: 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N | 000000A0: 20 46 55 4E 43 54 49 4F 4E 45 52 45 4E 20 4D 2E | FUNCTIONEREN M.| 000000B0: 42 2E 56 20 45 45 4E 00 FA 08 1E 00 8F 20 20 20 |B.V EEN...... | 000000C0: 20 20 54 41 42 45 4C 2C 20 44 49 45 20 56 41 4E | TABEL, DIE VAN| 000000D0: 20 4C 41 41 47 20 4E 41 41 52 20 48 4F 4F 47 20 | LAAG NAAR HOOG | 000000E0: 20 20 20 20 20 20 20 20 20 20 47 45 53 4F 52 54 | GESORT| 000000F0: 45 45 52 44 20 53 54 41 41 54 00 20 09 28 00 8F |EERD STAAT. .(..| 00000100: 20 20 20 20 20 46 45 49 54 45 4C 59 4B 20 49 53 | FEITELYK IS| 00000110: 20 44 49 54 20 44 41 4E 20 4F 4F 4B 20 45 45 4E | DIT DAN OOK EEN| 00000120: 00 5D 09 32 00 8F 20 20 20 20 20 53 55 42 52 4F |.].2.. SUBRO| 00000130: 55 54 49 4E 45 20 56 4F 4F 52 20 45 45 4E 20 47 |UTINE VOOR EEN G| 00000140: 52 4F 54 45 52 20 20 20 20 20 20 20 20 20 20 20 |ROTER | 00000150: 20 20 20 50 52 4F 47 52 41 4D 4D 41 2E 00 A2 09 | PROGRAMMA....| 00000160: 3C 00 8F 20 20 20 20 20 41 52 52 41 59 20 41 20 |<.. ARRAY A | 00000170: 45 4E 20 48 45 54 20 41 41 4E 54 41 4C 20 20 20 |EN HET AANTAL | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 45 4C 45 4D 45 4E 54 45 4E 20 4E 20 4D 4F 45 54 |ELEMENTEN N MOET| 000001A0: 45 4E 00 BE 09 46 00 8F 20 20 20 20 20 47 45 44 |EN...F.. GED| 000001B0: 45 46 49 4E 49 45 45 52 44 20 5A 59 4E 2E 00 CB |EFINIEERD ZYN...| 000001C0: 09 50 00 86 20 41 28 31 30 30 29 00 F2 09 5A 00 |.P.. A(100)...Z.| 000001D0: 8F 20 56 55 4C 4C 45 4E 20 56 41 4E 20 41 52 52 |. VULLEN VAN ARR| 000001E0: 41 59 20 41 20 56 41 4E 20 31 20 54 2F 4D 20 31 |AY A VAN 1 T/M 1| 000001F0: 30 30 00 02 0A 64 00 81 20 49 B2 31 20 A4 20 31 |00...d.. I.1 . 1| 00000200: 30 30 00 0D 0A 6E 00 41 28 49 29 B2 49 00 14 0A |00...n.A(I).I...| 00000210: 78 00 82 49 00 1E 0A 82 00 4E B2 31 30 30 00 26 |x..I.....N.100.&| 00000220: 0A 8C 00 54 B2 30 00 30 0A 96 00 99 22 93 22 3B |...T.0.0....".";| 00000230: 00 57 0A A0 00 99 A3 30 36 29 22 2A 2A 2A 20 42 |.W.....06)"*** B| 00000240: 49 4E 41 49 52 45 20 5A 4F 45 4B 52 4F 55 54 49 |INAIRE ZOEKROUTI| 00000250: 4E 45 20 2A 2A 2A 22 00 5D 0A AA 00 99 00 86 0A |NE ***".].......| 00000260: B4 00 99 22 47 45 45 46 54 20 45 45 4E 20 47 45 |..."GEEFT EEN GE| 00000270: 54 41 4C 20 54 55 53 53 45 4E 20 31 20 45 4E 20 |TAL TUSSEN 1 EN | 00000280: 31 30 30 20 22 3B 00 8E 0A BE 00 85 20 41 00 B0 |100 ";...... A..| 00000290: 0A C8 00 8F 20 2A 2A 2A 20 42 49 4E 41 49 52 45 |.... *** BINAIRE| 000002A0: 20 5A 4F 45 4B 52 4F 55 54 49 4E 45 20 2A 2A 2A | ZOEKROUTINE ***| 000002B0: 00 B9 0A D2 00 58 31 B2 31 00 C4 0A DC 00 58 32 |.....X1.1.....X2| 000002C0: B2 31 AA 4E 00 07 0B E6 00 8F 20 2A 2A 20 44 45 |.1.N...... ** DE| 000002D0: 20 56 41 52 49 41 42 45 4C 45 20 54 20 49 53 20 | VARIABELE T IS | 000002E0: 53 4C 45 43 48 54 53 20 45 45 4E 20 20 20 20 20 |SLECHTS EEN | 000002F0: 20 20 20 20 20 20 53 54 41 50 50 45 4E 54 45 4C | STAPPENTEL| 00000300: 4C 45 52 2E 20 2A 2A 00 11 0B F0 00 54 B2 54 AA |LER. **.....T.T.| 00000310: 31 00 28 0B FA 00 58 33 B2 58 31 AA B5 28 28 58 |1.(...X3.X1..((X| 00000320: 32 AB 58 31 29 AD 32 29 00 3E 0B 04 01 8B 20 41 |2.X1).2).>.... A| 00000330: 20 B1 20 41 28 58 33 29 20 A7 20 33 37 30 00 54 | . A(X3) . 370.T| 00000340: 0B 0E 01 8B 20 41 20 B3 20 41 28 58 33 29 20 A7 |.... A . A(X3) .| 00000350: 20 33 32 30 00 69 0B 18 01 8F 20 2A 2A 20 47 45 | 320.i.... ** GE| 00000360: 56 4F 4E 44 45 4E 20 2A 2A 00 7A 0B 22 01 99 22 |VONDEN **.z.".."| 00000370: 47 45 56 4F 4E 44 45 4E 20 22 00 84 0B 2C 01 89 |GEVONDEN "...,..| 00000380: 20 34 32 30 00 A8 0B 36 01 8F 20 2A 2A 20 4C 49 | 420...6.. ** LI| 00000390: 47 54 20 57 41 41 52 44 45 20 49 4E 20 49 4E 54 |GT WAARDE IN INT| 000003A0: 45 52 56 41 4C 20 2A 2A 00 BA 0B 40 01 8B 20 58 |ERVAL **...@.. X| 000003B0: 32 B2 58 33 20 A7 20 34 31 30 00 F7 0B 4A 01 8F |2.X3 . 410...J..| 000003C0: 20 2A 2A 20 42 4F 56 45 4E 2D 47 52 45 4E 53 57 | ** BOVEN-GRENSW| 000003D0: 41 41 52 44 45 20 57 4F 52 44 54 20 20 20 20 20 |AARDE WORDT | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 56 45 52 4C | VERL| 000003F0: 41 41 47 44 20 2A 2A 00 01 0C 54 01 58 32 B2 58 |AAGD **...T.X2.X| 00000400: 33 00 0B 0C 5E 01 89 20 32 34 30 00 2F 0C 68 01 |3...^.. 240./.h.| 00000410: 8F 20 2A 2A 20 4C 49 47 54 20 57 41 41 52 44 45 |. ** LIGT WAARDE| 00000420: 20 49 4E 20 49 4E 54 45 52 56 41 4C 20 2A 2A 00 | IN INTERVAL **.| 00000430: 41 0C 72 01 8B 20 58 31 B2 58 33 20 A7 20 34 31 |A.r.. X1.X3 . 41| 00000440: 30 00 7E 0C 7C 01 8F 20 2A 2A 20 4F 4E 44 45 52 |0.~.|.. ** ONDER| 00000450: 2D 47 52 45 4E 53 57 41 41 52 44 45 20 57 4F 52 |-GRENSWAARDE WOR| 00000460: 44 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |DT | 00000470: 20 20 20 56 45 52 48 4F 4F 47 44 20 2A 2A 00 88 | VERHOOGD **..| 00000480: 0C 86 01 58 31 B2 58 33 00 92 0C 90 01 89 20 32 |...X1.X3...... 2| 00000490: 34 30 00 AB 0C 9A 01 99 22 4E 49 45 54 20 47 45 |40......"NIET GE| 000004A0: 56 4F 4E 44 45 4E 20 21 21 21 22 00 CD 0C A4 01 |VONDEN !!!".....| 000004B0: 99 22 49 53 20 42 45 50 41 41 4C 44 20 49 4E 3A |."IS BEPAALD IN:| 000004C0: 22 3B 54 3B 22 53 54 41 50 50 45 4E 22 00 D3 0C |";T;"STAPPEN"...| 000004D0: AE 01 99 00 F7 0C B8 01 99 22 4E 4F 47 20 45 45 |........."NOG EE| 000004E0: 4E 20 44 45 4D 4F 4E 53 54 52 41 54 49 45 20 4A |N DEMONSTRATIE J| 000004F0: 41 2F 4E 45 45 22 3B 00 00 0D C2 01 85 20 41 24 |A/NEE";...... A$| 00000500: 00 1A 0D CC 01 8B 20 C8 28 41 24 2C 31 29 20 B2 |...... .(A$,1) .| 00000510: 20 22 4A 22 20 A7 20 31 34 30 00 20 0D D6 01 80 | "J" . 140. ....| 00000520: 00 00 00 |... |
..N.... --(C) DIGICOM SOFTWARE,TAPE B01
-- AANGEPAST VOOR COMMODORE 64.N
.... *** BINAIR-ZOEK PROHRAMMA......
DIT PROGRAMMA KAN ALLEEN
FUNCTIONEREN M.B.V EEN...... TABEL,
DIE VAN LAAG NAAR HOOG GESORT
EERD STAAT. .(.. FEITELYK IS DIT DAN
OOK EEN.].2.. SUBROUTINE VOOR EEN G
ROTER PROGRAMMA....<..
ARRAY A EN HET AANTAL
ELEMENTEN N MOETEN...F.. GEDEFINIEER
D ZYN..K.P.. A(100)...Z.. VULLEN VAN ARR
AY A VAN 1 T/M 100...D.. I.1 . 100...N.A
(I).I...X..I.....N.100.&...T.0.0....".";
.W. ...06)"*** BINAIRE ZOEKROUTINE ***".
].........."GEEFT EEN GETAL TUSSEN 1 EN
100 ";...... A...H.. *** BINAIRE ZOEKROU
TINE ***...R.X1.1.D...X2.1.N...... ** DE
VARIABELE T IS SLECHTS EEN ST
APPENTELLER. **.....T.T.1.(...X3.X1..((X
2.X1).2).>.... A . A(X3) . 370.T.... A .
A(X3) . 320.I.... ** GEVONDEN **.Z.".."
GEVONDEN "...,.. 420...6.. ** LIGT WAARD
E IN INTERVAL **...@.. X2.X3 . 410...J..
** BOVEN-GRENSWAARDE WORDT
VERLAAGD **...T.X2.X3...^.. 240./.H.
. ** LIGT WAARDE IN INTERVAL **.A.R.. X1
.X3 . 410.~.|.. ** ONDER-GRENSWAARDE WOR
DT VERHOOGD **.....X1.X3
...... 240......"NIET GEVONDEN !!!".M...
."IS BEPAALD IN:";T;"STAPPEN".S.........
."NOG EEN DEMONSTRATIE JA/NEE";...B.. A$
...L.. H(A$,1) . "J" . 140. .V.....
> CLICK IMAGE PREVIEW FOR FULL MODAL