Below you'll find the source for the QBasic file ADRES.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 1997 doesn't meet standards in 2025.
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.
DIM d$(4)
d$(1) = "-"
d$(2) = "\"
d$(3) = "|"
d$(4) = "/"
d = 0
t = 0
x = CSRLIN
OPEN "ADRES.DAT" FOR INPUT AS #1
DO UNTIL EOF(1)
d = d + 1
t = t + 1
IF d = 5 THEN d = 1
LOCATE x, 1: PRINT "Bezig met lezen "; d$(d);
LINE INPUT #1, a$
LOOP
CLOSE #1
menu:
CLS
PRINT "Aantal adressen:"; t
PRINT
PRINT "A) Informatie opvragen"
PRINT "B) Informatie schrijven"
PRINT
PRINT
PRINT "Elke andere toets is einde"
a$ = UCASE$(INPUT$(1))
IF a$ = "B" THEN
CLS
t = t + 1
INPUT "Naam : ", n$
INPUT "Adres : ", a$
INPUT "Telefoonnummer : ", t$
INPUT "Postcode+Woonplaats: ", w$
OPEN "ADRES.DAT" FOR APPEND AS #1
PRINT #1, n$; ","; a$; ","; w$; ","; t$
CLOSE #1
GOTO menu
END IF
IF a$ = "A" THEN
CLS
LINE INPUT "Geef tekst om op te zoeken: "; z$
z$ = LTRIM$(RTRIM$(UCASE$(z$)))
CLS
PRINT " Tekst om op te zoeken: "; z$
PRINT STRING$(80, 205)
OPEN "ADRES.DAT" FOR INPUT AS #1
r = 0
DO UNTIL EOF(1)
r = r + 1
INPUT #1, a$, c$, d$, e$
b$ = LTRIM$(RTRIM$(UCASE$(a$ + c$ + d$ + e$)))
IF INSTR(b$, z$) THEN
PRINT "Naam : "; a$
PRINT "Adres : "; c$
PRINT "Woonplaats : "; d$
PRINT "Telefoonnummer: "; e$
PRINT STRING$(80, 205)
END IF
LOOP
CLOSE #1
PRINT "Druk een toets"
SLEEP
a$ = INKEY$
GOTO menu
END IF