Below you'll find the source for the QBasic file PIXELS.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 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.
'Functie Kleur wordt gedecladeerd
DECLARE FUNCTION Kleur! (blauw!, groen!, rood!)
'Monitor wordt ingesteld
ON ERROR GOTO fout1
SCREEN 13
ON ERROR GOTO fout2
'De demo begint
y = -2
FOR a = 1 TO 255: PALETTE a, 63: NEXT a
FOR t = 1 TO 32000
y = y + 2
IF y > 200 THEN x = x + 1: y = y - 201
d = INT(RND * 255) + 1
PSET (x, y), d
NEXT t
DO
g = INT(RND * 255) + 1: a = INT(RND * 64): B = INT(RND * 64): c = INT(RND * 64)
PALETTE g, Kleur(a, B, c)
LOOP WHILE INKEY$ = ""
FOR t = 0 TO 255: PALETTE t, 0: NEXT t
DO
FOR a = 1 TO 255
PALETTE a, Kleur(0, 63, 63)
IF a - 1 > 0 THEN PALETTE a - 1, 0 ELSE PALETTE 255, 0
a$ = INKEY$
IF a$ <> "" THEN a = 255
NEXT a
LOOP WHILE a$ = ""
'Terug naar DOS
SCREEN 0: WIDTH 80, 25
PRINT "This demo is made by:"
PRINT , , "Stefan Thoolen"
PRINT , , "-Address removed-"
PRINT , , "48** ** Breda"
SYSTEM
fout1: PRINT "U heeft geen VGA monitor (SCREEN 13)": SYSTEM
fout2: PRINT "Onverwachte fout nr."; ERR; "gevonden": SYSTEM
FUNCTION Kleur (blauw, groen, rood)
Kleur = 65536 * blauw + 256 * groen + rood
END FUNCTION