KALEN1-5
FILE INFORMATION
FILENAME(S): KALEN1-5
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
c12e4ea8acfd23a65ba1690a97a86299165cff4eb216c44c3cc6de853b3807c3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | KALEN1-5 | PRG | DuncanTwain | 19 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 E8 03 8F 20 2A 2A 2A 20 44 41 47 42 |....... *** DAGB| 00000010: 45 50 41 4C 49 4E 47 20 2A 2A 2A 00 37 08 F2 03 |EPALING ***.7...| 00000020: 8D 31 30 30 30 30 3A 20 8F 20 49 4E 49 54 49 41 |.10000: . INITIA| 00000030: 4C 49 53 41 54 49 45 00 4C 08 FC 03 8D 31 31 30 |LISATIE.L....110| 00000040: 30 30 3A 20 8F 20 49 4E 56 4F 45 52 00 66 08 06 |00: . INVOER.f..| 00000050: 04 8D 31 32 30 30 30 3A 20 8F 20 44 41 47 42 45 |..12000: . DAGBE| 00000060: 50 41 4C 49 4E 47 00 7C 08 10 04 8D 31 33 30 30 |PALING.|....1300| 00000070: 30 3A 20 8F 20 55 49 54 56 4F 45 52 00 82 08 1A |0: . UITVOER....| 00000080: 04 80 00 9A 08 10 27 8F 20 2A 2A 2A 20 49 4E 49 |......'. *** INI| 00000090: 54 49 41 4C 49 53 41 54 49 45 00 A7 08 1A 27 86 |TIALISATIE....'.| 000000A0: 20 4D 4C 28 31 32 29 00 B5 08 24 27 81 58 B2 31 | ML(12)...$'.X.1| 000000B0: 20 A4 20 31 32 00 C1 08 2E 27 87 20 4D 4C 28 58 | . 12....'. ML(X| 000000C0: 29 00 C9 08 38 27 82 20 58 00 D9 08 42 27 46 41 |)...8'. X...B'FA| 000000D0: 4C 53 45 B2 28 31 B2 30 29 00 E8 08 4C 27 54 52 |LSE.(1.0)...L'TR| 000000E0: 55 45 B2 28 31 B2 31 29 00 EE 08 56 27 8E 00 FF |UE.(1.1)...V'...| 000000F0: 08 F8 2A 8F 20 2A 2A 2A 20 49 4E 56 4F 45 52 00 |..*. *** INVOER.| 00000100: 0B 09 02 2B 99 C7 28 31 34 37 29 00 18 09 0C 2B |...+..(147)....+| 00000110: 4F 4B B2 46 41 4C 53 45 00 2A 09 16 2B 91 28 4F |OK.FALSE.*..+.(O| 00000120: 4B 29 AA 32 89 31 31 32 30 30 00 4B 09 20 2B 99 |K).2.11200.K. +.| 00000130: 22 D6 4F 45 52 20 45 45 4E 20 44 41 54 55 4D 20 |".OER EEN DATUM | 00000140: 49 4E 20 4E 41 20 31 35 38 32 22 00 51 09 2A 2B |IN NA 1582".Q.*+| 00000150: 99 00 69 09 34 2B 85 22 C4 41 47 4E 55 4D 4D 45 |..i.4+.".AGNUMME| 00000160: 52 20 20 20 20 22 3B 44 4E 00 81 09 3E 2B 85 22 |R ";DN...>+."| 00000170: CD 41 41 4E 44 4E 55 4D 4D 45 52 20 20 22 3B 4D |.AANDNUMMER ";M| 00000180: 4E 00 98 09 48 2B 85 22 CA 41 41 52 20 20 20 20 |N...H+.".AAR | 00000190: 20 20 20 20 20 22 3B 4A 00 D7 09 52 2B 43 4D B2 | ";J...R+CM.| 000001A0: 28 28 4D 4E B1 B2 31 29 AF 28 4D 4E B3 B2 31 32 |((MN..1).(MN..12| 000001B0: 29 AF 28 4D 4E B2 B5 28 4D 4E 29 29 29 3A 20 8F |).(MN..(MN))): .| 000001C0: 20 43 4F 4E 54 52 4F 4C 45 45 52 20 4D 41 41 4E | CONTROLEER MAAN| 000001D0: 44 4E 55 4D 4D 45 52 00 FD 09 5C 2B 8B 20 A8 43 |DNUMMER...\+. .C| 000001E0: 4D A7 99 22 4D 41 41 4E 44 4E 55 4D 4D 45 52 20 |M.."MAANDNUMMER | 000001F0: 4E 49 45 54 20 43 4F 52 52 45 43 54 22 00 28 0A |NIET CORRECT".(.| 00000200: 66 2B 43 4A B2 28 28 4A B1 31 35 38 32 29 AF 28 |f+CJ.((J.1582).(| 00000210: 4A B2 B5 28 4A 29 29 29 3A 8F 20 43 4F 4E 54 52 |J..(J))):. CONTR| 00000220: 4F 4C 45 20 4A 41 41 52 00 49 0A 70 2B 8B 20 A8 |OLE JAAR.I.p+. .| 00000230: 20 43 4A 20 A7 99 22 4A 41 41 52 20 4E 49 45 54 | CJ .."JAAR NIET| 00000240: 20 43 4F 52 52 45 43 54 22 00 84 0A 7A 2B 8B 28 | CORRECT"...z+.(| 00000250: 4A AD 34 B2 B5 28 4A AD 34 29 29 AF 28 4A AD 31 |J.4..(J.4)).(J.1| 00000260: 30 30 B3 B1 B5 28 4A AD 31 30 30 29 29 B0 28 4A |00...(J.100)).(J| 00000270: AD 34 30 30 B2 B5 28 4A AD 34 30 30 29 29 A7 31 |.400..(J.400)).1| 00000280: 31 31 33 36 00 9A 0A 7F 2B 88 20 4D 4C 28 32 29 |1136....+. ML(2)| 00000290: B2 32 38 3A 89 31 31 31 34 30 00 A9 0A 80 2B 88 |.28:.11140....+.| 000002A0: 20 4D 4C 28 32 29 B2 32 39 00 CE 0A 84 2B 43 44 | ML(2).29....+CD| 000002B0: B2 28 28 44 4E B1 B2 31 29 AF 28 44 4E B3 B2 33 |.((DN..1).(DN..3| 000002C0: 31 29 AF 28 44 4E B2 B5 28 44 4E 29 29 29 00 F0 |1).(DN..(DN)))..| 000002D0: 0A 8E 2B 8B 20 43 4D 20 A7 20 43 44 B2 28 43 44 |..+. CM . CD.(CD| 000002E0: 20 AF 20 28 44 4C B3 B2 4D 4C 28 4D 4E 29 29 29 | . (DL..ML(MN)))| 000002F0: 00 1F 0B 98 2B 8B 20 A8 20 43 44 20 A7 99 22 44 |....+. . CD .."D| 00000300: 41 47 4E 55 4D 4D 45 52 20 4E 49 45 54 20 43 4F |AGNUMMER NIET CO| 00000310: 52 52 45 43 54 2E 20 CF 50 4E 49 45 55 57 22 00 |RRECT. .PNIEUW".| 00000320: 35 0B A2 2B 4F 4B B2 28 43 44 20 AF 20 43 4D 20 |5..+OK.(CD . CM | 00000330: AF 20 43 4A 29 00 3D 0B AC 2B 99 3A 99 00 48 0B |. CJ).=..+.:..H.| 00000340: B6 2B 89 31 31 30 33 30 00 4E 0B C0 2B 8E 00 64 |.+.11030.N..+..d| 00000350: 0B E0 2E 8F 20 2A 2A 2A 20 44 41 47 42 45 50 41 |.... *** DAGBEPA| 00000360: 4C 49 4E 47 00 85 0B EA 2E 8B 20 4D 4E B3 B2 32 |LING...... MN..2| 00000370: 20 A7 20 88 20 4D 4E B2 4D 4E AA 31 32 3A 88 20 | . . MN.MN.12:. | 00000380: 4A B2 4A AB 31 00 A9 0B F4 2E 88 20 48 31 B2 B5 |J.J.1...... H1..| 00000390: 28 4A AD 31 30 30 29 AB B5 28 4A AD 34 30 30 29 |(J.100)..(J.400)| 000003A0: AB B5 28 4A AD 34 29 AB 4A 00 CB 0B FE 2E 88 20 |..(J.4).J...... | 000003B0: 48 32 B2 B5 28 28 33 AC 4D 4E AA 38 29 AD 35 29 |H2..((3.MN.8).5)| 000003C0: AA 32 AC 4D 4E AA 44 4E AB 48 31 00 E0 0B 08 2F |.2.MN.DN.H1..../| 000003D0: 88 20 52 B2 48 32 AB 37 AC B5 28 48 32 AD 37 29 |. R.H2.7..(H2.7)| 000003E0: 00 EE 0B 12 2F 81 20 58 B2 30 20 A4 20 52 00 F8 |..../. X.0 . R..| 000003F0: 0B 1C 2F 87 20 44 4E 24 00 00 0C 26 2F 82 20 58 |../. DN$...&/. X| 00000400: 00 06 0C 30 2F 8E 00 18 0C C8 32 8F 20 2A 2A 2A |...0/.....2. ***| 00000410: 20 55 49 54 56 4F 45 52 00 24 0C D2 32 99 C7 28 | UITVOER.$..2..(| 00000420: 31 34 37 29 00 45 0C DC 32 8B 20 4D 4E B1 31 32 |147).E..2. MN.12| 00000430: 20 A7 20 88 20 4D 4E B2 4D 4E AB 31 32 3A 88 20 | . . MN.MN.12:. | 00000440: 4A B2 4A AA 31 00 89 0C E6 32 99 22 C4 45 20 49 |J.J.1....2.".E I| 00000450: 4E 47 45 47 45 56 45 4E 20 44 41 54 55 4D 20 28 |NGEGEVEN DATUM (| 00000460: 22 3B 44 4E 3B 22 2D 22 3B 4D 4E 3B 22 2D 22 3B |";DN;"-";MN;"-";| 00000470: 4A 3B 22 29 20 49 53 20 28 57 41 53 29 20 45 45 |J;") IS (WAS) EE| 00000480: 4E 22 3A 99 44 4E 24 3A 99 00 8F 0C F0 32 8E 00 |N":.DN$:.....2..| 00000490: B9 0C A8 61 83 20 33 31 2C 32 38 2C 33 31 2C 33 |...a. 31,28,31,3| 000004A0: 30 2C 33 31 2C 33 30 2C 33 31 2C 33 31 2C 33 30 |0,31,30,31,31,30| 000004B0: 2C 33 31 2C 33 30 2C 33 31 00 E6 0C B2 61 83 22 |,31,30,31....a."| 000004C0: 5A 4F 4E 44 41 47 22 2C 22 4D 41 41 4E 44 41 47 |ZONDAG","MAANDAG| 000004D0: 22 2C 22 44 49 4E 53 44 41 47 22 2C 22 57 4F 45 |","DINSDAG","WOE| 000004E0: 4E 53 44 41 47 22 00 0B 0D BC 61 83 22 44 4F 4E |NSDAG"....a."DON| 000004F0: 44 45 52 44 41 47 22 2C 22 56 52 49 4A 44 41 47 |DERDAG","VRIJDAG| 00000500: 22 2C 5A 41 54 45 52 44 41 47 22 00 00 00 |",ZATERDAG"... |
....... *** DAGBEPALING ***.7....10000:
. INITIALISATIE.L....11000: . INVOER.F..
..12000: . DAGBEPALING.|....13000: . UIT
VOER..........'. *** INITIALISATIE....'.
ML(12)...$'.X.1 . 12.A..'. ML(X).I.8'.
X.Y.B'FALSE.(1.0)...L'TRUE.(1.1)...V'...
..*. *** INVOER....+.G(147)....+OK.FALSE
.*..+.(OK).2.11200.K. +."VOER EEN DATUM
IN NA 1582".Q.*+..I.4+."DAGNUMMER ";D
N...>+."MAANDNUMMER ";MN...H+."JAAR
";J.W.R+CM.((MN..1).(MN..12).(MN..(
MN))): . CONTROLEER MAANDNUMMER...\+. .C
M.."MAANDNUMMER NIET CORRECT".(.F+CJ.((J
.1582).(J..(J))):. CONTROLE JAAR.I.P+. .
CJ .."JAAR NIET CORRECT"...Z+.(J.4..(J.
4)).(J.100...(J.100)).(J.400..(J.400)).1
1136...+. ML(2).28:.11140....+. ML(2).2
9.N..+CD.((DN..1).(DN..31).(DN..(DN)))..
..+. CM . CD.(CD . (DL..ML(MN)))....+. .
CD .."DAGNUMMER NIET CORRECT. OPNIEUW".
5..+OK.(CD . CM . CJ).=..+.:..H..+.11030
.N..+..D.... *** DAGBEPALING...... MN..2
. . MN.MN.12:. J.J.1...... H1..(J.100).
.(J.400)..(J.4).J.K.... H2..((3.MN.8).5)
.2.MN.DN.H1..../. R.H2.7..(H2.7)..../. X
.0 . R..../. DN$...&/. X...0/....H2. ***
UITVOER.$.R2.G(147).E..2. MN.12 . . MN.
MN.12:. J.J.1....2."DE INGEGEVEN DATUM (
";DN;"-";MN;"-";J;") IS (WAS) EEN":.DN$:
.....2.....A. 31,28,31,30,31,30,31,31,30
,31,30,31....A."ZONDAG","MAANDAG","DINSD
AG","WOENSDAG"....A."DONDERDAG","VRIJDAG
",ZATERDAG"...
> CLICK IMAGE PREVIEW FOR FULL MODAL