FACULTEIT-3100!
FILE INFORMATION
FILENAME(S): FACULTEIT-3100!
FILE TYPE(S): PRG
FILE SIZE: 699b
FIRST SEEN: 2025-11-30 21:23:50
APPEARS ON: 1 disk(s)
FILE HASH
e81d6c13277ba0e6f64bc9108403af154cae755a45cf533ebfdb11e517d94835
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 21 2 | FACULTEIT-3100! | PRG | DuncanTwain | 28 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 50 08 01 00 99 22 05 93 11 44 49 54 20 50 |..P...."...DIT P|
00000010: 52 4F 47 52 41 4D 4D 41 20 42 45 52 45 4B 45 4E |ROGRAMMA BEREKEN|
00000020: 54 20 44 45 20 46 41 43 55 4C 54 45 49 54 20 56 |T DE FACULTEIT V|
00000030: 41 4E 20 45 45 4E 20 47 45 54 41 4C 20 54 4F 54 |AN EEN GETAL TOT|
00000040: 20 4D 41 58 49 4D 41 41 4C 20 33 31 30 30 21 22 | MAXIMAAL 3100!"|
00000050: 00 9E 08 02 00 99 3A 99 22 42 4F 56 45 4E 44 49 |......:."BOVENDI|
00000060: 45 4E 20 4C 41 41 54 20 48 45 54 20 5A 49 45 4E |EN LAAT HET ZIEN|
00000070: 20 55 49 54 20 48 4F 45 56 45 45 4C 20 20 20 20 | UIT HOEVEEL |
00000080: 20 43 49 4A 46 45 52 53 20 44 45 20 55 49 54 4B | CIJFERS DE UITK|
00000090: 4F 4D 53 54 20 42 45 53 54 41 41 54 2E 22 00 C0 |OMST BESTAAT."..|
000000A0: 08 03 00 99 3A 99 22 20 20 20 20 20 20 20 20 20 |....:." |
000000B0: 45 45 4E 20 54 4F 45 54 53 20 47 52 41 41 47 22 |EEN TOETS GRAAG"|
000000C0: 00 D2 08 04 00 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 |......Z$:.Z$."".|
000000D0: 20 34 00 EB 08 0A 00 85 22 93 46 41 43 55 4C 54 | 4......".FACULT|
000000E0: 45 49 54 20 56 41 4E 20 22 3B 4E 00 01 09 0C 00 |EIT VAN ";N.....|
000000F0: 54 49 24 B2 22 30 30 30 30 30 30 22 3A 54 B2 54 |TI$."000000":T.T|
00000100: 49 00 13 09 0F 00 8B 4E B3 33 A7 41 B2 31 3A 89 |I......N.3.A.1:.|
00000110: 31 31 30 00 2C 09 14 00 86 41 28 36 32 30 29 3A |110.,....A(620):|
00000120: 41 28 30 29 B2 32 3A 45 B2 31 45 35 00 3C 09 1E |A(0).2:E.1E5.<..|
00000130: 00 81 41 B2 33 A4 4E 3A 42 B2 AB 31 00 6E 09 28 |..A.3.N:B..1.n.(|
00000140: 00 42 B2 42 AA 31 3A 43 B2 41 28 42 29 AC 41 AA |.B.B.1:C.A(B).A.|
00000150: 5A 3A 5A B2 B5 28 43 AD 45 29 3A 41 28 42 29 B2 |Z:Z..(C.E):A(B).|
00000160: 43 AB 5A AC 45 3A 8B 42 B3 B2 44 A7 34 30 00 7D |C.Z.E:.B..D.40.}|
00000170: 09 32 00 8B 5A B2 30 A7 82 3A 89 37 30 00 89 09 |.2..Z.0..:.70...|
00000180: 3C 00 44 B2 42 3A 89 34 30 00 A1 09 46 00 99 22 |<.D.B:.40...F.."|
00000190: 93 11 11 22 4E 22 21 3D 22 C4 28 41 28 42 29 29 |..."N"!=".(A(B))|
000001A0: 3B 00 CB 09 50 00 81 41 B2 44 A4 30 A9 AB 31 3A |;...P..A.D.0..1:|
000001B0: 41 24 B2 C4 28 41 28 41 29 29 3A 41 24 B2 C9 28 |A$..(A(A)):A$..(|
000001C0: 41 24 2C C3 28 41 24 29 AB 31 29 00 04 0A 5A 00 |A$,.(A$).1)...Z.|
000001D0: 99 C9 28 22 30 30 30 30 22 AA 41 24 2C 35 29 3B |..("0000".A$,5);|
000001E0: 3A 82 3A 99 3A 4D B2 28 54 49 AB 54 29 AD 33 36 |:.:.:M.(TI.T).36|
000001F0: 30 30 3A 4D B2 B5 28 4D AC 31 30 30 AA 2E 35 29 |00:M..(M.100..5)|
00000200: AD 31 30 30 00 1E 0A 5F 00 99 22 11 12 54 49 4A |.100..._.."..TIJ|
00000210: 44 20 20 9D 22 3B 3A 8B 4D B3 31 A7 39 37 00 34 |D .";:.M.1.97.4|
00000220: 0A 60 00 99 B5 28 4D 29 22 20 20 9D 4D 49 4E 2E |.`...(M)" .MIN.|
00000230: 20 20 9D 22 00 65 0A 61 00 53 B2 36 30 AC 28 4D | .".e.a.S.60.(M|
00000240: AB B5 28 4D 29 29 3A 53 B2 B5 28 53 AC 31 30 30 |..(M)):S..(S.100|
00000250: AA 2E 35 29 AD 31 30 30 3A 99 53 22 20 9D 9D 20 |..5).100:.S" .. |
00000260: 53 45 43 2E 22 00 95 0A 64 00 99 22 20 22 3A 99 |SEC."...d.." ":.|
00000270: 22 41 41 4E 54 41 4C 20 43 49 4A 46 45 52 53 3A |"AANTAL CIJFERS:|
00000280: 22 C3 28 C4 28 41 28 42 29 29 29 AB 31 AA 42 AC |".(.(A(B))).1.B.|
00000290: 35 3A 99 3A 80 00 B4 0A 6E 00 81 42 B2 31 A4 4E |5:.:....n..B.1.N|
000002A0: 3A 41 B2 41 AC 42 3A 82 3A 99 4E 22 21 3D 22 41 |:A.A.B:.:.N"!="A|
000002B0: 3A 99 3A 80 00 00 00 18 32 45 00 |:.:.....2E. |
..P...."...DIT PROGRAMMA BEREKENT DE FAC
ULTEIT VAN EEN GETAL TOT MAXIMAAL 3100!"
......:."BOVENDIEN LAAT HET ZIEN UIT HOE
VEEL CIJFERS DE UITKOMST BESTAAT."..
....:." EEN TOETS GRAAG".R....Z$
:.Z$."". 4......".FACULTEIT VAN ";N.....
TI$."000000":T.TI......N.3.A.1:.110.,...
.A(620):A(0).2:E.1E5.<....A.3.N:B..1.N.(
.B.B.1:C.A(B).A.Z:Z..(C.E):A(B).C.Z.E:.B
..D.40.}.2..Z.0..:.70...<.D.B:.40...F.."
..."N"!="D(A(B));.K.P..A.D.0..1:A$.D(A(A
)):A$.I(A$,C(A$).1)...Z..I("0000".A$,5);
:.:.:M.(TI.T).3600:M..(M.100..5).100..._
.."..TIJD .";:.M.1.97.4.`...(M)" .MIN.
.".E.A.S.60.(M..(M)):S..(S.100..5).100
:.S" .. SEC."...D.." ":."AANTAL CIJFERS:
"C(D(A(B))).1.B.5:.:....N..B.1.N:A.A.B:.
:.N"!="A:.:.....2E.
> CLICK IMAGE PREVIEW FOR FULL MODAL