KALEN2-5
FILE INFORMATION
FILENAME(S): KALEN2-5
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:06:41
APPEARS ON: 1 disk(s)
FILE HASH
80071968d151d5a6d6aab80d572b6d1742e9c4365ad89bcc7c249b08daf3a97e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STR I BASIC | KALEN2-5 | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 33 08 02 00 29 B2 32 39 20 45 4C 53 45 20 |..3...).29 ELSE | 00000010: 88 20 4D 4C 28 32 29 B2 32 38 3A 8F 20 43 4F 4E |. ML(2).28:. CON| 00000020: 54 52 4F 4C 45 20 53 43 48 52 49 4B 4B 45 4C 4A |TROLE SCHRIKKELJ| 00000030: 41 41 52 00 3E 08 0A 00 88 20 4B B2 4A 31 00 5A |AAR.>.... K.J1.Z| 00000040: 08 E8 03 8F 20 42 45 50 41 4C 49 4E 47 20 41 41 |.... BEPALING AA| 00000050: 4E 54 41 4C 20 44 41 47 45 4E 00 76 08 F2 03 8D |NTAL DAGEN.v....| 00000060: 20 31 30 30 30 30 3A 8F 20 49 4E 49 54 49 41 4C | 10000:. INITIAL| 00000070: 49 53 41 54 49 45 00 8B 08 FC 03 8D 20 31 31 30 |ISATIE...... 110| 00000080: 30 30 3A 8F 20 49 4E 56 4F 45 52 00 B1 08 06 04 |00:. INVOER.....| 00000090: 8D 20 31 32 30 30 30 3A 8F 20 42 45 52 45 4B 45 |. 12000:. BEREKE| 000000A0: 4E 49 4E 47 20 41 41 4E 54 41 4C 20 44 41 47 45 |NING AANTAL DAGE| 000000B0: 4E 00 C7 08 10 04 8D 20 31 33 30 30 30 3A 8F 20 |N...... 13000:. | 000000C0: 55 49 54 56 4F 45 52 00 CD 08 1A 04 80 00 E5 08 |UITVOER.........| 000000D0: DC 05 3A 20 20 8F 20 49 4E 56 4F 45 52 20 44 41 |..: . INVOER DA| 000000E0: 54 55 4D 20 32 00 EB 08 2E 06 22 00 FF 08 10 27 |TUM 2....."....'| 000000F0: 8F 20 49 4E 49 54 49 41 4C 49 53 41 54 49 45 00 |. INITIALISATIE.| 00000100: 0C 09 1A 27 86 20 4D 4C 28 31 32 29 00 1B 09 24 |...'. ML(12)...$| 00000110: 27 81 20 58 B2 31 20 A4 20 31 32 00 27 09 2E 27 |'. X.1 . 12.'..'| 00000120: 87 20 4D 4C 28 58 29 00 2F 09 38 27 82 20 58 00 |. ML(X)./.8'. X.| 00000130: 3D 09 42 27 46 41 4C 53 45 B2 31 B2 30 00 4A 09 |=.B'FALSE.1.0.J.| 00000140: 4C 27 54 52 55 45 B2 31 B2 31 00 50 09 56 27 8E |L'TRUE.1.1.P.V'.| 00000150: 00 5D 09 F8 2A 8F 20 49 4E 56 4F 45 52 00 6A 09 |.]..*. INVOER.j.| 00000160: 02 2B 4F 4B B2 46 41 4C 53 45 00 79 09 0C 2B 57 |.+OK.FALSE.y..+W| 00000170: 48 49 4C 45 20 A8 20 4F 4B 00 98 09 16 2B 43 4C |HILE . OK....+CL| 00000180: 53 3A 20 20 8F 20 53 43 48 45 52 4D 20 53 43 48 |S: . SCHERM SCH| 00000190: 4F 4F 4E 4D 41 4B 45 4E 00 E1 09 20 2B 99 20 22 |OONMAKEN... +. "| 000001A0: 5A 4F 20 44 41 44 45 4C 49 4A 4B 20 57 4F 52 44 |ZO DADELIJK WORD| 000001B0: 54 20 55 20 54 57 45 45 20 4B 45 45 52 20 47 45 |T U TWEE KEER GE| 000001C0: 56 52 41 41 47 44 20 4F 4D 20 45 45 4E 20 44 41 |VRAAGD OM EEN DA| 000001D0: 54 55 4D 20 49 4E 20 54 45 20 56 4F 45 52 45 4E |TUM IN TE VOEREN| 000001E0: 2E 00 E7 09 48 2B 99 00 04 0A 52 2B 4C 49 4E 45 |....H+....R+LINE| 000001F0: 20 85 20 22 47 45 45 46 20 52 45 54 55 52 4E 20 | . "GEEF RETURN | 00000200: 22 3B 49 24 00 23 0A 5C 2B 8D 20 31 31 35 30 30 |";I$.#.\+. 11500| 00000210: 3A 20 20 8F 20 49 4E 56 4F 45 52 20 44 41 54 55 |: . INVOER DATU| 00000220: 4D 20 31 00 3E 0A 66 2B 88 20 44 31 B2 44 4E 3A |M 1.>.f+. D1.DN:| 00000230: 88 20 4D 31 B2 4D 4E 3A 88 20 4A 31 B2 4A 00 44 |. M1.MN:. J1.J.D| 00000240: 0A 70 2B 8D 00 5F 0A 7A 2B 88 20 44 32 B2 44 4E |.p+.._.z+. D2.DN| 00000250: 3A 88 20 4D 32 B2 4D 4E 3A 88 20 4A 32 B2 4A 00 |:. M2.MN:. J2.J.| 00000260: 98 0A 84 2B 4F 4B B2 4A 31 B3 4A 32 20 B0 20 28 |...+OK.J1.J2 . (| 00000270: 4A 31 B2 4A 32 20 AF 20 4D 31 B3 4D 32 29 20 B0 |J1.J2 . M1.M2) .| 00000280: 20 28 4A 31 B2 4A 32 20 AF 20 4D 31 B2 4D 32 20 | (J1.J2 . M1.M2 | 00000290: AF 20 44 31 B3 44 32 29 00 D2 0A 8E 2B 8B 20 A8 |. D1.D2)....+. .| 000002A0: 20 4F 4B 20 A7 20 99 3A 99 20 C7 28 37 29 3B 22 | OK . .:. .(7);"| 000002B0: 49 4E 56 4F 45 52 20 4E 49 45 54 20 43 4F 52 52 |INVOER NIET CORR| 000002C0: 45 43 54 2E 20 4F 50 4E 49 45 55 57 22 3A 81 20 |ECT. OPNIEUW":. | 000002D0: 57 4C 00 E8 0A F6 2C 43 4C 53 3A 20 20 8F 20 53 |WL....,CLS: . S| 000002E0: 43 48 45 52 4D 20 53 43 00 F5 0A 00 2D 4F 4B B2 |CHERM SC....-OK.| 000002F0: 46 41 4C 53 45 00 04 0B 0A 2D 57 48 49 4C 45 20 |FALSE....-WHILE | 00000300: A8 20 4F 4B 00 20 0B 14 2D 99 20 22 56 4F 45 52 |. OK. ..-. "VOER| 00000310: 20 45 45 4E 20 44 41 54 55 4D 20 49 4E 20 4E 41 | EEN DATUM IN NA| 00000320: 00 26 0B 1E 2D 99 00 42 0B 28 2D 85 20 22 44 41 |.&..-..B.(-. "DA| 00000330: 47 4E 55 4D 4D 45 52 20 20 20 20 20 20 20 22 3B |GNUMMER ";| 00000340: 44 4E 00 5E 0B 32 2D 85 20 22 4D 41 41 4E 44 4E |DN.^.2-. "MAANDN| 00000350: 55 4D 4D 45 52 20 20 20 20 20 22 3B 4D 4E 00 79 |UMMER ";MN.y| 00000360: 0B 3C 2D 85 20 22 4A 41 41 52 20 20 20 20 20 20 |.<-. "JAAR | 00000370: 20 20 20 20 20 20 22 3B 4A 00 B3 0B 46 2D 43 4D | ";J...F-CM| 00000380: B2 4D 4E B1 B2 31 20 AF 20 4D 4E B3 B2 31 32 20 |.MN..1 . MN..12 | 00000390: AF 20 4D 4E B2 B5 28 4D 4E 29 3A 20 20 8F 20 43 |. MN..(MN): . C| 000003A0: 4F 4E 54 52 4F 4C 45 20 4D 41 41 4E 44 4E 55 4D |ONTROLE MAANDNUM| 000003B0: 4D 45 52 00 DD 0B 50 2D 8B 20 A8 20 43 4D 20 A7 |MER...P-. . CM .| 000003C0: 20 99 20 22 4D 41 41 4E 44 4E 55 4D 4D 45 52 20 | . "MAANDNUMMER | 000003D0: 4E 49 45 54 20 43 4F 52 52 45 43 54 22 00 06 0C |NIET CORRECT"...| 000003E0: 5A 2D 43 4A B2 4A B1 31 35 38 32 20 AF 20 4A B2 |Z-CJ.J.1582 . J.| 000003F0: B5 28 4A 29 3A 20 20 8F 20 43 4F 4E 54 52 4F 4C |.(J): . CONTROL| 00000400: 45 20 4A 41 41 52 00 29 0C 64 2D 8B 20 A8 20 43 |E JAAR.).d-. . C| 00000410: 4A 20 A7 20 99 20 22 4A 41 41 52 20 4E 49 45 54 |J . . "JAAR NIET| 00000420: 20 43 4F 52 52 45 43 54 22 00 5F 0C 6E 2D 8B 20 | CORRECT"._.n-. | 00000430: 4A AD 34 B2 B5 28 4A AD 34 29 20 AF 20 28 4A AD |J.4..(J.4) . (J.| 00000440: 31 30 30 B3 B1 B5 28 4A AD 31 30 30 29 20 B0 20 |100...(J.100) . | 00000450: 4A AD 34 30 30 B2 B5 28 4A AD 34 30 30 29 29 00 |J.400..(J.400)).| 00000460: A4 0C 6F 2D 8F 20 54 48 45 4E 20 4C 45 54 20 4D |..o-. THEN LET M| 00000470: 4C 28 32 29 3D 32 39 20 45 4C 53 45 20 4C 45 54 |L(2)=29 ELSE LET| 00000480: 20 4D 4C 28 32 29 3D 32 38 3A 52 45 4D 20 43 4F | ML(2)=28:REM CO| 00000490: 4E 54 52 4F 4C 45 20 53 43 48 52 49 4B 4B 45 4C |NTROLE SCHRIKKEL| 000004A0: 4A 41 41 52 00 C5 0C 78 2D 43 44 B2 44 4E B1 B2 |JAAR...x-CD.DN..| 000004B0: 31 20 AF 20 44 4E B3 B2 33 31 20 AF 20 44 4E B2 |1 . DN..31 . DN.| 000004C0: B5 28 44 4E 29 00 E3 0C 82 2D 8B 20 43 4D 20 A7 |.(DN)....-. CM .| 000004D0: 20 43 44 B2 43 44 20 AF 20 44 4E B3 B2 4D 4C 28 | CD.CD . DN..ML(| 000004E0: 4D 4E 29 00 0B 0D 8C 2D 8B 20 A8 20 43 44 20 A7 |MN)....-. . CD .| 000004F0: 20 99 20 22 44 41 47 4E 55 4D 4D 45 52 20 4E 49 | . "DAGNUMMER NI| 00000500: 45 54 20 43 4F 52 52 45 43 54 22 00 1F 0D 96 2D |ET CORRECT"....-| 00000510: 4F 4B B2 43 44 20 AF 20 43 4D 20 AF 20 43 4A 00 |OK.CD . CM . CJ.| 00000520: 27 0D A0 2D 99 3A 99 00 2E 0D AA 2D 57 80 00 34 |'..-.:.....-W..4| 00000530: 0D B4 2D 8E 00 52 0D E0 2E 8F 20 42 45 52 45 4B |..-..R.... BEREK| 00000540: 45 4E 49 4E 47 20 41 41 4E 54 41 4C 20 44 41 47 |ENING AANTAL DAG| 00000550: 45 4E 00 61 0D EA 2E 88 20 4D 4C 28 32 29 B2 32 |EN.a.... ML(2).2| 00000560: 38 00 75 0D F4 2E 88 20 4C B2 33 36 35 AC 28 4A |8.u.... L.365.(J| 00000570: 32 AB 4A 31 29 00 9F 0D FE 2E 8B 20 4D 32 B1 31 |2.J1)...... M2.1| 00000580: 20 A7 20 81 20 58 B2 31 20 A4 20 4D 32 AB 31 3A | . . X.1 . M2.1:| 00000590: 88 20 4C B2 4C AA 4D 4C 28 58 29 3A 82 20 58 00 |. L.L.ML(X):. X.| 000005A0: C9 0D 08 2F 8B 20 4D 31 B1 31 20 A7 20 81 20 58 |.../. M1.1 . . X| 000005B0: B2 31 20 A4 20 4D 31 AB 31 3A 88 20 4C B2 4C AB |.1 . M1.1:. L.L.| 000005C0: 4D 4C 28 58 29 3A 82 20 58 00 D9 0D 12 2F 88 20 |ML(X):. X..../. | 000005D0: 4C B2 4C AA 44 32 AB 44 31 00 EB 0D 1C 2F 88 20 |L.L.D2.D1..../. | 000005E0: 4A B2 34 AC B5 28 4A 31 AD 34 29 00 F7 0D 26 2F |J.4..(J1.4)...&/| 000005F0: 88 20 4A B2 4A AA 34 00 06 0E 30 2F 57 48 49 4C |. J.J.4...0/WHIL| 00000600: 45 20 4A B3 4A 32 00 10 0E 3A 2F 88 20 4B B2 4A |E J.J2...:/. K.J| 00000610: 00 37 0E 44 2F 8D 20 31 32 35 30 30 3A 20 20 8F |.7.D/. 12500: .| 00000620: 20 42 45 50 41 4C 49 4E 47 20 53 43 48 52 49 4B | BEPALING SCHRIK| 00000630: 4B 45 4C 4A 41 41 52 00 4A 0E 4E 2F 8B 20 53 4A |KELJAAR.J.N/. SJ| 00000640: 20 A7 20 88 20 4C B2 4C AA 31 00 56 0E 58 2F 88 | . . L.L.1.V.X/.| 00000650: 20 4A B2 4A AA 34 00 5D 0E 62 2F 57 80 00 80 0E | J.J.4.].b/W....| 00000660: 6C 2F 8B 20 4A 31 B2 4A 32 20 A7 20 8D 20 31 32 |l/. J1.J2 . . 12| 00000670: 32 30 30 20 45 4C 53 45 20 8D 20 31 32 33 30 30 |200 ELSE . 12300| 00000680: 00 86 0E 76 2F 8E 00 92 0E A8 2F 8F 20 4A 31 3D |...v/...../. J1=| 00000690: 4A 32 00 9D 0E B2 2F 88 20 4B B2 4A 31 00 C4 0E |J2..../. K.J1...| 000006A0: BC 2F 8D 20 31 32 35 30 30 3A 20 20 8F 20 42 45 |./. 12500: . BE| 000006B0: 50 41 4C 49 4E 47 20 53 43 48 52 49 4B 4B 45 4C |PALING SCHRIKKEL| 000006C0: 4A 41 41 52 00 E5 0E C6 2F 8B 20 53 4A 20 AF 20 |JAAR..../. SJ . | 000006D0: 4D 31 B3 33 20 AF 20 4D 32 B1 32 20 A7 20 88 20 |M1.3 . M2.2 . . | 000006E0: 4C B2 4C AA 31 00 EB 0E D0 2F 8E 00 F8 0E 0C 30 |L.L.1..../.....0| 000006F0: 8F 20 4A 31 3C 3E 4A 32 00 1F 0F 20 30 8D 20 31 |. J1<>J2... 0. 1| 00000700: 32 35 30 30 3A 20 20 8F 20 42 45 50 41 4C 49 4E |2500: . BEPALIN| 00000710: 47 20 53 43 48 52 49 4B 4B 45 4C 4A 41 41 52 00 |G SCHRIKKELJAAR.| 00000720: 39 0F 2A 30 8B 20 53 4A 20 AF 20 4D 31 B3 33 20 |9.*0. SJ . M1.3 | 00000730: A7 20 88 20 4C B2 4C AA 31 00 44 0F 34 30 88 20 |. . L.L.1.D.40. | 00000740: 4B B2 4A 32 00 6B 0F 3E 30 8D 20 31 32 35 30 30 |K.J2.k.>0. 12500| 00000750: 3A 20 20 8F 20 42 45 50 41 4C 49 4E 47 20 53 43 |: . BEPALING SC| 00000760: 48 52 49 4B 4B 45 4C 4A 41 41 52 00 85 0F 48 30 |HRIKKELJAAR...H0| 00000770: 8B 20 53 4A 20 AF 20 4D 32 B1 32 20 A7 20 88 20 |. SJ . M2.2 . . | 00000780: 4C B2 4C AA 31 00 8B 0F 52 30 8E 00 A8 0F D4 30 |L.L.1...R0.....0| 00000790: 8F 20 42 45 50 41 4C 49 4E 47 20 53 43 48 52 49 |. BEPALING SCHRI| 000007A0: 4B 4B 45 4C 4A 41 41 52 00 DF 0F DE 30 53 4A B2 |KKELJAAR....0SJ.| 000007B0: 4B AD 34 B2 B5 28 4B AD 34 29 20 AF 20 28 4B AD |K.4..(K.4) . (K.| 000007C0: 31 30 30 B3 B1 B5 28 4B AD 31 30 30 29 20 B0 20 |100...(K.100) . | 000007D0: 4B AD 34 30 30 B2 B5 28 4B AD 34 30 30 29 29 00 |K.400..(K.400)).| 000007E0: E5 0F E8 30 8E 00 F3 0F C8 32 8F 20 55 49 54 56 |...0.....2. UITV| 000007F0: 4F 45 52 00 00 00 |OER... |
..3...).29 ELSE . ML(2).28:. CONTROLE SC
HRIKKELJAAR.>.... K.J1.Z.... BEPALING AA
NTAL DAGEN.V.... 10000:. INITIALISATIE..
.... 11000:. INVOER...... 12000:. BEREKE
NING AANTAL DAGEN.G.... 13000:. UITVOER.
M.........: . INVOER DATUM 2....."....'
. INITIALISATIE....'. ML(12)...$'. X.1 .
12.'..'. ML(X)./.8'. X.=.B'FALSE.1.0.J.
L'TRUE.1.1.P.V'..]..*. INVOER.J..+OK.FAL
SE.Y..+WHILE . OK....+CLS: . SCHERM SCH
OONMAKEN... +. "ZO DADELIJK WORDT U TWEE
KEER GEVRAAGD OM EEN DATUM IN TE VOEREN
....H+....R+LINE . "GEEF RETURN ";I$.#.\
+. 11500: . INVOER DATUM 1.>.F+. D1.DN:
. M1.MN:. J1.J.D.P+.._.Z+. D2.DN:. M2.MN
:. J2.J....+OK.J1.J2 . (J1.J2 . M1.M2) .
(J1.J2 . M1.M2 . D1.D2).R..+. . OK . .:
. G(7);"INVOER NIET CORRECT. OPNIEUW":.
WL....,CLS: . SCHERM SC....-OK.FALSE...
.-WHILE . OK. ..-. "VOER EEN DATUM IN NA
.&..-..B.(-. "DAGNUMMER ";DN.^.2-.
"MAANDNUMMER ";MN.Y.<-. "JAAR
";J...F-CM.MN..1 . MN..12 . MN..(M
N): . CONTROLE MAANDNUMMER...P-. . CM .
. "MAANDNUMMER NIET CORRECT"...Z-CJ.J.1
582 . J..(J): . CONTROLE JAAR.).D-. . C
J . . "JAAR NIET CORRECT"._.N-. J.4..(J.
4) . (J.100...(J.100) . J.400..(J.400)).
..O-. THEN LET ML(2)=29 ELSE LET ML(2)=2
8:REM CONTROLE SCHRIKKELJAAR.E.X-CD.DN..
1 . DN..31 . DN..(DN)....-. CM . CD.CD .
DN..ML(MN)....-. . CD . . "DAGNUMMER NI
ET CORRECT"....-OK.CD . CM . CJ.'. -.:..
...-W..4..-..R.... BEREKENING AANTAL DAG
EN.A.... ML(2).28.U.... L.365.(J2.J1)...
... M2.1 . . X.1 . M2.1:. L.L.ML(X):. X.
I../. M1.1 . . X.1 . M1.1:. L.L.ML(X):.
X.Y../. L.L.D2.D1..../. J.4..(J1.4)...&/
. J.J.4...0/WHILE J.J2...:/. K.J.7.D/. 1
2500: . BEPALING SCHRIKKELJAAR.J.N/. SJ
. . L.L.1.V.X/. J.J.4.].B/W....L/. J1.J
2 . . 12200 ELSE . 12300...V/...../. J1=
J2..../. K.J1.D../. 12500: . BEPALING S
CHRIKKELJAAR...F/. SJ . M1.3 . M2.2 . .
L.L.1...P/.....0. J1<>J2... 0. 12500: .
BEPALING SCHRIKKELJAAR.9.*0. SJ . M1.3
. . L.L.1.D.40. K.J2.K.>0. 12500: . BEP
ALING SCHRIKKELJAAR...H0. SJ . M2.2 . .
L.L.1...R0....T0. BEPALING SCHRIKKELJAAR
....0SJ.K.4..(K.4) . (K.100...(K.100) .
K.400..(K.400))....0....H2. UITVOER...
> CLICK IMAGE PREVIEW FOR FULL MODAL