Below you'll find the source for the GWBasic file DATUM.BAS.
I've been in doubt if I'd republish this file again. Mainly for a few reasons;
1. The stuff I made as a kid is very childish (which kinda makes sense)
2. Times have changed; what was funny/innovative or sharable in 1996 doesn't meet standards in 2024.
3. Most of the code doesn't run natively anymore on modern operating systems.
4. It's in the Dutch language, where most of my shared content is in English.
Still, I've decided to share this file. Keep in mind the age of this content though.
1 'Regel1:
2 Maand$ = LEFT$(DATE$, 2)
3 Dag$ = MID$(DATE$, 4, 2)
4 Jaar$ = RIGHT$(DATE$, 4)
5 IF Maand$ = "01" THEN Maand$ = "Januari "
6 IF Maand$ = "02" THEN Maand$ = "Februari "
7 IF Maand$ = "03" THEN Maand$ = "Maart "
8 IF Maand$ = "04" THEN Maand$ = "April "
9 IF Maand$ = "05" THEN Maand$ = "Mei "
10 IF Maand$ = "06" THEN Maand$ = "Juni "
11 IF Maand$ = "07" THEN Maand$ = "Juli "
12 IF Maand$ = "08" THEN Maand$ = "Augustus "
13 IF Maand$ = "09" THEN Maand$ = "September"
14 IF Maand$ = "10" THEN Maand$ = "Oktober "
15 IF Maand$ = "11" THEN Maand$ = "November "
16 IF Maand$ = "12" THEN Maand$ = "December "
17 a$ = INKEY$
18 IF a$ <> "" THEN COLOR 7, 8, 0: SYSTEM
19 Uur$ = LEFT$(TIME$, 2)
20 e$ = MID$(TIME$, 4, 2)
21 d$ = RIGHT$(TIME$, 2)
22 IF Uur$ = "01" THEN b$ = "1": c$ = "snachts "
23 IF Uur$ = "02" THEN b$ = "2": c$ = "snachts "
24 IF Uur$ = "03" THEN b$ = "3": c$ = "snachts "
25 IF Uur$ = "04" THEN b$ = "4": c$ = "snachts "
26 IF Uur$ = "05" THEN b$ = "5": c$ = "snachts "
27 IF Uur$ = "06" THEN b$ = "6": c$ = "sochtends "
28 IF Uur$ = "07" THEN b$ = "7": c$ = "sochtends "
29 IF Uur$ = "08" THEN b$ = "8": c$ = "sochtends "
30 IF Uur$ = "09" THEN b$ = "9": c$ = "sochtends "
31 IF Uur$ = "10" THEN b$ = "10": c$ = "sochtends"
32 IF Uur$ = "11" THEN b$ = "11": c$ = "sochtends"
33 IF Uur$ = "12" THEN b$ = "12": c$ = "smiddags "
34 IF Uur$ = "13" THEN b$ = "1": c$ = "smiddags "
35 IF Uur$ = "14" THEN b$ = "2": c$ = "smiddags "
36 IF Uur$ = "15" THEN b$ = "3": c$ = "smiddags "
37 IF Uur$ = "16" THEN b$ = "4": c$ = "smiddags "
38 IF Uur$ = "17" THEN b$ = "5": c$ = "smiddags "
39 IF Uur$ = "18" THEN b$ = "6": c$ = "savonds "
40 IF Uur$ = "19" THEN b$ = "7": c$ = "savonds "
41 IF Uur$ = "20" THEN b$ = "8": c$ = "savonds "
42 IF Uur$ = "21" THEN b$ = "9": c$ = "savonds "
43 IF Uur$ = "22" THEN b$ = "10": c$ = "savonds "
44 IF Uur$ = "23" THEN b$ = "11": c$ = "savonds "
45 IF Uur$ = "24" THEN b$ = "12": c$ = "snachts "
46 IF Uur$ = "00" THEN b$ = "12": c$ = "snachts "
47 LOCATE 1, 1
48 PRINT " "; STRING$(20, 196); " "
49 PRINT " "; Dag$; " "; Maand$; " "; Jaar$; " "
50 PRINT " "; b$; ":"; e$; ":"; d$; " "; c$; " "
51 PRINT " "; STRING$(20, 196); " "
52 PRINT " ";
53 IF c$ = "savonds " THEN PRINT " Goede avond ";
54 IF c$ = "snachts " THEN PRINT " Goede nacht ";
55 IF c$ = "smiddags " THEN PRINT " Goede middag ";
56 IF c$ = "sochtends " THEN PRINT " Goede morgen ";
57 IF c$ = "savonds " THEN PRINT " Goede avond ";
58 IF c$ = "snachts " THEN PRINT " Goede nacht ";
59 IF c$ = "smiddags " THEN PRINT " Goede middag ";
60 IF c$ = "sochtends " THEN PRINT " Goede morgen ";
61 IF c$ = "savonds " THEN PRINT " Goede avond ";
62 IF c$ = "snachts " THEN PRINT " Goede nacht ";
63 IF c$ = "smiddags " THEN PRINT " Goede middag ";
64 IF c$ = "sochtends" THEN PRINT " Goede morgen ";
65 PRINT " "
66 PRINT " "; STRING$(20, 196); " "
67 IF Dag$ = "31" THEN IF Maand$ = "December " THEN GOSUB 80 'Oudjaar
68 IF Dag$ = "01" THEN IF Maand$ = "Januari " THEN GOSUB 76 'Nieuwjaar
69 PRINT " Druk op een toets. "
70 PRINT " "; STRING$(20, 196); " "
71 GOTO 1 'Regel1
72 DEF SEG = &H40
73 POKE (&H17), PEEK(&H17) AND &HDF
74 POKE (&H17), PEEK(&H17) OR &H40
75 DEF SEG
76 'Nieuwjaar:
77 PRINT " Gelukkig nieuwjaar "
78 PRINT " "; STRING$(20, 196); " "
79 RETURN
80 'Oudjaar:
81 PRINT " Gelukkig oudjaar "
82 PRINT " "; STRING$(20, 196); " "
83 RETURN
84 '
85 'DATUM.BAS voor GWBASIC en QBASIC door Stefan Thoolen Software
86 ' -Address removed-
87 ' 48** ** Breda
88 ' Nederland
89 ' 076 - 5 ** ** **