Below you'll find the source for the QBasic file DRAW.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.
'Declaratie van de functie Kleur
DECLARE FUNCTION Kleur! (blauw!, groen!, rood!)
'Stelt de random (=willekeurig) in
RANDOMIZE TIMER
'Maakt variabeles klaar
sn = 1: af = 1
sn = 256 - sn
x = 160: y = 100
'Gaat naar grafisch beeld en zorgt voor foutmeldingen
ON ERROR GOTO fout1
SCREEN 13
ON ERROR GOTO fout2
'De demo zelf
ve:
CLS
DO
r1 = INT(RND * 2) + 1: r2 = INT(RND * 2) + 1: r3 = INT(RND * 2) + 1
r4 = INT(RND * 2) + 1: r5 = INT(RND * sn) + 1: r6 = INT(RND * 64)
r7 = INT(RND * 64): r8 = INT(RND * 64)
c = c + 1
IF c > sn THEN c = 0
IF r1 = r2 THEN x = x - af ELSE x = x + af
IF r3 = r4 THEN y = y + af ELSE y = y - af
IF x > 320 THEN x = 0
IF x < 0 THEN x = 320
IF y > 200 THEN y = 0
IF y < 0 THEN y = 200
PSET (x, y), c
PALETTE r5, Kleur(r6, r7, r8)
a$ = UCASE$(INKEY$)
IF a$ = "A" THEN a$ = "": CLS
IF a$ = "B" THEN RUN
LOOP UNTIL a$ <> ""
'Gaat terug naar dosscherm
SCREEN 0
WIDTH 80, 25
PRINT "This demo is made by:"
PRINT , , "Stefan Thoolen"
PRINT , , "-Address removed-"
PRINT , , "48** ** Breda"
PRINT , , "The Netherlands"
SYSTEM
fout1: PRINT "Uw monitor is niet goed genoeg; dit vereist een VGA monitor (SCREEN 13)": SYSTEM
fout2: PRINT "Onverwachte fout nr."; ERR; "gevonden": SYSTEM
'Berekent een kleur (voor screen 12/13) met de tinten blauw, groen en rood
'Die kun je dan met PALETTE instellen. Bijv. PALETTE 1, KLEUR(63, 63, 63)
'Dan is kleur 1 (COLOR 1) fel wit. De getallen kunnen van 0 tot en met 63
'zijn.
FUNCTION Kleur (blauw, groen, rood)
Kleur = 65536 * blauw + 256 * groen + rood
END FUNCTION