PAGINA 38
FILE INFORMATION
FILENAME(S): PAGINA 38
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 21:24:22
APPEARS ON: 1 disk(s)
FILE HASH
2c862cfa69f328ccdf6a079f5d9c043072d1c6a47bafa82ceb947527f6c7869a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 45 1 | PAGINA 38 | PRG | DuncanTwain | 14 | 2 | 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 64 |R COMMODORE 64.d| 00000050: 08 0A 00 8F 20 2A 2A 2A 20 4D 45 44 49 41 41 4E |.... *** MEDIAAN| 00000060: 20 2A 2A 2A 00 B0 08 14 00 8F 20 20 20 20 20 44 | ***...... D| 00000070: 49 54 20 50 52 4F 47 52 41 4D 4D 41 20 42 45 52 |IT PROGRAMMA BER| 00000080: 45 4B 45 4E 54 20 4F 2E 41 20 20 20 20 20 20 20 |EKENT O.A | 00000090: 20 20 20 20 20 20 20 44 45 20 4D 45 44 49 41 41 | DE MEDIAA| 000000A0: 4E 20 56 41 4E 20 45 45 4E 20 41 41 4E 54 41 4C |N VAN EEN AANTAL| 000000B0: 00 F8 08 1E 00 8F 20 20 20 20 20 57 41 41 52 4E |...... WAARN| 000000C0: 45 4D 49 4E 47 45 4E 2E 20 44 49 54 20 41 41 4E |EMINGEN. DIT AAN| 000000D0: 54 41 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 |TAL | 000000E0: 20 20 20 4B 41 4E 20 4D 41 58 49 4D 41 41 4C 20 | KAN MAXIMAAL | 000000F0: 31 30 30 20 5A 59 4E 2E 00 40 09 28 00 8F 20 20 |100 ZYN..@.(.. | 00000100: 20 20 20 44 45 20 57 41 41 52 4E 45 4D 49 4E 47 | DE WAARNEMING| 00000110: 45 4E 20 48 4F 45 56 45 4E 20 4E 49 45 54 20 20 |EN HOEVEN NIET | 00000120: 20 20 20 20 20 20 20 20 20 20 20 4F 50 20 56 4F | OP VO| 00000130: 4C 47 4F 52 44 45 20 54 45 20 57 4F 52 44 45 4E |LGORDE TE WORDEN| 00000140: 00 55 09 32 00 8F 20 20 20 20 20 49 4E 47 45 56 |.U.2.. INGEV| 00000150: 4F 45 52 44 2E 00 62 09 3C 00 86 20 41 28 31 30 |OERD..b.<.. A(10| 00000160: 30 29 00 89 09 46 00 8F 20 2A 2A 2A 20 49 4E 56 |0)...F.. *** INV| 00000170: 4F 45 52 45 4E 20 56 41 4E 20 44 45 20 47 45 47 |OEREN VAN DE GEG| 00000180: 45 56 45 4E 53 20 2A 2A 2A 00 93 09 50 00 99 22 |EVENS ***...P.."| 00000190: 93 22 3B 00 C2 09 5A 00 99 22 2A 2A 2A 20 4D 45 |.";...Z.."*** ME| 000001A0: 44 49 41 41 4E 20 4F 50 20 42 41 53 49 53 20 47 |DIAAN OP BASIS G| 000001B0: 52 4F 4E 44 4D 41 54 45 52 49 41 41 4C 20 2A 2A |RONDMATERIAAL **| 000001C0: 2A 22 00 C8 09 64 00 99 00 FC 09 6E 00 99 22 49 |*"...d.....n.."I| 000001D0: 4E 4C 45 5A 45 4E 20 56 41 4E 20 47 45 47 45 56 |NLEZEN VAN GEGEV| 000001E0: 45 4E 53 20 55 49 54 20 49 4E 54 45 52 4E 45 20 |ENS UIT INTERNE | 000001F0: 44 41 54 41 2D 20 20 46 49 4C 45 22 00 02 0A 78 |DATA- FILE"...x| 00000200: 00 8C 00 0A 0A 82 00 87 20 4E 00 18 0A 8C 00 81 |........ N......| 00000210: 20 49 B2 31 20 A4 20 4E 00 23 0A 96 00 87 20 41 | I.1 . N.#.... A| 00000220: 28 49 29 00 2B 0A A0 00 82 20 49 00 44 0A AA 00 |(I).+.... I.D...| 00000230: 8F 20 2A 2A 2A 20 42 45 52 45 4B 45 4E 49 4E 47 |. *** BEREKENING| 00000240: 20 2A 2A 2A 00 85 0A B4 00 8F 20 2A 2A 20 4F 50 | ***...... ** OP| 00000250: 20 56 4F 4C 47 4F 52 44 45 20 53 4F 52 54 45 52 | VOLGORDE SORTER| 00000260: 45 4E 20 56 41 4E 20 44 45 20 20 20 20 20 20 20 |EN VAN DE | 00000270: 20 20 20 20 20 20 57 41 41 52 4E 45 4D 49 4E 47 | WAARNEMING| 00000280: 45 4E 20 2A 2A 00 93 0A BE 00 81 20 49 B2 32 20 |EN **...... I.2 | 00000290: A4 20 4E 00 9C 0A C8 00 58 31 B2 31 00 A5 0A D2 |. N.....X1.1....| 000002A0: 00 58 32 B2 49 00 BC 0A DC 00 58 33 B2 58 31 AA |.X2.I.....X3.X1.| 000002B0: B5 28 28 58 32 AB 58 31 29 AD 32 29 00 D4 0A E6 |.((X2.X1).2)....| 000002C0: 00 8B 41 28 49 29 20 B3 20 41 28 58 33 29 20 A7 |..A(I) . A(X3) .| 000002D0: 20 32 37 30 00 EC 0A F0 00 8B 41 28 49 29 20 B1 | 270......A(I) .| 000002E0: 20 41 28 58 33 29 20 A7 20 33 30 30 00 F6 0A FA | A(X3) . 300....| 000002F0: 00 58 32 B2 58 33 00 00 0B 04 01 89 20 33 33 30 |.X2.X3...... 330| 00000300: 00 14 0B 0E 01 8B 20 58 32 20 B2 20 58 33 20 A7 |...... X2 . X3 .| 00000310: 20 33 33 30 00 1E 0B 18 01 58 32 B2 58 33 00 28 | 330.....X2.X3.(| 00000320: 0B 22 01 89 20 32 32 30 00 3C 0B 2C 01 8B 20 58 |.".. 220.<.,.. X| 00000330: 31 20 B2 20 58 33 20 A7 20 33 33 30 00 46 0B 36 |1 . X3 . 330.F.6| 00000340: 01 58 31 B2 58 33 00 50 0B 40 01 89 20 32 32 30 |.X1.X3.P.@.. 220| 00000350: 00 5B 0B 4A 01 41 B2 41 28 49 29 00 98 0B 54 01 |.[.J.A.A(I)...T.| 00000360: 8F 20 2A 2A 20 50 4C 41 41 54 53 20 4D 41 4B 45 |. ** PLAATS MAKE| 00000370: 4E 20 4F 4D 20 54 55 53 53 45 4E 20 54 45 20 20 |N OM TUSSEN TE | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 43 48 | SCH| 00000390: 55 49 56 45 4E 20 2A 2A 00 AB 0B 5E 01 8B 20 49 |UIVEN **...^.. I| 000003A0: 20 B2 20 58 32 20 A7 20 34 30 30 00 C1 0B 68 01 | . X2 . 400...h.| 000003B0: 81 20 4A B2 49 20 A4 20 58 32 AA 31 20 A9 20 AB |. J.I . X2.1 . .| 000003C0: 31 00 D1 0B 72 01 41 28 4A 29 B2 41 28 4A AB 31 |1...r.A(J).A(J.1| 000003D0: 29 00 D9 0B 7C 01 82 20 4A 00 E5 0B 86 01 41 28 |)...|.. J.....A(| 000003E0: 58 32 29 B2 41 00 EC 0B 90 01 82 49 00 F4 0B 9A |X2).A......I....| 000003F0: 01 53 B2 30 00 FC 0B A4 01 4D B2 30 00 0A 0C AE |.S.0.....M.0....| 00000400: 01 81 20 49 B2 31 20 A4 20 4E 00 17 0C B8 01 53 |.. I.1 . N.....S| 00000410: B2 53 AA 41 28 49 29 00 26 0C C2 01 4D B2 4D AA |.S.A(I).&...M.M.| 00000420: 41 28 49 29 AE 32 00 2E 0C CC 01 82 20 49 00 4B |A(I).2...... I.K| 00000430: 0C D6 01 8F 20 2A 2A 20 42 45 50 41 4C 49 4E 47 |.... ** BEPALING| 00000440: 20 4D 45 44 49 41 41 4E 20 2A 2A 00 5E 0C E0 01 | MEDIAAN **.^...| 00000450: 41 B2 41 28 B5 28 4E AD 32 AA 2E 35 29 29 00 7A |A.A(.(N.2..5)).z| 00000460: 0C EA 01 8B 20 4E AD 32 AB B5 28 4E AD 32 29 20 |.... N.2..(N.2) | 00000470: B3 B1 20 30 20 A7 20 35 31 30 00 92 0C F4 01 41 |.. 0 . 510.....A| 00000480: B2 28 41 AA 41 28 B5 28 4E AD 32 29 AA 31 29 29 |.(A.A(.(N.2).1))| 00000490: AD 32 00 A4 0C FE 01 45 B2 4D AD 4E AB 28 53 AD |.2.....E.M.N.(S.| 000004A0: 4E 29 AE 32 00 CA 0C 08 02 8F 20 2A 2A 2A 20 55 |N).2...... *** U| 000004B0: 49 54 56 4F 45 52 20 56 41 4E 20 44 45 20 47 45 |ITVOER VAN DE GE| 000004C0: 47 45 56 45 4E 53 20 2A 2A 2A 00 D4 0C 12 02 99 |GEVENS ***......| 000004D0: 22 93 22 3B 00 EF 0C 1C 02 99 A3 31 30 29 22 2A |".";.......10)"*| 000004E0: 2A 2A 20 4D 45 44 49 41 41 4E 20 2A 2A 2A 22 00 |** MEDIAAN ***".| 000004F0: 12 0D 26 02 99 A3 30 36 29 22 4F 50 20 42 41 53 |..&...06)"OP BAS| 00000500: 49 53 20 47 52 4F 4E 44 4D 41 54 45 52 49 41 41 |IS GRONDMATERIAA| 00000510: 4C 22 00 18 0D 30 02 99 00 3B 0D 3A 02 99 22 4D |L"...0...;.:.."M| 00000520: 45 44 49 41 41 4E 3A 20 20 20 20 20 20 20 20 20 |EDIAAN: | 00000530: 20 20 20 20 20 20 20 20 22 3B 41 00 60 0D 44 02 | ";A.`.D.| 00000540: 99 22 52 45 4B 45 4E 4B 55 4E 44 49 47 45 20 47 |."REKENKUNDIGE G| 00000550: 45 4D 49 44 44 45 4C 44 45 3A 20 22 3B 53 AD 4E |EMIDDELDE: ";S.N| 00000560: 00 83 0D 4E 02 99 22 56 41 52 49 41 4E 54 49 45 |...N.."VARIANTIE| 00000570: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: | 00000580: 22 3B 45 00 A9 0D 58 02 99 22 53 54 41 4E 44 41 |";E...X.."STANDA| 00000590: 41 52 44 45 56 49 41 54 49 45 3A 20 20 20 20 20 |ARDEVIATIE: | 000005A0: 20 20 20 22 3B 45 AE 2E 35 00 AF 0D 62 02 99 00 | ";E..5...b...| 000005B0: CB 0D 6C 02 8F 20 2A 2A 2A 20 49 4E 54 45 52 4E |..l.. *** INTERN| 000005C0: 45 20 44 41 54 41 2D 46 49 4C 45 00 EA 0D 76 02 |E DATA-FILE...v.| 000005D0: 83 20 35 2C 31 31 2E 32 35 2C 31 31 2E 32 35 2C |. 5,11.25,11.25,| 000005E0: 31 31 2E 35 2C 31 31 2C 31 32 00 F0 0D 80 02 80 |11.5,11,12......| 000005F0: 00 00 00 |... |
..N.... --(C) DIGICOM SOFTWARE,TAPE B01
-- AANGEPAST VOOR COMMODORE 64.D
.... *** MEDIAAN ***...... DIT PROGR
AMMA BEREKENT O.A DE MEDIAA
N VAN EEN AANTAL...... WAARNEMINGEN.
DIT AANTAL KAN MAXIMAAL
100 ZYN..@.(.. DE WAARNEMINGEN HOEVE
N NIET OP VOLGORDE TE WORDEN
.U.2.. INGEVOERD..B.<.. A(100)...F..
*** INVOEREN VAN DE GEGEVENS ***...P.."
.";.B.Z.."*** MEDIAAN OP BASIS GRONDMATE
RIAAL ***".H.D.....N.."INLEZEN VAN GEGEV
ENS UIT INTERNE DATA- FILE"...X........
N...... I.1 . N.#.... A(I).+. .. I.D...
. *** BEREKENING ***...... ** OP VOLGORD
E SORTEREN VAN DE WAARNEMING
EN **...... I.2 . N...H.X1.1...R.X2.I...
..X3.X1..((X2.X1).2).T....A(I) . A(X3) .
270......A(I) . A(X3) . 300.....X2.X3..
.... 330...... X2 . X3 . 330.....X2.X3.(
.".. 220.<.,.. X1 . X3 . 330.F.6.X1.X3.P
.@.. 220.[.J.A.A(I)...T.. ** PLAATS MAKE
N OM TUSSEN TE SCHUIVEN **
...^.. I . X2 . 400.A.H.. J.I . X2.1 . .
1.Q.R.A(J).A(J.1).Y.|.. J.....A(X2).A...
...I.....S.0.....M.0...... I.1 . N.....S
.S.A(I).&.B.M.M.A(I).2...L.. I.K.V.. **
BEPALING MEDIAAN **.^...A.A(.(N.2..5)).Z
.... N.2..(N.2) .. 0 . 510.....A.(A.A(.(
N.2).1)).2.....E.M.N.(S.N).2.J.... *** U
ITVOER VAN DE GEGEVENS ***.T....".";....
...10)"*** MEDIAAN ***"...&...06)"OP BAS
IS GRONDMATERIAAL"...0...;.:.."MEDIAAN:
";A.`.D.."REKENKUNDIGE G
EMIDDELDE: ";S.N...N.."VARIANTIE:
";E...X.."STANDAARDEVIATIE:
";E..5...B...K.L.. *** INTERNE DATA-F
ILE...V.. 5,11.25,11.25,11.5,11,12......
...
> CLICK IMAGE PREVIEW FOR FULL MODAL